2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DIM SHARED px(1000) ' point x & y location
\r
9 DIM SHARED ox(1000) ' point old x & y location
\r
15 np = 0 'Set points to them place
\r
25 nrk = 0 'start angle
\r
33 PSET (ox(a), oy(a)), 0
\r
38 x1 = x * s1 + y * c1
\r
39 y1 = x * c1 - y * s1
\r
50 IF INKEY$ = "" THEN GOTO 1
\r