*

\ Rotation Prefix
: x x .5 - ;
: y y .5 - ;
: a x y atan2 ;
: r x 2 ** y 2 ** + sqrt ;
: x a t - sin r * ;
: y a t - cos r * ;
\ Draw Taichi
: 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 \ 下黑圓
r1 .05 > and \ 上小黑圓
r2 .05 < or \ 下小白圓
or
dup dup

Based on: 太極 Tai Chi - Ricky and Justin


comments powered by Disqus