Haiku Gallery
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
x y t sin 2 / 0.5 +
Minimal animation
Manwe (default ShaderToy shader remix)
'25 Sep 17
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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: x2 0.5 x - ; : y2 0.5 y - ; x dup * y min y dup * x min 1 x2 - 1 y2 - *
pinch Redux
Stainless
'25 Sep 17
x y t sin 0.5 * 0.5 +
Untitled
Anonymous
'25 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: col dup 1 3 / pi * cos ; x col
Untitled
Anonymous
'25 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: 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 Sep 17
: b / floor 2 mod ; : m 128 * 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 Redux
boomlinde
'25 Sep 17
: b / floor 2 mod ; : m 128 * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w x 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
boomlinde
'25 Sep 17
: z t sin 2 + ; 0 x t sin + z * 1 mod y t cos + z * 1 mod mod 4 * dup
card zoom
boomlinde
'25 Sep 17
: k 0.5 - ; : s k dup * ; : dist x s y s + sqrt ; 0 dist sqrt sqrt sqrt sqrt sqrt 400 * t 10 * - sin x k y k atan2 dist 10 * sin 0.1 * + t + 10 * sin 5 * *
tunnel
boomlinde
'25 Sep 17
: s 0.5 - dup * ; : dist x s y s + sqrt ; 1 x 0.5 - y 0.5 - atan2 dist t 2 * sin 8 * * + 5 * sin 0.5 + dup
polka spiral
boomlinde
'25 Sep 17
: dist x 0.5 - dup * y 0.5 - dup * + sqrt ; x 0.5 - y 0.5 - atan2 + dist 20 * sin
Untitled
Anonymous
'25 Sep 17
: pt x 0.5 - y 0.5 - ; : sq dup * ; : dist sq swap sq + sqrt ; pt dist 50 * pt atan2 + pt atan2 10 * sin + sin
BACTERIA Redux
Anonymous
'25 Sep 17
: s dup * ; : a x y 10 * 2 t * + sin 0.1 2 t * sin * * + ; : b dup a < swap 0.15 + a > * ; 0.5 b 0.6 b 0.4 b
rainbow
boomlinde
'25 Sep 17
: q dup * ; : i y + swap x + q swap q + sqrt 50 * sin ; : o -0.5 * 0.5 - ; : p t cos o ; : g t sin o ; p g i g p i + 1 + floor dup dup
chess interference
boomlinde
'25 Sep 17
Next