1 ' Gravitation simulation
\r
2 ' made by Svjatoslav Agejenko
\r
4 ' homepage: svjatoslav.eu
\r
5 ' email: svjatoslav@svjatoslav.eu
\r
17 CIRCLE (320, 240), 100, 3
\r
18 CIRCLE (320, 240), 2, 3
\r
22 v = SQR(x * x + y * y)
\r
27 xs = xs + (j * (-x) / s)
\r
28 ys = ys + (j * (-y) / s)
\r
31 CIRCLE (x + 320, y + 240), 2, 14
\r
32 LINE (x + 320, y + 240)-(320, 240), 1
\r