Haiku Gallery
( Welcome to www.thesands.ru/forth-demotool/ ) : f 2dup * 2 * .17 + -rot .4 ** sin swap .7 ** - .13 + ; y x .5 - f f .15 rot / .11 rot / log y * + abs dup 7 / over log rot
Ice 124 bytes
Manwe
'25 Apr 03
: time t 10 mod .1 * pi * sin mod ; y x dup dup * swap dup dup * swap z* time pi * y negate time sqrt mod 2.4 * x negate time sqrt mod 2.4 * 0 over .035 >
Leaves (was: opal )
adg
'25 Apr 03
: time t 10 mod .1 * pi * sin mod ; y x * time 2 * y time mod 2 * x time mod 2 * 0 over .035 >
opal
E.A.
'25 Apr 03
: . ( px py - k ) x -256 * y -256 * z+ over over negate z* + sqrt 4 < ; 12 33 . 33 55 . or 55 33 . or 45 01 . or 65 11 . or
Dots
DarkstarAG
'25 Apr 03
: x x 0.5 - abs ; : y y 0.5 - abs ; : ^2 dup * ; : d ( x n - d ) 2 swap ** / floor 33 * 2 mod ; y x atan2 x ^2 y ^2 + sqrt t + sin 10 * floor d
BlackHole Binary Carpet Redux2
DarkstarAG
'25 Apr 03
: ^2 dup * ; : d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 x ^2 y ^2 + t + cos 10 * floor negate d
BlackHole Binary Carpet Redux
DarkstarAG
'25 Apr 03
: n 2 * 1 - ; : xn x n ; : yn y n ; : h t 3600 / 12 / pi * 2 * negate ; : m t 3600 mod 60 / ceil 60 / pi * 2 * negate ; : s t 60 mod floor 60 / pi * 2 * negate ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; : hhand h d dup 0 > swap 0.3 < * push dup 0.03 < swap -0.03 > * pop * ; : mhand m d dup 0 > swap 0.6 < * push dup 0.02 < swap -0.02 > * pop * ; : c 0 0.01398413 + sin pi -1.2132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : shand s d dup 0 > swap 0.8 < * push dup 0.01 < swap -0.01 > * floor pop * ; shand mhand hhand sc2 + j j j j j j j j j j j drop drop 4.5 mod dup dup
Reverse Clock (whiteboard) Discrete Redux
DarkstarAG
'25 Apr 03
: n 2 * 1 - ; : xn x n ; : yn y n ; : h t 3600 / 12 / pi * 2 * negate ; : m t 3600 mod 60 / ceil 60 / pi * 2 * negate ; : s t 60 mod 60 / pi * 2 * negate ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; : hhand h d dup 0 > swap 0.3 < * push dup 0.03 < swap -0.03 > * pop * ; : mhand m d dup 0 > swap 0.6 < * push dup 0.02 < swap -0.02 > * pop * ; : c 0 0.01398413 + sin pi -1.2132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : shand s d dup 0 > swap 0.8 < * push dup 0.01 < swap -0.01 > * pop * ; shand mhand hhand sc2 + j j j j j j j j j j j drop drop 4.5 mod dup dup
Reverse Clock (whiteboard)
Anonymous
'25 Apr 03
: n 2 * 1 - ; : xn x n ; : yn y n ; : h t 3600 / 12 / pi * 2 * negate ; : m t 3600 mod 60 / ceil 60 / pi * 2 * negate ; : s t 60 mod 60 / pi * 2 * negate ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; : hhand h d dup 0 > swap 0.3 < * push dup 0.03 < swap -0.03 > * pop * ; : mhand m d dup 0 > swap 0.6 < * push dup 0.02 < swap -0.02 > * pop * ; : c 0 0.01398413 + sin pi -1.2132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : shand s d dup 0 > swap 0.8 < * push dup 0.01 < swap -0.01 > * pop * ; shand mhand hhand sc2 + j j j j j j j j j j j drop drop 8 / dup dup
Reverse Clock
adg
'25 Apr 03
: d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 y t + cos 10 * floor negate d
BlackHole Binary Carpet
DarkstarAG
'25 Apr 03
: d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 y t * cos 10 * floor negate d
Binary Carpet 3 Redux
DarkstarAG
'25 Apr 03
33 1 t x y atan2 + x 0.5 + mod -
AntiMatrix Fire
Anonymous
'25 Apr 03
0 1 t x y atan2 + x 0.5 + mod -
AntiMatrix
DarkstarAG
'25 Apr 03
: line y - abs 0.012 < ; : z 0.75 line 0.25 line + ; x 0.5 * 2 * pi * sin 4 / 0.25 + y < z + floor x 2 + pi - cos 4 / 0.75 + y < z - z t + y mod 1
hacked Sinus Cosinus 47 woords
Anonymous
'25 Apr 03
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.997 - d 0 > 2 * 0.2 - * 0.01 + ; : e 2.9 r 0.94 * 0.07 + ; : f 3.7 r ; random : 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
hacked PONG gamee
aaaj min mageeeq
'25 Apr 03
x 5 y 2 / mod
albin
albin
'25 Apr 03
: d dup ; spiral : 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
hacked PONG game Redux Redux
Anonymous
'25 Apr 03
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.997 - d 0 > 2 * 0.2 - * 0.01 + ; : e 2.9 r 0.94 * 0.07 + ; : 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
hacked PONG game Redux
simon
'25 Apr 03
: d dup ; : ' .5 - ; : r y ' 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 999 * 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 /
m0ns13r
nameless
'25 Apr 03
x 2 t sin + * 1.0 mod 0.8 - dup * t 1 mod + y 2 t sin + * 1.0 mod 0.3 - dup * spiral + sqrt 50 * t 4 * - sin dup y t + * dup y * floor
hacked zuumeer
aaaj min mageeeq
'25 Apr 03
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 1.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t 0.1 * + 100 * sin ; x 0.03 - y spiral y x y 0.03 - spiral x * random + * y x x *
hacked Hypnotism 2 Reduux Redux
Anonymous
'25 Apr 03
: d dup ; spiral : 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
hacked PONG game Redux
Anonymous
'25 Apr 03
: z^2 2dup z* ; : layer push push z^2 pop pop 2dup push push z+ pop pop ; : many layer layer layer layer layer layer layer layer layer layer ; : len dup * swap dup * - ; : mant y 0.7 - 3 * x 0.5 - 3 * many drop drop len dup 0 > * ; t cos 1 + 2 / t sin 1 + 2 / mant t sin 1 + 2 / t cos 1 + 3 / mant t cos 1 + 2 / t cos 1 + 2 / mant
glitchy mandelbrot
nameless
'25 Apr 03
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 1.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t 0.1 * + 100 * sin ; x 0.03 - y spiral y x y 0.03 - spiral x * random + * y x spiral x *
hacked Hypnotism 2 Reduux
aaaj min mageeeq
'25 Apr 03
( inspired by "Web Wars" game on Vectrex console ) ( let's discuss Forth Haiku on demoscene.ru forum ) : t t 21 + ; : d dup ; : fract d floor - ; : n 6 ; : xx x .5 - ; : yy y .5 - ; : xw x .5 - 10 * ; : xw y .37 - t 2.5 * 1.1 - sin 3.0 / - 14 * ; : dy t n / floor sin 2 * ; : dy t n / floor cos 2 * ; : zoom 1 1 t n / fract - 50 * 1 + / ; : phase t fract pi * 3 * ; : wings random 1 xw cos t 2.5 * sin * xx abs .5 + * yw - abs - 1 xx 2.3 * abs - sqrt * 0 max 8 ** d >r 20 * 4 ** 1 min max r> 9 * 4 ** 1 min - ; 5 xx d * yy d * + sqrt d -rot / phase + sin abs over 9 * 4 ** ** swap .15 max .15 - * 4 * 1 zoom dx over * xx - d * over dy * yy - d * + sqrt swap 2dup >r >r 2 / - - abs 200 ** 1 min max 1 r> r> 2.2 / - - abs 200 ** - 0 max 1 min wings d d
hacked Vectrex fiix
Anonymous
'25 Apr 03
1 y 1.5 * - x y 2 * 8 ** t 9 / sin * + .5 - abs 2dup > .5 y - * +rot 1.5 * > 3 1 y 1.8 * - / t 1 mod 6 * + floor 0 mod 1 y 1.8 * - * 4 / * - dup 1 = .5 y - * .75 ** y .5 < * over - over 1 x t 9 / cos + 12 * sin 30 / y .6 - < * + 1.5 y 1.3 * - y .5 > * -
??????????GLITCH????????
nameless
'25 Apr 03
: square random * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t 0.1 * + 100 * sin ; x 0.03 - y spiral x y 0.03 - spiral x * y x spiral y *
hacked Hypnotism 2 Redux Reduaax
Anonymous
'25 Apr 03
: s t floor 10 mod ; : u t 60 / floor 60 mod ; : h t 7890 / floor 60 mod ; : ts s 8 <= 280 s + * 8 s <= m 22 <= * 271 17 s 8 - * - * + 23 s <= s 37 <= * 38 s - * + 38 s <= s 52 <= * s 37 - 17 * * + 53 s <= 220 s + * + ; : tm m 7 <= 280 m + * 8 m <= m 22 <= * 271 17 m 8 - * - * + 23 m <= m 37 <= * 38 m - * + 38 m <= m 52 <= * m 37 - 17 * * + 53 m <= random 220 m + * + ; : th h 7 <= 280 h + * 8 h <= h 22 <= * 271 17 h 8 - * - * + 23 h <= h 37 <= * 38 h - * + 38 h <= h 52 <= * h 37 - 17 * * + 53 h <= 220 h + * + ; : ix x 17 * floor ; : iy y 17 * floor ; : i ix iy 17 * + ; : f i 17 mod 16 = i 17 mod 0 = or i 16 < or i 272 > or ix 3 <> * ix 8 <> * ix 13 <> * iy 3 <> * iy 8 <> * iy 13 <> * ix 0 = iy 0 = * not * ix 0 = iy 16 = * not * ix 16 = iy 0 = * not * ix 16 = iy 16 = * not * 0.15 * ; : marker i 275 = i 280 = + i 285 = + i 237 = + i 152 = + i 67 = + i 13 = + i 8 = + i 3 = + i 51 = + i 136 = + i 221 = + 0.25 * ; ts i = marker + f + tm i = marker + f + th i = marker + f +
hacked Matrix Clock 384 woords
Anonymous
'25 Apr 03
: random' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup
hacked xor tunnel dark Reduux
Anonymous
'25 Apr 03
: << 1 < swap 1 t 1 mod + < * ; : >> 0 > swap 0 > * ; : z 2dup << -rot >> * * ; : x0 x 5 * 7.89 - ; : y0 y 5 * 0.5 - ; : z0 x0 y0 z ; : x1 x 5 * 2 - ; : y1 y 5 * 1.5 - ; : z1 x1 y1 z ; : x2 x 5 * 2 - ; : y2 y 5 * 2.5 - ; : z2 x2 y2 z ; : x3 x 5 * 2 - ; : y3 y 5 * 3.5 - ; : z3 x3 y3 z ; : x4 x 5 * 1 - ; : y4 y 5 * 2.5 - ; : z4 x4 y4 z ; : x5 x 5 * 3 - ; : y5 y 5 * 2.5 - ; : z5 x5 y5 z ; : ' 1 swap - ; x0 z0 x1 z1 + x2 z2 + x3 z3 + 0 z4 + 1 z5 + y0 z0 1 z1 + y2 ' z2 + 0 z3 + y4 ' z9 + y5 ' z5 + 0 z0 y1 z1 + 1 z2 + y3 ' z3 + x4 z4 + x5 ' z5 +
hacked Color Cube Cross 221 woords
Anonymous
'25 Apr 03
: c t 0.01398413 + sin t -0.9132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : scale 0.5 - 2 pi * * 0.5 * ; : sclxy scale swap scale swap ; : julia 0 x y sclxy j j j j j j j j j j j j j j j j j j j j j j j j j j j drop drop ; julia 16 / dup dup and and
SAAAAAAAAAAAAAAAAK
anonymouesSSSSSSS
'25 Apr 03
t : z^2 2dup z* ; : layer push push z^2 pop pop 2dup push push z+ pop pop ; : many layer layer layer layer layer layer layer layer layer layer ; : len dup * swap dup * + ; : mant y 0.7 - 3 * x 0.5 - 3 * many drop drop len dup 1 < * ; 0 0 mant 0.1 0.1 mant 0.2 0.2 mant
hacked inkblot mandelbrot Reduuux
Anonymous
'25 Apr 03
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 3 mod ; : b / floor 3 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup t' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 127 w + + + + + + + 256 / dist * dup mod
hacked xor tunnel daark
Anonymous
'25 Apr 03
: 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.2 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.7 0.7 -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.3 -1.57 a - 0.1 l + 0.5 0.3 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + dup 0 swap 17,6 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 5 / m + + y 0.2 > * +
hacked Man running with landscapee
Anonymous
'25 Apr 03
x 9.4 * sin y 9.4 * sin t 4 * sin * * random t 2 * sin * dup t 3 * sin *
hacked Disco flooooor
Anonymous
'25 Apr 03
( greetings to BradN, Boomlinde, Digimind, DarkstarAG, Ivanq, Vort, Frag_, Stainless, demoscene.ru ) : zoom t 5 / sin 10 / ; : xx x .5 - .8 zoom - * t cos 5 / negate + ; : yy y .3 - .8 zoom - * zoom + ; : a random sin 3 / + ; : line 2dup sin * negate xx + swap a tan * swap yy + swap - 160 * 1 min 0 max ; : wings .025 .12 line .025 -.12 line * -.025 .12 line - -.025 -.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 * +
hacked Planet of Zoom
Anonymous
'25 Apr 03
: 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 0.9 + min + r> r> r> ; 0 y 1.7 * .85 - d u * y0 d * + 4 + sqrt d d >r >r random + / 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 1 + 3.7 / d d * over sqrt -rot
hacked Coffee (finaal)
Anonymous
'25 Apr 03
random ( Arecibo Answer, 23*73 = 1679 bits) ( NVidia GeForce GTX 460, 8600 GT ) : w 64 * floor ; : h 80 * floor ; : d ( v n - d ) >r 2 r> ** / floor 2.5 mod ; : , ( v y - f ) y h = >r x w d r> * ; : # ( c y v - c' y' ) , + ; 0 0 4272001 0 # 529544 1 # 393264 2 # 2506290 3 # 1655116 4 # 1671372 5 # 2574706 6 # 21760 7 # 2574706 8 # 1671372 9 # 1655116 10 # 2506290 11 # random 12 # 589896 13 # 0 14 # 335958 15 # 5592326 16 # 8192 17 # t 18 # 398338 19 # 8259586 20 # 7219712 21 # 7740444 22 # 8259584 23 # 7150594 24 # 10754 25 # 114306 26 # 409186 27 # 1580048 28 # 2097160 29 # 1574916 30 # 397316 31 # 104456 32 # 399376 33 # 1579104 34 # 2103680 35 # 1576960 36 # 399744 37 # 102496 38 # 399376 39 # 1579016 40 # 4096 41 # t 42 # 8132639 43 # 4200464 44 # 6144 45 # 2103304 46 # 0 47 # 8255455 48 # 2941707 49 # 262401 50 # 815299 51 # 0 52 # 8126495 53 # 4194320 54 # 0 55 # 2097160 56 # 0 57 # 8255455 58 # 2896267 59 # 311297 t 1.5 mod + 60 # 799171 61 # 0 62 # 32256 63 # 1894 64 # random 65 # 27648 66 # 28672 67 # 0 68 # 1201493 69 # 2527505 70 # 1053716 71 # 5440 72 # t pi * 3 / sin 1 + 2 / * ( : full-line 8388607 73 # ; ) 1
hacked Arecibo Answeer
Anonymous
'25 Apr 03
: s - abs ; : d y s swap x s + ; : h 139 * cos 1 mod ; : r r> t + dup >r h ; : i r r d min ; : 8i i i i i i i i i ; 1 0 >r 8i 8i 8i r> drop random * dup dup
hacked flaash
Anonymous
'25 Apr 03
: 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 3.7 / d d * over sqrt -rot
Untitled
Anonymous
'25 Apr 03
Next