Haiku Gallery
: s * cos * ; 3 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * cos * ; 10 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * cos * ; 0.5 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * cos * ; 0 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * cos * ; 3 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * cos * ; 1 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 6 s y 6 s t 1 s dup t 10 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 6 s y 6 s t 8 s dup t 10 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 6 s y 6 s t 4 s dup t 10 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 6 s y 6 s t 4 s dup t 2 s dup t 3 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 3 s y 3 s t 4 s dup t 2 s dup t 3 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 5 s y 9 s t 4 s dup t 2 s dup t 3 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 2 s y 9.4 s t 4 s dup t 2 s dup t 3 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 2 s y 2 s t 4 s dup t 2 s dup t 3 s
Untitled Redux
Anonymous
'25 May 15
: d dup ; : m 0.5 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 0.8 r 0.94 * 0.03 + ; : f 7 r ; : p f 0.9 * 0.05 + d t ; e x - d * f y - d * + sqrt 0.02 < p 3 * sin m e * - a 0.03 < * p 2 * cos m 1 e - * - a 0.97 > *
藍綠PINGPONG
吳思賢
'25 May 15
: s * sin * ; 1 x 2 s y 2 s t 4 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: s * sin * ; 1 x 9.4 s y 9.4 s t 4 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'25 May 15
: 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
Untitled
Anonymous
'25 May 15
: 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
Untitled
Anonymous
'25 May 15
: 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 May 15
y .5 > 10 and x x 4 + y 0.6 - atan2 t 6 / 1 mod pi * - * pi * floor 6 / dup floor - dup 5
窗簾
孫康瑄
'25 May 15
: s * tan * ; 2 x 13 s y 13 s t 2 s dup t 1 s dup t 2 s
霓虹燈
chi
'25 May 15
: q .5 - 4 * dup 2 mod * ; x q y q + t sin - 2 mod dup .8** 7.
Untitled
賴鈺婷
'25 May 15
: nx x 20 * floor ; : ny y 20 * floor ; : n nx 2 pow ny sqrt + t + ; 0 n sin 0
駭客任務
葛達文
'25 May 15
: 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 May 15
( 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 May 15
: 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 May 15
t cos x - trail t y + trail
some log shit Redux
Anonymous
'25 May 15
: k t sin 1 + 2 * random + ; : mx x random / ; : my y 0.5 - k * ; mx mx * my log + 0.0001 <
Untitled
Anonymous
'25 May 15
: t^2 dup * y - abs 0.1 < ;
Untitled
Anonymous
'25 May 15
: 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 May 15
: t^2 dup * y - abs 0.1 - ; x y x t^2 x t + sin
消失的漸層
資傳4A 410127395 鐘韋翔
'25 May 15
x 0.7 y 1.5 x .5 - y .1 - atan2 t sin / cos mod pi * + * pi * floor 5 / dup floor -
小花盛開
陳柏宇
'25 May 15
: 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 May 15
: 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 May 15
: 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 May 15
n 12 ; : r .4 ;
Untitled
Anonymous
'25 May 15
: i 2dup z* log ; x 0.5 + y 0.5 + i i i i log sin 2 / 0.5 +
百花盛開
陳亭如
'25 May 15
x .5 - y .5 - atan2 t 1 / 1 mod 1 + * 750 * dup 1 - cos over cos rot 7 + cos
The Time Tunnel
駱晟堯
'25 May 15
Next