Haiku Gallery
: q .0 - 5 * dup 5 mod * ; x q y q + t cos - 5 mod dup .5 ** .2
年輪
周芷璇
'24 Nov 25
0 0.8 1 y t + x 1.5 + mod - : trail t 3 * x + + sin y 0.5 * 0.5 - - abs 1.2 swap - ; 0 trail
極光&流星
資工四A黃崇恩
'24 Nov 25
: x' x cos 0.35 - t tan 0.35 * * ; : y' y sin 0.45 - t tan 0.25 * + ; : dist x' x' * y' y' * + sqrt ; : ata x' y' atan2 ; : a dup rot swap / -rot * + 6 mod ; \ * 圓的距離變化 : b dup ata 30 dist / rot a + ; \ * 圓的收回：5/5 +(ata+(150/dist)/5)%5 1 0.05 5 b 10 b 20 b + + 0.35 * dist * * - 1 0.5 6 b 8 b 15 b + + 5 / dist * * - 1 0.035 4 b 9 b 15 b + + 3 / dist * * -
Touch
陳美珊
'24 Nov 25
: sine push x * t pop * + cos y 0.5 - 4 * - 1 ** 0.5 swap - ; 6.5 5 * pi * pi sine t 7 * cos .0 * + r - ( R G B ) 7.5 5 * pi sine
心電圖
資工四B張志宇
'24 Nov 25
x mx - y my - t 5 * sin x z* x mx - y my - t 3 * cos y z* z* 2dup >r >r swap / r> r> + 2dup - //-rot
Rainbow Tentacle Redux
Anonymous
'24 Nov 25
: web push push y 0.75 + y 0.3 + * pop * cos 0 max y 0.3 + x 0.5 + * pop * cos 0 max - ; 255 23 web 17 17 10 * web * x + 0.723 0.5 x t + y 20 + mod 1 -
Space
Tsai s1022769
'24 Nov 25
x 6 * tan y 6 * tan t 3 * cos dup floor - pi * 2 * * * dup t 0.5 * cos * dup t 0.5 * tan *
萬花筒(?!)
楊馨茹
'24 Nov 25
a push push dup : r x 0.5 - 2 ** y 0.5 - 2 ** + ; : sine r 10 * - 0.5 ** 1 swap - ; 🎥 ▶ * 👎 👍 : r x 0.5 - 2 ** y 0.5 - 2 ** + ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine
Untitled
Anonymous
'24 Nov 25
: s * sin * ; 3 x 28.35 s y 37.8 s t 5 s dup t 11 s dup t 8 s
Untitled
徐意如
'24 Nov 25
15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.2 > * +
Untitled
Anonymous
'24 Nov 25
: d dup ; 0 x y ** 0.3 t + * tan 10 * dup floor - 1000 * 998 - 0 max 0.5 d p 5 * < * + x 50
流星雨
曾文柔
'24 Nov 25
: r x .5 - dup * y .0 - dup * + sqrt ; : f r dup >r 20 * + sin -1 * r> dup 0.4 > swap .7 < and * ; 5 f 0 f 1 f t sin 5 / 0.9 + y t + x 0.2 + mod -
彩虹雨
黃綺萱
'24 Nov 25
: a x .5 - y .5 - atan2 ; : aa x .5 - 2 * 2 ** y .5 - 50 * 2 ** + .3 ** 1 - negate ; : bb a 6 * t 4 * pi * 2 * + sin 1 + 3 ** ; ( r ) aa bb 1 * * ( g ) bb 5 / aa + ( b ) bb 1 / aa 2 * + 1 - abs 1 + 1 swap /
光束旋轉
資傳三B 410227674 羅玉慈
'24 Nov 25
: g * sin * ; 5 x 10 g y 10 g dup 3 g dup t 10 g
閃閃
林晏丞
'24 Nov 25
: l y t 310 * 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
Super Mario Redux
Anonymous
'24 Nov 25
: r dup y 1 ** * t + cos swap x * sin + 0 mod ; 40 r dup 1 r /
光點
陳亭瑄
'24 Nov 25
: r dup y 12 ** * t + sin swap x * cos + -1 mod ; 18 r 20 r dup 10 r /
BOBO
陳彥豪
'24 Nov 25
( color scheme: QuickBasic and MSX2 memories ) 0 8 x .5 - 20 ** y .5 - 20 ** + .05 ** dup -rot / t dup floor - pi * -2 * + sin over 3 * 3 ** ** swap .2 max .1 - * 8 * 1 min .7
Square Tunnel back
410227886陳彥廷
'24 Nov 25
: x x 0.25 + ; : y y 0.25 + ; : t t 5 / ; t x + 9.2 * cos y / cos t y + 9.2 * cos x / cos t x y - + 9.3 * cos x y +
舞台燈光
官振任
'24 Nov 25
x 2 ** y 1 x 1 y - / 50 * cos + * - y 5 ** - dup x x * y y * + sqrt 4 * y x atan2 - t - 8 * abs 2 pi * mod pi - - pi / dup sqrt 2dup + .6 *
水波
陳立軒
'24 Nov 25
: l y > swap y < * -rot x > swap x < * * >r x - rot x swap - rot y - * -rot y rot - * - abs 999 * 1 min 1 swap - r> * + ; : dot x - 2 ** swap y - 2 ** + .00005 < + ; 0 .78 .25 .69 .47 .25 .475 .68 .78 l .69 .47 .83 .64 .47 .64 .69 .83 l .83 .635 .64 .64 .63 .65 .64 .825 l .64 .64 .51 .76 .64 .76 .51 .64 l .51 .76 .47 .60 .595 .76 .47 .51 l .47 .60 .34 .50 .50 .60 .34 .47 l .34 .50 .46 .37 .37 .50 .34 .46 l .46 .37 .48 .20 .20 .37 .455 .48 l .48 .20 .59 .32 .20 .32 .48 .59 l .59 .32 .78 .25 .25 .32 .59 .78 l .40 .54 .36 .63 .54 .631 .35 .40 l .36 .63 .14 .55 .55 .63 .14 .36 l .14 .55 .13 .74 .55 .74 .13 .14 l .13 .74 .27 .60 .60 .74 .13 .27 l .39 .45 .315 .35 .35 .45 .315 .39 l .32 .35 .13 .50 .35 .50 .13 .32 l .13 .50 .14 .29 .29 .50 .13 .14 l .14 .29 .25 .41 .29 .41 .14 .25 l .50 .42 .46 .515 .42 .515 .457 .50 l l .58 .46 dot .59 .53 dot dup dup
Untitled
Anonymous
'24 Nov 25
: l y > swap y < * -rot x > swap x < * * >r x - rot x swap - rot y - * -rot y rot - * - abs 999 * 1 min 1 swap - r> * + ; : dot x - 2 ** swap y - 2 ** + .00005 < + ; 0 .78 .25 .69 .47 .25 .475 .68 .78 l .69 .47 .83 .64 .47 .64 .69 .83 l .83 .635 .64 .64 .63 .65 .64 .825 l .64 .64 .51 .76 .64 .76 .51 .64 l .51 .76 .47 .60 .595 .76 .47 .51 l .47 .60 .34 .50 .50 .60 .34 .47 l .34 .50 .46 .37 .37 .50 .34 .46 l .46 .37 .48 .20 .20 .37 .455 .48 l .48 .20 .59 .32 .20 .32 .48 .59 l .59 .32 .78 .25 .25 .32 .59 .78 l .40 .54 .36 .63 .54 .631 .35 .40 l .36 .63 .14 .55 .55 .63 .14 .36 l .14 .55 .13 .74 .55 .74 .13 .14 l .13 .74 .27 .60 .60 .74 .13 .27 l .39 .45 .315 .35 .35 .45 .315 .39 l .32 .35 .13 .50 .35 .50 .13 .32 l .13 .50 .14 .29 .29 .50 .13 .14 l .14 .29 .25 .41 .29 .41 .14 .25 l .50 .42 .46 .515 .42 .515 .457 .50 l l .58 .46 dot .59 .53 dot dup dup
Untitled
Anonymous
'24 Nov 25
: l y > swap y < * -rot x > swap x < * * >r x - rot x swap - rot y - * -rot y rot - * - abs 999 * 1 min 1 swap - r> * + ; : dot x - 2 ** swap y - 2 ** + .00005 < + ; 0 .78 .25 .69 .47 .25 .475 .68 .78 l .69 .47 .83 .64 .47 .64 .69 .83 l .20 .635 .64 .64 .63 .65 .64 .825 l .64 .64 .51 .76 .64 .76 .51 .64 l .51 .76 .47 .60 .595 .76 .47 .51 l .47 .60 .34 .50 .50 .60 .34 .47 l .34 .50 .46 .37 .37 .50 .34 .46 l .46 .37 .48 .20 .20 .37 .455 .48 l .48 .20 .59 .32 .20 .32 .48 .59 l .59 .32 .78 .25 .25 .32 .59 .78 l .40 .54 .36 .63 .54 .631 .35 .40 l .36 .63 .14 .55 .55 .63 .14 .36 l .14 .55 .13 .74 .55 .74 .13 .14 l .13 .74 .27 .60 .60 .74 .13 .27 l .39 .45 .315 .35 .35 .45 .315 .39 l .32 .35 .13 .50 .35 .50 .13 .32 l .13 .50 .14 .29 .29 .50 .13 .14 l .14 .29 .25 .41 .29 .41 .14 .25 l .50 .42 .46 .515 .42 .515 .457 .50 l .46 .51 .53 .58 .51 .58 .46 .53 l .58 .46 dot .59 .53 dot dup dup
Untitled
Anonymous
'24 Nov 25
: l y > swap y < * -rot x > swap x < * * >r x - rot x swap - rot y - * -rot y rot - * - abs 999 * 1 min 1 swap - r> * + ; : dot x - 2 ** swap y - 2 ** + .00005 < + ; 0 .78 .25 .69 .47 .25 .475 .68 .78 l .69 .47 .83 .64 .47 .64 .69 .83 l .83 .635 .64 .64 .63 .65 .64 .825 l .64 .64 .51 .76 .64 .76 .51 .64 l .51 .76 .47 .60 .595 .76 .47 .51 l .47 .60 .34 .50 .50 .60 .34 .47 l .34 .50 .46 .37 .37 .50 .34 .46 l .46 .37 .48 .20 .20 .37 .455 .48 l .48 .20 .59 .32 .20 .32 .48 .59 l .59 .32 .78 .25 .25 .32 .59 .78 l .40 .54 .36 .63 .54 .631 .35 .40 l .36 .63 .14 .55 .55 .63 .14 .36 l .14 .55 .13 .74 .55 .74 .13 .14 l .13 .74 .27 .60 .60 .74 .13 .27 l .39 .45 .315 .35 .35 .45 .315 .39 l .32 .35 .13 .50 .35 .50 .13 .32 l .13 .50 .14 .29 .29 .50 .13 .14 l .14 .29 .25 .41 .29 .41 .14 .25 l .50 .42 .46 .515 .42 .515 .457 .50 l .46 .51 .53 .58 .51 .58 .46 .53 l .58 .46 dot .59 .53 dot dup dup
Untitled
Anonymous
'24 Nov 25
: l y > swap y < * -rot x > swap x < * * >r x - rot x swap - rot y - * -rot y rot - * - abs 999 * 1 min 1 swap - r> * + ; : dot x - 2 ** swap y - 2 ** + .00005 < + ; 0 .78 .25 .69 .47 .25 .475 .68 .78 l .69 .47 .83 .64 .47 .64 .69 .83 l .100 .635 .64 .64 .63 .65 .64 .825 l .64 .64 .51 .76 .64 .76 .51 .64 l .51 .76 .47 .60 .595 .76 .47 .51 l .47 .60 .34 .50 .50 .60 .34 .47 l .34 .50 .46 .37 .37 .50 .34 .46 l .46 .37 .48 .20 .20 .37 .455 .48 l .48 .20 .59 .32 .20 .32 .48 .59 l .59 .32 .78 .25 .25 .32 .59 .78 l .40 .54 .36 .63 .54 .631 .35 .40 l .36 .63 .14 .55 .55 .63 .14 .36 l .14 .55 .13 .74 .55 .74 .13 .14 l .13 .74 .27 .60 .60 .74 .13 .27 l .39 .45 .315 .35 .35 .45 .315 .39 l .32 .35 .13 .50 .35 .50 .13 .32 l .13 .50 .14 .29 .29 .50 .13 .14 l .14 .29 .25 .41 .29 .41 .14 .25 l .50 .42 .46 .515 .42 .515 .457 .50 l .46 .51 .53 .58 .51 .58 .46 .53 l .58 .46 dot .59 .53 dot dup dup
Untitled
Anonymous
'24 Nov 25
: l y > swap y < * -rot x > swap x < * * >r x - rot x swap - rot y - * -rot y rot - * - abs 999 * 1 min 1 swap - r> * + ; : dot x - 2 ** swap y - 2 ** + .00005 < + ; 0 .78 .25 .69 .47 .25 .475 .68 .78 l .69 .47 .83 .64 .47 .64 .69 .83 l .83 .635 .64 .64 .63 .65 .64 .825 l .64 .64 .51 .76 .64 .76 .51 .64 l .51 .76 .47 .60 .595 .76 .47 .51 l .47 .60 .34 .50 .50 .60 .34 .47 l .34 .50 .46 .37 .37 .50 .34 .46 l .46 .37 .48 .20 .20 .37 .455 .48 l .48 .20 .59 .32 .20 .32 .48 .59 l .59 .32 .78 .25 .25 .32 .59 .78 l .40 .54 .36 .63 .54 .631 .35 .40 l .36 .63 .14 .55 .55 .63 .14 .36 l .14 .55 .13 .74 .55 .74 .13 .14 l .13 .74 .27 .60 .60 .74 .13 .27 l .39 .45 .315 .35 .35 .45 .315 .39 l .32 .35 .13 .50 .35 .50 .13 .32 l .13 .50 .14 .29 .29 .50 .13 .14 l .14 .29 .25 .41 .29 .41 .14 .25 l .50 .42 .46 .515 .42 .515 .457 .50 l .46 .51 .53 .58 .51 .58 .46 .53 l .58 .46 dot .59 .53 dot dup dup
Untitled
Anonymous
'24 Nov 25
: a * cos * ; 0.5 x 6 a y 6 a t 1 a dup t 1 a dup t 5 a
Untitled Redux
Anonymous
'24 Nov 25
: x * cos * ; 0.5 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: e * cos * ; 0.5 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: a * cos * ; 0.5 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: s * cos * ; 0.5 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: s * cos * ; 0.1 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: bar * sin + ; : barx x bar ; : bary y bar ; : foo t sin 17 barx 3 bary 5 barx t sin 7 bary 11 barx 13 bary * atan2 4 * cos ; 1 foo 2 foo 3 foo
Untitled
Anonymous
'24 Nov 25
: s * cos * ; 3 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: s * cos * ; 10 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: s * cos * ; 0.5 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: s * cos * ; 0 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: s * cos * ; 3 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: s * cos * ; 1 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
: s * sin * ; 1 x 6 s y 6 s t 1 s dup t 1 s dup t 5 s
Untitled Redux
Anonymous
'24 Nov 25
Next