*

: n t 7 mod floor 3 + ;
: 2pi/n 2 pi * n / ; : pi/n pi n / ;
: spoke 2pi/n mod pi/n - abs ;
: r ( x y -- r ) 2 ** swap 2 ** + .5 ** ;
: a ( x y -- a ) swap atan2 ;
: polar 2dup r -rot a ;
: wedge dup cos 1.376
n 5 / 2 ** * \ adjust
* swap sin - * .268 <= ;
: gram spoke wedge ;
: x x .5 - ; : y y .5 - ;
x y polar ( r a )
over .4 < ( r a circle ) >r
over .3 > ( r a hole ) >r
pi 2 / - gram
r> r>

Based on: Zap - Duke of New York


comments powered by Disqus