Haiku Gallery
: x x .5 - ; : y y .5 - ; : sqr dup * ; : r x sqr y sqr + sqrt 12.5663706143592 * ( 2pi / .5 ) ; : th y x atan2 2 pi * mod ; : ++ dup @ 1 + swap ! ; : arc th + r - abs .01 < ; : arcmask t 2 * 12 mod r > ; : offset .3 0 @ * ; : offset++ offset 0 ++ ; : f0 offset++ arc or ; : f1 f0 f0 ; : f2 f1 f1 ; : g f2 f2 ; 0 0 ! 0 g arcmask and 1 3 / 0 ! 0 g arcmask and 2 3 / 0 ! 0 g arcmask and
Resource Intensive Spiral
mml
'25 Oct 20
: x x .5 - t 5 * sin 5 / + ; : y y .5 - t 5 * cos 5 / + ; : 1- 1 swap - ; : rgb ( c m y k -- r g b ) 1- swap 1- over * push swap 1- over * push swap 1- over * push drop pop pop pop ; : sqr dup * ; : d y - sqr swap x - sqr + sqrt ; : fr dup .05 < if .01 + else dup .75 > if .01 - else random .5 - 10 / + then then ; 0 @ 0 = if 0.3 else 0 @ fr then 0 ! 1 @ 0 = if 0.3 else 1 @ fr then 1 ! 2 @ 0 = if 0.3 else 2 @ fr then 2 ! : c1 -.2 .2 d 0 @ < ; : c2 .2 .2 d 1 @ < ; : c3 0 -.2 d 2 @ < ; c1 c2 c3 c1 c2 or c3 or not 0.7 * rgb 1
CMYThrob
mml
'25 Oct 20
: x x .5 - ; : y y .5 - ; : tfact t 10 mod 5 - exp ; x 6 * cos tfact * y 6 * cos tfact * x y + 6 * cos tfact * x y - 2 * cos tfact *
Defocus Redux
Anonymous
'25 Oct 20
: x x .5 - ; : y y .5 - ; : tfact t 10 mod 5 - abs exp ; x 6 * cos tfact * y 6 * cos tfact * x y + 6 * cos tfact * x y - 2 * cos tfact *
Defocus
mml
'25 Oct 20
: 1- 1 swap - ; : d - abs ; : d^2 - dup * ; : close d 1- ; : rgb ( c m y k -- r g b ) 1- swap 1- over * push swap 1- over * push swap 1- over * push drop pop pop pop ; : 2swap push -rot pop -rot ; : 4+ push push push push 2swap swap pop + swap pop + 2swap swap pop + swap pop + ; : 4* swap over * push swap over * push swap over * push * pop pop pop ; : narrow 25 ; : v+ t swap / + 1 mod ; : v- t swap / - 1 mod ; 1 0 0 0 y 0.75 close narrow ** 4* 0 0 1 0 x 100 v- 0.75 close narrow ** 4* 4+ 0.38 0.28 0.18 0.15 x 120 v- 0.25 close narrow ** 4* 4+ 0.00 0.97 1.00 0.75 0.5 4* y 0.25 close narrow ** 4* 4+ 0.98 0.00 0.35 0.00 y 60 v+ 0.9 close narrow ** 4* 4+ rgb 1
Plaidimation
mml
'25 Oct 20
x t 22 / + 1 mod pi * 8 * sin y mx - 4 * - y t 4 / + 1 mod pi * 8 * cos x my - 4 * - 1 t 2 / 1 mod pi * sin abs
The Tip-Top Sinusoidal Flip-Flop
mml
'25 Oct 20
: x^2 x x* ; : y^2 y y* ; : r^2 x 0.5 - dup * y 0.5 - dup * + ; : bezel? r^2 dup 0.22 < swap 0.2 > and ; : bezel bezel? if 0 else 1 then ; : tbase t over mod over / 2 * 3.14 * swap drop ; : tscale 60 tbase ; : xbase tbase sin * 2/ 0.5 + ; : ybase tbase cos * 2/ 0.5 + ; : xsec tscale sin 0.8 * 2 / 0.5 + ; : ysec tscale cos 0.8 * 2 / 0.5 + ; : sqr dup * ; : isqr 1 / dup * 1 / ; bezel xsec x - sqr ysec y - sqr + 1000 * dup
Clockish Redux
mml
'25 Oct 20
: x^2 x x* ; : y^2 y y* ; : r^2 x 0.5 - dup * y 0.5 - dup * + ; : bezel? r^2 dup 0.22 < swap 0.2 > and ; : bezel bezel? if 0 else 1 then ; : xsec t 60 mod 60 / 2 * 3.14 * sin 0.8 * 2 / 0.5 + ; : ysec t 60 mod 60 / 2 * 3.14 * cos 0.8 * 2 / 0.5 + ; : sqr dup * ; : isqr 1 / dup * 1 / ; xsec x - sqr ysec y - sqr + 1000 * dup dup
Clockish
mml
'25 Oct 20
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; : drift t swap mod ; 31 drift 23 drift web 17 17 web * x + 23 31 drift web 19 19 web * y x * + 31 drift 31 web 7 7 web * y +
streak, drifting redux
booniepepper
'25 Oct 20
: x x 0.5 - ; : y y 0.5 - ; : dist ( x y -- n ) y - dup * swap x - dup * + sqrt ; 0 -0.3 dist 0.7 < 0 -0.3 dist 0.65 > and 0.3 * x 6 * y 11 * * x 5 * y t 5 mod + x 2dup z* + + dist 0.1 * 0 -0.3 dist 0.65 < *
Cauldron
BradN
'25 Oct 20
1 y 43242 + x 0.5 + mod - x pi * 5 * sin y 2 * > * x pi * 5 * sin 0 max 10 pow y * 1.7 * max dup 0.7 *
Brooms
BradN
'25 Oct 20
: x x mx - sin mx + ; : y y my - sin my + ; : x x 0.5 - abs ; : y y x sin 0.2 * - ; : square ( n -- n ) dup * ; : d ( x y -- d ) y - square swap x - square + sqrt ; : nd ( s x y -- d ) y - square swap x - rot * square + sqrt ; : mask ( n -- n ) 0.2 0.4 d 0.2 < 0.2 0.6 d 0.2 < and * ; x 77 * 3 + cos .2 * y x cos * + 5 0.15 0.55 nd 0.1 < - mask x 88 * y * 3 + cos .2 * y x cos * + 2 0.15 0.55 nd 0.11 < - mask y sin 0.2 * mask
Wiggly Cat's Eyes
BradN
'25 Oct 20
: square ( n -- n ) dup * ; : d ( x y -- d ) y - square swap x - square + sqrt ; 0.5 0.5 d 0.3 < x 0.5 - abs 0.3 < y 0.5 < * or 0.4 0.6 d 0.05 > and 0.6 0.6 d 0.05 > and x pi * 12 * cos 0.05 * 0.15 + y < and dup dup ( make spooky ) x t + 11 * cos y 17 * + sin 0.5 * +
Ghost
BradN
'25 Oct 20
: x x .5 - 2 * t sin .5 * + ; : y y .5 - 2 * t cos .5 * + ; : square ( n -- n ) dup * ; : d ( x y -- d ) y - square swap x - square + sqrt ; 1.4 0 0 d - 0 0 d 1 < + 0.3 0.2 d .2 > * -0.3 0.2 d .2 > * 0 -0.3 d .3 > * dup .5 * ( Add checker haze ) x y * 100 * cos x 2 + y * 77 * t 10 * + sin < dup push dup push + swap pop + swap pop
Spooky Face Redux
BradN
'25 Oct 20
: x x .5 - 2 * t sin .5 * + ; : y y .5 - 2 * t cos .5 * + ; : square ( n -- n ) dup * ; : d ( x y -- d ) y - square swap x - square + sqrt ; 1.4 0 0 d - 0 0 d 1 < + 0.3 0.2 d .2 > * -0.3 0.2 d .2 > * 0 -0.3 d .3 > * dup .5 *
Spooky Face
BradN
'25 Oct 20
x 40 * sin .1 * .4 + x .5 - dup * + dup y t sin - < swap y swap - + dup .3 * swap
Slime
BradN
'25 Oct 20
: x x 0.5 - abs ; : y y x sin 0.2 * - ; : square ( n -- n ) dup * ; : d ( x y -- d ) y - square swap x - square + sqrt ; : nd ( s x y -- d ) y - square swap x - rot * square + sqrt ; : mask ( n -- n ) 0.2 0.4 d 0.2 < 0.2 0.6 d 0.2 < and * ; x 77 * 3 + cos .2 * y x cos * + 5 0.15 0.55 nd 0.1 < - mask x 88 * y * 3 + cos .2 * y x cos * + 2 0.15 0.55 nd 0.11 < - mask y sin 0.2 * mask
Cat's Eyes
BradN
'25 Oct 20
: x x 0.5 - ; : y y 0.5 - ; : ang x y atan2 ; : dist x x * y y * + sqrt ; ang t 20 mod * cos 10 pow dist 70 * cos 10 pow max dist 0.47 < * dup dup
Spiderweb Redux
booniepepper
'25 Oct 20
: x x 0.5 - ; : y y 0.5 - ; : ang x y atan2 ; : dist x x * y y * + sqrt ; ang 20 * cos 10 pow dist 70 * cos 10 pow max dist 0.47 < * dup dup
Spiderweb
BradN
'25 Oct 20
: parts ( -- blade handle ) x 2 * cos 0.3 * 0.7 + y > x cos 3 pow 0.3 * 0.5 + y < and x 0.05 > and y 10 * sin x + * x 0.05 < x 30 * cos * ; parts + 0.8 * parts 0.5 * + 0.8 * parts drop 0.8 *
Scythe
BradN
'25 Oct 20
: mask ( -- n ) x 0.5 - cos 12 pow y > x 0.5 - cos 2 pow 1 y - > and ; mask mask mask y 0.3 > y 0.8 < and * -0.6 * + mask y 0.8 > and
Candy Corn
BradN
'25 Oct 20
x pi * sin 0.1 pow y > t 20 * cos y 11 * sin x y + 7 * cos + + 0.2 * + 0.5 * dup dup
Gravestone Pulsing Redux
booniepepper
'25 Oct 20
x pi * sin 0.1 pow y > x 20 * cos y 11 * sin x y + 7 * cos + + 0.2 * + 0.5 * dup dup
Gravestone Redux
BradN
'25 Oct 20
x pi * sin 0.1 pow y > 0.5 * dup dup
Gravestone
BradN
'25 Oct 20
0 0 t 1 mod random =
itrains
nmn
'25 Oct 20
x t 1.2 mod < 20 x * sin y 6 * 3 - - abs -
redscope
nmn
'25 Oct 20
: sq dup * ; : norm * sin 1 + 2 / ; : на x 0.5 - sq ; : мёртвой y 0.5 - sq ; : ветке + ; : чернеет sqrt t sin * ; : ворон. dup 40 norm ; : осенний over 60 norm ; : вечер. rot 80 norm ;
Untitled
Anonymous
'25 Oct 20
: x 1 x - .5 - 2.4 * ; : y y .7 - 2.4 * ; : dot dup * swap dup * + ; : l dup -0.04 * r> r> 2dup * 2 * x + >r 2dup z* drop y + r> 2dup >r >r dot + abs rot min swap rot over 1.32457 * t + r> r> 2dup >r >r rot dup cos -2 * swap sin -2 * z+ dot min -rot 1 + ; y x >r >r 4 4 0 l l l l l l l l l drop log 8 / negate swap log 8 / negate swap dup >r 2 ** over 3 ** + r> 3 ** r> r> drop drop ( based on: Emerald Necklace - Manwe ) ( based on shader by Guil )
Emerald Necklace Redux
f.
'25 Oct 20
x 9.2 * sin y 9.2 * sin t 3 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Oct 20
: norm 1 + 2 / ; x t * cos norm y t * sin norm t x y + + tan cos norm
Les Maîtres du temps
DarkstarAG
'25 Oct 20
x 0.125 < if 1 0 0 1 else x 0.25 < if 0 1 0 1 else x 0.375 < if 0 0 1 1 else 0 0 0 1 then then then
color bars vertical
david mead
'25 Oct 20
X Y + X Y + X Y + X Y +
first one - hello world
david mead
'25 Oct 20
: r dup 631 * cos abs swap 127 * log * dup floor - ; : d r> r r> r 2dup >r >r y - dup * swap x - dup * + ; : c 2dup > if swap then drop ; .27 .31 >r >r d d d d d d d d d d d d d c c c c c c c c c c c c r> r> drop drop 20 * 1 min 1 over - 99 ** 3 / +
Blood Cells
Manwe
'25 Oct 20
: 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 / d d * over sqrt -rot
Coffee (final) Redux
Tuby Cheeks
'25 Oct 20
x 0.0000000001 t * / y mod \ x 0.0000000001 t * / 1 mod \ x 0.0000000001 t * / 1 mod \ (x / .0001t ) mod 1
rune combinator, broken Redux Redux
Willamette Stand
'25 Oct 20
: o push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : k push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.1 < pop * ; : q dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : d t 2 * sin ; : e d 1.2 * ; : n x 15 * + + sin 1 over dup * - sqrt atan2 swap / y 0.7 - > ; 0.6 0.8 -1.57 0.35 k 0.6 0.5 -1.57 d + 0.2 k + 0.6 0.5 -1.57 d + 0.2 q -2 e + 0.25 k + 0.6 0.5 -1.57 d - 0.2 k + 0.6 0.5 -1.57 d - 0.2 q -2 e - 0.25 k + 0.6 0.7 -1.57 d + 0.15 k + 0.6 0.7 -1.57 d + 0.15 q -0.6 e + 0.15 k + 0.6 0.7 -1.57 d - 0.15 k + 0.6 0.7 -1.57 d - 0.15 q -0.6 e - 0.15 k + 0.6 0.8 0.1 o + dup 0 swap 18 1 t 2 / n 22 3 t n + 27 0 t 4 / n 33 4 t 4 / n + + y 0.25 > * +
chatGPT
Anonymous
'25 Oct 20
swap 8 / swap
Untitled
Anonymous
'25 Oct 20
1 1 ang x 0.5 - y 0.5 - atan2 pi / 2.5 * 0.25 - 1 mod 0.5 > x 0.5 - dup * y 0.5 - dup * + .1 < and
Asterisk Redux 2023
Anonymous
'25 Oct 20
: c! 0 ! ; : c@ 0 @ ; : x! 1 ! ; : x@ 1 @ ; : y! 2 ! ; : y@ 2 @ ; : t! 3 ! ; : t@ 3 @ ; : z! 4 ! ; : z@ 4 @ ; : k! 5 ! ; : k@ 5 @ ; : w! 6 ! ; : w@ 6 @ ; : d! 7 ! ; : d@ 7 @ ; : a! 8 ! ; : a@ 8 @ ; : b! 9 ! ; : b@ 9 @ ; : s ( -- ) x@ r@ >= dup if x@ r@ - x! then y@ r@ >= dup if y@ r@ - y! then + 2 mod r@ * c@ + c! r> 1.618033988749895 / >r ; : f 0.0 c! 1.0 >r s s s s s s s s s s s s r> drop ; t t floor - t! 1 t@ - d! t@ 0.618033988749895 * 1 + z! 1 t@ - 0.618033988749895 * t@ + w! x 1.04 - 2 / x! y 0.5 - 2 / y! x@ 0.7071067811865476 * y@ -0.7071067811865476 * + 0.5 + a! x@ 0.7071067811865476 * y@ 0.7071067811865476 * + 0.5 + b! a@ z@ / x! b@ z@ / y! f c@ k! a@ w@ / x! b@ w@ / y! f k@ d@ * c@ t@ * + dup dup
Fibonacci xor zoom
Rinat Fakhrullin
'25 Oct 20
x 256 * floor 0 ! y 256 * floor 1 ! : fr dup floor - ; t pi / fr 2 ! : 2m 2 mod ; : /f / floor ; : s 6.283185307179586 * sin 1 + 2 / ; : p ( a l -- ) >r 0 @ r@ /f 2m 1 @ r@ /f 2m + 2m r> * ; 0 @ 2m 1 @ 2m + 2m 2 p + 4 p + 8 p + 16 p + 32 p + 64 p + 128 p + 256 / 3 ! 3 @ 2 @ + s 3 @ 2 @ + 0.333333 + s 3 @ 2 @ + 0.666666 + s
acid xor texture
Rinat Fakhrullin
'25 Oct 20
Next