Haiku Gallery

法國國旗 羅詣凱
'25 Jul 09

法國國旗 Anonymous
'25 Jul 09

Untitled Anonymous
'25 Jul 09

法國羅詣凱
'25 Jul 09

德國 Redux Redux 陳奕亨
'25 Jul 09

荷蘭國旗 Redux Anonymous
'25 Jul 09

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

德國 Redux 陳奕亨
'25 Jul 09

德國 Redux Anonymous
'25 Jul 09

德國國旗 Redux Anonymous
'25 Jul 09

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

法國林鉅堯
'25 Jul 09

比利時國旗！ 張志宇資工四b
'25 Jul 09

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

法國 Redux Anonymous
'25 Jul 09

荷蘭國旗 李宗達
'25 Jul 09

義大利國旗 張志宇資工四b
'25 Jul 09

荷蘭葉柏巖
'25 Jul 09

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

\  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 09

\  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 09

義大利 官振任
'25 Jul 09

荷蘭國旗 陳睿穎
'25 Jul 09

荷蘭國旗 吳程榆
'25 Jul 09

韓培倫 Redux Anonymous
'25 Jul 09

國旗周律慈
'25 Jul 09

韓培倫 韓培倫
'25 Jul 09

荷蘭國旗 李亞芸
'25 Jul 09

德國蔡宛渝
'25 Jul 09

德國國旗 李亞芸
'25 Jul 09

\ ( 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 Jul 09

\ ( 參考用
\ ( 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 Jul 09

Untitled 潘家瑜
'25 Jul 09

俄羅斯 葛達文
'25 Jul 09

義大利國旗 許齊文
'25 Jul 09

泰國國旗飄動 楊仁宗
'25 Jul 09

Sierra 國旗 吳采霖33
'25 Jul 09

Haiku Gallery

Next