Haiku Gallery
: x x .5 - ; : y y .5 - ; : r x 2 ** y 2 ** + sqrt ; : x a t + sin r * ; : y a t + cos r * ; : r x 2 ** y 2 ** + sqrt ; : r1 x 2 ** y .247 - 2 ** + sqrt ; : r2 x 2 ** y -.245 - 2 ** + sqrt ; r .5 > \ 大黑圓 r .49 < \ 半大不小圓 x 0 < and \ 半白圓 半黑圓 r1 .243 < or \ 上白圓 r2 .245 > and \ 下黑圓 dup dup
填充流動
Justin Chen
'25 May 23
x x 23 * sin 2 / y .2 - max / sin y x 23 * sin 2 / y .3 - max / sin over over / sin x 0.5 - 2 * dup * y 0.5 - 2 * dup * + 10 pow 1 swap -
4spire round Redux
陳爽
'25 May 23
: 2pi 2 pi * ; : 2^ 2 ** ; : x x .5 - ; : y y .5 - ; : r x 2^ y 2^ - ; : a y x atan2 2pi / .9 mod ; : f a * sin 2 / r .1 - min / sin ; a 20 f r 24 f 2dup / sin
盛裝朝服
陳爽
'25 May 23
: 2pi 2 pi * ; : 2^ 2 ** ; : x x .5 - ; : y y .5 - ; : r x 2^ y 2^ + ; : a y x atan2 2pi / .9 mod ; : f a * sin 2 / r .15 - min / sin ; a 20 f r 22 f 2dup / sin
富貴廳堂
陳爽
'25 May 23
\ Rotation Prefix : x x .5 - ; : y y .5 - ; : a x y atan2 ; : r x 2 ** y 2 ** + sqrt ; : x a t - sin r * ; : y a t - cos r * ; : x x .5 + ; : y y .5 + ; x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Rotation Redux
Ricky Lai
'25 May 23
\ Rotation Prefix : x x .5 - ; : y y .5 - ; : a x y atan2 ; : r x 2 ** y 2 ** + sqrt ; : x a t - sin r * ; : y a t - cos r * ; : x x .5 + ; : y y .5 + ; : d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 2.9 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.9 * 0.05 + d t ; e x - d * f y - d * + sqrt 0.02 < p 3 * sin m e * - a 0.03 < * p 2 * cos m 1 e - * - a 0.97 > * + + d d
PONG game Rotation Redux
Ricky Lai
'25 May 23
\ Rotation Prefix : x x .5 - ; : y y .5 - ; : a x y atan2 ; : r x 2 ** y 2 ** + sqrt ; : x a t - sin r * ; : y a t - cos r * ; : x x .5 + ; : y y .5 + ; : odd 2 mod ; : sqr dup * ; : len sqr swap sqr + sqrt ; : acos dup sqr 1 - negate sqrt swap 1 + atan2 2 * ; : rad 0.5 ; : tiles 10 ; : tile tiles * floor odd ; : dx x 0.5 - ; : dy y 0.5 - ; : dlen dx dy len ; : inside? dlen rad < ; : z rad sqr dlen sqr - sqrt ; : theta dy acos 2 * pi / ; : phi z dx atan2 pi / ; : ofs t 10 / ; : txtr tile swap ofs + tile + odd 0.25 max ; phi theta txtr z * inside? * dup dup
Rotating sphere Redux
Ricky Lai
'25 May 23
\ Rotation Prefix : x x .5 - ; : y y .5 - ; : a x y atan2 ; : r x 2 ** y 2 ** + sqrt ; : x a t - sin r * ; : y a t - cos r * ; : x x .5 + ; : y y .5 + ; : d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Rotation Redux
Ricky Lai
'25 May 23
\ Rotation Prefix : x x .5 - ; : y y .5 - ; : a x y atan2 ; : r x 2 ** y 2 ** + sqrt ; : x a t - sin r * ; : y a t - cos r * ; \ Draw Taichi : r x 2 ** y 2 ** + sqrt ; : r1 x 2 ** y .247 - 2 ** + sqrt ; : r2 x 2 ** y -.245 - 2 ** + sqrt ; r .5 > \ 大黑圓 r .49 < \ 半大不小圓 x 0 < and \ 半白圓 半黑圓 r1 .243 < or \ 上白圓 r2 .245 > and \ 下黑圓 r1 .05 > and \ 上小黑圓 r2 .05 < or \ 下小白圓 or dup dup
太極 Tai Chi - Rotation Redux
Ricky Lai
'25 May 23
: r x .5 - 2 ** y .5 - 2 ** + sqrt ; : r1 x .5 - 2 ** y .747 - 2 ** + sqrt ; : r2 x .5 - 2 ** y .255 - 2 ** + sqrt ; r .5 > \ 大黑圓 r .49 < \ 半大不小圓 x .5 < and \ 半白圓 半黑圓 r1 .243 < or \ 上白圓 r2 .245 > and \ 下黑圓 r1 .05 > and \ 上小黑圓 r2 .05 < or \ 下小白圓 or dup dup
太極 Tai Chi
Ricky and Justin
'25 May 23
x x 23 * sin 2 / y max / sin y x 23 * sin 2 / y max / sin over over / sin x 0.5 - 2 * dup * y 0.5 - 2 * dup * + 10 pow 1 swap -
4spire round
BradN
'25 May 23
\ ( I 國旗飄揚 \ ( I1 旗桿左右移動 週期 2 秒 : x x t 2 / sin 2 + 8 / - ; \ ) : 桿 x 0 > x .02 < * x .01 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ ( I2 改 x y 值域 0 到 2 : x x 2 * ; : y y 2 * ; \ ) \ ( I3 國旗上下升降 週期 8 秒 : y y t 8 / sin 1 + 2 / - ; \ ) \ ( I4 國旗迎風飄動 : y x 3 / t 6 / pi 8 / mod - pi * 10 * cos 40 / \ 水平波動 dy y + 1.1 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 2 * ; : y y 2 * 1 - ; \ ) : r \ 日心 到 x,y 距離 x .5 - 2 ** y .5 - 2 ** + sqrt ; : θ \ 日心 到 x,y 角 徑度 x .5 - y .5 - atan2 ; : n 12 ; : α \ n角星 內頂角 徑度 的 一半 pi 9 / ; \ 改 9 為 2 即 n邊形 : a 2 pi * n / ; : h a 2 / ; : β \ n 道 光芒 θ a mod h - abs ; \ θ pi / 1 + 2 / : n角星 α sin .3 * α cos β sin * β cos α sin * + / r > ; : 洞 r .17 > ; : 圓 r .1 < ; : 日 n角星 洞 * 圓 + ; : 天 y 0 > y .9 < * x .1 > * x 1 < * ; : 地 1 天 - y abs .9 < * x .1 > * x 2 < * ; : 幽暗大地 0 0 0 ; \ RGB 亮度歸零 : 藍天晨曦 \ 加 右上角 藍天晨曦 x y + .1 * + ; : 綠野山嵐 \ 加 左下角 綠野山嵐 swap .1 x y + 2 / .1 * - + swap ; : 國旗飄揚 \ 青天白日滿地紅 rot 日 + 地 + rot 日 + rot 天 + ; : 升上桿頭 \ 升上 白色旗桿 rot 桿 + rot 桿 + rot 桿 + ; \ ( I6 範例展示 幽暗大地 藍天晨曦 綠野山嵐 國旗飄揚 升上桿頭 \ ) \ )
國旗飄揚升上桿頭
陳爽
'25 May 23
: y x t 1 / 12 3 / mod - 10 * 1 sin * cos 45 / y + ; x 0.25 < x 0.35 > or y 0.45 < y 0.55 > or and x 0.25 < x 0.35 > or y 0.45 < y 0.55 > or and y 0.95 < y 0.05 > and y 0.10 > y 0.90 < and
Flag of Finland
CSIE4B黃偉銘
'25 May 23
: y x t 1 / 10.2 1 / mod - 10 * 0.14 cos * cos 70 / y + 0.010 + ; y 0.3 > y 0.99 < and y 0.5 < y 0.66 < or y 0.3 < y 0.99 > and
玻利維亞國旗 Bolivia
資工四B陳耿健
'25 May 23
: y x t 2 / 10.2 1 / mod - 10 * 2 cos * cos 7 / y + 0.005 + ; x 0.5 < x 0.0 > and y 0.6 < y 0.6 > and or x 0.8 > x 0.7 < or y 0.65 > y 0.55 < or and over over and rot y 0.025 > y 0.975 < and
New New New Norway 機械版 Redux
Anonymous
'25 May 23
: y x t 1 / 12 3 / mod - 8 * 0.5 cos * cos 60 / y + 0.015 + ; y 0.6 < y 0.02 > and y 0.3 < y 0.02 > and 0 y 0.9 < y 0.02 > and
德國
林鉅堯
'25 May 23
: y x t 0.5 / 12 3 / mod - 10 * 0.5 cos * cos 150 / y + 0.015 + ; y 0.6 < y 0.02 > and y 0.3 < y 0.02 > and 0 y 0.9 < y 0.02 > and
德國國旗
王建寰
'25 May 23
: x y t 1 / 12 3 / mod - 10 * 0.5 cos * cos 45 / y + 0.015 + ; x 0.6 < x 0.02 > and x 0.3 < x 0.02 > and 0 x 0.9 < x 0.02 > and
德國
陳奕亨
'25 May 23
: y x t 2 / 10.2 1 / mod - 10 * 2 cos * cos 7 / y + 0.005 + ; x 0.33 > x 0.66 < x 0.66 < x 0.33 > and y 0.975 < y 0.025 > x 0.975 < x 0.025 > and and and
義大利國旗
沈光祈
'25 May 23
: y x t 2 / 5 3 / mod - 8 * 0.55 cos * cos 100 / y + 0.005 + ; y 0.33 < y 0.025 > and y 0.77 > y 0.987 < and or y 0.33 > y 0.975 < and y 0.66 > y 0.975 < and
保加利亞
官振任
'25 May 23
: y x t 2 / 10.2 8 / mod - 20 * 0.15 cos * cos 50 / y + 0.005 + ; : n 10 ; : alpha pi 5 / ; : x0 0.30 ; : y0 0.80 ; : r0 0.15 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 1 < and and
中華民國
吳俊逸
'25 May 23
: y x t 2 / 10.2 8 / mod - 20 * 0.15 cos * cos 50 / y + 0.005 + ; : n 10 ; : alpha pi 5 / ; : x0 0.30 ; : y0 0.80 ; : r0 0.15 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 1 < and and
Untitled
Anonymous
'25 May 23
: x y t 1 / 12 3 / mod - 10 * 0.5 cos * cos 45 / y + 0.015 + ; x 0.6 < x 0.02 > and x 0.3 < x 0.02 > and 0 x 0.9 < x 0.02 > and
資工4A
王建寰
'25 May 23
: y x t 2 / 10.2 3 / mod - 20 * 0.5 cos * cos 90 / y + 0.0005 + ; : n 12 ; : alpha pi 10 / ; : x0 0.25 ; : y0 0.75 ; : r0 0.17 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 0.995 < and and
中華民國
資傳4B 羅詣凱
'25 May 23
: y x t 2 / 12 3 / mod - 8 * 0.5 cos * cos 70 / y + 0.015 + ; 1 y 0.33 > y 0.658 < and y 0.33 > y 0.658 < and
奧地利國旗
資傳四B 吳思賢
'25 May 23
: y x t 2 / 10.2 1 / mod - 10 * 2 cos * cos 7 / y + 0.005 + ; x 0.33 > x 0.66 < x 0.66 < x 0.33 > and y 0.975 < y 0.025 > x 0.975 < x 0.025 > and and and
俄羅斯國旗 Redux
Anonymous
'25 May 23
: y x t 1 / 12 3 / mod - 8 * 0.5 cos * cos 180 / y + 0.015 + ; y 0.025 > y 0.33 < y 0.66 > y 0.975 < and or and y 0.66 > y 0.975 < and y 0.33 > y 0.975 < and y 0.025 > y 0.975 < and
俄羅斯國旗
李佩甄
'25 May 23
: y x t 2 / 10.2 3 / mod - 20 * 0.5 cos * cos 150 / y + 0.0005 + ; : n 12 ; : alpha pi 12 / ; : x0 0.25 ; : y0 0.75 ; : r0 0.17 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 0.995 < and and
台灣國旗
連子懿
'25 May 23
: y x t 1 / 100 1 / mod - 10 * 2 cos * cos 70 / y + ; y 0.99 < y 0.01 > and x y < x 1 y - < and not and y 0.66 < y 0.33 > and over and swap 1 over and swap y 0.66 > y 0.33 < or and
Flag of Bahamas Redux
陳詠舜
'25 May 23
: y x t 1 / 12 3 / mod - 10 * 0.5 cos * cos 45 / y + 0.015 + ; y 0.6 < y 0.02 > and y 0.3 < y 0.02 > and 0 y 0.9 < y 0.02 > and
德國國旗
蘇家平
'25 May 23
: y x t 6 / 10 3 / mod - 8 * 0.6 cos * cos 20 / y + 0.001 + ; : n 12 ; : alpha pi 10 / ; : x0 0.2 ; : y0 0.75 ; : r0 0.16 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 0.995 < and and
台灣國旗
韓培倫
'25 May 23
: x y t 2 / 10.2 1 / mod - 9 * 0.55 cos * cos 60 / x + 0.005 + ; x 0 > x 0.33 < and x 0.66 > x 0.975 < and or x 0.33 > x 0.975 < and 0 x 0.025 > x 0.975 < and
Untitled
Anonymous
'25 May 23
: y x t 1 / 100 1 / mod - 10 * 2 cos * cos 70 / y + ; y 0.66 < y 0.33 < 0 y 0.975 < y 0.025 > and
德國
陳璟毓
'25 May 23
: y x t 2 / 10.2 1 / mod - 10 * 2 cos * cos 7 / y + 0.005 + ; x 0.33 > x 0.66 < x 0.66 < x 0.33 > and y 0.975 < y 0.025 > x 0.975 < x 0.025 > and and and
義大利
邱垂華
'25 May 23
: y x t 1 / 10.2 1 / mod - 10 * 0.8 cos * cos 70 / y + 0.010 + ; x 0.30 < x 0.40 > or y 0.45 < y 0.55 > or and y 0.990 < y 0.010 > and and x 0.25 > x 0.30 < and x 0.40 > x 0.45 < and or y 0.45 < y 0.55 > or and y 0.40 > y 0.45 < and y 0.55 > y 0.60 < and or x 0.30 < x 0.40 > or and or y 0.990 < y 0.010 > and and x 0.30 > x 0.40 < and y 0.45 > y 0.55 < and or 0.0000001 * x 0.25 > x 0.30 < and x 0.40 > x 0.45 < and or y 0.40 > y 0.45 < and y 0.55 > y 0.60 < and or or or y 0.990 < y 0.010 > and and
挪威國旗
黃東禹
'25 May 23
: y x t 10 / 10 10 / mod - 30 * 0.5 cos * cos 100 / y + 0.003 + ; : n 10 ; : alpha pi 20 / ; : x0 0.25 ; : y0 0.75 ; : r0 0.3 ; : theta x x0 + y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.5 > and r 0.1 < and or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 0.99 < and and
Uniqlo flag
資傳3B 蘇約寧
'25 May 23
: y x t 1.5 / 10.2 3 / mod - 15 * 0.15 cos * cos 90 / y + ; : n 12 ; : alpha pi 10 / ; \ half of spike angle : x0 0.25 ; : y0 0.75 ; : r0 0.15 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 0.995 < and and
陳智祺
Anonymous
'25 May 23
: y x t 1.5 / 10.2 3 / mod - 15 * 0.15 cos * cos 90 / y +; : n 12 ; : alpha pi 10 / ; \ half of spike angle : x0 0.25 ; : y0 0.75 ; : r0 0.15 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 0.995 < and and
陳智祺
Anonymous
'25 May 23
: y x t 2 / 10.2 3 / mod - 20 * 0.5 cos * cos 90 / y + 0.0005 + ; : n 12 ; : alpha pi 10 / ; : x0 0.25 ; : y0 0.75 ; : r0 0.17 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 0.995 < and and
中華民國國旗
資工四A_410126519_謝鎮宇
'25 May 23
: y x t 2 / 10.2 3 / mod - 20 * 0.5 cos * cos 180 / y + 0.0005 + ; : n 12 ; : alpha pi 12 / ; : x0 0.25 ; : y0 0.75 ; : r0 0.17 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi n / - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha sin * + / ; x 0.5 > y 0.5 > y 0.99 < and and y 0.025 > y 0.5 < and or b r > r 0.1 > and r 0.09 < or or b r > r 0.1 > and r 0.09 < or x 0.5 < y 0.5 > y 0.995 < and and
台灣國旗
資工四A謝鎮宇
'25 May 23
Next