*

: x x 0.5 - 2 * ;
: y y 0.5 - 2 * ;
: d x x * y y * + ;
y x atan2 2 * d 5 * + sin
y x atan2 5 * d 2 * + sin
2dup - abs -rot * dup 1.7 * swap rot .5 * swap over .5 * + swap
d .1 + y x atan2 7 * sin .1 * + 20 pow 1 swap -

comments powered by Disqus