*

: e .1 ;
: x x .5 - ; : y y .5 - ;
: x x 7 * cos ; : y y 7 * sin ;
: lines >r .5 e * + r> * dup
floor - e < ;
: net >r x r@ lines y r@ floor
x y + r@ lines
x y - r> lines or ;
t 1 / sin 6 * 2 + net

Based on: net Redux Redux - Shin En


comments powered by Disqus