*

: x' x 0.5 - 2 * ;
: y' y 0.5 - 2 * ;
: len dup * swap dup * + sqrt ;
: polar x' y' atan2 x' y' len ;
polar swap 11 * + sin
polar 10 * + cos
polar 30 * + negate sin

comments powered by Disqus