Haiku Gallery

法國國旗 Anonymous
'15 Nov 11

Untitled Anonymous
'15 Nov 11

法國羅詣凱
'15 Nov 11

德國 Redux Redux 陳奕亨
'15 Nov 11

荷蘭國旗 Redux Anonymous
'15 Nov 11

\  改自陳爽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 桿 + ;
\ ( 
汪洋大海
微妙綠光
綠野能量
國旗飄揚
升上桿頭 \ )
\ )

眼睛國旗在淺水海域透著微光 約寧
'15 Nov 11

德國 Redux 陳奕亨
'15 Nov 11

德國 Redux Anonymous
'15 Nov 11

德國國旗 Redux Anonymous
'15 Nov 11

\  改自陳爽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 桿 + ;
\ ( 
汪洋大海
微妙綠光
綠野能量
國旗飄揚
升上桿頭 \ )
\ )

淺水海域透著微綠光 蘇約寧
'15 Nov 11

法國林鉅堯
'15 Nov 11

比利時國旗！ 張志宇資工四b
'15 Nov 11

\  改自陳爽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 蘇約寧
'15 Nov 11

法國 Redux Anonymous
'15 Nov 11

荷蘭國旗 李宗達
'15 Nov 11

義大利國旗 張志宇資工四b
'15 Nov 11

荷蘭葉柏巖
'15 Nov 11

Roc - 極座標（太陽不動） 陳美珊
'15 Nov 11

\  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 桿 + ;
\ ( 
汪洋大海
微妙綠光
綠野能量
國旗飄揚
升上桿頭 \ )
\ )

淺水海域透著微光 蘇約寧
'15 Nov 11

\  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 蘇約寧
'15 Nov 11

義大利 官振任
'15 Nov 11

荷蘭國旗 陳睿穎
'15 Nov 11

荷蘭國旗 吳程榆
'15 Nov 11

韓培倫 Redux Anonymous
'15 Nov 11

國旗周律慈
'15 Nov 11

韓培倫 韓培倫
'15 Nov 11

荷蘭國旗 李亞芸
'15 Nov 11

德國蔡宛渝
'15 Nov 11

德國國旗 李亞芸
'15 Nov 11

\ ( 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 ~ 陳佳騰
'15 Nov 11

\ ( 參考用
\ ( 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高名誼
'15 Nov 11

Untitled 潘家瑜
'15 Nov 11

俄羅斯 葛達文
'15 Nov 11

義大利國旗 許齊文
'15 Nov 11

泰國國旗飄動 楊仁宗
'15 Nov 11

Sierra 國旗 吳采霖33
'15 Nov 11

荷蘭陳婕妤
'15 Nov 11

Haiku Gallery

Next