Haiku Gallery
x 50.4 * sin y 9.4 * sin t 4 * sin * * dup t 4 * sin * dup t 3 * sin *
Untitled
吳程榆
'25 May 08
: q dup * ; : d2 q swap q + ; : acos dup q .75 - negate sqrt swap .5 + atan2 4 * ; : r 0.45 ; : r2 r q ; : tl 1.43 t sin 6 / + ; : ' 0.5 - ; : 's ' tl cos * ; : 'c ' tl sin * ; : x' x 'c y 's - ; : y' y 'c x 's + ; : l2 x ' y ' d2 ; : in? l2 r2 < ; : z r2 l2 - sqrt ; : th y' acos 2.5 * pi / ; : ph z x' atan2 pi / t 7 / + ; : txtr 25 25 z* cos >r cos r> < ; z in? * 1.75 * ph th txtr over dup
rotateball
許齊文
'25 May 08
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 v h n m u j i 0 1 1 1 1 1 1 1 8 9 10 11 12 13 14 ) x 7 * button y * x 7 * 1 mod y 8* 7 + 90 mod
按鍵互動
sammy
'25 May 08
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 v h n m u j i 0 1 1 1 1 1 1 1 8 9 10 11 12 13 14 ) x 7 * button y * x 7 * 1 mod y 8* 7 + 90 mod
按鍵互動
sammy
'25 May 08
: s * sin * ; 10 x 1 s \ 直排 y 1 s \ 橫排 t 2 s dup t 1 s \ 變換速度 dup t 50 s
煙火2
羅中瑋
'25 May 08
: x0 t cos 5 + 5 / ; : y0 t cos 3 - 5 / ; : a x x0 - y y0 - atan2 ; : x a t + x + ; : y a t + y + ; : club a x sin 10 * floor 2 mod + a y cos 10 * floor 2 mod + * ; club club + club + a + dup a + dup a +
color club Redux
Anonymous
'25 May 08
: m .8 - +5 / ; .3 x m pi * t 2 / + cos y m + t 2 * + cos .6 * + .6 y m pi / t 4 / + tan x m + t 9 - - tan .2 * + - dup negate log dup 4 ** 10 / swap negate
彩虹跳躍
蔡宛渝
'25 May 08
x 20 * sin y 20 * sin t 9 * sin * * dup t 10 * sin * dup t 12 * sin *
high
余柏翰
'25 May 08
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 q a w s e d r f 1 1 1 1 1 1 1 1 1 2 3 4 5 6 7 8 ) x 7 * button y * x 7 * 1 mod y 8* 7 + 90 mod
按鍵互動
sammy
'25 May 08
: d dup ; : ' .1 + ; : r x ' d * y ' d * - sqrt ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 - sqrt ; : z r 80 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .15 * .85 + .4 r 40 * cos 1 - 6 / + m + - 2 sin - cos 8 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
百葉
資傳四B高名誼
'25 May 08
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 a b c d e f g h 0 0 0 0 0 0 0 0 8 7 6 5 4 3 2 1 ) x 7 * button y * x 7 * 1 mod y 8* 7 + 90 mod
按鍵互動
Anonymous
'25 May 08
: 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 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
Signs of life Redux
Anonymous
'25 May 08
x 30 * cos random + y 30 * tan random + 100 mod + t 25 mod + dup sin t *
金鱗
資傳四B高名誼
'25 May 08
: s * sin * ; 10 x 1 s \ 直排 y 1 s \ 橫排 t 0.5 s dup t 2 s \ 變換速度 dup t 50 s
煙火
410227878 資傳三B 羅中瑋
'25 May 08
x t + y mod dup : trail t 1 * x + + sin y 2 * 1 - - abs 1 swap - ; t sin y trail y x + trail mod
Rainbowtrail
林鉅堯
'25 May 08
: coloring ( 0-7 ) dup 2 mod 1 > swap dup 4 mod 2 > swap 4 > ; x y + t + 8 * 8 mod coloring
七彩霓虹燈
chiayu
'25 May 08
: x0 t cos 5 + 5 / ; : y0 t cos 3 - 5 / ; : a x x0 - y y0 - atan2 ; : x a t + x + ; : y a t + y + ; : club a x 10 * floor 2.5 mod + a y 10 * floor 2 mod + * ; club club + club + a + dup a + a + dup a + a + a +
color club
Anonymous
'25 May 08
: z t 1 + sin 3 + 3 / * ; : a 1.0 x .5 - y .5 - atan2 t ; : b * dup cos swap 2 / t 9 * + cos t 3 / sin 2 / 1 + * - 30 / x .5 - z 2 ** y .5 - z 2 ** + + - 4 ** ; a 1.7 / + 10 b t sin 5 + 5 / + a 1.9 / - 8 b a 2.1 / - 6 b t 2.7 * sin 1 + 10 / +
Untitled
吳厚靖
'25 May 08
: size 11 ; : box 2 mod ; : tile size * floor box ; x tile y tile + box dup dup
white black box
資傳三B 410227593 林冠儒
'25 May 08
: size 11 ; : box 2 mod ; : tile size * floor box ; x tile y tile + box dup dup
white black box
資傳三B 410227593
'25 May 08
: hair dup 2 mod 1 > swap dup 3 mod 1 > swap 5 > ; x y + t + 5 * 4 mod hair
牙買加
chiayu
'25 May 08
: bar + sin + ; : barx x bar ; : bary y bar ; : foo t sin 35 barx 20 bary 20 barx t sin 35 bary 20 barx 20 bary * atan2 60 * cos ; 1 foo 1 foo 6 foo
circle circle
吳采霖014
'25 May 08
x 2 * tan y 2 * sin t 9 * sin * * dup t 8 * sin *
霓虹燈
李亞芸
'25 May 08
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 May 08
: 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 May 08
: 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 May 08
: s * tan * ; 3 x 10.35 s y 10.8 s t 3 s dup t 11 s dup t 8 s
Untitled
陳庭誼
'25 May 08
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 May 08
: q .4 - 5 * dup 1 mod * ; x q y q + t sin - 1 mod dup .3 * .5
魔幻舞台
李柏賢
'25 May 08
: q .4 - 5 * dup 1 mod * ; x q y q + t sin - 1 mod dup .3 * .5
warpspeed Redux
Anonymous
'25 May 08
🎥 ▶ * 👎 👍 : s * cos * ; 3 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled
Anonymous
'25 May 08
: 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 May 08
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 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 May 08
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 May 08
: ' 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 May 08
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 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 May 08
: ' 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 May 08
: 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 May 08
: 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 May 08
: s * tan * ; 5 x 35 s y 40 s t 10 s dup t 15 s dup t 15 s
轉吧！轉吧！
資工四B 詹阡佑
'25 May 08
Next