: d dup ;
: p x t pi / d floor - 1.4 * .2 - ;
: r - d * + sqrt .018 < ;
p - d * y .5 - d * + sqrt .16 <
y .5 - p - atan2 abs t 10 * cos abs .8 * > *
p - d * y .58 r -
x x 8 * floor .5 + 8 / - d *
y .5 r
p > * +
d .2