*

: x 2 4 x * - ;
: y 2 4 y * - ;
: ts t sin ;
: tc t cos ;
: 2ts t 2 * sin ;
: 2tc t 2 * cos ;


: ball x + swap y + swap dup * swap dup * + dup 1 swap - dup * swap 1 < min ;
0 2ts ball
2ts tc 2 * ball
dup+ 0.4 >

comments powered by Disqus