*

\ Rotation Prefix
: x x .5 - ;
: y y .5 - ;
: a x y atan2 ;
: r x 2 ** y 2 ** + sqrt ;
: x a t - sin r * ;
: y a t - cos r * ;
: x x .5 + ;
: y y .5 + ;

: d dup ;
: m 0.4 * 0.5 + - ;
: a y - abs 0.1 < x ;
: r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ;
: e 2.9 r 0.94 * 0.03 + ;
: f 3.7 r ;
: p f 0.9 * 0.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 0.97 > *
+ + d d

Based on: PONG game - www.manwe.ru


comments powered by Disqus