Haiku Gallery

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

荷蘭葉柏巖
'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

玻利維亞國旗(上升) 陳亭瑄
'15 Nov 11

羅馬尼亞國旗 許襄鈴
'15 Nov 11

法國國旗 陳怡潔
'15 Nov 11

荷蘭國旗 黃承皓
'15 Nov 11

荷蘭國旗 Anonymous
'15 Nov 11

比利時 周芷璇
'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 蘇暐筑
'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 Anonymous
'15 Nov 11

Untitled 陳婕妤
'15 Nov 11

Mouse Test BradN
'15 Nov 11

義大利國旗飄揚升上桿頭 資工4A 官振任
'15 Nov 11

荷蘭國旗 許襄鈴
'15 Nov 10

法國林鉅堯410126747
'15 Nov 10

義大利國旗飄揚升上桿頭 Redux 吳修齊
'15 Nov 10

芬蘭國旗 Redux Redux 改 Anonymous
'15 Nov 10

\ ROC 字體
: x0 x .05 - ;
: y0 y .8 - ;

: pc x0 30 t 20 * cos 1 * +  * floor 
dup 2 + 6 / floor - ;
: pr y0 30 t 20 * cos 1 * +  * floor ;
: printrow 2 pc pow / floor 2 mod ;
: data
0 swap
dup 0 = 1885 * 0 z+
dup 1 = 1386 * 0 z+ 
dup 2 = 3150 * 0 z+ 
5 = 29671 * +
8 rot pow / floor 8 mod
;

: roc pr t 3 mod  floor data 
printrow ;

: 震幅 t 2 *  cos 30 *  40  -  ;

: y x t 1.5 / 10.2 3 / mod - 15 * 0.15 cos * cos 震幅 / y + 0.005 + ;
\ ( I1 旗桿左右移動 週期 2 秒
: x x t 2 / sin 2 + 8 / - ; \ )
: 桿 x 0 > x .02 < *
x .01 - 2 ** y .98 - 2 ** +
sqrt .02 < + ; 
\ ( I3 國旗上下升降 週期 8 秒
: y y t 1 / sin 2.5 + 8 / - ; \ )

: x x -.25 t 3.9 / .5 mod + cos  5.5 震幅 0.025 * +  * * ; \ 晃動X縮放

: y y 4 * 1 - ;
: n 12 ; \ number of spikes 
: alpha pi 12  / ; \ half of spike angle
: x0 0.5 ;
: y0 0.5 ;
: r0 .3 ;
: theta x x0 - y y0 - atan2  pi + t 2 / + ;
: r x x0 - dup * y y0 - dup * + sqrt   ;
: beta theta pi n / 2 * mod pi n / - abs ;
: b r0 alpha sin  * alpha cos beta sin * beta cos alpha sin * + / ;
: offset t 0.25 mod  2 +  ;

b r > r .17 > and r .13 < or >r
r@ x 1 > or y 0 < or y 0.9 < and  y -0.9 > x 0 > and x 2 < and and y offset +  2.6 / .3  - x 1 > y 0 < or * - 桿 y 0.9 < and +  \ red
r>  桿  y 0.9 < and  +   \ green
y 0 > x 1 < and y 0.9 < and  y -0.9 > and  x 0 > and x 2 < and 桿 y 0.9 < and  + roc + \ blue

ROC 修正 何祥祿
'15 Nov 10

Haiku Gallery

Next