*

: v dup 0.008 - x < Swap 0.008 + x > and ;
: h dup 0.008 - y < Swap 0.008 + y > and ;
T sin 0.5 * 0.5 + v
T 10 + sin 0.5 * 0.5 + h or

comments powered by Disqus