2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
8 DECLARE SUB show (d%)
\r
9 DECLARE SUB setpal ()
\r
10 DECLARE SUB showpal ()
\r
14 DIM SHARED x(1 TO 500)
\r
15 DIM SHARED y(1 TO 500)
\r
16 DIM SHARED s(1 TO 500)
\r
18 DIM SHARED x4(1 TO 500)
\r
19 DIM SHARED y4(1 TO 500)
\r
21 DIM SHARED z(1 TO 500)
\r
47 x4(mitu + a) = RND * 4 - 2
\r
48 y4(mitu + a) = RND * 4 - 2
\r
75 CIRCLE (x1, y1), s1 / 100, c
\r
77 x(d) = x(d) + (SIN(z1) * 1000) / (s1 + 15)
\r
78 y(d) = y(d) + (COS(z1) * 1000) / (s1 + 15)
\r
81 IF x4(d) >= 0 THEN z(d) = z(d) + .1 ELSE z(d) = z(d) - .1
\r
88 LINE (a * 10, 1)-(a * 10 + 10, 100), a, BF
\r