Haiku Gallery
x 5.0 * sin y 0 + 5.0 * 2.5 0 + - - abs 0.01 <
sine
f.
'25 Feb 05
: distance dup * swap dup * + sqrt ; mx x distance my y distance + 2 / dup dup
Untitled
Anonymous
'25 Feb 05
: web push push x t + 0.5 + y t + 0.3 + * pop * sin 0 max x t + 0.3 + y t + 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 Feb 05
: 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 + t +
streak Redux
Anonymous
'25 Feb 05
\ 方塊時鐘 \ 以 小紅塊 作 時針 中綠塊 作 分針 大藍塊 作 秒針 : 秒動角度 08 @ ; pi 2 * 60 / 08 ! : 分動角度 09 @ ; pi 2 * 60 / 09 ! : 時動角度 10 @ ; pi 2 * 12 / 10 ! : 修正方向 15 @ + ; pi 4 / 15 ! : a0 03 @ ; : l 04 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : 方塊 ( a0 L -- s ) 2 / 05 ! 03 ! y .5 - x .5 - atan2 a0 - pi 2 * mod 11 ! y .5 - 2 ** x .5 - 2 ** + .5 ** 12 ! r a cos * 13 ! \ 計算 極座標 任意點之 橫標 x' r a sin * 14 ! \ 計算 極座標 任意點之 縱標 y' x' h - abs h - 06 ! \ 計算 改以方塊心為原點 任意點之 橫標 x" y' h - abs h - 07 ! \ 計算 改以方塊心為原點 任意點之 縱標 y" x" d < y" d < * ; : 秒針方向 60 t t 1 mod - 60 mod - 秒動角度 * 修正方向 ; : 分針方向 60 t 60 / 60 mod - 分動角度 * 修正方向 ; : 時針方向 12 t 3600 / 12 mod - 時動角度 * 修正方向 ; : 方塊時鐘 時針方向 .21 方塊 \ 小紅塊 作 時針 分針方向 .25 方塊 \ 中綠塊 作 分針 r .45 > r .46 < * y .5 - x .5 - atan2 pi 6 / mod * .02 > + 秒針方向 .29 方塊 \ 大藍塊 作 秒針 ; 方塊時鐘
方塊時鐘
陳爽
'25 Feb 05
\ 顯示 在 位置 x0,y0 方向 a0 邊長 l 粗細 d 之 方框 sq .005 00 ! : d 00 @ ; .5 01 ! : x0 01 @ ; .5 02 ! : y0 02 @ ; : a0 03 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; .06 04 ! : l 04 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : sq ( a0 l -- s ) 04 ! \ 邊長 03 ! \ 方向 y y0 - x x0 - atan2 a0 - pi 2 * mod 11 ! \ 向度 a y y0 - 2 ** x x0 - 2 ** + .5 ** 12 ! \ 徑度 r r l .5 * < r l .25 * > * r a cos * 13 ! \ x0,y0 方向 a0 之 新座標 x' r a sin * 14 ! \ x0,y0 方向 a0 之 新座標 y' l 2 / 05 ! \ 邊長 l 的一半 h x' h - abs h - 06 ! \ 方框中心 之 最終座標 x" y' h - abs h - 07 ! \ 方框中心 之 最終座標 y" x" abs d < + y" abs d < + x" d < y" d < * * ; t 1.1 * .21 sq t 1.6 * .25 sq t 2.1 * .29 sq
轉動的方框 Redux
陳爽
'25 Feb 05
\ 顯示 在 位置 x0,y0 方向 a0 邊長 l 粗細 d 之 方框 sq .005 00 ! : d 00 @ ; .5 01 ! : x0 01 @ ; .5 02 ! : y0 02 @ ; : a0 03 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; .06 04 ! : l 04 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : sq ( a0 l -- s ) 04 ! 03 ! y y0 - x x0 - atan2 a0 - pi 2 * mod 11 ! y y0 - 2 ** x x0 - 2 ** + .5 ** 12 ! r a cos * 13 ! r a sin * 14 ! l 2 / 05 ! x' h - abs h - 06 ! y' h - abs h - 07 ! x" abs d < y" abs d < + x" d < y" d < * * ; t 1.1 * .21 sq t 1.6 * .25 sq t 2.1 * .29 sq
轉動的方框
陳爽
'25 Feb 05
: xx x ; : yy y ; : y y t 0.5 * + ; : x x t 0.1 * + ; x 30 * sin y 21 * sin * x 7 * sin * y 11 * sin * x 71 * sin * y 41 * sin * x y .3 * + 77 * sin * 0.5 > xx 3 * sin 0.1 * yy > or dup dup
Snow
BradN
'25 Feb 05
: x x t + ; x 31 * sin 10 pow x 11 * sin 10 pow + x 7 * sin 10 pow + x 91 * sin 10 pow + 4 / dup 0.4 + y < swap 0.3 + y < dup
Icicles Redux
Anonymous
'25 Feb 05
x 31 * sin 10 pow x 11 * sin 10 pow + x 7 * sin 10 pow + x 91 * sin 10 pow + 4 / dup 0.4 + y < swap 0.3 + y < dup
Icicles
BradN
'25 Feb 05
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 8 / x + 1 y - sqrt * 0.7 * dup 0.7 * swap y 10 * sin y 32 * sin + y 52 * sin + y 18 * sin + 8 / x < 1 y - sqrt *
Frozen Lake
BradN
'25 Feb 05
: square dup * ; : circle ( r x y ) y - square swap x - square + sqrt swap < ; 0.2 0.5 0.2 circle 0.15 0.5 0.45 circle + 0.13 0.5 0.65 circle + 0.02 0.45 0.68 circle - 0.02 0.55 0.68 circle - 0.01 0.45 0.62 circle - 0.01 0.47 0.61 circle - 0.01 0.49 0.61 circle - 0.01 0.51 0.61 circle - 0.01 0.53 0.61 circle - 0.01 0.55 0.62 circle - dup dup
Snowman
BradN
'25 Feb 05
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 8 / 0.5 + x - abs 0.01 < t 10 mod 10 / y - abs 0.01 < and
Wispy Red
Anonymous
'25 Feb 05
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 4 / x <
Toxic Sea Redux
Anonymous
'25 Feb 05
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 4 / x + y 10 * sin y 32 * sin + y 52 * sin + y 18 * sin + 4 / x < 2dup z* dup y *
Toxic Sea
BradN
'25 Feb 05
: sq dup * ; : dist sq swap sq + sqrt ; x t sin / y dist 0.5 <
pulse
jersni
'25 Feb 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 push + + 3 / dup dup pop
bwring Fixed
Anonymous
'25 Feb 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 push + + 3 / pop
bwring
Anonymous
'25 Feb 05
: 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 Feb 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 Feb 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 Feb 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 Feb 05
1 0 0
Untitled
Anonymous
'25 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 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 Feb 05
Next