Haiku Gallery
: i if 1 else 1 + -rot 2dup z* 1 @ 2 @ z+ 2dup push push rot pop pop 2 ** swap 2 ** + 4 > then ; x 0.5 - 5 * 1 ! y 0.5 - 5 * 2 ! 0 0 0 0 i i i i i i i i i i i i i i i i i i i i * -rot drop drop 8 / 3 ! t t t sin 3 @ * rot 2 + sin 3 @ * rot 4 + sin 3 @ *
rainbow mandelbrot
janpitokiala
'25 Jul 05
: x x .5 - ; : y y .5 - ; : r x x * y y * + sqrt ; : 2pi pi pi + ; : a x y atan2 t 10 / + 2pi / 1 mod ; a .1875 > a .3125 < * a .9375 > a .0625 < + + \ red light a .4375 > a .5625 < * a .9375 > a .0625 < + + \ green light a .6825 > a .8125 < * a .9375 > a .0625 < + + \ blue light r .25 > r .30 < * r .45 > r .50 < * + \ transparency
color ring
陳爽
'25 Jul 05
: 1- 1 swap - ; : x x .5 - ; : y y .5 - ; : tc0 t dup 5 - 20 mod 10 > if -1 else 1 then swap 10 mod 5 - abs * exp ; : tc1 1 tc0 / ; : tf0 tc0 * ; : tf1 tc1 * ; x 6 * cos tf0 y 6 * cos tf1 + y 6 * cos tf0 x 6 * cos tf1 + x y + 6 * cos tf0 x negate y + 6 * cos tf1 + x y - 2 * cos tf0 x negate y - 2 * cos tf1 +
Flop Focus
mml
'25 Jul 05
: 1- 1 swap - ; : x x .5 - ; : y y .5 - ; : cosh ( n -- n ) dup exp swap negate exp + 0.5 * ; : sinh ( n -- n ) dup exp swap negate exp - 0.5 * ; : zcos ( a b -- a b ) 2dup cosh swap cos * -rot sinh swap sin * ; : z x y zcos ; : u z drop ; : v z swap drop ; : m t sin 8 * ; : b t cos 1 + 10 / ; : b2 pi 2 / t + cos 1 + 10 / ; : d - abs ; : u u .87 - .23 / .5 - ; : v v .25 + .5 / .5 - ; u v m * - .1 mod b d .09 / v u m * - .1 mod b2 d .09 / 2dup + .5 * 1- swap
Cosine Chameleon
mml
'25 Jul 05
1 0 0
Untitled
Anonymous
'25 Jul 05
: sqr dup * ; : x x .5 - ; : y y .5 - ; : u x x sqr y sqr + / ; : v y x sqr y sqr + / ; : m t 5 / sin 5 * ; : b t cos 1 + 2 * ; : d - abs ; : r u sqr v sqr + sqrt ; u v m * - 4 mod b d r 20 t 10 / sin abs * mod 1 swap - v u m * - 4 mod b d
Quadratic Peony
mml
'25 Jul 05
: x x .5 - ; : y y .5 - ; : u x y / sqrt log ; : v x y * sqrt ; : m t sin ; : b t cos 1 + 4 / ; : d - abs ; u v m * - .4 mod b d .1 < 0 v u m * - .4 mod b d .1 <
Interstellar Cuttlefish
mml
'25 Jul 05
: x x .5 - ; : y y .5 - ; : u x y / sqrt log ; : v x y * sqrt ; : b t sin 1 + .5 * 99 * 1 + ; : a t cos 1 + .5 * 99 * 1 + ; u b * 5 mod 1 < v a * 5 mod 1 <
Hyperbolic Butterfly
mml
'25 Jul 05
: x x 2 * ; : norm 1 + 0.5 * ; : ang t sin 5 * ; : angoff t + sin 5 * ; t 1.2 * x y ang * + + tan cos norm t x y 1 angoff * + + tan cos norm t 1.1 * x -1 angoff * y - + tan cos norm
searchlightsaber
mml
'25 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
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 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
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 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
x 40 * sin .1 * .4 + x .5 - dup * + dup y t sin - < swap y swap - + dup .3 * swap
Slime
BradN
'25 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
: 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 Jul 05
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 Jul 05
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 Jul 05
x pi * sin 0.1 pow y > 0.5 * dup dup
Gravestone
BradN
'25 Jul 05
0 0 t 1 mod random =
itrains
nmn
'25 Jul 05
x t 1.2 mod < 20 x * sin y 6 * 3 - - abs -
redscope
nmn
'25 Jul 05
: 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 Jul 05
: 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 Jul 05
x 9.2 * sin y 9.2 * sin t 3 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 05
: norm 1 + 2 / ; x t * cos norm y t * sin norm t x y + + tan cos norm
Les Maîtres du temps
DarkstarAG
'25 Jul 05
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 Jul 05
Next