Haiku Gallery
( greetings to BradN, Boomlinde, Digimind, DarkstarAG, Ivanq, Vort, Frag_, Stainless, demoscene.ra ) : zoom t 5 / sin 199 / ; : xx x .3 - .8 zoom - * t cos 7 / negate + ; : yy y .8 - .77 zoom - * zoom + ; : a t sin 24 / + ; : line 2dup sin * negate xx + swap a tan * swap yy + swap - 160 * 1 min 0 max ; : wings .025 .1999999 line .025 -.12 line * -.025 .12 line - -.02555 -.12 line - ; : flaps 0.045 .8 line 0.006 .4 line - 0.045 -.8 line 0.006 -.4 line - + + 0 max ; : tail -0.057 0 line xx .065 - yy atan2 a 0 > - xx .065 + yy atan2 a 0 < - 0 max + xx .0065 + yy atan2 a 55 * 1 min 0 max xx .0065 - yy atan2 a 55 * 1 min 0 max - + ; : cut 1 -0.064 0 line - * 0.019 0 line * ; : circle dup 0 a cos * xx - 2 ** swap 0 a sin * yy - 2 ** + - 3999 * 0 max 1 min ; : engine 0.0008 .05 circle + 0.0008 -.05 circle + ; : fire 0.0002 random 8000 / + dup >r .05 circle r> -.05 circle + 5 * ; : run 4 1 y 1.3 * - / t dup floor - 6 * + floor 2 mod dup y 1.6 * + 1 min .6 * swap 0 = y 1.6 * + 1 min .5 * ; : sun 1 x .5 - 2 ** y .94 - 2 ** + .2 ** - ; run sun + wings flaps tail cut engine dup -rot - -rot - dup 0 > fire dup dup >r >r + rot r> + rot r> .65 * + 0 max .27 ** dup .05 < .36 * +
SFO AIRPORT
Shin En
'25 Sep 14
: i 2dup z* log ; x .4 - t .9 * sin / y .4 - t .2 * sin / i i i log over
Flower fly Redux
陳昕亞
'25 Sep 14
: n 7 ; : r .4 ; : x x .5 - ; : y y .5 - ; \ 改以 中心 為 座標原點 : a x y atan2 ; \ 中心到 x,y 的角度 : d x dup * y dup * + sqrt ; \ 中心到 x,y 的距離 : b t * a n * - sin r * d ; : q 2 b ; : p 23 b ; q - 10 * q > * p - 10 * p > * + q > over + p > over .5 * + q - 99 * q > * p - 99 * p > * +
Flower
陳昕亞
'25 Sep 14
: line y - swap x - rot y swap - * rot x swap - rot * - abs 256 * 8 min 1 swap - ; 1 345654345128764642456643432 t 3.1 / sin abs t 1.2 / sin abs t 2.3 / cos abs t 1.644 / cos abs line
software engineer
Shin En
'25 Sep 14
: 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 9 * sin ; : b a 1.1 * ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.3 0.7 -1.57 0.3 l 0.5 0.9 -1.57 a + 0.15 l + 0.5 0.8 -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 > * +
WIERD!
Shin En
'25 Sep 14
: d dup ; : ' .99 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 99.999 * sin 2 / ; : ly t 7 + 9.˙7758 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 87 * 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 * 1232435673 /
to fast! <::::::() Redux
Shin En
'25 Sep 14
: d dup ; : ' .99 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 99.999 * sin 2 / ; : ly t 7 + 9.˙7758 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 87 * 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 * 1232435673 /
to fast! <::::::()
Anonymous
'25 Sep 14
\ --- x,y for hole --- : xh ( -- x ) x .5 - ; : yh ( -- y ) y .5 - ; \ --- x,y for wings --- : xw ( -- xw ) xh 129 * ; : yw ( -- yw ) yh .13 + t sin 400 / - 12 * ; \ --- radius at x,y --- : r ( x y -- r ) dup * swap dup * + sqrt ; \ --------------------- : wings ( -- w ) 1 xw cos ( 1 cos[xw] ) t 60000000000000000000000 * sin * ( 1 cos[xw]*sin[t*3] ) xh abs .5 + ( 1 cos[xw]*sin[t*3] |xh|+.5 ) * yw - abs - ( w1 ) 1 xh 8.7 * abs - ( w1 1-|xh*2.4| ) sqrt * ( w1*sqrt[1-|xh*2.4|] ) 0 max ( w2 ) 3 ** 17 * ( w2**8*12 ) 1 min ( w ) ; \ --------------------- : hole ( -- h ) 1 xh yh r ( 1 r ) 3 over / ( 1 r 3/r ) t pi * + ( 1 r 3/r+ts*pi ) sin ( 1 r sin[3/r+ts*pi] ) swap ( 1 sin[3/r+ts*pi] r ) ** - ( 8-sin[3/r+ts*pi]**r ) ; \ --------------------- hole wings - wings
wings Redux Redux Redux
Shin En
'25 Sep 14
\ water fall : flip 1 swap - ; : fall t .4 * + x .7 + mod flip ; y .4 * \ purple y flip .3 * \ red y fall .9 * \ blue
water fall Redux
陳昕亞
'25 Sep 14
: i 2dup z* log ; x .25444666644444444444444444 - t .94566 * sin - y .951234567789 - t .123456789 * sin * i i i log over
Big Flower Redux(same thing)
manwe
'25 Sep 14
x 82.4 * sin y 6.4 * sin t 7 * sin * * dup t 22 * sin * dup t 7 * sin *
Disco Redux
Shin En
'25 Sep 14
: q 1.3 + 123 / ; : x t q 9 * x * sin q ; : y t sin q 9 * y * cos q ; : x x .4 t sin * - ; : y y .5 t cos * - ; : l 2dup * 43 * .635 + -rot dup * swap dup * - .04 t \ 5 * cos * + ; x y l l 2dup dup 1 - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt + rot
strange rainbow Redux
Shin En
'25 Sep 14
: q 1.3 + 123 / ; : x t q 9 * x * sin q ; : y t sin q 9 * y * cos q ; : x x .4 t sin * - ; : y y .5 t cos * - ; : l 2dup * 43 * .635 + -rot dup * swap dup * - .04 t \ 5 * cos * + ; x y l l 2dup dup 1 - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt + rot
strange rainbow Redux
Shin En
'25 Sep 14
: y0 y 1.6 * .45 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 6 + d * swap d * + over d * + 7 - swap 1 + min + r> r> r> ; 4 x 1.5 * .87 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 4 / + r> / l l l l l l l l l l l l l l l l drop drop drop 54.2 / w d * over sqrt -rot
C1234567890 (final) Redux(:
Shin En
'25 Sep 14
: m .3 - -6 * ; : l y m pi * t 3 / + cos x m + t 6 / - cos .02 * + swap x m pi * t 9 / + cos y m + t 3 / + cos .02 * + swap ; .3 .6 l l l l l l l l l l l l l l l l - dup negate log dup negate swap 3 ** swap over 2 ** + swap 5 /
Plasma 256 bytes Redux
陳昕亞
'25 Sep 14
( Facebook login added to www.thesands.ru/forth-demotool ) 6 push 0 : ˙ r@ t + ˊ * cos y t 2 / sin 9 / + .6 - r@ * 5 * 2 + - x t 9 / cos 7 / + 2 / r@ * 5 * dup push sin pop 3 / sin + - 0 max .1 ** r@ / pop .2 - push max ; : j l l l l l ; j j j j j pop drop
(: ):
Anonymous
'25 Sep 14
: q 2 ** ; 0 0 3 push : l x .5 - r@ 3 + * r@ 4 - t 1.9 / cos t 1.9 / sin z* y .5 - r@ 1 + * swap t 6.8 / cos t 2.7 / sin z* -rot q swap q + dup 8 * swap rot q + 1.8 + q - abs .03 < r@ / pop .2 - push max ; : j l l l l ; j pop drop 2.1 * dup 62 ** swap
<::::::::::::::::::::::()
Shin En
'25 Sep 14
: 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
Anonymous
'25 Sep 14
: q 2 ** ; 0 0 3 push : l x .5 - r@ 1 + * r@ 3 - t 1.9 / cos t 1.9 / sin z* y .5 - r@ 1 + * swap t 2.7 / cos t 2.7 / sin z* -rot q swap q + dup 8 * swap rot q + 1.8 + q - abs .03 < r@ / pop .2 - push max ; : j l l l l ; j pop drop 2.5 * dup 62 ** swap
3D Wire Torus Redux
陳昕亞
'25 Sep 14
: q 1.3 + 2 / ; : x t q 9 * x * sin q ; : y t sin q 9 * y * cos q ; : x x .5 t sin * - ; : y y .5 t cos * - ; : l 2dup * 2 * .635 + -rot dup * swap dup * - .04 t \ 5 * cos * + ; x y l l 2dup dup 1 - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt + rot
strange rainbow
陳昕亞
'25 Sep 14
x 4.2 * sin y 5.4 * sin t 6 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
陳昕亞
'25 Sep 14
: q 2 ** ; 0 0 4 push : l x .5 - r@ 1 + * r@ 3 - t 1.9 / cos t 1.9 / sin z* y .5 - r@ 1 + * swap t 2.7 / cos t 2.7 / sin z* -rot q swap q + dup 8 * swap rot q + 1.8 + q - abs .03 < r@ / pop .2 - push max ; : j l l l l ; j j j j pop drop 1.5 * dup 2 ** swap
3D Wire Torus
Manwe
'25 Sep 14
\ use WASD keys : b button ; : d dup ; 9 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 * 7 * 8 @ + 8 ! 3 b d d if 1 @ 9 ! then if 2 @ 7 ! then if 3 @ 8 ! then 7 @ .5 x - - d * 8 @ .5 y - - d * + .30003 < + x y ** 56 * sin 237 * d floor - 2000 * 994 - 0 max + d d
stars
Shin En
'25 Sep 14
( Facebook login added to www.thesands.ru/forth-demotool ) 6 push 0 : l r@ t + 2 * cos y t 2 / sin 9 / + .6 - r@ * 5 * 2 + - x t 9 / cos 7 / + 2 / r@ * 5 * dup push sin pop 3 / sin + - 0 max .1 ** r@ / pop .2 - push max ; : j l l l l l ; j j j j j pop drop
Mars 3D
Manwe
'25 Sep 14
: x x t sin + .5 mod ; : l y t 3 * sin abs 2 / - 38 * floor = * 2 x .37 - 45 * floor ** floor / 4 mod + ; : lp 0 28672 15 l 28672 14 l 24576 13 l 1408 12 l 3536 13 l 14248 10 l 480 9 l 4064 8 l 3 5 l 2311 4 l 2 3 l 1 >= ; : lw 0 992 24 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 >= ; : lg 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 ) lp lw dup dup >r >r over + swap 1.5 / lg 1.5 / + r> + 2dup + 0 = 7 / r> +
Two ducks
Shin En
'25 Sep 14
: e .6 ; : x x .5 - ; : y y .5 - ; : x x 7 * cos ; : y y 7 * sin ; : lines >r .8 e * + r> * dup floor - e < ; : net >r x r@ floor y r@ lines or x y + r@ lines x y - r> lines or ; t sin 3 * 3 + net
net Redux Redux
陳昕亞
'25 Sep 14
: e .3 ; : x x .5 - ; : y .e- ; : x x 7 * cos ; : y y 3 * sin ; : lines >r .9 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ lines x y + r@ lines x y - r> lines or ; t 9 / sin 5 * 2 + net
Pink, Black, Green, and White lines.
陳昕亞
'25 Sep 14
: 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.06 + ; : 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 Redux
Shinya
'25 Sep 14
: y0 y 8.4 * .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 3.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 3 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.1 / d d * over sqrt -rot
Coffee drink
Shin En
'25 Sep 14
: e .3 ; : x x .3 - ; : y y .6 - ; : x x 7 * cos ; : y y 7 * sin ; : lines >r .4 e * + r> * dup floor - e < ; : net >r x r@ lines z r@ floor x y + r@ lines x y - r> lines or ; t 2 / sin 5 * 2 + net
The circles
陳昕亞
'25 Sep 14
: e .1 ; : x x .5 - ; : y .e- ; : x x 7 * cos ; : y y 7 * sin ; : lines >r .5 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ floor x y + r@ lines x y - r> lines or ; t 3 / sin 2 * 2 + net
lines
陳昕亞
'25 Sep 14
: e .7 ; : x x .5 - ; : y y .17 - ; : x x 7 * cos ; : y y 7 * sin ; : lines >r .6 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ floor x y + r@ lines x y - r> lines or ; t 50 / sin 56 * 5 + net
orange lines redux
Shin En
'25 Sep 14
: 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.9 + 8 / - d * y ; : b - d * + sqrt 20 * 8 ** ; : p x t 4 + pi / f 1 * - 0.2 + ; : v t 3 + pi 1 * / 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 20 * c 1.7 * - 14 * m * 0 max a 0.5 b - 0 max d p 3 * < * + p d * y 0.56 b m * v 0.5 >= * + d 1.5
PACMAN wide mouth
Shin En
'25 Sep 14
: ts8 t sin 8 / ; : ts6 t .6 * sin 8 / ; : x x .5 - ts8 + ; : y y .47 - ts8 + ; : a x y atan2 over * .5 + floor swap / ; : f 1 swap - ; : q >r x y .6 a cos 1 a sin z* r> - swap .6 / abs + abs f ; .4 0 0 q 4 / .29 q 9 **
閃耀隕石 Redux
陳昕亞
'25 Sep 14
: e .1 ; : x x .5 - ; : y y .5 - ; : x x 7 * cos ; : y y 7 * sin ; : lines >r .5 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ floor x y + r@ lines x y - r> lines or ; t 1 / sin 2 * 2 + net
net Redux Redux
Shin En
'25 Sep 14
: x x 0.5 - 100 t 3 / sin 50 * + * ; : y y 0.5 - 200 t 3 / sin 10 * + * ; : ^2 dup * ; : a t cos 3 * ; : b t sin 3 * ; a x - ^2 b y x ^2 - * + sin 1.3 + 2 / 3 pow
Rosenbrock function slices
DarkstarAG
'25 Sep 14
xyt sin 2 / 0.5 +
Untitled
Anonymous
'25 Sep 14
: xc 0 @ ; : yc 1 @ ; : rc 2 @ ; : yt yc .2 + ; : yb yc .2 - ; : r2 rc 2 / ; : r3 rc 8 / ; : 距 ( dx dy -- 距離 ) dup * swap dup * + sqrt ; : 圓 ( 半徑 -- ) x xc - y yc - 距 > ; : 圈 ( 半徑 -- ) dup .005 + 圓 swap 圓 - ; : 洞 ( 半徑 -- ) .010 + 圓 1 swap - ; : 左 ( -- ) x xc < ; : 半 ( -- ) rc 圓 左 * ; : 首 ( 高度 -- ) xc x - swap y - 距 r2 < ; : 眼 ( 高度 -- ) xc x - swap y - 距 r3 < ; : 大 rc ; : 上 yc rc 2 / + ; : 下 yc rc 2 / - ; : + + 1 min ; : - - 0 max ; : 易 ( c x y r -- c ) 2 ! 1 ! 0 ! 大 圈 半 + 上 首 + 下 首 - 上 眼 - 下 眼 + ; : 白 .50 .50 .30 易 ; : 紅 .89 .70 .08 易 ; : 黃 .15 .27 .11 易 ; : 綠 .15 .77 .11 易 ; : 藍 .75 .21 .15 易 ; 白 紅 + 白 綠 + 白 大 洞 藍 * +
易 Redux
陳爽
'25 Sep 14
: xc 0 @ ; : yc 1 @ ; : rc 2 @ ; : yt yc .2 + ; : yb yc .2 - ; : r2 rc 2 / ; : r3 rc 8 / ; : 距 ( dx dy -- 距離 ) dup * swap dup * + sqrt ; : 圓 ( 半徑 -- ) x xc - y yc - 距 > ; : 圈 ( 半徑 -- ) dup .005 + 圓 swap 圓 - ; : 洞 ( 半徑 -- ) .010 + 圓 1 swap - * ; : 左 ( -- ) x xc < ; : 半 ( -- ) rc 圓 左 * ; : 首 ( 高度 -- ) xc x - swap y - 距 r2 < ; : 眼 ( 高度 -- ) xc x - swap y - 距 r3 < ; : 大 rc ; : 上 yc rc 2 / + ; : 下 yc rc 2 / - ; : + + 1 min ; : - - 0 max ; : 反 ( c -- c ) 1 swap - ; : 易 ( c x y r -- c ) 2 ! 1 ! 0 ! 大 洞 大 圈 半 + 上 首 + 下 首 - 上 眼 - 下 眼 + + ; 0 .89 .70 .08 易 .50 .50 .30 易 0 .15 .77 .11 易 0 .75 .21 .15 易 .50 .50 .30 易
易
陳爽
'25 Sep 14
: xc 0 @ ; .5 0 ! : yc 1 @ ; .5 1 ! : r1 2 @ ; .4 2 ! : yt yc .2 + ; : yb yc .2 - ; : r2 r1 2 / ; : r3 r1 8 / ; : 距 ( dx dy -- 距離 ) dup * swap dup * + sqrt ; : 圓 ( 半徑 -- ) x xc - y yc - 距 > ; : 圈 ( 半徑 -- ) dup .005 + 圓 swap 圓 - ; : 左 ( -- ) x xc < ; : 半 ( -- ) r1 圓 左 * ; : 首 ( 高度 -- ) xc x - swap y - 距 r2 < ; : 眼 ( 高度 -- ) xc x - swap y - 距 r3 < ; : 大 r1 ; : 上 yc r1 2 / + ; : 下 yc r1 2 / - ; : + + 1 min ; : - - 0 max ; : 易 ( x y r -- ) 2 ! 1 ! 0 ! 大 圈 半 + 上 首 + 下 首 - 上 眼 - 下 眼 + ; : x x 3 * 1 mod ; : y y 3 * 1 mod ; .5 .5 .4 易
Duality Redux
Anonymous
'25 Sep 14
Next