*

: x x 0.5 - ;
: y y 0.5 - ;
x x * y y * + sqrt
x y atan2 dup 7 * sin 0.05 * 0.3 +
swap 77 * sin 0.01 * + <

comments powered by Disqus