Haiku Gallery
: x x 0.5 - ; : y y 0.5 - ; 3 x x * y y * + sqrt 8 * y x atan2 t - 4 * abs 2 pi * mod pi - - dup sqrt 2dup + 0.9 *
風扇
黃士哲
'25 Feb 07
y .5 > 10 and x x 4 + y 0.6 - atan2 t 6 / 1 mod pi * - * pi * floor 6 / dup floor - dup 5
窗簾
孫康瑄
'25 Feb 07
: s * tan * ; 2 x 13 s y 13 s t 2 s dup t 1 s dup t 2 s
霓虹燈
chi
'25 Feb 07
: q .5 - 4 * dup 2 mod * ; x q y q + t sin - 2 mod dup .8** 7.
Untitled
賴鈺婷
'25 Feb 07
: nx x 20 * floor ; : ny y 20 * floor ; : n nx 2 pow ny sqrt + t + ; 0 n sin 0
駭客任務
葛達文
'25 Feb 07
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux Redux
Anonymous
'25 Feb 07
( color scheme: QuickBasic and MSX2 memories ) 0 5 x .5 - 20 ** y .5 - 20 ** + .05 ** rot -dup / t dup floor - pi * 2 * + sin over 9 * 4 ** ** swap .1 max .1 - * 5 * 1 min .9
Square Tunnel Redux
Anonymous
'25 Feb 07
: s * sin * ; 1 x 9.4 s y 9.4 s t 4 s dup t 2 s dup t 3 s
Untitled
Anonymous
'25 Feb 07
t cos x - trail t y + trail
some log shit Redux
Anonymous
'25 Feb 07
: k t sin 1 + 2 * random + ; : mx x random / ; : my y 0.5 - k * ; mx mx * my log + 0.0001 <
Untitled
Anonymous
'25 Feb 07
: t^2 dup * y - abs 0.1 < ;
Untitled
Anonymous
'25 Feb 07
: x x t - 1.41 mod ; : 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
Jumping Mario Redux
Anonymous
'25 Feb 07
: t^2 dup * y - abs 0.1 - ; x y x t^2 x t + sin
消失的漸層
資傳4A 410127395 鐘韋翔
'25 Feb 07
x 0.7 y 1.5 x .5 - y .1 - atan2 t sin / cos mod pi * + * pi * floor 5 / dup floor -
小花盛開
陳柏宇
'25 Feb 07
: y x t 2 / 21 15 / mod - 5 * 0.1 cos / y + 0.5 - ; : i 2dup t * log ; x 0.655 y 0.9 + abs -5 pow .9 rot
漸層1
許襄鈴
'25 Feb 07
: y x t 2 / 18 15 / mod - 5 * 0.1 cos / y + 0.5 - ; : i 2dup t * log ; x 0.8 y 0.9 + abs -5 pow .9.8 rot
漸層
許襄鈴
'25 Feb 07
: x x t 2 / 18 15 / mod - 5 * 0.1 cos / y + 0.5 - ; : i 2dup t * log ; x 0.655 y 0.9 + abs -+5 pow .9 rot
Untitled
Anonymous
'25 Feb 07
n 12 ; : r .4 ;
Untitled
Anonymous
'25 Feb 07
: i 2dup z* log ; x 0.5 + y 0.5 + i i i i log sin 2 / 0.5 +
百花盛開
陳亭如
'25 Feb 07
x .5 - y .5 - atan2 t 1 / 1 mod 1 + * 750 * dup 1 - cos over cos rot 7 + cos
The Time Tunnel
駱晟堯
'25 Feb 07
: sine push x * t pop * + sin y 0.5 - 4 * - 0.3 ** 1 swap - ; : y y .5 - 6 * t .2 * cos + ; 7.5 5 * pi * pi sine t 7 * cos .5 * + r - ( R G B ) 5.9 5 * pi sine t 3 * cos .5 * + r - ( R G B ) 8.5 5 * pi sine t 5 * cos .5 * + r - ( R G B )
霓虹
蘇暐筑
'25 Feb 07
x 3.5 * sin y 4.5 - 5.1 * sin + t sin - 2 .8 f - abs 1 - 10 - negate abs -5 pow .9 rot
即興創作
Anonymous
'25 Feb 07
( f = sin[x/|y| — y/|x|] ) : k 20 ; : x' x .7 - k / ; : y' y .7 - k / ; : part ( x y - f ) abs / 9 pow ; : f ( k - q ) x' y' part y' x' part - t cos * * tan ; q 9 dup f t 8 mod f
Ummmmm
陳申瑞
'25 Feb 07
: n 12 ; : r .4 ; : 2pi 2 pi * ; \ get center as pos : xo .5 ; : yo .5 ; : o xo yo ; \ distance from pos to x,y : d ( pos -- r ) y - 2 ** swap x - 2 ** + sqrt ; \ angle from pos to x,y : a ( pos -- a ) y swap - swap x swap - atan2 2pi / 1 mod ; : 摺 ( v n -- 摺 ) * 1 mod ; \ divide v as n level : level ( v n -- level ) dup push * dup 1 mod - pop / ; : 頂點方向 ( n -- ) push o a .5 r@ / + pop level ; : 頂點位置 ( n -- ) 頂點方向 2pi * dup cos r * xo + swap sin r * yo + ; : 頂點畫圓 頂點位置 d .05 < ; n 頂點畫圓 o a .5 n / + n 摺 n 3 / 頂點畫圓 + dup o d dup .5 < over .2 > * swap .9 * +
和風劍道
陳爽
'25 Feb 07
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; : sine r - 0.5 ** 1 swap - swap ; : b x r - y r - swap ; : a x 0.5 - 2 ** y 0.5 - 2 ** + 0.5 t * cos / ; r a - r atan2 r a - tan sine / r a - b sine cos /
Energy
辛建甫
'25 Feb 07
: f x t + 5 * sin x t 5 * * 1 + sin 2 * + y .5 / 5 + 2 * ; .8 f - abs 1 - 10 - negate abs -5 pow .9 rot
電磁波幻象
Justin Chen
'25 Feb 07
\ 幽暗太空 0 \ 繁星點點 x y ** 150 * sin 10 * dup floor - 1000 * 998 - 0 max + \ ) : d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 4 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.5 * - 0.5 + ; : v t 10 + pi 5 * / f ; a j 0.5 b - v d 0.5 < * 5 * m * 0.5 p d * y 0.5 - d * + 50 * 50 ** m - y 0.5 - p atan2 abs t 2 * c 1 * - 15 * m * 0.3 max a 0.5 b - 0 max d p 5 * < * + + x 50
星空
曾文柔
'25 Feb 07
: x x .5 - ; : y y .5 - ; x y t 1 * tan x x y t z* 5 * z* dup >r >r swap / r> r> + 2dup -
change
盧彥如
'25 Feb 07
0 t 51 * sin 600 * + t 17 * cos sin 3000 * + t 3 * sin 100 * + sin audio
Sin Series Audio
DarkstarAG
'25 Feb 07
( PLAY SOUNDS ON ! ) t 1e2 * x .5 - y .5 - * 1e6 * + sin 3.14 * 3 / cos 1 + 2 / 1.3 * .3 -
Muzic of Time
DarkstarAG
'25 Feb 07
( PLAY MUSIC ON ! ) : # ( n freq - d|<none> ) 100 / swap t 4 / 1 mod 16 * floor = * + ; : , r@ swap # r> 1 + >r ; : music 0 0 >r ; : end-music r> drop ; music 70 , 70 , 90 , 95 , 98 , 100 , 100 , 98 , 95 , 96 , 94 , 90 , 80 , 80 , 55 , 25 , 25 , end-music
Muzon Interaface
DarkstarAG
'25 Feb 07
: n 7 ; : r .3 ; : 2pi 2 pi * ; \ get center as pos : xo .5 ; : yo .5 ; : o xo yo ; \ distance from pos to x,y : d ( pos -- r ) y - 2 ** swap x - 2 ** + sqrt ; \ angle from pos to x,y : a ( pos -- a ) y swap - swap x swap - atan2 2pi / 1 mod ; \ make v as n level : level ( v n -- level ) dup push * dup 1 mod - pop / ; : 頂點方向 o a n level .5 n / + ; : 頂點位置 頂點方向 2pi * dup cos r * xo + swap sin r * yo + ; : 頂點畫圓 頂點位置 d .09 < ; 頂點畫圓 o a n level dup o d .5 <
Carousel Redux
陳爽
'25 Feb 07
x 1 < 2 x .5 - y .5 - atan2 t 5 / 10 mod pi * + * pi * floor 5 / dup floor - dup 5
Shining Ruby
WeiMing
'25 Feb 07
: f x t + 16 * sin x t 1 * * .1 + sin 3 * + y .1 / 5 - 2 * ; 0 f - abs 0.01 - 1.4 - negate abs -1.2 pow 0 rot
Alien DNA with Sounds
DarkstarAG
'25 Feb 07
( PLAY MUSIC ON ! ) : # ( n freq - d|<none> ) 100 / swap t 1 / 1 mod 32 * floor = * + ; 0 00 70 # 01 70 # 02 90 # 03 90 # 04 100 # 05 100 # 06 70 # 07 84 # 08 70 # 09 70 # 10 95 # 11 95 # 12 70 # 13 70 # 14 80 # 15 80 # 16 60 # 17 60 # 18 60 # 19 90 # 20 100 # 21 95 # 22 95 # 23 90 # 24 100 # 25 70 # 26 65 # 27 65 # 28 70 # 29 60 # 30 60 # 31 00 # : c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.5 0.4 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0.2 l + 0.5 0.6 -1.57 a + 0.1 l + 0.5 0.6 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + dup 0 swap 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.2 > * +
Man running with Music
DarkstarAG
'25 Feb 07
( PLAY MUSIC ON ! ) : # ( n freq - d|<none> ) 100 / swap t 1 / 1 mod 32 * floor = * + ; 0 00 70 # 01 70 # 02 90 # 03 90 # 04 100 # 05 100 # 06 70 # 07 84 # 08 70 # 09 70 # 10 95 # 11 95 # 12 70 # 13 70 # 14 80 # 15 80 # 16 60 # 17 60 # 18 60 # 19 90 # 20 100 # 21 95 # 22 95 # 23 90 # 24 100 # 25 70 # 26 65 # 27 65 # 28 70 # 29 60 # 30 60 # 31 00 #
Muzon 2
DarkstarAG
'25 Feb 07
( PLAY MUSIC ON ! ) : # ( n freq - d|<none> ) 100 / swap t 4 / 1 mod 16 * floor = * + ; : 0# 0 # ; : 1# 10 # ; : 2# 20 # ; : 3# 30 # ; : 4# 40 # ; : 5# 50 # ; : 6# 60 # ; : 7# 70 # ; : 8# 80 # ; : 9# 90 # ; : a# 100 # ; 0 00 70 # 01 70 # 02 90 # 03 95 # 04 98 # 05 100 # 06 100 # 07 98 # 08 95 # 09 96 # 10 94 # 11 90 # 12 80 # 13 80 # 14 86 # 15 86 #
Muzon 1
DarkstarAG
'25 Feb 07
7 @ .5 x - - d * 8 @ .5 y - - d * + .00003 < + x y ** 56 * sin 237 * d floor - 1000 * 999 - 0 max + d d
Asteroids Redux
Anonymous
'25 Feb 07
: x0 t cos 5 + 10 / ; : y0 t cos 5 + 10 / ; : a x x0 - y y0 - atan2 ; a tan t sin * x + dup x0 / * x0 * x + dup t cos * x - dup y0 / * y0 * x 1 - + dup t sin * dup * 1 y - +
color Redux
Anonymous
'25 Feb 07
: x0 t y * cos 5 + 10 / ; : y0 t x * cos 5 + 10 / ; : a x x0 - y y0 - atan2 ; a tan t sin * dup x0 / * x0 * x + dup t cos * dup y0 / * y0 * x 1 - + dup t sin * dup * 1 y - +
color
何祥祿
'25 Feb 07
Next