*

: p4 pi 4 / ;
: p2 pi 2 / ;
: r22 2 sqrt 2 / ;
: s 8 ;
: r t p4 - cos t p4 - sin z* ;
: o t .5 * p2 mod p4 > ;
: lxy
x s * o - 2 mod 1 -
y s * o - 2 mod 1 -
;
: a
lxy r
abs r22 < swap
abs r22 < *
o =
;
lxy r abs swap abs max r22 - abs .05 <
x a - r
a y - r

comments powered by Disqus