Haiku Gallery
: ' 0.6 - ; : r dup * swap dup * + sqrt ; x x ' y ' r / y x ' y ' r / 1.6 x y r -
Base colors
Manwe
'25 Jul 16
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.30 * pop + t * sin ; x y spiral x y spiral x y spiral
Sprial with sprials Redux
Anonymous
'25 Jul 16
: bar * sin + ; : barx x bar ; : bary y bar ; : bart t bar ; : foo 0 11 bart 17 bary 19 barx 0 3 bart 5 barx 7 bary * + 7 * sin ; 0 foo 1 foo 2 foo
oily Redux animated
edwardfanboy
'25 Jul 16
: sinc dup sin swap / ; x 0.5 - 31 t sin 10 * + * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 31 t 1 + sin 10 * + * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 31 t 2 + sin 10 * + * sinc 0.7 + 2 / y - abs 0.03 <
sinc Redux with anim
edwardfanboy
'25 Jul 16
: r dup push swap y 12 pow + * t + sin x pop * cos + dup floor - ; 0.085 18.8 r 0.12 12.6 r 0.06 25.2 r dup rot /
Candy Waterfall (anim)
Manwe
'25 Jul 16
: r dup push swap y 12 pow + * sin x pop * cos + dup floor - ; 0.085 18.8 r 0.12 12.6 r 0.06 25.2 r dup rot /
Candy Waterfall
Manwe
'25 Jul 16
: h .5 - * ; : z 1 1 y h / -1 * ; : s h t sin ; : d x z * z 2 / - ; t cos y z * s d h - t - 2 * floor t cos d s y z * h + 2 * + 2 mod floor z .2 * /
mode 7 rotation (yet smaller)
boomlinde
'25 Jul 16
: x0 x 2 * 1 - ; : y0 y 2 * 1 - ; : n x0 dup * y0 dup * + 4 - sqrt ; : len3 dup * swap dup * + swap dup * + sqrt ; : world dup dup push push x0 n / * pop y0 n / * pop -2 n / * 3 + len3 1 - y0 1 + min ; : l dup world + ; 0 l l l l l l l l l l l l l 5 / dup dup t drop
Ray Tracing 1 (GLSL) Redux
Anonymous
'25 Jul 16
x y * 127 2 pow * sin y y * / y t sin 2 + 3 /
Pattern 10x10
Manwe
'25 Jul 16
: x0 x 2 * 1 - ; : y0 y 2 * 1 - ; : n x0 dup * y0 dup * + 4 - sqrt ; : len3 dup * swap dup * + swap dup * + sqrt ; : world dup dup push push x0 n / * pop y0 n / * pop -2 n / * 3 + len3 1 - y0 1 + min ; : l dup world + ; 0 l l l l l l l l l l l l l 5 / dup dup
Ray Tracing 1 (GLSL)
Manwe
'25 Jul 16
: web push push x 0.1 + y 0.3 + * pop * sin 0 max x 0.1 + 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 +
streak Redux
Anonymous
'25 Jul 16
: px x 5 * ; : py y 5 * t - ; : fract dup floor - ; : mix dup push * swap 1 pop - * + ; : f fract dup dup 2 * 3 swap - * * ; : r -3 exp * sin 5 exp * fract ; : v px floor py floor 3 exp * + ; : c y * y pop mix ; v r v 1 + r px f mix v 3 exp + dup push r pop 1 + r px f mix py f mix y 0.7 * 0.1 + > dup dup push push push 1.2 c 0.5 c 0.2 c
LavaLamp
Manwe (remix by Trisomie21's shader)
'25 Jul 16
x y t sin 2 / 0.5 +
Minimal animation
Manwe (default ShaderToy shader remix)
'25 Jul 16
x x x * 2 * t + 10 * sin * sin abs y x t cos 1.0 + + * 10 * sin 2 t 3 * sin 1.5 * + pow * 0.5 * dup 1 t x 2 * + sin + * dup 1.7 *
digidisko
cce
'25 Jul 16
: xo x 0.5 - 2 * ; : yo y 0.5 - 2 * ; : x' t 5 / cos xo 0.5 - * t 5 / sin yo 0.5 - * + ; : y' t 5 / cos yo 0.5 - * t 5 / sin xo 0.5 - * - ; : level dup push x' * 0.125 - 4 * t 1.2 * sin 8 * + floor 2 mod 0 = 0.5 * pop dup push y' * 0.125 + 4 * t cos 8 * + floor 2 mod 1 = 0.5 * + floor pop * ; : blit dup push level - 0 max pop dup push level + pop 0.08 - ; 0.3 0 1 blit blit blit blit blit drop 3 pow
plutonium rotator
boomlinde
'25 Jul 16
: xo x 0.5 - 2 * ; : yo y 0.5 - 2 * ; : level dup push xo * 0.125 - 4 * t 1.2 * sin 8 * + floor 2 mod 0 = 0.5 * pop dup push yo * 0.125 + 4 * t cos 8 * + floor 2 mod 1 = 0.5 * + floor pop * ; : blit dup push level - 0 max pop dup push level + pop 0.08 - ; 0 0 1 blit blit blit blit blit blit blit blit blit blit blit blit drop 0.3
plutonium
boomlinde
'25 Jul 16
: z 1 y 2 * 1 - / ; : d x z * z 2 / - ; t cos y z * 0.5 - * t sin d 0.5 - * - t 2 * - 2 * floor t cos d 0.5 - * t sin y z * 0.5 - * + 2 * + 2 mod floor 0 = z abs 0.3 * / y 0.5 < * 0.5
mode 7 rotation (small)
boomlinde
'25 Jul 16
: z 1 y 2 * 1 - / ; : xd x z * z 2 / - ; : yd y z * ; : x' t cos xd 0.5 - * t sin yd 0.5 - * + ; : y' t cos yd 0.5 - * t sin xd 0.5 - * - ; y' t 2 * - 2 * floor x' 2 * + 2 mod floor 0 = z abs 0.3 * / y 0.5 < * 0.5
mode 7 rotation
boomlinde
'25 Jul 16
: po 2 pow x 1.7 / sin 0.5 * 0.5 + * ; t 0.3 * sin x * t 0.2 * cos y * + t + 6 * t + sin 0.3 * t 0.2 * cos x * t 0.5 * sin y * - + 2 * sin t + 0.5 * t sin 0.3 * dup swap + y sin pi * x t + sin + 0.5 * - + dup sin po swap dup 2 / pi 2 * 3 / + dup sin po 2 * sin po
Untitled
Anonymous
'25 Jul 16
: texture t - 2 * floor swap 2 * + 2 mod floor 0 = ; : z 1 y 2 * 1 - / ; x z * z 2 / - y z * texture z abs 0.3 * / y 0.5 < * dup dup
mode 7
boomlinde
'25 Jul 16
: x2 0.5 x - ; : y2 0.5 y - ; x dup * y min y dup * x min 1 x2 - 1 y2 - *
pinch Redux
Stainless
'25 Jul 16
x y t sin 0.5 * 0.5 +
Untitled
Anonymous
'25 Jul 16
: peek pop dup push ; : pos dup push t + sin 0.2 * 0.5 + peek t + pi * sin 0.2 * + peek t + 1.1 * cos 0.2 * 0.5 + pop t + 3 * cos 0.2 * + ; : p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; : b / floor 2 mod ; : m 64 * ; : a dup rot swap b -rot b + abs 2 mod ; : w dup x m y m rot a * + ; : dist y - dup * swap x - dup * + sqrt ; : clrball dist 0.08 > * ; : clrplane dist 0.07 <= ; : 2peek pop pop 2dup push push ; : drawball pos push push 2peek clrball rot 2peek clrball rot 2peek clrball rot 2peek clrplane 0.5 * + rot 2peek clrplane 1.0 * + rot pop pop clrplane 0 * + rot ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 200 / 0.5 + t 10 / + col 0.5 * 0.5 + rot 0.5 * 0.5 + rot 0.5 * 0.5 + rot 0 drawball 0.3 drawball 0.6 drawball 0.9 drawball
vector balls
boomlinde
'25 Jul 16
: dist x 0.5 - dup * y 0.5 - dup * + sqrt t 0.5 * sin 16 * * ; : x' t dist + cos x 0.5 - * t dist + sin y 0.5 - * + ; : y' t dist + cos y 0.5 - * t dist + sin x 0.5 - * - ; x' 12 * 3 mod floor 1 <> y' 12 * 3 mod floor 1 <> and 0 over
twister
boomlinde
'25 Jul 16
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; : s 0.5 - * ; : z t sin 5 * 7 + * ; : b / floor 2 mod ; : w dup t cos x s t sin y s + z 64 * t cos y s t sin x s - z 64 * rot dup rot swap b -rot b + abs 2 mod * + ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 256 / t + col
rotozoomer
boomlinde
'25 Jul 16
: x' t cos x 0.5 - * t sin y 0.5 - * + ; : y' t cos y 0.5 - * t sin x 0.5 - * - ; x' 9 t sin 6 * + * 3 mod floor 1 = y' 9 t sin 6 * + * 3 mod floor 1 = and
rotation
boomlinde
'25 Jul 16
: b / floor 2 mod ; : m 64 t 64 * 64 mod + * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w 1 y - 0.5 * x + 0.5 + m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 0.5 <
sierpinski zoom
boomlinde
'25 Jul 16
: d t 2 * 2 mod 1 + / ; : v d * floor 3 mod 1 = ; : l dup dup x v swap y v and swap 3 * ; 0 3 l l l l l drop + + + +
sierpinski carpet zoom
boomlinde
'25 Jul 16
: v * floor 3 mod 1 = ; : l dup dup x v swap y v and swap 3 * ; 0 3 l l l l l drop + + + +
sierpinski carpet
boomlinde
'25 Jul 16
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; t sin 1 + 2 / x - t 1.6 * cos 1 + 2 / y - atan2 pi / t 1.9 * sin 1 + 2 / x - t 1.3 * cos 1 + 2 / y - atan2 pi / + 2 * t 0.9 * sin 5 * + col
spinner
boomlinde
'25 Jul 16
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; : dist y - dup * swap x - dup * + sqrt ; t sin 1 + 2 / t 1.6 * cos 1 + 2 / dist t 1.9 * sin 1 + 2 / t 1.3 * cos 1 + 2 / dist t 1.2 * sin 1 + 2 / t 1.8 * cos 1 + 2 / dist + + t 5 / sin * 5 + 5 * tan cos col
flicker
boomlinde
'25 Jul 16
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; : x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : b / floor 2 mod ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot dup rot swap b -rot b + abs 2 mod * + ; 0 4 w 8 w 16 w 32 w 64 w 128 w 256 / t + col dist 2 * * swap dist 2 * * rot dist 2 * *
xor tunnel color
Anonymous
'25 Jul 16
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; x col
Rainbow
boomlinde
'25 Jul 16
: col dup 1 3 / pi * cos ; x col
Untitled
Anonymous
'25 Jul 16
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : b / floor 2 mod ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot dup rot swap b -rot b + abs 2 mod * + ; 0 4 w 8 w 16 w 32 w 64 w 128 w 256 / dist * dup dup
xor tunnel shorter
Anonymous
'25 Jul 16
: 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
xor tunnel dark
boomlinde
'25 Jul 16
: 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 / dup dup
xor tunnel
boomlinde
'25 Jul 16
: b / floor 2 mod 0.5 * ; : w 1 y - 0.5 * x + 0.5 + 256 * y 256 * rot dup rot swap b -rot b + floor + ; 0 2 w 4 w 8 w 16 w 32 w 64 w 128 w
sierpinski tweet
boomlinde
'25 Jul 16
: b / floor 2 mod ; : m 64 * ; : a dup rot swap b -rot b + abs 2 mod ; : w dup x m y m rot a * + ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 64 /
xor texture tweet size
boomlinde
'25 Jul 16
: xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x m y m rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dup dup
xor texture
boomlinde
'25 Jul 16
Next