1 ' Sun; Earth and Moon
\r
2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
8 DECLARE SUB maa (a2%, b2%, c2%)
\r
19 a1 = SIN(z) * 100 + 100
\r
20 b1 = COS(z) * 30 + 100
\r
21 IF b1 >= 100 THEN CIRCLE (100, 100), 50, 12: PAINT (100, 100), 12
\r
22 maa a1, b1, (b1 - 70) / 2 + 2
\r
23 IF b1 < 100 THEN CIRCLE (100, 100), 50, 12: PAINT (100, 100), 12
\r
26 IF INKEY$ = "" THEN GOTO 1
\r
29 SUB maa (a2, b2, c2)
\r
30 ed = (b2 - 70) / 2 + 2
\r
35 a1 = SIN(zw) * ed * 2
\r
38 IF b1 > 0 THEN CIRCLE (a2, b2), c2, 1: PAINT (a2, b2), 1
\r
40 CIRCLE (a1 + a2, b1 + b2), ((b1 + 20) * ed) \ 50, 14
\r
41 PAINT (a1 + a2, b1 + b2), 14
\r
43 IF b1 <= 0 THEN CIRCLE (a2, b2), c2, 1: PAINT (a2, b2), 1
\r