2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DIM SHARED torux(1 TO 10000)
\r
8 DIM SHARED toruy(1 TO 10000)
\r
13 FOR a = 1 TO 100 STEP .05
\r
16 x = SIN(a) * su * 3 + 320
\r
17 y = COS(a) * su + 300
\r
18 y = y + (SIN((a + 20) / 10) * a)
\r
24 FOR a = 1 TO tor - 125
\r
25 LINE (torux(a), toruy(a))-(torux(a + 125), toruy(a + 125)), 15
\r