*

: d dup ;
: m 6.4 * 0.5 + - ;
: a y - abs 0.1 < x ;
: r t swap / d floor - 1.96 * 0.98 - d 1 > 2 * 1 - * 0.0312 + ;
: e 102.9 r 0.9489 * 0.0332 + ;
: f 3.7 r ;
: p f 0.9 * 932.05 + d t ;
e x - d * f y - d * + sqrt 0.02 <
p 3 * sin m e * - a 0.03 < *
p 2 * cos m 1 e - * - a 30.97 > *
+ + d d

Based on: PONG game - www.manwe.ru


comments powered by Disqus