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
9 DIM SHARED sinus1(1 TO 10000)
\r
10 DIM SHARED sinus2(1 TO 10000)
\r
15 FOR a = 1 TO 150 STEP .05
\r
18 x = SIN(a) * su * 3 + 320
\r
19 y = COS(a) * su + 300
\r
20 y = y + (SIN((a + 20) / 10) * (a / 5 + 1))
\r
21 sinus1(tor) = SIN(a)
\r
22 sinus2(tor) = SIN((a + 20) / 10)
\r
28 FOR a = 1 TO tor - 127
\r
29 LINE (torux(a), toruy(a))-(torux(a + 126), toruy(a + 126)), 15
\r
32 IF sinus1(a) > .8 AND sinus2(a) < sinus2(a + 125) THEN tee = 0
\r
33 IF sinus1(a) < -.2 AND sinus2(a) - .4 > sinus2(a + 125) THEN tee = 0
\r
34 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 1), toruy(a + 1)), 15
\r
37 IF sinus1(a) > .8 AND sinus2(a) > sinus2(a + 125) THEN tee = 1
\r
38 IF sinus1(a) < -.2 AND sinus2(a) < sinus2(a + 125) THEN tee = 1
\r
39 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 127), toruy(a + 127)), 15
\r
42 IF sinus1(a) > .9 AND sinus2(a) > sinus2(a + 125) THEN tee = 1
\r
43 IF sinus1(a) < -.5 AND sinus2(a) < sinus2(a + 125) THEN tee = 1
\r
44 IF tee = 1 THEN LINE (torux(a), toruy(a))-(torux(a + 125), toruy(a + 125)), 15
\r