Haiku Gallery

德國 Redux Redux 陳奕亨
'24 Oct 20

荷蘭國旗 Redux Anonymous
'24 Oct 20

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

眼睛國旗在淺水海域透著微光 約寧
'24 Oct 20

德國 Redux 陳奕亨
'24 Oct 20

德國 Redux Anonymous
'24 Oct 20

德國國旗 Redux Anonymous
'24 Oct 20

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

淺水海域透著微綠光 蘇約寧
'24 Oct 20

法國林鉅堯
'24 Oct 20

比利時國旗！ 張志宇資工四b
'24 Oct 20

\  改自陳爽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 蘇約寧
'24 Oct 20

法國 Redux Anonymous
'24 Oct 20

荷蘭國旗 李宗達
'24 Oct 20

義大利國旗 張志宇資工四b
'24 Oct 20

荷蘭葉柏巖
'24 Oct 20

Roc - 極座標（太陽不動） 陳美珊
'24 Oct 20

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

淺水海域透著微光 蘇約寧
'24 Oct 20

\  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 蘇約寧
'24 Oct 20

義大利 官振任
'24 Oct 20

荷蘭國旗 陳睿穎
'24 Oct 20

荷蘭國旗 吳程榆
'24 Oct 20

韓培倫 Redux Anonymous
'24 Oct 20

國旗周律慈
'24 Oct 20

韓培倫 韓培倫
'24 Oct 20

荷蘭國旗 李亞芸
'24 Oct 20

德國蔡宛渝
'24 Oct 20

德國國旗 李亞芸
'24 Oct 20

\ ( 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 ~ 陳佳騰
'24 Oct 20

\ ( 參考用
\ ( 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高名誼
'24 Oct 20

Untitled 潘家瑜
'24 Oct 20

俄羅斯 葛達文
'24 Oct 20

義大利國旗 許齊文
'24 Oct 20

泰國國旗飄動 楊仁宗
'24 Oct 20

Sierra 國旗 吳采霖33
'24 Oct 20

荷蘭陳婕妤
'24 Oct 20

玻利維亞國旗(上升) 陳亭瑄
'24 Oct 20

羅馬尼亞國旗 許襄鈴
'24 Oct 20

法國國旗 陳怡潔
'24 Oct 20

Haiku Gallery

Next