Haiku Gallery
x 2 * tan y 2 * sin t 9 * sin * * dup t 8 * sin *
霓虹燈
李亞芸
'25 Feb 07
y .2 and x 5 tan * x 4 + y .8 - atan2 t 18 / 1 mod pi * - * pi * pi 10 * tan floor - dup 5 + cos 10
曙光
孫康瑄
'25 Feb 07
: r x 0.5 - dup * y y * + sqrt ; r 0.6 < r 0.5 > r 0.35 < r 0.3 > and or and r 0.55 < r 0.4 > and r 0.45 < r 0.3 > and y t + x 0.9 + mod
彩虹雨 part 2
黃綺萱
'25 Feb 07
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; \ (x - 0.5)^2 + (y - 0.5)^2 : a push push y t pop * sin 0.5 * - y t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; \ -(r * 10)^0.5 - 1 : l y t 3 * sin abs 2 / - 64 * floor = * 2 x .37 - 64 * floor ** floor / 2 mod + ; : my 0 28672 15 l 28672 14 l 24576 13 l 1408 12 l 3536 11 l 15248 10 l 480 9 l 4064 8 l 3 5 l 2311 4 l 2 3 l 1 >= ; : mr 0 992 14 l 8176 13 l 1088 7 l 2176 6 l 3968 5 l 5872 4 l 8176 3 l 8160 2 l 1008 1 l 112 0 l 1 >= ; : mg 0 29296 12 l 29224 11 l 17512 10 l 15896 9 l 4096 8 l 3004 7 l 18302 6 l 16508 5 l 24576 4 l 24584 3 l 24604 2 l 14 1 l 2 0 l 1 >= ; ( www.thesands.ru/forth-demotool ) my mr over + swap mg 4 / + 2dup + 0 = dup -rot 2 / + swap ( R ) 5 1 y t + x 0.2 + mod * sine a sine sine sine ( G ) 5 1 y t + x 0.2 + mod * sine a sine sine sine ( B ) 5 1 y t + x 0.2 + mod * sine a sine sine sine
Signs of life Redux
Anonymous
'25 Feb 07
: s * tan * ; 3 x 10.35 s y 10.8 s t 3 s dup t 11 s dup t 8 s
Untitled
陳庭誼
'25 Feb 07
x t + y mod dup : trail t 4 * x + + sin y 2 * 1 - - abs 1 swap - ; t y + trail t sin x - trail t cos trail mod
Rainbowtrail
林鉅堯
'25 Feb 07
: q .4 - 5 * dup 1 mod * ; x q y q + t sin - 1 mod dup .3 * .5
魔幻舞台
李柏賢
'25 Feb 07
: q .4 - 5 * dup 1 mod * ; x q y q + t sin - 1 mod dup .3 * .5
warpspeed Redux
Anonymous
'25 Feb 07
🎥 ▶ * 👎 👍 : s * cos * ; 3 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled
Anonymous
'25 Feb 07
: k 0.5 - ; : s k dup * ; : dist x s y s + sqrt ; 1 dist cir cir 300 * t 5 * - sin x k y k atan2 dist 15 * sin 1 * + t + 20 * sin 2 * *
漩渦
陳怡潔
'25 Feb 07
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 a b c d e f g h 2 2 2 2 2 2 2 2 8 7 6 5 4 3 2 1 ) x 8 * button y * x 8 * 1 mod x 8* 1 + 5 mod
按鍵互動
sammy
'25 Feb 07
1 y 2 * - x y 1 * 8 ** t 9 / sin * + .5 - abs 2dup > .5 y - * -rot 45 * > 3 1 y 1.8 * - / t 1 mod 6 * + floor 2 mod 10 y 1.8 * - * 4 / * + dup 0 = .5 y - * .75 ** y .5 < * over + over + over 1 x t 9 / cos + +
一路向北~~
410126519_謝鎮宇
'25 Feb 07
: ' 15 * 10 - 2 mod 1 - abs .10 * ; : j 3 / t 2 / 1 mod + 1 mod 6 * 6 - abs 1 - 0 max 1 min .05 x ' y ' + .3 - t * tan abs / * ; 1 j 2 j 3 j
萬花筒
410126315 連子懿
'25 Feb 07
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 q a w s e d r f c v h n m u j i k o l p ; [ ' 1 1 1 1 1 1 1 1 1 1 1 1 2 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 ) x 23 * button y * x 23 * 1 mod x 23 * 1 + 5 mod
按鍵互動 Redux
Anonymous
'25 Feb 07
: ' 15 * 10 - 2 mod 1 - abs .10 * ; : j 3 / t 2 / 1 mod + 1 mod 6 * 6 - abs 1 - 0 max 1 min .05 x ' y ' + .3 - t * tan abs / * ; 1 j 2 j 3 j
萬花筒 410126315
連子懿
'25 Feb 07
: l 2dup z* .019 t 6 + tan * .6328 z+ ; : f l l l l l l l l l l ; y .4 - .5 x - f f f f f f -5 rot / .2 max abs .6 * 52dupn**
吞噬
賴燕廷
'25 Feb 07
: r x 0.5 - dup * y y * + sqrt ; r 0.6 < r 0.5 > and r 0.55 < r 0.4 > and r 0.45 < r 0.35 > and y t + x 0.9 + mod
彩虹雨 part 3
黃綺萱
'25 Feb 07
: s * tan * ; 5 x 35 s y 40 s t 10 s dup t 15 s dup t 15 s
轉吧！轉吧！
資工四B 詹阡佑
'25 Feb 07
x mx - y my - t 50 * cos x z* x mx - y my - t 30 * sin y z* z* 2dup >2.0r >2.0r swap / r> r> + 2dup - rot
Rainbow Tentacle Redux
Anonymous
'25 Feb 07
: k 0.5 - ; : s k dup* ; 20 dist sqrt sqrt sqrt sqrt 200 * t 1 * - sin x k y k atan2 dist 20 * sin 0.3 * + t + 12 * sin 12 * *
光芒萬丈
陳怡潔
'25 Feb 07
: t t 0.1 / ; : x x .5 - ; : y y .5 - ; : r x 2 ** y 2 ** + sqrt ; : a y x atan2 ; : 反 1 swap - ; : 暈 sqrt 反 ; : 板 .2 < 反 ; : 線 abs .1 < ; : 圈 push b * t + sin r .35 - pop 100 / / - ; 1 6 圈 線 3 3 圈 暈 4 7 圈 板 4 9 圈 暈 + r .25 - .1 ** r .5 < *
drop the bass
魏朋宥
'25 Feb 07
: x x .5 - ; : y 0 y .5 - - ; 1 .200 x x * y y * + log 5 * t 3 * + cos x y atan2 1 * t 6 * - sin - abs / - dup dup
Sentimental Rose
李佩甄
'25 Feb 07
: r dup y 100 / * t - tan swap x - tan * 3 mod ; 50 r 30 r dup 12 r *
逆光
李弘韻
'25 Feb 07
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; \ (x - 0.5)^2 + (y - 0.5)^2 : a push push y t pop * sin 0.5 * - y t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; \ -(r * 10)^0.5 - 1 ( R ) 5 1 y t + x 0.2 + mod * sine a sine sine sine ( G ) 5 1 y t + x 0.2 + mod * sine a sine sine sine ( B ) 5 1 y t + x 0.2 + mod * sine a sine sine sine
Signs of life
410228010 李宗達
'25 Feb 07
: i 2dup z* log ; x 0.5 + y 0.5 + i i i i log x y t - cos sin 2 / 0.5 +
百花盛開 Redux
陳亭如
'25 Feb 07
: x x .5 - 4 * ; : y y .6 - 4 * ; : dot dup * swap dup * + ; : l dup +0.0001 * r> r> 2dup * 2 * x - >r 2dup z* drop y + r> 2dup >r >r dot + abs rot min swap rot over 1 - t * r> r> 2dup >r >r rot dup tan -1 * swap sin -1 * z+ dot min -rot 0.4 + ; y x >r >r 2 1 1 l l l l l l l l l l l drop log 10 / negate swap log 10 / negate dup >r 1 * 0.1 ** + r> r> r> drop drop
橘色油漆流動(改)
資工四B陳禮弘
'25 Feb 07
: x x .5 - 4 * ; : y y .6 - 4 * ; : dot dup * swap dup * + ; : l dup +0.0001 * r> r> 2dup * 2 * x - >r 2dup z* drop y + r> 2dup >r >r dot + abs rot min swap rot over 1 - t * r> r> 2dup >r >r rot dup tan -1 * swap sin -1 * z+ dot min -rot 0.4 + ; y x >r >r 2 1 1 l l l l l l l l l l l drop log 10 / negate swap log 10 / negate dup >r 1 * 0.1 ** + r> r> r> drop drop (From Emerald Necklace - Manwe)
橘色油漆流動(改)
資工四B 410126242 陳禮弘
'25 Feb 07
: q .0 - 5 * dup 5 mod * ; x q y q + t cos - 5 mod dup .5 ** .2
年輪
周芷璇
'25 Feb 07
0 0.8 1 y t + x 1.5 + mod - : trail t 3 * x + + sin y 0.5 * 0.5 - - abs 1.2 swap - ; 0 trail
極光&流星
資工四A黃崇恩
'25 Feb 07
: x' x cos 0.35 - t tan 0.35 * * ; : y' y sin 0.45 - t tan 0.25 * + ; : dist x' x' * y' y' * + sqrt ; : ata x' y' atan2 ; : a dup rot swap / -rot * + 6 mod ; \ * 圓的距離變化 : b dup ata 30 dist / rot a + ; \ * 圓的收回：5/5 +(ata+(150/dist)/5)%5 1 0.05 5 b 10 b 20 b + + 0.35 * dist * * - 1 0.5 6 b 8 b 15 b + + 5 / dist * * - 1 0.035 4 b 9 b 15 b + + 3 / dist * * -
Touch
陳美珊
'25 Feb 07
: sine push x * t pop * + cos y 0.5 - 4 * - 1 ** 0.5 swap - ; 6.5 5 * pi * pi sine t 7 * cos .0 * + r - ( R G B ) 7.5 5 * pi sine
心電圖
資工四B張志宇
'25 Feb 07
x mx - y my - t 5 * sin x z* x mx - y my - t 3 * cos y z* z* 2dup >r >r swap / r> r> + 2dup - //-rot
Rainbow Tentacle Redux
Anonymous
'25 Feb 07
: web push push y 0.75 + y 0.3 + * pop * cos 0 max y 0.3 + x 0.5 + * pop * cos 0 max - ; 255 23 web 17 17 10 * web * x + 0.723 0.5 x t + y 20 + mod 1 -
Space
Tsai s1022769
'25 Feb 07
x 6 * tan y 6 * tan t 3 * cos dup floor - pi * 2 * * * dup t 0.5 * cos * dup t 0.5 * tan *
萬花筒(?!)
楊馨茹
'25 Feb 07
a push push dup : r x 0.5 - 2 ** y 0.5 - 2 ** + ; : sine r 10 * - 0.5 ** 1 swap - ; 🎥 ▶ * 👎 👍 : r x 0.5 - 2 ** y 0.5 - 2 ** + ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine
Untitled
Anonymous
'25 Feb 07
: s * sin * ; 3 x 28.35 s y 37.8 s t 5 s dup t 11 s dup t 8 s
Untitled
徐意如
'25 Feb 07
15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.2 > * +
Untitled
Anonymous
'25 Feb 07
: d dup ; 0 x y ** 0.3 t + * tan 10 * dup floor - 1000 * 998 - 0 max 0.5 d p 5 * < * + x 50
流星雨
曾文柔
'25 Feb 07
: r x .5 - dup * y .0 - dup * + sqrt ; : f r dup >r 20 * + sin -1 * r> dup 0.4 > swap .7 < and * ; 5 f 0 f 1 f t sin 5 / 0.9 + y t + x 0.2 + mod -
彩虹雨
黃綺萱
'25 Feb 07
: a x .5 - y .5 - atan2 ; : aa x .5 - 2 * 2 ** y .5 - 50 * 2 ** + .3 ** 1 - negate ; : bb a 6 * t 4 * pi * 2 * + sin 1 + 3 ** ; ( r ) aa bb 1 * * ( g ) bb 5 / aa + ( b ) bb 1 / aa 2 * + 1 - abs 1 + 1 swap /
光束旋轉
資傳三B 410227674 羅玉慈
'25 Feb 07
Next