Haiku Gallery

荷蘭陳婕妤
'24 Nov 25

羅馬尼亞國旗 許襄鈴
'24 Nov 25

法國國旗 陳怡潔
'24 Nov 25

荷蘭國旗 黃承皓
'24 Nov 25

荷蘭國旗 Anonymous
'24 Nov 25

比利時 周芷璇
'24 Nov 25

\ ( 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 蘇暐筑
'24 Nov 25

\ ( 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
'24 Nov 25

Untitled 陳婕妤
'24 Nov 25

Mouse Test BradN
'24 Nov 25

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

荷蘭國旗 許襄鈴
'24 Nov 25

法國林鉅堯410126747
'24 Nov 25

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

芬蘭國旗 Redux Redux 改 Anonymous
'24 Nov 25

\ 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 修正 何祥祿
'24 Nov 25

\ 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  -  - 桿 y 0.9 < and + roc + \ 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 何祥祿
'24 Nov 25

方塊與平台 沈富權
'24 Nov 25

笑臉沈富權
'24 Nov 25

Uniqlo flag Wonder
'24 Nov 25

挪威 Redux new 盧彥如
'24 Nov 25

Moving flame BradN
'24 Nov 25

Not works in FF ! DarkstarAG
'24 Nov 25

Moving sparkle Anonymous
'24 Nov 25

Moving rectangle wiggle BradN
'24 Nov 25

Moving rectangle Vort
'24 Nov 25

Color sliders BradN
'24 Nov 25

4spire round buttons Anonymous
'24 Nov 25

a cross shield Justin Chen
'24 Nov 25

填充流動 Justin Chen
'24 Nov 25

4spire round Redux 陳爽
'24 Nov 25

盛裝朝服 陳爽
'24 Nov 25

富貴廳堂 陳爽
'24 Nov 25

Disco Rotation Redux Ricky Lai
'24 Nov 25

PONG game Rotation Redux Ricky Lai
'24 Nov 25

Rotating sphere Redux Ricky Lai
'24 Nov 25

PACMAN Rotation Redux Ricky Lai
'24 Nov 25

太極 Tai Chi - Rotation Redux Ricky Lai
'24 Nov 25

Haiku Gallery

Next