*




: d dup ;
: m 0.5 * 0.4 + - ;

: r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ;
: e 4.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 .15 <
p 3 * sin m e * - a 0.03 < *
p 2 * cos m 1 e - * - a 0.97 > *

comments powered by Disqus