*

: r .5 - abs .167 < ;
: s 3 * 1 mod ;
: z 1 t 1 * 1 mod .66 pow .666 * - ;
x y t .314 * dup cos swap sin z*
z 0 z*
3 / swap 3 / swap
2dup r swap r * -rot s swap s
2dup r swap r * -rot s swap s
2dup r swap r * -rot s swap s
2dup r swap r * -rot s swap s
2dup r swap r * -rot s swap s
2dup r swap r * -rot s swap s
drop drop
+ + + + + dup dup

comments powered by Disqus