Haiku Gallery

法國林鉅堯
'25 Feb 08

比利時國旗！ 張志宇資工四b
'25 Feb 08

\  改自陳爽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 Feb 08

法國 Redux Anonymous
'25 Feb 08

荷蘭國旗 李宗達
'25 Feb 08

義大利國旗 張志宇資工四b
'25 Feb 08

荷蘭葉柏巖
'25 Feb 08

Roc - 極座標（太陽不動） 陳美珊
'25 Feb 08

\  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 Feb 08

\  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 Feb 08

義大利 官振任
'25 Feb 08

荷蘭國旗 陳睿穎
'25 Feb 08

荷蘭國旗 吳程榆
'25 Feb 08

韓培倫 Redux Anonymous
'25 Feb 08

國旗周律慈
'25 Feb 08

韓培倫 韓培倫
'25 Feb 08

荷蘭國旗 李亞芸
'25 Feb 08

德國蔡宛渝
'25 Feb 08

德國國旗 李亞芸
'25 Feb 08

\ ( I 國旗飄揚
: x x  .2 - ; 
: 桿 x 0 > x .03 < *
  x .018 - 2.3 ** y .97 - 2.3 ** +
  sqrt .02 < + ; 
\ ( I2 改 x y 值域 0 到 2
: x x 1.5 * 0.01 + ; : y y 1.5 * 0.48 + ; \ )
\ ( I3 國旗上下升降 週期 8 秒
: y y t 6 / sin 1 + 2 / - ; \ )
\ ( I4 國旗迎風飄動
: y  x 4 /  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  t * 5 * cos 50 + - abs ;
\ θ pi / 1 + 2 /
: n角星 α sin .3 *
  α cos β sin *  β cos α sin * +
  / r > ;
: 洞 r .17  > ; : 圓 r .15 < ;
: 日
  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 範例展示
  幽暗大地
  藍天晨曦
  綠野山嵐
  國旗飄揚
  升上桿頭 \ )
\ )

國旗飄揚升上桿頭 Shine ~ 陳佳騰
'25 Feb 08

\ ( 參考用
\ ( I 國旗飄揚
\ ( I1 旗桿左右移動 週期 2 秒
: x x t 2 / tan 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 5 / 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.5 **
y .5 - 2.5 ** + 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 .2 *
α cos β sin * β cos α sin * +
/ r > ;
: 洞 r .12 > ; : 圓 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 範例展示
幽暗大地
藍天晨曦
綠野山嵐
國旗飄揚
升上桿頭 \ )
\ )

中華民國 Redux 資傳四B高名誼
'25 Feb 08

Untitled 潘家瑜
'25 Feb 08

俄羅斯 葛達文
'25 Feb 08

義大利國旗 許齊文
'25 Feb 08

泰國國旗飄動 楊仁宗
'25 Feb 08

Sierra 國旗 吳采霖33
'25 Feb 08

荷蘭陳婕妤
'25 Feb 08

玻利維亞國旗(上升) 陳亭瑄
'25 Feb 08

羅馬尼亞國旗 許襄鈴
'25 Feb 08

法國國旗 陳怡潔
'25 Feb 08

荷蘭國旗 黃承皓
'25 Feb 08

荷蘭國旗 Anonymous
'25 Feb 08

比利時 周芷璇
'25 Feb 08

\ ( I 國旗飄揚
\ ( I1 旗桿左右移動 週期 2 秒
: x x t 2 / tan 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 5 / 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.5 **
  y .5 - 2.5 ** + 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 .2 *
  α cos β sin *  β cos α sin * +
  / r > ;
: 洞 r .12 > ; : 圓 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 範例展示
  幽暗大地
  藍天晨曦
  綠野山嵐
  國旗飄揚
  升上桿頭 \ )
\ )

國旗飄揚升上桿頭 Redux 蘇暐筑
'25 Feb 08

\ ( I 國旗飄揚
\ ( I1 旗桿左右移動 週期 2 秒
: x x t 2 / tan 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 5 / 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.5 **
  y .5 - 2.5 ** + 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 .2 *
  α cos β sin *  β cos α sin * +
  / r > ;
: 洞 r .12 > ; : 圓 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 範例展示
  幽暗大地
  藍天晨曦
  綠野山嵐
  國旗飄揚
  升上桿頭 \ )
\ )

國旗飄揚升上桿頭 Redux Anonymous
'25 Feb 08

Untitled 陳婕妤
'25 Feb 08

Mouse Test BradN
'25 Feb 08

義大利國旗飄揚升上桿頭 資工4A 官振任
'25 Feb 08

Haiku Gallery

Next