: 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