PONG game -
www.manwe.ru
'24 Dec 14
: 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
▶
*
:
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
Create a derived work
Printer View