*

: 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

Based on: Coffee (final) - Manwe


comments powered by Disqus