*

: x x .5 - ;
: y y .5 - ;
: r x 2 ** y 2 ** + sqrt ;
: x a t + sin r * ;
: y a t + cos r * ;
: r x 2 ** y 2 ** + sqrt ;
: r1 x 2 ** y .247 - 2 ** + sqrt ;
: r2 x 2 ** y -.245 - 2 ** + sqrt ;
r .5 > \ 大黑圓
r .49 < \ 半大不小圓
x 0 < and \ 半白圓 半黑圓
r1 .243 < or \ 上白圓
r2 .245 > and \ 下黑圓
dup dup

comments powered by Disqus