: x x .5 - ;
: y y .5 - ;
1
x x * y y * + sqrt 4 *
y x atan2
- t - 5 *
abs 2 pi * mod pi -
-
pi /
dup sqrt 2dup + abs .6 *
( 122 bytes )