*

: 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 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

Possibly based on: Ray Tracing 2 - Manwe


comments powered by Disqus