1 ' Svjatoslav Agejenko
\r
5 DIM SHARED cx(1 TO 100)
\r
6 DIM SHARED cy(1 TO 100)
\r
7 DIM SHARED cz(1 TO 100)
\r
8 DIM SHARED cc(1 TO 100)
\r
18 cx(b) = SIN(a / 2 + zf) * 30 + 150
\r
19 cz(b) = SIN(a / 2 + zf + 1.6) * 2 + 2
\r
20 cy(b) = a * 8 + cz(b)
\r
23 cx(b) = SIN(a / 2 + zf + 2.5) * 30 + 150
\r
24 cz(b) = SIN(a / 2 + zf + 1.6 + 2.5) * 2 + 2
\r
25 cy(b) = a * 8 + cz(b)
\r
33 FOR a = 1 TO 40 STEP 2
\r
34 LINE (cx(a), cy(a))-(cx(a + 1), cy(a + 1)), 15
\r
40 CIRCLE (cx(a), cy(a)), b + 5, cc(a)
\r
41 PAINT (cx(a), cy(a)), cc(a)
\r
42 CIRCLE (cx(a), cy(a)), b + 5, 0
\r
48 IF INKEY$ = "" THEN GOTO 1
\r