Haiku Gallery
: y x t 2 / 10.2 3 / mod - 9 * 0.55 cos * cos 60 / y + 0.005 + ; x 0.33 > x 0.975 < y 0.025 > y 0.975 < and and and x 0.025 > x 0.66 < y 0.025 > y 0.975 < and and and x 0.33 > x 0.66 < y 0.025 > y 0.975 < and and and
義大利
盧品含
'25 Feb 08
: y x t 2 / 10.2 3 / mod - 10 * 0.14 cos * cos 70 / y + 0.010 + ; y 0.025 > y 0.975 < and y 0.5 < y 0.025 > and y 0.5 < y 0.025 > and
印尼國旗
黃綺萱
'25 Feb 08
: y x t 5 / 25 mod - 5 * 0.1 cos * cos 10 / y + ; : n 12 ; \ number of spikes : alpha pi 30 / ; \ 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 \ sum + red b r > r 0.1 > and r 0.09 < or \ green x 0.5 < y 0.5 > y 0.995 < and and \ blue
ROC
關睿
'25 Feb 08
: y x t 2 / 10.2 3 / mod - 5 * 0.15 cos * cos 50 / y + 0.005 + ; : n 14 ; : alpha pi 10 / ; : x0 0.25 ; : y0 0.75 ; : r0 0.20 ; : 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.990 < and and
ROC
陳庭誼
'25 Feb 08
: y x t 2 / 10.2 3 / mod - 10 * 0.15 cos * cos 100 / y + 0.005 + ; : n 12 ; \ number of spikes : 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
ROC
楊馨茹
'25 Feb 08
: y x t 2 / 10.2 3 / mod - 15 * 0.15 cos * cos 20 / y + 0.005 + ; \ 波浪速度 : n 12 ; \ number of spikes : alpha pi 10 / ; \ 三角數量 : x0 0.25 ; \ 白日x座標 ) : y0 0.75 ; \ 白日y座標 : 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 \ 藍
ROC
羅中瑋
'25 Feb 08
: y x t 9 / 10.2 3 / mod - 15 * 0.15 cos * cos 50 / y + 0.005 + ; : n 50 ; \ number of spikes : alpha pi 60 / ; \ 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 \ 藍 t cos 1 + 3 / + t 2.7 * cos 1 + 5 / + t dup floor - pi * 2 * + sin over 9 * 4 ** swap .1 max .1 - * 9 * 3 min .9
Untitled
Anonymous
'25 Feb 08
: y x t 9 / 10.2 3 / mod - 15 * 0.15 cos * cos 50 / y + 0.005 + ; : n 50 ; \ number of spikes : alpha pi 60 / ; \ 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 \ 藍 t cos 1 + 3 / + t 2.7 * cos 1 + 5 / + t dup floor - pi * 2 * + sin over 9 * 4 ** swap .1 max .1 - * 9 * 3 min .9
ROC Redux
賴瑩珊
'25 Feb 08
: y x t 9 / 10.2 3 / mod - 15 * 0.15 cos * cos 50 / y + 0.005 + ; : n 50 ; \ number of spikes : alpha pi 60 / ; \ half of spike angle : x0 0.25 ; ( 太陽x座標 ) : y0 0.75 ; ( 太陽x座標 ) : 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 \ 藍 t cos 1 + 3 / + t 2.7 * cos 1 + 5 / + t dup floor - pi * 2 * + sin over 9 * 4 ** swap .1 max .1 - * 9 * 3 min .9
ROC
賴瑩珊
'25 Feb 08
: y x t 5 / 50 mod - 10 * 0.5 sin * sin 20 / y + ; : n 12 ; \ number of spikes : alpha pi 10 / ; : x0 0.25 ; ( 太陽x座標 ) : y0 0.75 ; ( 太陽x座標 ) : r0 t 10 / 1 10 / mod 1 20 / + ; : 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 1 < 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.999 < and and \ 藍 t sin 4 / 0.5 +
ROC's Flag
陳亭如
'25 Feb 08
x 0.5 - 100 * sin y + t - cos y 0.5 - 50 * cos x + t - sin t sin 0.1 -
Shadow of lights whistling Redux
Anonymous
'25 Feb 08
x 0.5 - 100 * sin y + t - cos y 0.5 - 50 * cos x + t - sin t sin 0.1 -
Shadow of lights whistling Redux
Anonymous
'25 Feb 08
x 0.5 - 100 * sin y + t - cos y 0.5 - 50 * cos x + t - sin t sin 0.1 -
Shadow of lights whistling Redux
Anonymous
'25 Feb 08
x 0.5 - 100 * sin y + t - cos y 0.5 - 50 * cos x + t - sin t sin 0.1 -
Shadow of lights whistling Redux
Anonymous
'25 Feb 08
x 0.5 - 4 * cos x y 0.5 - 4 * cos + t - cos t cos 0.1 -
Shadow of lights whistling
耿耿
'25 Feb 08
: y x t 1 / 30 mod - 10 * 0.25 sin * sin 10 / y + ; : n 12 ; \ number of spikes : alpha pi 30 / ; : x0 t sin 3 / 0.5 + ; : y0 0.75 ; : 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 1 < 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 \ 綠 t sin 0.5 / 0.5 + \ 藍
Flag of ROC
蔡旻達
'25 Feb 08
: y x t 1 / 30 mod - 10 * 0.25 sin * sin 10 / y + ; : n 12 ; \ number of spikes : alpha pi 30 / ; : x0 t sin 3 / 0.5 + ; : y0 0.75 ; : 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 1 < 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 \ 綠 t sin 0.5 / 0.5 + \ 藍
Flag of ROC Redux Redux Redux
蔡旻達
'25 Feb 08
: y x t 1 / 30 mod - 10 * 0.25 sin * sin 10 / y + ; : n 12 ; \ number of spikes : alpha pi 30 / ; : x0 0.25 ; : y0 0.75 ; : 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 1 < 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 \ 綠 t sin 0.5 / 0.5 + \ 藍
Flag of ROC Redux Redux
蔡旻達
'25 Feb 08
: y x t 5 / 25 mod - 10 * 0.25 cos * cos 15 / y + ; : n 12 ; \ number of spikes : 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 \ sum + red b r > r 0.1 > and r 0.09 < or \ green x 0.5 < y 0.5 > y 0.995 < and and \ blue
Flag of ROC
葛達文
'25 Feb 08
: y x t 5 / 25 mod - 10 * 0.75 sin * sin 20 / y + ; : n 12 ; \ number of spikes : alpha pi 10 / ; : x0 0.25 ; ( 太陽x座標 ) : y0 0.75 ; ( 太陽x座標 ) : r0 t 10 / 1 10 / mod 1 20 / + ; : 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 1 < 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.999 < and and \ 藍 t sin 3 / 0.75 +
ROC Redux
陳亭如
'25 Feb 08
: 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 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 \ 藍
ROC Redux
Anonymous
'25 Feb 08
x y * 1.618 - x y - t sin * x y - sin >r r@ t * sin r> *
tu - ra
nin
'25 Feb 08
( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 5 / 1.57 4 / mod - 30 * 1 cos * cos 40: / y + ; : x x -.25 t 3.9 / .5 mod + cos 2 * * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 .3 ; : theta x x0 - y y0 - atan2 pi + t 2 / + ; : 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 .17 > and r .13 < or >r r@ x 1 > or y 0 < or y 1 - 2 / .3 + + \ red r> \ green y 0 > x 1 < and \ blue
Flag of ROC Redux
何祥祿
'25 Feb 08
: 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 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 \ 藍
ROC
陳美珊
'25 Feb 08
( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 5 / 1.57 4 / mod - 30 * 1 cos * cos 40: / y + ; : x x 2 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 t 5 / 0.15 mod .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 * + / ; b r > r .17 > and r t 5 / .15 mod < or >r r@ x 1 > or y 0 < or \ red r> \ green y 0 > x 1 < and \ blue t 3 / 1 mod .3 / x - y .5 mod /
Flag of ROC Redux Redux
何祥祿
'25 Feb 08
( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 5 / 1.57 4 / mod - 30 * 1 cos * cos 40: / y + ; : x x 2 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 t 5 / 0.15 mod .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 * + / ; b r > r .17 > and r t 5 / .15 mod < or >r r@ x 1 > or y 0 < or \ red r> \ green y 0 > x 1 < and \ blue t 3 / 1 mod .3 / x - y +
Flag of ROC Redux
Anonymous
'25 Feb 08
\ {{ Add a wave by DarkstarAG : x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ; \ }} Add a wave : x x 2.3 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 0.29 ; : theta x x0 - y y0 - atan2 pi + ; : r x x0 - dup * y y0 - dup * + sqrt ; : beta theta pi n / 2 * mod pi 3 * n / t * - abs ; : b r0 alpha sin * alpha cos beta sin * beta cos alpha t * sin * + / ; b r > r .17 > and r .15 < or >r r@ x 1 > or y 0 < or \ red r> \ green y 0 > x 1 < and \ blue
Flag of ROC Shine ~
Anonymous
'25 Feb 08
( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 5 / 1.57 4 / mod - 30 * 1 cos * cos 40: / y + ; : x x 2 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 t 5 / 0.15 mod .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 * + / ; b r > r .17 > and r t 5 / .15 mod < or >r r@ x 1 > or y 0 < or \ red r> \ green y 0 > x 1 < and \ blue
Flag of ROC
何祥祿
'25 Feb 08
( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 5 / 1.57 4 / mod - 30 * 1 cos * cos 40: / y + ; : x x 2 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 t 5 / 0.15 mod .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 * + / ; b r > r .17 > and r .13 < or >r r@ x 1 > or y 0 < or \ red r> \ green y 0 > x 1 < and \ blue
Flag of ROC
何祥祿
'25 Feb 08
\ Based on: Flag of KMD - 陳爽 : x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x 2 / t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + .1 + ; : x x 2 * ; : y y 2 * 1 - ; : n 12 ; \ 三角形個數 : alpha pi 10 / ; \ 三角形的角度 : x0 0.5 ; \ x中心點 : y0 0.5 ; \ y中心點 : 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 * + / ; \ 三角形座標 : a x .15 mod ; y 0 < x 1 > or b r > r .17 > and r .1 < or or b r > r .17 > and r .1 < or y 0 > x 1 < and y a mod 200 * tan x * 100 *
Flag of ROC Redux
辛
'25 Feb 08
: x x ; ( : y x .5 cos y .5 * cos 2 / 1 + - * ; ) : y x t 0.2 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ; : x x 2 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : 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 \ red r> \ green y 0 > x 1 < and \ blue
Flag of ROC Redux Redux
陳柏宇
'25 Feb 08
: x x 2 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : 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 \ red r> \ green y 0 > x 1 < and \ blue
Flag of ROC Redux Redux
陳柏宇
'25 Feb 08
x 0.3 < x 0.2 > and y 0.8 < y 0.8 < and or y 0.9 > or x 0.1 < or y 0.6 < or x 0.4 > or y 0.5 > and x 0.5 < and dup
Flag of Tonga Redux
陳柏宇
'25 Feb 08
\ {{ Add a wave by DarkstarAG : x x ; ( : y x .5 - t cos y .5 * cos 2 / 1 + - * ; ) : y x t 3 / 1.57 4 / mod - 30 * 1 cos * cos 40 / y + ; \ }} Add a wave : x x 2.3 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : x0 0.5 ; : y0 0.5 ; : r0 0.29 ; : 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 .17 > and r .15 < or >r r@ x 1 > or y 0 < or \ red r> \ green y 0 > x 1 < and \ blue
Flag of ROC
陳佳騰
'25 Feb 08
x y / x x x x * * * * dup >r t x y / - tan r> + swap t 6 - cos pow
Titra
Victtor
'25 Feb 08
: x x 2 * ; : y y 2 * 1 - ; : n 12 ; \ number of spikes : alpha pi 12 / ; \ half of spike angle : 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 .17 > and r .1 < or >r r@ x 1 > or y 0 < or \ red r> \ green y 0 > x 1 < and \ blue
Flag of ROC Redux
Anonymous
'25 Feb 08
: 以十字顯示滑鼠位置 crosshair+ drop ; \ cx,cy 為 p,q 原點 \ 預設 cx,cy 為 滑鼠點的位置 : cx .5 ; : cy .5 ; \ 中心為原點 : 不顯示滑鼠位置 crosshair- drop ; : 2pi pi pi + ; \ 2 倍 圓周率 : 2/ 2 / ; : 2* 2 * ; : 2+ 2 + ; : 1+ 1 + ; : 1- 1 - ; : 2- 2 - ; : 2^ 2 ** ; : h- .5 - ; : h+ .5 + ; : r ( -- r ) \ 中心 到 x,y 距離 x h- 2 ** y h- 2 ** + sqrt ; : a ( -- a ) \ 中心 到 x,y 角度 y h- x h- atan2 pi + 2pi / ; : p x cx - ; : q y cy - ; : 角 ( -- 角 ) \ 原點 到 p,q 角度 q p atan2 \ 值域 -pi 到 pi pi + 2pi / ; \ 對應 值域 0 到 1 : 距 ( -- 距 ) \ 原點 到 p,q 距離 p 2 ** q 2 ** + sqrt ; : 內 ( x v -- 區 ) < ; \ x<v 區 : 外 ( x v -- 區 ) > ; \ x>v 區 : 間 ( x L U -- 區 ) \ x 在 L U 間 >r over r> < >r > r> and ; : 圓 ( v -- 圓 ) 距 > ; \ 距<v 區 : 洞 ( v -- 洞 ) 距 < ; \ 距>v 區 : 線粗 .01 ; : 線 ( r v d -- 線 ) \ r=v 線, d 粗細 –rot - abs > ; : 圈 ( v -- 圈 ) \ 距=v 線 距 線 ; : 反 ( v -- 1-v ) 1 swap - ; : 暈 ( r v -- 暈 ) \ r=v 暈 - .2 ** 反 ; : 層 ( v n -- v ) \ v 的 n 層 對應值 dup >r * dup 1 mod - r> 1 - / ; : 層格 ( x y n -- v ) \ x,y 的 n*n 層格 對應值 dup >r 層 swap r> 層 + 2 / ; : 摺 ( v n -- v ) \ v 的 n 摺 對應值 * 1 mod ; : 摺格 ( x y n -- v ) \ x,y 的 n*n 摺格 對應值 dup >r 摺 swap r@ 摺 * r@ 2 * r> / * ; : 移 ( x n -- v ) - ; \ x向0方向回移n : 放 ( x n -- v ) * ; \ x區放大n倍 : 縮 ( x n -- v ) / ; \ x區縮小n倍 : 絕對 ( x -- v ) abs ; \ 取x的絕對值 : 負 ( x -- v ) negate ; \ 取x的負值 : 方 ( r -- b ) \ 內接圓半徑r的正方 p abs over < swap q abs > * ; : 兩點線 ( x1 y1 x2 y2 -- line ) >r over r> ( x1 y1 x2 y1 y2 ) - ( x1 y1 x2 y1-y2 ) >r ( x1 y1 x2 ) >r over r> ( x1 y1 x1 x2 ) - ( x1 y1 x1-x2 ) dup if r> swap ( x1 y1 y1-y2 x1-x2 ) / ( x1 y1 a ) >r swap r@ * - r> ( b a ) x * + y線粗 線 else drop r> ( x1 y1 y1-y2 ) if drop x線粗 線 else ( x1 y1 ) y線粗 線 swap x線粗 線 * then then ; : 點角向 \ x1 y1 a -- 圖 .25 - \ 向上 1 mod 2pi * \ 值域 -pi 到 pi >r y - swap x - atan2 r> + pi + cos ; : 點角線 \ x0 y0 a -- 圖 .25 - \ 向上 1 mod 2pi * \ 值域 -pi 到 pi >r 2dup r@ 點角向 -rot swap \ m y0 x0 r@ sin x rot - * \ m y0 fx swap \ m fx y0 r> cos y rot - * \ m fx fy + abs 1 - 線粗 2 / - 15000 ** * ; \ m 角a心線 ( A. 圓圈洞 與 紅綠藍透 \ 以十字顯示滑鼠位置 .1 圓 \ 半徑 0.1 圓 紅色面 r .2 圈 \ 半徑 0.2 圈 綠色面 g .3 洞 \ 半徑 0.3 洞 藍色面 b .4 圓 \ 半徑 0.4 圓 透視面 a \ 建議: 數值 測試區間 0.0 到 0.5 ) ( B. 距角內外間反 以十字顯示滑鼠位置 \ 距 \ 原點 到 任意點 距離 \ 角 \ 原點 到 任意點 角度 距 .2 內 \ 半徑 0.2 圓 紅 距 .3 外 \ 半徑 0.3 洞 綠 角 0 .1 間 \ 角度 -180 到 36 藍 \ .4 洞 反 \ 半徑 0.4 圓 透 \ 註1 洞 反 即是 圓, 圓 反 即是 洞 \ 註2 紅藍重疊變 紫, 綠藍重疊變 青 \ 建議: 距 測試區間 0.0 到 0.5 \ 建議: 角 測試區間 0.0 到 1.0 ) ( C. xypq 間方 以十字顯示滑鼠位置 \ x 左右 0 到 1 \ y 下上 0 到 1 \ p 左右 小於 cx 為負值 \ q 下上 小於 cy 為負值 .1 方 \ 紅 cx,cy 心 .2 方 x .3 .7 間 \ 綠 q -.2 .2 間 \ 藍 cx 心 .4 寬帶 .4 方 \ 透 cx,cy 心 .4 方 \ 建議: p q 測試區間 -0.5 到 0.5 \ 建議: x y 測試區間 0.0 到 1.0 ) ( D. xyrapq距角 層格摺格 以十字顯示滑鼠位置 距 sin 角 t sin - 5 摺 + \ y \ p \ q x 3 摺 y 3 摺 + 2 / \ x y 9 摺格 \ x 9 層 y 9 層 + 2 / \ x y 9 層格 \ x y + 2/ \ p q 9 層格 \ p 9 摺 q 9 摺 * \ p q 9 摺格 \ p 9 層 q 9 層 * 4 * \ 距 角 9 摺格 \ 距 9 摺 角 9 摺 * \ 距 角 9 層格 \ 距 9 層 角 9 層 * \ ) ( E. 風扇 以十字顯示滑鼠位置 \ 角 t 移 3 摺 \ 3葉扇正轉 \ 角 t 負 移 3 摺 \ 3葉扇反轉 : 風扇 角 t 5 / - 4 摺 \ 紅 4葉風扇正轉 dup \ 綠 \ 與紅重疊變黃 0 \ 無 藍 距 8 層 反 .45 圓 * \ 透視 ; 風扇 \ ) ( F. x 函數 等於 y 隨 t 移 的線 不顯示滑鼠位置 : t t 5 縮 ; \ t 區縮小 5 倍 : x x t 移 ; \ x 原點 隨 t 移 : x x 2pi 放 1 放 ; \ x 區放大 : y y .5 移 ; \ y 原點 移到中間 : y y 5 放 ; \ y 區放大 5 倍 : f x sin ; \ f 為 x 的 函數 f y 線 \ f 等於 y 的線 f y 暈 \ f 等於 y 的暈 \ 建議: 改變縮放倍數測試效果 ) ( G. 時鐘 不顯示滑鼠位置 : 秒 t floor ; \ 捨小數 取整數 : 分 t 60 / ; : 時 t 3600 / ; : r \ 中心到 x,y 的距離, 1 到邊 x .5 - dup * y .5 - dup * + sqrt ; : a \ 中心到 x,y 的角度, 0 到 1 y .5 - x .5 - atan2 pi + pi / 2 / ; \ 中心發 角 t 線 : 格 \ t n -- 線 / .25 - \ 0 向上 2pi * \ 值域 -pi 到 pi >r \ 角度儲存備用 r@ sin x .5 - * r@ cos y .5 - * + abs 1.005 - 150 ** \ 角a 心線 r> 2pi / a + .5 - 2pi * cos * ; \ 去 角a+pi 線 : 秒針 秒 60 格 \ 每秒走 1/60 圈 r .05 .37 間 * \ 秒針起訖端點 r .03 .05 間 + \ 中心紅圈 ; 秒針 \ 顯示 紅色秒針 : 秒標 60 2pi * \ 60 週期 a * cos \ 餘旋波 .93 > \ 振幅大於.93 設定 時標 長 r .41 .43 間 * \ 設定 秒標 寬 ; 秒標 + \ 紅色秒標 : 分針 分 60 格 \ 每分走 1/60 圈 r .07 .32 間 * \ 分針起訖端點 r .05 .07 間 + \ 中心綠圈 ; 分針 \ 顯示 綠色分針 : 時標 12 2pi * \ 12 週期 a * cos \ 餘旋波 .97 > \ 振幅大於.97 設定 時標 長 r .41 .425 間 * \ 設定 時標 寬 ; 時標 + \ 綠色時標 : 時針 時 12 格 \ 每時走 1/12 圈 r .09 .3 間 * \ 時針起訖端點 r .07 .09 間 + \ 中心藍圈 ; 時針 \ 顯示 藍色時針 : 框 \ v -- 框 x y * .001 > * \ 右下黑 x 反 y * .001 > * \ 左下黑 x y 反 * .001 > * \ 右上黑 x 反 y 反 * .001 > * \ 左上黑 ; .5 框 \ 亮度 .5 \ 藍色盤面 \\\\\\\\\\\\\\\\\\\ .3 \ 亮度 .3 x y * .009 > * \ 右下紅 x 反 y * .009 > * \ 左下紅 x y 反 * .009 > * \ 右上紅 x 反 y 反 * .009 > * \ 左上紅 + \ 增中間亮度為 .8 .2 \ 綠色亮度 .2 x y * .022 > * \ 右下紅 x 反 y * .022 > * \ 左下紅 x y 反 * .022 > * \ 右上紅 x 反 y 反 * .022 > * \ 左上紅 + \ 增中間紅色亮度為 1 r .39 > * + \ 半徑 .39 洞 1 框 \ ) ( H 從點 x,y 向角 a 發出的線 : x1 .1 ; : y1 .4 ; : x2 .6 ; : y2 .8 ; : a1 x2 x1 - y2 y1 - atan2 2pi / ; \ 紅色參考格線 x 10 摺 .05 < y 10 摺 .05 < + \ 紅色點角線 \ .5 .5 a1 點角線 + \ 綠色兩點線 \ x1 y1 x2 y2 兩點線 \ 藍色兩點區間 \ x1 y1 a1 .5 + 點角向 \ x2 y2 a1 點角向 * * \ )
Untitled
x
'25 Feb 08
: 以十字顯示滑鼠位置 crosshair+ drop ; \ cx,cy 為 p,q 原點 \ 預設 cx,cy 為 滑鼠點的位置 : cx .5 ; : cy .5 ; \ 中心為原點 : 不顯示滑鼠位置 crosshair- drop ; : 2pi pi pi + ; \ 2 倍 圓周率 : 2/ 2 / ; : 2* 2 * ; : 2+ 2 + ; : 1+ 1 + ; : 1- 1 - ; : 2- 2 - ; : 2^ 2 ** ; : h- .5 - ; : h+ .5 + ; : r ( -- r ) \ 中心 到 x,y 距離 x h- 2 ** y h- 2 ** + sqrt ; : a ( -- a ) \ 中心 到 x,y 角度 y h- x h- atan2 pi + 2pi / ; : p x cx - ; : q y cy - ; : 角 ( -- 角 ) \ 原點 到 p,q 角度 q p atan2 \ 值域 -pi 到 pi pi + 2pi / ; \ 對應 值域 0 到 1 : 距 ( -- 距 ) \ 原點 到 p,q 距離 p 2 ** q 2 ** + sqrt ; : 內 ( x v -- 區 ) < ; \ x<v 區 : 外 ( x v -- 區 ) > ; \ x>v 區 : 間 ( x L U -- 區 ) \ x 在 L U 間 >r over r> < >r > r> and ; : 圓 ( v -- 圓 ) 距 > ; \ 距<v 區 : 洞 ( v -- 洞 ) 距 < ; \ 距>v 區 : 線粗 .01 ; : 線 ( r v d -- 線 ) \ r=v 線, d 粗細 –rot - abs > ; : 圈 ( v -- 圈 ) \ 距=v 線 距 線 ; : 反 ( v -- 1-v ) 1 swap - ; : 暈 ( r v -- 暈 ) \ r=v 暈 - .2 ** 反 ; : 層 ( v n -- v ) \ v 的 n 層 對應值 dup >r * dup 1 mod - r> 1 - / ; : 層格 ( x y n -- v ) \ x,y 的 n*n 層格 對應值 dup >r 層 swap r> 層 + 2 / ; : 摺 ( v n -- v ) \ v 的 n 摺 對應值 * 1 mod ; : 摺格 ( x y n -- v ) \ x,y 的 n*n 摺格 對應值 dup >r 摺 swap r@ 摺 * r@ 2 * r> / * ; : 移 ( x n -- v ) - ; \ x向0方向回移n : 放 ( x n -- v ) * ; \ x區放大n倍 : 縮 ( x n -- v ) / ; \ x區縮小n倍 : 絕對 ( x -- v ) abs ; \ 取x的絕對值 : 負 ( x -- v ) negate ; \ 取x的負值 : 方 ( r -- b ) \ 內接圓半徑r的正方 p abs over < swap q abs > * ; : 兩點線 ( x1 y1 x2 y2 -- line ) >r over r> ( x1 y1 x2 y1 y2 ) - ( x1 y1 x2 y1-y2 ) >r ( x1 y1 x2 ) >r over r> ( x1 y1 x1 x2 ) - ( x1 y1 x1-x2 ) dup if r> swap ( x1 y1 y1-y2 x1-x2 ) / ( x1 y1 a ) >r swap r@ * - r> ( b a ) x * + y線粗 線 else drop r> ( x1 y1 y1-y2 ) if drop x線粗 線 else ( x1 y1 ) y線粗 線 swap x線粗 線 * then then ; : 點角向 \ x1 y1 a -- 圖 .25 - \ 向上 1 mod 2pi * \ 值域 -pi 到 pi >r y - swap x - atan2 r> + pi + cos ; : 點角線 \ x0 y0 a -- 圖 .25 - \ 向上 1 mod 2pi * \ 值域 -pi 到 pi >r 2dup r@ 點角向 -rot swap \ m y0 x0 r@ sin x rot - * \ m y0 fx swap \ m fx y0 r> cos y rot - * \ m fx fy + abs 1 - 線粗 2 / - 15000 ** * ; \ m 角a心線 ( A. 圓圈洞 與 紅綠藍透 \ 以十字顯示滑鼠位置 .1 圓 \ 半徑 0.1 圓 紅色面 r .2 圈 \ 半徑 0.2 圈 綠色面 g .3 洞 \ 半徑 0.3 洞 藍色面 b .4 圓 \ 半徑 0.4 圓 透視面 a \ 建議: 數值 測試區間 0.0 到 0.5 ) ( B. 距角內外間反 以十字顯示滑鼠位置 \ 距 \ 原點 到 任意點 距離 \ 角 \ 原點 到 任意點 角度 距 .2 內 \ 半徑 0.2 圓 紅 距 .3 外 \ 半徑 0.3 洞 綠 角 0 .1 間 \ 角度 -180 到 36 藍 \ .4 洞 反 \ 半徑 0.4 圓 透 \ 註1 洞 反 即是 圓, 圓 反 即是 洞 \ 註2 紅藍重疊變 紫, 綠藍重疊變 青 \ 建議: 距 測試區間 0.0 到 0.5 \ 建議: 角 測試區間 0.0 到 1.0 ) ( C. xypq 間方 以十字顯示滑鼠位置 \ x 左右 0 到 1 \ y 下上 0 到 1 \ p 左右 小於 cx 為負值 \ q 下上 小於 cy 為負值 .1 方 \ 紅 cx,cy 心 .2 方 x .3 .7 間 \ 綠 q -.2 .2 間 \ 藍 cx 心 .4 寬帶 .4 方 \ 透 cx,cy 心 .4 方 \ 建議: p q 測試區間 -0.5 到 0.5 \ 建議: x y 測試區間 0.0 到 1.0 ) ( D. xyrapq距角 層格摺格 以十字顯示滑鼠位置 距 sin 角 t sin - 5 摺 + \ y \ p \ q x 3 摺 y 3 摺 + 2 / \ x y 9 摺格 \ x 9 層 y 9 層 + 2 / \ x y 9 層格 \ x y + 2/ \ p q 9 層格 \ p 9 摺 q 9 摺 * \ p q 9 摺格 \ p 9 層 q 9 層 * 4 * \ 距 角 9 摺格 \ 距 9 摺 角 9 摺 * \ 距 角 9 層格 \ 距 9 層 角 9 層 * \ ) ( E. 風扇 以十字顯示滑鼠位置 \ 角 t 移 3 摺 \ 3葉扇正轉 \ 角 t 負 移 3 摺 \ 3葉扇反轉 : 風扇 角 t 5 / - 4 摺 \ 紅 4葉風扇正轉 dup \ 綠 \ 與紅重疊變黃 0 \ 無 藍 距 8 層 反 .45 圓 * \ 透視 ; 風扇 \ ) ( F. x 函數 等於 y 隨 t 移 的線 不顯示滑鼠位置 : t t 5 縮 ; \ t 區縮小 5 倍 : x x t 移 ; \ x 原點 隨 t 移 : x x 2pi 放 1 放 ; \ x 區放大 : y y .5 移 ; \ y 原點 移到中間 : y y 5 放 ; \ y 區放大 5 倍 : f x sin ; \ f 為 x 的 函數 f y 線 \ f 等於 y 的線 f y 暈 \ f 等於 y 的暈 \ 建議: 改變縮放倍數測試效果 ) ( G. 時鐘 不顯示滑鼠位置 : 秒 t floor ; \ 捨小數 取整數 : 分 t 60 / ; : 時 t 3600 / ; : r \ 中心到 x,y 的距離, 1 到邊 x .5 - dup * y .5 - dup * + sqrt ; : a \ 中心到 x,y 的角度, 0 到 1 y .5 - x .5 - atan2 pi + pi / 2 / ; \ 中心發 角 t 線 : 格 \ t n -- 線 / .25 - \ 0 向上 2pi * \ 值域 -pi 到 pi >r \ 角度儲存備用 r@ sin x .5 - * r@ cos y .5 - * + abs 1.005 - 150 ** \ 角a 心線 r> 2pi / a + .5 - 2pi * cos * ; \ 去 角a+pi 線 : 秒針 秒 60 格 \ 每秒走 1/60 圈 r .05 .37 間 * \ 秒針起訖端點 r .03 .05 間 + \ 中心紅圈 ; 秒針 \ 顯示 紅色秒針 : 秒標 60 2pi * \ 60 週期 a * cos \ 餘旋波 .93 > \ 振幅大於.93 設定 時標 長 r .41 .43 間 * \ 設定 秒標 寬 ; 秒標 + \ 紅色秒標 : 分針 分 60 格 \ 每分走 1/60 圈 r .07 .32 間 * \ 分針起訖端點 r .05 .07 間 + \ 中心綠圈 ; 分針 \ 顯示 綠色分針 : 時標 12 2pi * \ 12 週期 a * cos \ 餘旋波 .97 > \ 振幅大於.97 設定 時標 長 r .41 .425 間 * \ 設定 時標 寬 ; 時標 + \ 綠色時標 : 時針 時 12 格 \ 每時走 1/12 圈 r .09 .3 間 * \ 時針起訖端點 r .07 .09 間 + \ 中心藍圈 ; 時針 \ 顯示 藍色時針 : 框 \ v -- 框 x y * .001 > * \ 右下黑 x 反 y * .001 > * \ 左下黑 x y 反 * .001 > * \ 右上黑 x 反 y 反 * .001 > * \ 左上黑 ; .5 框 \ 亮度 .5 \ 藍色盤面 \\\\\\\\\\\\\\\\\\\ .3 \ 亮度 .3 x y * .009 > * \ 右下紅 x 反 y * .009 > * \ 左下紅 x y 反 * .009 > * \ 右上紅 x 反 y 反 * .009 > * \ 左上紅 + \ 增中間亮度為 .8 .2 \ 綠色亮度 .2 x y * .022 > * \ 右下紅 x 反 y * .022 > * \ 左下紅 x y 反 * .022 > * \ 右上紅 x 反 y 反 * .022 > * \ 左上紅 + \ 增中間紅色亮度為 1 r .39 > * + \ 半徑 .39 洞 1 框 \ ) \ H 從點 x,y 向角 a 發出的線 : x1 .1 ; : y1 .4 ; : x2 .6 ; : y2 .8 ; : a1 x2 x1 - y2 y1 - atan2 2pi / ; \ 紅色參考格線 x 10 摺 .05 < y 10 摺 .05 < + \ 紅色點角線 \ .5 .5 a1 點角線 + \ 綠色兩點線 \ x1 y1 x2 y2 兩點線 \ 藍色兩點區間 \ x1 y1 a1 .5 + 點角向 \ x2 y2 a1 點角向 * * \ )
Untitled
距 .3 <
'25 Feb 08
: 角度 x 0 + y 0.1 - atan2 8000 + ; : sine push x * t pop * + sin y 1 - 1 * - 1 ** 1 swap - ; 角度 9 / cos x / 角度 9 / cos y / 角度 9 / cos y / 角度 dup * cos * dup 角度 9 sine ** 角度 9 sine ** 角度 9 sine ** 角度 9 sine ** 角度 9 sine ** 角度 9 sine **
glow snow
陳暘Justin
'25 Feb 08
: 角度 x 0 + y 0.1 - atan2 9900 + ; : sine push x * t pop * + sin y 1 - 1 * - 1 ** 1 swap - ; 角度 9 / cos x / 角度 9 / cos y / 角度 9 / cos y / 角度 dup * cos * dup 角度 9 sine ** 角度 9 sine ** 角度 9 sine ** 角度 9 sine ** 角度 9 sine ** 角度 9 sine **
ray
陳暘Justin
'25 Feb 08
Next