Haiku Gallery
t 405.1 * cos t 1023.4 * sin * t 1003.4 * sin + t 1 mod negate 2 * exp * audio .8 t pi * 2 * sin .1 * + x - y / dup y - dup x -
Beating Sun
BradN
'25 Jul 10
: hz 2 * pi * t * sin ; 440 hz t 1 mod 3 * negate exp * 220 hz t 2 mod 6 * negate exp * + 880 hz t 3 mod 2 * negate exp * + audio x t .1 * sin - y t .13 * cos - x y min .15 * t * cos
Counting Color
BradN
'25 Jul 10
: note 12 * floor 5 / 2 swap pow 2000 * t * sin ; mx note my note + .4 * audio mx x - my y - mx my + x y + - 6 * sin
Mousey Harp
BradN
'25 Jul 10
: +! dup @ rot + swap ! ; mx 0 @ > if .3 dt * 0 +! then mx 0 @ < if -.3 dt * 0 +! then my 1 @ > if .3 dt * 1 +! then my 1 @ < if -.3 dt * 1 +! then 0 @ x - dup * 1 @ y - dup * + .01 < 0 @ x - 1 @ y - atan2 2 / .5 + over * 2dup + x * x 0 @ - + swap y 1 @ - + rot x y * 0 @ 1 @ * - +
Chase
BradN
'25 Jul 10
\ Organ use: A, S, D, F : note 12 / 2 swap pow 1300 * t * sin .25 * ; 0 note 1 button * 4 note 3 button * + 7 note 5 button * + 12 note 7 button * + audio 1 button x * 3 button y * 5 button t x + 40 * sin * 7 button t y + 50 * cos * +
4organ
BradN
'25 Jul 10
: hz pi * 2 * t * sin ; : note t 5 * floor 12312 * cos 7 * floor 12 / 2 swap pow 300 * ; note dup 3 * 2 / hz swap hz + 1 t 5 * 1 mod * - audio x y note 300 / 1 - t sin z* 2dup + x >
Plunging
BradN
'25 Jul 10
x y t sin x z* sin x y t cos y z* cos z*
Rolling
BradN
'25 Jul 10
x 9.1 * sin y 9.1 * sin t 10 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 10
x y sin 1 + 2 /
Untitled Redux
Anonymous
'25 Jul 10
\ use WASD keys : b button ; : d dup ; 2 b dt * 200 / d 1 @ sin * swap 1 @ cos * 4 @ 5 @ z+ 5 ! 4 ! 2 @ 3 @ 4 @ 5 @ z+ 3 ! 2 ! 2 @ x + .5 - 3 @ y + .5 - 5 b dt * 3 * 1 b dt * 3 * - 1 @ + d d 1 ! cos swap sin z* 2dup .05 + atan2 abs .4 < -rot .01 - atan2 abs 1 < - 0 max 6 @ sin dt * 2 * 7 @ + 7 ! 6 @ cos dt * 2 * 8 @ + 8 ! 3 b d d if 1 @ 6 ! then if 2 @ 7 ! then if 3 @ 8 ! then 7 @ .5 x - - d * 8 @ .5 y - - d * + .00003 < + x y ** 56 * sin 237 * d floor - 1000 * 999 - 0 max + d d
Asteroids
Manwe
'25 Jul 10
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 -
橋頭江畔遠山晨曦
陳爽
'25 Jul 10
\ 國旗飄揚 \ 列首反斜線變空格就跳過此例 : dy x .3 * ; \ 使國旗隨 x 下垂 \ ( I1 旗桿左右移動 週期 2 秒 : x x t .5 / 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 dy + \ 國旗隨 x 下垂 y + 1.15 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 2 * ; : y y 2 * 1.3 - ; \ ) : 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 ; : n角星 α sin .3 * α cos β sin * β cos α sin * + / r > ; : 洞 r .17 > ; : 圓 r .1 < ; : 日 n角星 \ 12 角星 洞 * \ 挖洞 圓 + \ 加圓 ; : 天 y 0 > y .9 < * x .1 > * x 1 < * ; : 反 \ 反亮度, 原來 0 變 1, 原來 1 變 0 1 swap - ; : 地 天 反 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 \ 桿 + \ 若 rot 後 反斜線 改為 空格, 桿 變 白色 ; \ ( I6 範例展示 幽暗大地 藍天晨曦 綠野山嵐 國旗飄揚 升上桿頭 \ ) \ )
國旗飄揚升上桿頭 Redux
陳爽
'25 Jul 10
x 1.5 * 1 + cos y 1.5 * 1 * cos + t + cos t cos 3 * dup
hell to heaven
Justin Chen
'25 Jul 10
x y ** 56 * sin 23710 * dup floor - ( noise generator in 36 bytes for your pleasure )
Static noise generator
Manwe
'25 Jul 10
: x x y t + 10 * sin .005 * + ; : y y x t + 10 * sin .005 * + ; y 0.4 < y 0 > x 0 > x 0.2 < and and and y 0.4 < y 0 > x 0.4 > and and x 0 > x 0.2 < y 0.6 > and and y 0.6 > x 0.4 > and or or or y 0.4 < y 0 > x 0 > x 0.2 < and and and y 0.4 < y 0 > x 0.4 > and and x 0 > x 0.2 < y 0.6 > and and y 0.6 > x 0.4 > and or or or 1 y 0.01 > y 0.999 > x 0.01 > x 0.999 < and or and
芬蘭國旗 完成版
陳侃胤
'25 Jul 10
: y x t 1.5 / 10.2 3 / mod - 8 * 0.14 cos * cos 70 / y + 0.010 + ; x 0.3 > y 0.02 > and x 0.3 > x 0.66 < y 0.025 > and and x 0.66 < y 0.975 < y 0.025 > and
法國國旗
羅詣凱
'25 Jul 10
: y x t 1.5 / 10.2 3 / mod - 8 * 0.14 cos * cos 70 / y + 0.010 + ; x 0.3 > y 0.02 > and x 0.3 > x 0.66 < y 0.025 > and and x 0.66 < y 0.975 < y 0.025 > and
法國國旗
Anonymous
'25 Jul 10
: y x t 1.5 / 10.2 3 / mod - 8 * 0.14 cos * cos 70 / y + 0.010 + ; x 0.3 > y 0.02 > and x 0.3 > x 0.66 < y 0.025 > and and x 0.66 < y 0.975 < y 0.025 > and
Untitled
Anonymous
'25 Jul 10
: y x t 1.5 / 10.2 3 / mod - 8 * 0.14 cos * cos 70 / y + 0.010 + ; x 0.3 > y 0.02 > and x 0.3 > x 0.66 < y 0.025 > and and x 0.66 < y 0.975 < y 0.025 > and
法國
羅詣凱
'25 Jul 10
: y x t 1.5 / 10.2 3 / mod - 8 * 0.14 cos * cos 70 / y + 0.010 + ; x 0.3 > y 0.02 > and x 0.3 > x 0.66 < y 0.025 > and and x 0.66 < y 0.975 < y 0.025 > and
法國
羅詣凱
'25 Jul 10
: x x t 1 / 12 10 / mod - 10 * 1cos * cos 30 / 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
德國 Redux Redux
陳奕亨
'25 Jul 10
\ 旗桿 : 桿 x 0.49 > x .51 < * x .5 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ 國旗大小 : x x 2 * ; : y y 2 * ; \ 週期 : y y t 8 / sin 1 + 2 / - ; \ 飄動 : y x 3 / t 6 / pi 8 / mod - pi * 10 * cos 40 / y + 1.1 * ; \ 國旗位置 : x x 2 * ; : y y 2 * 1 - ; \ 國旗 : 紅 y -.3 > y .9 < * x 2.07 > * x 4 < * ; : 綠 y -.3 > y .3 < * x 2.07 > * x 4 < * ; : 藍 y -.9 > y .3 < * x 2.07 > * x 4 < * ; : 國旗飄揚 rot 紅 + rot 綠 + rot 藍 + ; : 升上桿頭 rot 桿 + rot 桿 + rot 桿 + ; 紅色 綠色 藍色 國旗飄揚 升上桿頭 random 5000 *
荷蘭國旗 Redux
Anonymous
'25 Jul 10
\ 改自陳爽1版 \ I1 旗桿左右移動 週期 2 秒 : x x t 1 / sin 2 + 8 / - ; \ x是一個變數 : 桿 x 0 > x .03 < and \ 桿子粗細 本來是*改成and x .02 - 2 ** y .98 - 2 ** + sqrt .05 < + ; \ ( I2 改 x y 值域 0 到 2 : x x 4 * ; : y y 4 * ; \ ) \ ( I3 國旗上下升降 週期 1 秒 : y y t 1 / cos 1 + 2 / - ; \ ) \ ( I4 國旗迎風飄動 : y x 5 / t 9 / pi 1 / \ 波浪會變 y:波型 t:速度 mod - pi * 10 * cos 40 / \ 水平波動 dy y + 1.1 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 1 * ; : y y 1 * 1 - ; \ ) : r \ 日心 到 x,y 距離 x .5 - 2 ** y .5 - 2 ** + sqrt ; : θ \ 日心 到 x,y 角 徑度 x .5 - y .5 - atan2 ; : n 2 ; : α \ n角星 內頂角 徑度 的 一半 pi 9 / ; \ 改 9 為 2 即 n邊形 : a 2 pi * n / ; : h a 2 / ; : β \ n 道 光芒 θ a mod h - abs ; \ θ pi / 1 + 2 / : n角星 α sin .4 * α cos β sin * β cos α sin * + / r > ; : 洞 r .2 > ; : 圓 r .11 < ; : 日 n角星 洞 * 圓 + ; : 天 y 0 > y .9 < * x .1 > * x 1 < * ; : 地 1 天 - y abs .9 < * x .1 > * x 2 < * ; : 汪洋大海 0 0 .6 ; \ RGB +了B : 微妙綠光 \ 加 上面 微妙綠光 y y - .1 + + ; \ y相反後就反向 : 綠野能量 \ 加 下面 綠野能量 swap .5 x y + 9 / .5 * + + swap ; : 國旗飄揚 \ 青天白日滿地紅 rot 日 + 地 - rot 地 - rot 天 + ; : 升上桿頭 \ 升上 白色旗桿 rot 桿 + rot 桿 + rot 桿 + ; \ ( 汪洋大海 微妙綠光 綠野能量 國旗飄揚 升上桿頭 \ ) \ )
眼睛國旗在淺水海域透著微光
約寧
'25 Jul 10
: x x 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
德國 Redux
陳奕亨
'25 Jul 10
: x x t 1 / 12 2 / 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
德國 Redux
Anonymous
'25 Jul 10
: y x t 1 / 12 3 / mod - 12 * 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
德國國旗 Redux
Anonymous
'25 Jul 10
: y x t 1 / 12 3 / mod - 12 * 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
德國國旗 Redux
Anonymous
'25 Jul 10
\ 改自陳爽1版 \ I1 旗桿左右移動 週期 2 秒 : x x t 1 / sin 2 + 8 / - ; \ x是一個變數 : 桿 x 0 > x .02 < and \ 桿子粗細 本來是*改成and x .01 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ ( I2 改 x y 值域 0 到 2 : x x 4 * ; : y y 4 * ; \ ) \ ( I3 國旗上下升降 週期 1 秒 : y y t 1 / cos 1 + 2 / - ; \ ) \ ( I4 國旗迎風飄動 : y x 3 / t 6 / pi 5 / \ 波浪會變 5:波型 6:速度 mod - pi * 10 * cos 40 / \ 水平波動 dy y + 1.1 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 1 * ; : y y 1 * 1 - ; \ ) : r \ 日心 到 x,y 距離 x .5 - 2 ** y .5 - 2 ** + sqrt ; : θ \ 日心 到 x,y 角 徑度 x .5 - y .5 - atan2 ; : n 2 ; : α \ n角星 內頂角 徑度 的 一半 pi 9 / ; \ 改 9 為 2 即 n邊形 : a 2 pi * n / ; : h a 2 / ; : β \ n 道 光芒 θ a mod h - abs ; \ θ pi / 1 + 2 / : n角星 α sin .4 * α cos β sin * β cos α sin * + / r > ; : 洞 r .2 > ; : 圓 r .11 < ; : 日 n角星 洞 * 圓 + ; : 天 y 0 > y .9 < * x .1 > * x 1 < * ; : 地 1 天 - y abs .9 < * x .1 > * x 2 < * ; : 汪洋大海 0 0 .6 ; \ RGB +了B : 微妙綠光 \ 加 上面 微妙綠光 y y - .1 + + ; \ y相反後就反向 : 綠野能量 \ 加 下面 綠野能量 swap .6 x y + 9 / .5 * + + swap ; : 國旗飄揚 \ 青天白日滿地紅 rot 日 + 地 - rot 地 - rot 天 + ; : 升上桿頭 \ 升上 白色旗桿 rot 桿 + rot 桿 + rot 桿 + ; \ ( 汪洋大海 微妙綠光 綠野能量 國旗飄揚 升上桿頭 \ ) \ )
淺水海域透著微綠光
蘇 約寧
'25 Jul 10
\ ( I 國旗飄揚 : 桿 x .46 > x .5 < * x .51 - 2 ** y .98 - 2 ** + sqrt .04 < + ; \ ( I2 改 x y 值域 0 到 2 : x x 2 * ; : y y 2.2 * ; \ ) \ ( I3 國旗上下升降 週期 8 秒 : y y t 5 / sin 1 + 2 / - ; \ ) \ ( I4 國旗迎風飄動 : y x 2 / t 5 / pi 8 / mod - pi * 10 * cos 40 / \ 水平波動 y + 1.1 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 2 * ; : y y 2 * 1 - ; \ ) : 左 y 0 > y 1.5 < * x 2 > * x 3.29 < * ; : 中 y 0 > y 1.5 < * x 2.59 > * x 3.29 < * ; : 右 y 0 > y 1.5 < * x 2.59 > * x 4 < * ; : 國旗飄揚 rot 右 + rot 中 + rot 左 + ; : 升上桿頭 \ 升上 白色旗桿 rot 桿 + rot 桿 + rot 桿 + ; 白 藍 紅 國旗飄揚 升上桿頭
法國
林鉅堯
'25 Jul 10
: y x t 0.4 / 10.2 3 / mod - 10 * 0.14 cos * cos 70 / y + 0.010 + ; x 0.33 > y 0.025 > and x 0.33 > x 0.66 < y 0.025 > and and 0 y 0.975 < y 0.025 > and
比利時國旗！
張志宇資工四b
'25 Jul 10
\ 改自陳爽1版 \ I1 旗桿左右移動 週期 2 秒 : x x t 1 / sin 2 + 8 / - ; \ x是一個變數 : 桿 x 0 > x .02 < and \ 桿子粗細 本來是*改成and x .01 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ ( I2 改 x y 值域 0 到 2 : x x 4 * ; : y y 4 * ; \ ) \ ( I3 國旗上下升降 週期 1 秒 : y y t 1 / cos 1 + 2 / - ; \ ) \ ( I4 國旗迎風飄動 : y x 3 / t 6 / pi 5 / \ 波浪會變 5:波型 6:速度 mod - pi * 10 * cos 40 / \ 水平波動 dy y + 1.1 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 1 * ; : y y 1 * 1 - ; \ ) : r \ 日心 到 x,y 距離 x .5 - 2 ** y .5 - 2 ** + sqrt ; : θ \ 日心 到 x,y 角 徑度 x .5 - y .5 - atan2 ; : n 2 ; : α \ n角星 內頂角 徑度 的 一半 pi 9 / ; \ 改 9 為 2 即 n邊形 : a 2 pi * n / ; : h a 2 / ; : β \ n 道 光芒 θ a mod h - abs ; \ θ pi / 1 + 2 / : n角星 α sin .4 * α cos β sin * β cos α sin * + / r > ; : 洞 r .2 > ; : 圓 r .11 < ; : 日 n角星 洞 * 圓 + ; : 天 y 0 > y .9 < * x .1 > * x 1 < * ; : 地 1 天 - y abs .9 < * x .1 > * x 2 < * ; : 汪洋大海 0 0 .6 ; \ RGB +了B : 微妙綠光 \ 加 上面 微妙綠光 y y - .1 + + ; \ y相反後就反向 : 綠野能量 \ 加 下面 綠野能量 swap .5 x y + 9 / .5 * + + swap ; : 國旗飄揚 \ 青天白日滿地紅 rot 日 + 地 - rot 地 - rot 天 + ; : 升上桿頭 \ 升上 白色旗桿 rot 桿 + rot 桿 + rot 桿 + ; \ ( 汪洋大海 微妙綠光 綠野能量 國旗飄揚 升上桿頭 \ ) \ )
淺水海域透著微光 Redux
蘇約寧
'25 Jul 10
\ ( I 國旗飄揚 : 桿 x .46 > x .5 < * x .51 - 2 ** y .98 - 2 ** + sqrt .04 < + ; \ ( I2 改 x y 值域 0 到 2 : x x 2 * ; : y y 2.2 * ; \ ) \ ( I3 國旗上下升降 週期 8 秒 : y y t 5 / sin 1 + 2 / - ; \ ) \ ( I4 國旗迎風飄動 : y x 3 / t 6 / pi 6 / mod - pi * 10 * cos 40 / \ 水平波動 y + 1.1 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 2 * ; : y y 2 * 1 - ; \ ) : 左 y 0 > y 1.5 < * x 2 > * x 3.29 < * ; : 中 y 0 > y 1.5 < * x 2.59 > * x 3.29 < * ; : 右 y 0 > y 1.5 < * x 2.59 > * x 4 < * ; : 國旗飄揚 rot 右 + rot 中 + rot 左 + ; : 升上桿頭 \ 升上 白色旗桿 rot 桿 + rot 桿 + rot 桿 + ; 白 藍 紅 國旗飄揚 升上桿頭
法國 Redux
Anonymous
'25 Jul 10
\ 旗桿 : 桿 x 0.49 > x .51 < * x .5 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ 國旗大小 : x x 2 * ; : y y 2 * ; \ 週期 : y y t 8 / sin 1 + 2 / - ; \ 飄動 : y x 3 / t 6 / pi 8 / mod - pi * 10 * cos 40 / y + 1.1 * ; \ 國旗位置 : x x 2 * ; : y y 2 * 1 - ; \ 國旗 : 紅 y -.3 > y .9 < * x 2.07 > * x 4 < * ; : 綠 y -.3 > y .3 < * x 2.07 > * x 4 < * ; : 藍 y -.9 > y .3 < * x 2.07 > * x 4 < * ; : 國旗飄揚 rot 紅 + rot 綠 + rot 藍 + ; : 升上桿頭 rot 桿 + rot 桿 + rot 桿 + ; 紅色 綠色 藍色 國旗飄揚 升上桿頭
荷蘭國旗
李宗達
'25 Jul 10
\ 旗桿 : 桿 x 0.49 > x .51 < * x .5 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ 國旗大小 : x x 2 * ; : y y 2 * ; \ 週期 : y y t 0.2 / sin 1 + 2 / - ; \ 飄動 : y x 2 / t 6 / pi 8 / mod - pi * 10 * cos 40 / y + 1.1 * ; \ 國旗位置 : x x 2 * ; : y y 2 * 1 - ; \ 國旗 : 紅 y -.9 > y .9 < * x 2.66 > * x 4 < * ; : 綠 y -.9 > y .9 < * x 2.07 > * x 3.33 < * ; : 藍 y -.9 > y .9 < * x 2.66 > * x 3.33 < * ; : 國旗飄揚 rot 紅 + rot 綠 + rot 藍 + ; : 升上桿頭 rot 桿 + rot 桿 + rot 桿 + ; 紅色 綠色 藍色 國旗飄揚 升上桿頭
義大利國旗
張志宇資工四b
'25 Jul 10
\ 旗桿 : 桿 x 0.49 > x .51 < * x .5 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ 國旗大小 : x x 2 * ; : y y 2 * ; \ 週期 : y y t 8 / sin 1 + 2 / - ; \ 飄動 : y x 4 / t 4 / pi 8 / mod - pi * 10 * cos 60 / y + 1.1 * ; \ 國旗位置 : x x 2 * ; : y y 2 * 1 - ; \ 國旗 : 紅 y -.3 > y .9 < * x 2.07 > * x 4 < * ; : 綠 y -.3 > y .3 < * x 2.07 > * x 4 < * ; : 藍 y -.9 > y .3 < * x 2.07 > * x 4 < * ; : 國旗飄揚 rot 紅 + rot 綠 + rot 藍 + ; : 升上桿頭 rot 桿 + rot 桿 + rot 桿 + ; 紅色 綠色 藍色 國旗飄揚 升上桿頭
荷蘭
葉柏巖
'25 Jul 10
: 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 ; ( 半徑 ) : y1 r theta sin * ; : x1 r theta cos * ; : y y1 t 2 / 10 3 / mod - 15 * cos 50 / x1 + 0.25 + ; : 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.025 > y 0.95 < and and x 0.5 < y 0.5 > y 0.95 < and 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.025 > and and \ 藍
Roc - 極座標（太陽不動）
陳美珊
'25 Jul 10
\ I 國旗飄揚 \ I1 旗桿左右移動 週期 2 秒 : x x t 10 / sin 2 + 8 / - ; \ x是一個變數 : 桿 x 0 > x .02 < and \ 桿子粗細 本來是*改成and x .01 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ ( I2 改 x y 值域 0 到 2 : x x 2 * ; : y y 2 * ; \ ) \ ( I3 國旗上下升降 週期 1 秒 : y y t 1 / cos 1 + 2 / - ; \ ) \ ( I4 國旗迎風飄動 : y x 3 / t 6 / pi 8 / \ 波浪會變 5:波型 6:速度 mod - pi * 10 * cos 40 / \ 水平波動 dy y + 1.1 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 4 * ; : y y 4 * 1 - ; \ ) : r \ 日心 到 x,y 距離 x .5 - 2 ** y .5 - 2 ** + sqrt ; : θ \ 日心 到 x,y 角 徑度 x .5 - y .5 - atan2 ; : n 2 ; : α \ n角星 內頂角 徑度 的 一半 pi 9 / ; \ 改 9 為 2 即 n邊形 : a 2 pi * n / ; : h a 2 / ; : β \ n 道 光芒 θ a mod h - abs ; \ θ pi / 1 + 2 / : n角星 α sin .4 * α cos β sin * β cos α sin * + / r > ; : 洞 r .2 > ; : 圓 r .11 < ; : 日 n角星 洞 * 圓 + ; : 天 y 0 > y .9 < * x .1 > * x 1 < * ; : 地 1 天 - y abs .9 < * x .1 > * x 2 < * ; : 汪洋大海 0 0 .6 ; \ RGB +了B : 微妙綠光 \ 加 上面 微妙綠光 y y - .1 + + ; \ y相反後就反向 : 綠野能量 \ 加 下面 綠野能量 swap .5 x y + 9 / .5 * + + swap ; : 國旗飄揚 \ 青天白日滿地紅 rot 日 + 地 - rot 地 - rot 天 + ; : 升上桿頭 \ 升上 白色旗桿 rot 桿 + rot 桿 + rot 桿 + ; \ ( 汪洋大海 微妙綠光 綠野能量 國旗飄揚 升上桿頭 \ ) \ )
淺水海域透著微光
蘇約寧
'25 Jul 10
\ I 國旗飄揚 \ I1 旗桿左右移動 週期 2 秒 : x x t 10 / sin 2 + 8 / - ; \ x是一個變數 : 桿 x 0 > x .02 < and \ 桿子粗細 本來是*改成and x .01 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ ( I2 改 x y 值域 0 到 2 : x x 2 * ; : y y 2 * ; \ ) \ ( I3 國旗上下升降 週期 1 秒 : y y t 1 / cos 1 + 2 / - ; \ ) \ ( I4 國旗迎風飄動 : y x 3 / t 6 / pi 8 / \ 波浪會變 5:波型 6:速度 mod - pi * 10 * cos 40 / \ 水平波動 dy y + 1.1 * ; \ ) \ ( I5 改值域 x 0 到 4, y -3 到 1 : x x 4 * ; : y y 4 * 1 - ; \ ) : r \ 日心 到 x,y 距離 x .5 - 2 ** y .5 - 2 ** + sqrt ; : θ \ 日心 到 x,y 角 徑度 x .5 - y .5 - atan2 ; : n 2 ; : α \ n角星 內頂角 徑度 的 一半 pi 9 / ; \ 改 9 為 2 即 n邊形 : a 2 pi * n / ; : h a 2 / ; : β \ n 道 光芒 θ a mod h - abs ; \ θ pi / 1 + 2 / : n角星 α sin .4 * α cos β sin * β cos α sin * + / r > ; : 洞 r .2 > ; : 圓 r .1 < ; : 日 n角星 洞 * 圓 + ; : 天 y 0 > y .9 < * x .1 > * x 1 < * ; : 地 1 天 - y abs .9 < * x .1 > * x 2 < * ; : 幽暗大地 0 0 0 ; \ RGB 亮度歸零 : 藍天晨曦 \ 加 右上角 藍天晨曦 y y + .1 + + ; : 綠野山嵐 \ 加 左下角 綠野山嵐 swap .1 x y + 9 / .1 * - + swap ; : 國旗飄揚 \ 青天白日滿地紅 rot 日 + 地 + rot 日 + rot 天 + ; : 升上桿頭 \ 升上 白色旗桿 rot 桿 + rot 桿 + rot 桿 + ; \ ( I6 範例展示 幽暗大地 藍天晨曦 綠野山嵐 國旗飄揚 升上桿頭 \ ) \ )
Uniqlo flag
蘇約寧
'25 Jul 10
\ 旗桿 : 桿 x .1 > x .12 < * x .115 - 2 ** y .98 - 2 ** + sqrt .02 < + ; \ 國旗大小 : x x 2 * ; : y y 2 * ; \ 週期 : y y t 2 / sin 1 + 2 / - ; \ 飄動 : y x 3 / t 5 / pi 8 / mod - pi * 10 * cos 40 / y + 1.1 * ; \ 國旗位置 : x x 8.5 * ; : y y 4 * 3 - ; \ 國旗 : 紅 y -.9 > y .9 < * x 2.66 > * x 4 < * ; : 綠 y -.9 > y .9 < * x 2.07 > * x 3.33 < * ; : 藍 y -.9 > y .9 < * x 2.66 > * x 3.33 < * ; : 國旗飄揚 rot 紅 + rot 綠 + rot 藍 + ; : 升上桿頭 rot 桿 + rot 桿 + rot 桿 + ; 紅色 綠色 藍色 國旗飄揚 升上桿頭
義大利
官振任
'25 Jul 10
\ 旗桿 : 桿 x 0.48 > x .51 < * x .499 - 2 ** y .98 - 2 ** + sqrt .04 < + ; \ 國旗大小 : x x 2 * ; : y y 2 * ; \ 週期 : y y t 5 / sin 1 + 2 / - ; \ 飄動 : y x 5 / t 6 / pi 8 / mod - pi * 10 * cos 40 / y + 1.1 * ; \ 國旗位置 : x x 2 * ; : y y 2 * 1 - ; \ 國旗 : 紅 y -.33 > y .975 < * x 2.05 > * x 4 < * ; : 綠 y -.33 > y .33 < * x 2.05 > * x 4 < * ; : 藍 y -.975 > y .33 < * x 2.05 > * x 4 < * ; : 國旗飄揚 rot 紅 + rot 綠 + rot 藍 + ; : 升上桿頭 rot 桿 + rot 桿 + rot 桿 + ; 紅色 綠色 藍色 國旗飄揚 升上桿頭
荷蘭國旗
陳睿穎
'25 Jul 10
Next