Haiku Gallery
: 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
'24 Nov 25
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
'24 Nov 25
\ ( 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 範例展示 幽暗大地 藍天晨曦 綠野山嵐 國旗飄揚 升上桿頭 \ ) \ )
國旗飄揚升上桿頭
陳爽
'24 Nov 25
: 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黃偉銘
'24 Nov 25
: 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陳耿健
'24 Nov 25
: 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
'24 Nov 25
: 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
德國
林鉅堯
'24 Nov 25
: 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
德國國旗
王建寰
'24 Nov 25
: 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
德國
陳奕亨
'24 Nov 25
: 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
義大利國旗
沈光祈
'24 Nov 25
: 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
保加利亞
官振任
'24 Nov 25
: 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
中華民國
吳俊逸
'24 Nov 25
: 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
'24 Nov 25
: 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
王建寰
'24 Nov 25
: 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 羅詣凱
'24 Nov 25
: 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 吳思賢
'24 Nov 25
: 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
'24 Nov 25
: 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
俄羅斯國旗
李佩甄
'24 Nov 25
: 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
台灣國旗
連子懿
'24 Nov 25
: 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
陳詠舜
'24 Nov 25
: 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
德國國旗
蘇家平
'24 Nov 25
: 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
台灣國旗
韓培倫
'24 Nov 25
: 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
'24 Nov 25
: 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
德國
陳璟毓
'24 Nov 25
: 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
義大利
邱垂華
'24 Nov 25
: 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
挪威國旗
黃東禹
'24 Nov 25
: 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 蘇約寧
'24 Nov 25
: 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
'24 Nov 25
: 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
'24 Nov 25
: 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_謝鎮宇
'24 Nov 25
: 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謝鎮宇
'24 Nov 25
: 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
德國國旗 Redux Redux
林昇諺
'24 Nov 25
: y x t 5 / 10 10 / mod - 30 * 0.2 cos * cos 100 / y + 0.003 + ; : 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.99 < and and
Taiwan flag
孫康瑄
'24 Nov 25
: y x t 1 / 10.2 1 / mod - 10 * 0.14 cos * cos 70 / y + 0.010 + ; y 0.66 < y 0.33 < 0 y 0.975 < y 0.025 > and
德國國旗 Redux
林昇諺
'24 Nov 25
: x x ; : y x t 2/ 1 4 / mod - 20 * 1 cos * cos 10 / y + ; : x x 2 * ; : y y 2 * 1 - ; : n 12 ; : alpha pi 12 / ; : x0 0.5 ; : y0 0.5 ; : 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 * + / ; b r > r .19 > and r .14 < or >r r@ x 1 > or y 0 < or r> y 0 > x 1 < an
0
Anonymous
'24 Nov 25
: y x t 2 / 10.2 3 / mod - 15 * 0.15 cos * cos 50 / y + 0.005 + ; : n 12 ; \ number of spikes : alpha pi 10 / ; \ half of spike angle : x0 0.25 ; ( 太陽x座標 ) : y0 0.75 ; ( 太陽x座標 ) : r0 t 23 / 1 5 / mod 1 30 / + ; : 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 \ 藍
Taiwan
賴瑩珊
'24 Nov 25
: y x t 2 / 10.2 3 / mod - 8 * 0.002 cos * cos 60 / y + 0.010 + ; y 0.025 > y 0.85 < and y 0.15 > y 0.85 < and y 0.975 < y 0.15 > and
克里米亞自治共和國
駱晟堯
'24 Nov 25
: f t pi 2 * mod ; \ 頻率 : xf x pi 2 * * ; \ 波形變化量 : w 0.1 ; \ 振幅 \ 正弦曲線 : y xf f + sin w * y + ; \ y = 振幅*sin(頻率+波形變化量) \ 座標中央 : x0 x 10 * 5 - ; : y0 y 10 * 5 - ; : r push dup * pop dup * + sqrt ; \ 計算半徑 : circle push push push x0 pop + y0 pop + r pop < ; \ 畫圓 ( x y r ) \ 5個圓環 : blue 2.5 -.5 1.2 circle 2.5 -.5 1 circle not and ; : yellow 1.25 .5 1.2 circle 1.25 .5 1 circle not and ; : black 0 -.5 1.2 circle 0 -.5 1 circle not and ; : green -1.25 .5 1.2 circle -1.25 .5 1 circle not and ; : red -2.5 -.5 1.2 circle -2.5 -.5 1 circle not and ; \ 顏色反轉 black blue green or or not black blue red or or not black red yellow green or or or not \ alpha值 y .2 > y .8 < and \ 旗子比例3:5
奧運旗
沈富權
'24 Nov 25
: y x t 0.75 / 30 5 / mod - 8 * 0.2 cos * cos 60 / y + 0.01 + ; x 0.3 > y 0.01 > and x 0.3 > x 0.66 < y 0.01 > and and x 0.66 < y 0.975 < y 0.025 > and
法國
林冠儒
'24 Nov 25
: y x t 1 / 12 3 / mod - 8 * 0.5 cos * cos 60 / 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
俄羅斯
康芸瑄
'24 Nov 25
Next