Forth Haiku Salon
Top Haikus
More...
: 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
www.manwe.ru
'24 Mar 19
: d dup ; : ' .5 - ; : 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 + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
Golden bump
Manwe
'24 Mar 19
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco
Ivanq
'24 Mar 19
: y0 y 1.6 * .45 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 4 + d * swap d * + over d * + 7 - swap 1 + min + r> r> r> ; 0 x 1.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 2 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
Coffee (final)
Manwe
'24 Mar 19
: 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 landscape
Alok
'24 Mar 19
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 2.9 r 0.94 * 0.03 + ; : f 3.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 > * + + d d
PONG game
www.manwe.ru
'24 Mar 19
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
streak
BradN
'24 Mar 19
\ use WASD keys : b button ; : d dup ; 2 b dt * 200 / d 1 @ sin * swap 1 @ cos * 4 @ 5 @ z+ 5 ! 4 ! 2 @ 3 @ 4 @ 5 @ z+ 3 ! 2 ! 2 @ x + .5 - 3 @ y + .5 - 5 b dt * 3 * 1 b dt * 3 * - 1 @ + d d 1 ! cos swap sin z* 2dup .05 + atan2 abs .4 < -rot .01 - atan2 abs 1 < - 0 max 6 @ sin dt * 2 * 7 @ + 7 ! 6 @ cos dt * 2 * 8 @ + 8 ! 3 b d d if 1 @ 6 ! then if 2 @ 7 ! then if 3 @ 8 ! then 7 @ .5 x - - d * 8 @ .5 y - - d * + .00003 < + x y ** 56 * sin 237 * d floor - 1000 * 999 - 0 max + d d
Asteroids
Manwe
'24 Mar 19
Recent Haikus
More...
x 5.0 * sin y 0 + 5.0 * 2.5 0 + - - abs 0.01 <
sine
f.
'24 Mar 19
: distance dup * swap dup * + sqrt ; mx x distance my y distance + 2 / dup dup
Untitled
Anonymous
'24 Mar 19
: web push push x t + 0.5 + y t + 0.3 + * pop * sin 0 max x t + 0.3 + y t + 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
streak Redux
Anonymous
'24 Mar 19
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y + t +
streak Redux
Anonymous
'24 Mar 19
\ 方塊時鐘 \ 以 小紅塊 作 時針 中綠塊 作 分針 大藍塊 作 秒針 : 秒動角度 08 @ ; pi 2 * 60 / 08 ! : 分動角度 09 @ ; pi 2 * 60 / 09 ! : 時動角度 10 @ ; pi 2 * 12 / 10 ! : 修正方向 15 @ + ; pi 4 / 15 ! : a0 03 @ ; : l 04 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : 方塊 ( a0 L -- s ) 2 / 05 ! 03 ! y .5 - x .5 - atan2 a0 - pi 2 * mod 11 ! y .5 - 2 ** x .5 - 2 ** + .5 ** 12 ! r a cos * 13 ! \ 計算 極座標 任意點之 橫標 x' r a sin * 14 ! \ 計算 極座標 任意點之 縱標 y' x' h - abs h - 06 ! \ 計算 改以方塊心為原點 任意點之 橫標 x" y' h - abs h - 07 ! \ 計算 改以方塊心為原點 任意點之 縱標 y" x" d < y" d < * ; : 秒針方向 60 t t 1 mod - 60 mod - 秒動角度 * 修正方向 ; : 分針方向 60 t 60 / 60 mod - 分動角度 * 修正方向 ; : 時針方向 12 t 3600 / 12 mod - 時動角度 * 修正方向 ; : 方塊時鐘 時針方向 .21 方塊 \ 小紅塊 作 時針 分針方向 .25 方塊 \ 中綠塊 作 分針 r .45 > r .46 < * y .5 - x .5 - atan2 pi 6 / mod * .02 > + 秒針方向 .29 方塊 \ 大藍塊 作 秒針 ; 方塊時鐘
方塊時鐘
陳爽
'24 Mar 19
\ 顯示 在 位置 x0,y0 方向 a0 邊長 l 粗細 d 之 方框 sq .005 00 ! : d 00 @ ; .5 01 ! : x0 01 @ ; .5 02 ! : y0 02 @ ; : a0 03 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; .06 04 ! : l 04 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : sq ( a0 l -- s ) 04 ! \ 邊長 03 ! \ 方向 y y0 - x x0 - atan2 a0 - pi 2 * mod 11 ! \ 向度 a y y0 - 2 ** x x0 - 2 ** + .5 ** 12 ! \ 徑度 r r l .5 * < r l .25 * > * r a cos * 13 ! \ x0,y0 方向 a0 之 新座標 x' r a sin * 14 ! \ x0,y0 方向 a0 之 新座標 y' l 2 / 05 ! \ 邊長 l 的一半 h x' h - abs h - 06 ! \ 方框中心 之 最終座標 x" y' h - abs h - 07 ! \ 方框中心 之 最終座標 y" x" abs d < + y" abs d < + x" d < y" d < * * ; t 1.1 * .21 sq t 1.6 * .25 sq t 2.1 * .29 sq
轉動的方框 Redux
陳爽
'24 Mar 19
\ 顯示 在 位置 x0,y0 方向 a0 邊長 l 粗細 d 之 方框 sq .005 00 ! : d 00 @ ; .5 01 ! : x0 01 @ ; .5 02 ! : y0 02 @ ; : a0 03 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; .06 04 ! : l 04 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : sq ( a0 l -- s ) 04 ! 03 ! y y0 - x x0 - atan2 a0 - pi 2 * mod 11 ! y y0 - 2 ** x x0 - 2 ** + .5 ** 12 ! r a cos * 13 ! r a sin * 14 ! l 2 / 05 ! x' h - abs h - 06 ! y' h - abs h - 07 ! x" abs d < y" abs d < + x" d < y" d < * * ; t 1.1 * .21 sq t 1.6 * .25 sq t 2.1 * .29 sq
轉動的方框
陳爽
'24 Mar 19
: xx x ; : yy y ; : y y t 0.5 * + ; : x x t 0.1 * + ; x 30 * sin y 21 * sin * x 7 * sin * y 11 * sin * x 71 * sin * y 41 * sin * x y .3 * + 77 * sin * 0.5 > xx 3 * sin 0.1 * yy > or dup dup
Snow
BradN
'24 Mar 19