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 = 0 TO 97.35 STEP .15
\r
15 su = SIN(a / 31) * 100
\r
16 x = SIN(a) * su * 3 + 320
\r
17 y = COS(a) * su + 250
\r
18 y = y - (COS(a / 31) * 200)
\r
24 FOR a = 97.35 TO 0 STEP -.15
\r
26 su = SIN(a / 31) * 50
\r
27 x = SIN(a) * su * 3 + 320
\r
28 y = COS(a) * su + 350
\r
29 y = y - (COS(a / 31) * 100)
\r
35 FOR a = 0 TO 97.35 STEP .15
\r
37 su = SIN(a / 31) * 25
\r
38 x = SIN(a) * su * 3 + 320
\r
39 y = COS(a) * su + 300
\r
40 y = y - (COS(a / 31) * 50)
\r
46 FOR a = 97.35 TO 0 STEP -.15
\r
48 su = SIN(a / 31) * 12.5
\r
49 x = SIN(a) * su * 3 + 320
\r
50 y = COS(a) * su + 325
\r
51 y = y - (COS(a / 31) * 25)
\r
57 zzx = (tor - 42) / 4
\r
59 FOR a = 1 TO zzx * 4
\r
60 LINE (torux(a), toruy(a))-(torux(a + 42), toruy(a + 42)), 15
\r
61 LINE (torux(a), toruy(a))-(torux(a + 1), toruy(a + 1)), 15
\r