Haiku Gallery
: xx x .8 - ; : yy y .5 - ; : tt t .4 * ; : a .25 * ; : mx xx 2 a tt cos * 2 tt * cos a - + ; : my yy 2 a tt sin * 2 tt * sin a - + ; : mm 2dup Z* mx my z+ ; mx my mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm dup * swap dup * + 0 > negate 1 + dup dup
F
none
'24 Jul 27
: t' t 3 / 20 mod ; : magic pi t' ** ; : foo x y * magic * + sin 1 + 2 / ; 5 foo 4 foo 3 foo
squaring circles
Anonymous
'24 Jul 27
: 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
Anonymous
'24 Jul 27
: x x .5 - ; : y .7 y - ; : r x dup * y dup * + sqrt ; : a x y atan2 2 pi * / 1 mod ; y x atan2 21 * sin 1 + 2 / 2 ** 0 0 a r + .65 < 1 a - r + .65 < +
heart3
SamMiemieSophieChen
'24 Jul 27
: x x .5 - ; : y .7 y - ; : r x dup * y dup * + sqrt ; : a x y atan2 2 pi * / 1 mod ; y x atan2 21 * sin 1 + 2 / 2 ** 0 0 a r + .5 < 1 a - r + .5 < +
heart2
SamMiemieSophieChen
'24 Jul 27
\ 方塊時鐘 \ 以 小紅塊 作 時針 中綠塊 作 分針 大藍塊 作 秒針 : 秒動角度 08 @ ; pi 2 * 60 / 08 ! : 分動角度 09 @ ; pi 2 * 60 / 09 ! : 時動角度 10 @ ; pi 2 * 12 / 10 ! : 修正方向 15 @ + ; pi 4 / 15 ! : a0 03 @ ; : 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 方塊 1 over - dup 04 ! \ 小紅塊 作 時針 分針方向 .25 方塊 * 1 over - \ 中綠塊 作 分針 秒針方向 .29 方塊 * 04 @ * \ 大藍塊 作 秒針 ; 方塊時鐘 1 r .44 > r .46 < y .5 - x .5 - atan2 pi 6 / mod * .02 < * -
方塊時鐘
陳爽
'24 Jul 27
: t t * sin .38 * - .5 - ; : b x over t y rot dup + t dup * swap dup * + sqrt .07 < ; : b0 1.0 b ; : b1 1.1 b ; : b2 1.2 b ; : b3 1.3 b ; : b4 1.4 b ; : b5 1.5 b ; : b6 1.6 b ; : b7 1.7 b ; : b8 1.8 b ; b0 b1 b4 b7 b3 2 / + + + + b0 b5 b2 b3 b4 2 / swap 2 / rot 2 / + + + + B8 + b3 b5 b6 b7 + + + x .5 - abs .45 < .2 + y .5 - abs .45 < .2 + *
balls Redux
Sophiechen
'24 Jul 27
: i 2dup z* log ; x .4 - t .9 * sin * y .4 - t .2 * sin * i i i log over
Flower fly Redux
Mie
'24 Jul 27
x 5.0 * sin y 0 + 5.0 * 2.5 0 + - - abs 0.01 <
sine
f.
'24 Jul 27
: distance dup * swap dup * + sqrt ; mx x distance my y distance + 2 / dup dup
Untitled
Anonymous
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
\ 方塊時鐘 \ 以 小紅塊 作 時針 中綠塊 作 分針 大藍塊 作 秒針 : 秒動角度 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 方塊 \ 大藍塊 作 秒針 ; 方塊時鐘
方塊時鐘
陳爽
'24 Jul 27
\ 顯示 在 位置 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
陳爽
'24 Jul 27
\ 顯示 在 位置 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
轉動的方框
陳爽
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
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
'24 Jul 27
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
'24 Jul 27
: 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
'24 Jul 27
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
'24 Jul 27
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 4 / x <
Toxic Sea Redux
Anonymous
'24 Jul 27
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
'24 Jul 27
: sq dup * ; : dist sq swap sq + sqrt ; x t sin / y dist 0.5 <
pulse
jersni
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
陳爽
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
1 0 0
Untitled
Anonymous
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
: 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
'24 Jul 27
Next