Haiku Gallery
x abs .01 < y abs .01 < or x abs .99 > or y abs .99 > or x y + dup .99 > swap 1.01 < and or
Triangles
Anonymous
'25 Jul 15
: mm over * swap .3 > .3 * max ; : w t 16 + ; : d dup ; : f 1 mod ; : p w 2 * sin .3 * .5 + ; : c y * floor 3 mod swap / - d 0 > ; : r / f 0.5 - d 0 > 2 * 1 - * 2 * ; : by w 3.1 r ; x 16 * f .04 > y 32 * f .07 > * y .69 > * 5 16 c 6 32 c 8 8 c drop by d w .02 - 3.1 r - 0 < * w 1 by - 1.55 * - 7 r 16 * floor .52 + 16 / x - abs 0.03 < * y .72 < y .69 > * * 2 / x w 7 r - d * y by .64 * .038 + - d * + sqrt .015 < 2 * + y .028 < x w 7 r p over - by * + - abs .06 < * + d d >r >r + rot r> + rot r> + rot x y bwsample push r@ mm rot r@ mm rot r@ mm rot pop drop
Arkanoid Video
Anonymous
'25 Jul 15
: x' x .5 - dup * y .5 - dup * + sqrt ; : y' y .5 - x .5 - atan2 ; : x x' y' t + cos * .5 + ; : y x' y' t + sin * .5 + ; : xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 < ; : c2 xc yc len r1 - dup .008 > swap .012 < and ; : lr x .5 < ; : wb xc yt len r2 < ; : bb xc yb len r2 > ; : ws xc yb len r3 < ; : bs xc yt len r3 > ; c1 lr min bb min wb max bs min ws max c2 max x y bwsample * dup dup
Duality Video
Anonymous
'25 Jul 15
: c t 0.01398413 + sin t -0.9132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : scale 0.5 - 2 pi * * 0.5 * ; : sclxy scale swap scale swap ; : julia 0 x y sclxy j j j j j j j j j j j j j j j j drop drop ; julia 16 / x y bwsample over .1 < * + dup dup
Julia grayscale Vision
Anonymous
'25 Jul 15
( greetings to BradN, Boomlinde, Digimind, DarkstarAG, Ivanq, Vort, Frag_, Stainless, demoscene.ru ) : zoom t 5 / sin 10 / ; : xx x .5 - .8 zoom - * t cos 5 / negate + ; : yy y .3 - .8 zoom - * zoom + ; : a t sin 3 / + ; : line 2dup sin * negate xx + swap a tan * swap yy + swap - 160 * 1 min 0 max ; : wings .025 .12 line .025 -.12 line * -.025 .12 line - -.025 -.12 line - ; : flaps 0.045 .8 line 0.006 .4 line - 0.045 -.8 line 0.006 -.4 line - + + 0 max ; : tail -0.057 0 line xx .065 - yy atan2 a 0 > - xx .065 + yy atan2 a 0 < - 0 max + xx .0065 + yy atan2 a 55 * 1 min 0 max xx .0065 - yy atan2 a 55 * 1 min 0 max - + ; : cut 1 -0.064 0 line - * 0.019 0 line * ; : circle dup 0 a cos * xx - 2 ** swap 0 a sin * yy - 2 ** + - 3999 * 0 max 1 min ; : engine 0.0008 .05 circle + 0.0008 -.05 circle + ; : fire 0.0002 random 8000 / + dup >r .05 circle r> -.05 circle + 5 * ; : run 4 1 y 1.3 * - / t dup floor - 6 * + floor 2 mod dup y 1.6 * + 1 min .6 * swap 0 = y 1.6 * + 1 min .5 * ; : sun 1 x .5 - 2 ** y .94 - 2 ** + .2 ** - ; run sun + wings flaps tail cut engine dup -rot - -rot - dup 0 > fire dup dup >r >r + rot r> + rot r> .65 * + 0 max .27 ** dup .05 < .36 * + x y bwsample push r@ * rot r@ * rot r@ * rot pop drop
Planet of Zoom Video
Anonymous
'25 Jul 15
: q 2 ** ; 0 0 4 push : l x .5 - r@ 1 + * r@ 3 - t 1.9 / cos t 1.9 / sin z* y .5 - r@ 1 + * swap t 2.7 / cos t 2.7 / sin z* -rot q swap q + dup 8 * swap rot q + 1.8 + q - abs .03 < r@ / pop .2 - push max ; : j l l l l ; j j j j pop + + push x y sample r@ * rot r@ * rot r@ * rot pop drop
3D Wire Torus Video
Anonymous
'25 Jul 15
x y bwsample x .02 - y bwsample / x .01 - y bwsample x y .01 - bwsample
Anemia
Anonymous
'25 Jul 15
: x x .5 - ; : y y .5 - ; x dup * y dup * + sqrt y x atan2 1 mod sample
Shattered
Anonymous
'25 Jul 15
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 Jul 15
1 2 3 1
Untitled
Anonymous
'25 Jul 15
: 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 Jul 15
: 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 Jul 15
x y bwsample
Darkroom TV
Anonymous
'25 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
x y sample random > rot random > rot random > rot
Static Color TV
Anonymous
'25 Jul 15
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 Jul 15
x y bwsample random > dup dup
Static TV
Anonymous
'25 Jul 15
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 Jul 15
x y t sin 1 + 2 /
Untitled
Anonymous
'25 Jul 15
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 Jul 15
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 Jul 15
: quant 3 * floor 3 / ; x 32 * floor 32 / y 32 * floor 32 / sample quant rot quant rot quant rot
Lowres
Anonymous
'25 Jul 15
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 Jul 15
: 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 Jul 15
x 20 * sin 1 mod y 20 * sin 1 mod sample
Spider Eyes
Anonymous
'25 Jul 15
x y sample dup .5 > rot + swap x + rot y +
Rainbow Video
Anonymous
'25 Jul 15
: 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 Jul 15
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 Jul 15
x 20 * floor 20 / y 20 * floor 20 / sample
Pixelate
Anonymous
'25 Jul 15
x y bwsample x .5 - dup * y .5 - dup * + .2 < * dup x + dup y +
Porticulus
Anonymous
'25 Jul 15
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 Jul 15
Next