Haiku Gallery
: x x .5 - ; : y y .5 - ; x dup * y dup * + sqrt y x atan2 1 mod sample
Shattered
Anonymous
'25 May 27
x 0.5 > if 255 0 0 1 else Y 0.5 > if 255 0 0 1 else 0 0 255 1 then then
test X Y R G B A
Wesley
'25 May 27
1 2 3 1
Untitled
Anonymous
'25 May 27
: bar * sin + ; : barx x bar ; : bary y bar ; : foo 0 11 barx 17 bary 19 barx 0 3 bary 5 barx 7 bary * + 7 * sin ; t 0.33 * foo t 0.67 * foo t foo
oily Redux Animated
foo
'25 May 27
: x x 10 * 4 - ; : y y 10 * 4 - ; x y + x y * > x 1 - abs .1 < y 1 - abs .1 < or x 0 - abs .1 < y 0 - abs .1 < or
a + b > a * b
BradN
'25 May 27
x y bwsample
Darkroom TV
Anonymous
'25 May 27
: sc 40 ; : df .1 ; x sc * floor .5 + sc / y sc * floor .5 + sc / bwsample push x sc * floor .5 + sc / y sc * floor .5 + sc / sample r@ df + / rot r@ df + / rot pop df + / rot x y bwsample push r@ df + * rot r@ df + * rot pop df + * rot
LowRes Chroma Fixed
BradN
'25 May 27
: sc 40 ; : df .1 ; x sc * floor sc / y sc * floor sc / bwsample push x sc * floor sc / y sc * floor sc / sample r@ df + / rot r@ df + / rot pop df + / rot x y bwsample push r@ df + * rot r@ df + * rot pop df + * rot
LowRes Chroma
BradN
'25 May 27
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2 x y sample push push push rot pop max rot pop max rot pop max
PACMAN TV
Anonymous
'25 May 27
: kk x 2 / .5 + y sample swap -rot + .3 - > ; : mix swap over 1 swap - * -rot * + ; x 2 / y sample x 2 / .5 + y sample push push push rot pop kk mix rot pop kk mix rot pop kk mix
ChromaKey
BradN
'25 May 27
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; : a push push y t pop * sin 0.5 * - r t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine x y sample push push push pop * rot pop * rot pop * rot
continuous plasmoid TV
Anonymous
'25 May 27
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup push push push x y sample pop min rot pop min rot pop min rot
Tunnel Vision
Anonymous
'25 May 27
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup push push push x y sample pop min rot pop min rot pop min rot
Tunnel Vision
Anonymous
'25 May 27
: z t 1 + cos 4 + 3 / * ; : a 1.1 x .5 - y .5 - atan2 t ; : b * dup sin swap 2 / t 5 * + cos t 3 / sin 2 / 1 + * - 30 / x .5 - z 2 ** y .5 - z 2 ** + + - 4 ** ; a 1.7 / + 10 b t cos 1 + 5 / + a 1.9 / - 8 b a 2.1 / - 6 b t 2.7 * cos 1 + 5 / + push push push x y sample pop * rot pop * rot pop * rot
Light at the end of the tunnel
Anonymous
'25 May 27
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y + push push push x y sample pop * rot pop * rot pop * rot
streak TV
Anonymous
'25 May 27
: d dup ; : ' .40 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.45 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .506 + sqrt ; : z r 420 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .40 * .59 + .4 r 20 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * push x y sample r@ * rot r@ * rot pop * rot
hyptonyze your eyes view
Anonymous
'25 May 27
x y sample random > rot random > rot random > rot
Static Color TV
Anonymous
'25 May 27
x 80 * floor 80 / y 80 * floor 80 / 2dup bwsample -rot .05 + bwsample - abs .1 < push x y sample r@ * rot r@ * rot pop * rot
Sludge TV
Anonymous
'25 May 27
x y bwsample random > dup dup
Static TV
Anonymous
'25 May 27
x 80 * floor 80 / y 80 * floor 80 / bwsample x 80 * floor y 80 * floor + 3 mod .5 + 4 / > dup dup
Monochrome Dither
BradN
'25 May 27
x y t sin 1 + 2 /
Untitled
Anonymous
'25 May 27
x y bwsample x .01 + y bwsample + x y .01 + bwsample + x .01 - y bwsample + x y .01 - bwsample + 5 / dup sin dup sin 1.3 pow
Blurry Photo
Anonymous
'25 May 27
x 4 * y 3 * t 2 * + 3 + sin + 1.5 - dup push y sample pop dup 0 > swap 1 < * push r@ * r@ 1 < x * + rot r@ * rot r@ * rot pop drop
Wiggly View
Anonymous
'25 May 27
: quant 3 * floor 3 / ; x 32 * floor 32 / y 32 * floor 32 / sample quant rot quant rot quant rot
Lowres
Anonymous
'25 May 27
x 2 * t sin + y 2 * t .7 * cos + 2dup push push sample pop pop dup 0 > swap 1 < * swap dup 0 > swap 1 < * * push r@ * rot r@ * rot r@ * pop drop rot
Floating View
Anonymous
'25 May 27
: y0 y 1.6 * .45 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 4 + d * swap d * + over d * + 7 - swap 1 + min + r> r> r> ; 0 x 1.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 2 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.7 / x y bwsample + d d * over sqrt -rot
Pretty Purple
Anonymous
'25 May 27
x 20 * sin 1 mod y 20 * sin 1 mod sample
Spider Eyes
Anonymous
'25 May 27
x y sample dup .5 > rot + swap x + rot y +
Rainbow Video
Anonymous
'25 May 27
: d dup ; : fract d floor - ; : px x .5 - ; : py y .5 - ; : len px d * py d * + sqrt ; : mix 1 over - z* swap drop ; : f fract 3 over 2 * - over * * ; : power pop d push ; : uvx px py atan2 pi 2 * / .5 + power * ; : uvy len .4 * t .05 * + power * ; : uvz .5 t .01 * + power * ; : v power mod floor ; : uv0x uvx v ; : uv1x uvx 1 + v ; : uv0y uvy v 100 * ; : uv1y uvy 1 + v 100 * ; : uv0z uvz v 10000 * ; : uv1z uvz 1 + v 10000 * ; : vx uv0x uv0y uv0z + + ; : vy uv1x uv0y uv0z + + ; : vz uv0x uv1y uv0z + + ; : vw uv1x uv1y uv0z + + ; : ra .001 * sin 100000 * fract ; : rb uv1z + uv0z - ra ; : r0 vx ra vy ra uvx f mix vz ra vw ra uvx f mix uvy f mix ; : r1 vx rb vy rb uvx f mix vz rb vw rb uvx f mix uvy f mix ; 2 len 6 * - 1.5 2 / 16 push r0 r1 uvz f mix 2 * 1 - * + pop drop ( color correction ) abs sqrt 1 swap - 0 max x y bwsample + 1.5 * d 2 ** .4 * over 3 ** .15 * rot ( 3 / d 2.5 * over sqrt ) ( based on “Ball of Fire” GLSL shader by Trisomie21 )
Ink Camera
Anonymous
'25 May 27
x 20 * floor 20 / y 20 * floor 20 / sample x y bwsample x .01 - y bwsample - abs dup push + rot pop dup + push rot pop + rot
Ghost in the Machine
Anonymous
'25 May 27
x 20 * floor 20 / y 20 * floor 20 / sample
Pixelate
Anonymous
'25 May 27
x y bwsample x .5 - dup * y .5 - dup * + .2 < * dup x + dup y +
Porticulus
Anonymous
'25 May 27
x mx .5 - - 1 mod y my .5 - - 1 mod bwsample x mx - .3 pow mx + 1 mod y my - .3 pow my + 1 mod sample >
Electric Dream
Anonymous
'25 May 27
x 3 * sin 1 mod y 3 * sin 1 mod sample
Funhouse
BradN
'25 May 27
x .01 - y bwsample x .01 + y bwsample - x y .01 - bwsample x y .01 + bwsample - 2dup * .1 >
Edges
BradN
'25 May 27
x y t + 8 * sin .05 * + y x t + 8 * cos .05 * + sample
Wiggle Video
BradN
'25 May 27
x y sample
Plain Video
BradN
'25 May 27
0 if 1 then 1
Untitled
Anonymous
'25 May 27
\ Original 256 bytes DOS intro by unlord / xylem \ Released on Function 2017 demo : a x .5 - 2 ** y .5 - 2 ** + sqrt .3 - ; : b y .5 - x .5 - atan2 ; : s' t + b + b sin t sin * 2 * + cos .1 * ; : $ 1.6 + 6.4 mod s' ; : h 1.6 * >r r@ s' r@ $ - 40 * a r@ s' - r> $ a - min 256 * 0 max 1 min * + ; : g 1.6 * dup dup s' .1 - r@ * a rot s' - rot $ a - min - ; 0 0 h 1 h 2 h 3 h >r 0 g 3 g * 1 g 3 g * 2 g 3 g * r> drop
Twist Ring
Ivanq
'25 May 27
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 94 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 9 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 7532 + pi 09 * / f ; a j 0.5 b - v d 0.5 < * 9 * m * 1 p d * y 0.5 - d * + 96 * 39 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 9.97
''BOUNCING'' BALLS (with pacman
shin-En
'25 May 27
Next