1 ' by Svjatoslav Agejenko
\r
4 DECLARE SUB ga (x!, y!, s!)
\r
6 DIM SHARED m1, m2, m3, m4
\r
12 m1 = SIN(frm / 19) * 1 + 3
\r
13 m2 = SIN(frm / 12) * 1 + 3
\r
14 m3 = SIN(frm / 17) * 1 + 3
\r
15 m4 = SIN(frm / 22) * 1 + 3
\r
21 IF a$ <> "" THEN SYSTEM
\r
27 LINE (x - s, y - s)-(x + s, y + s), depth, BF
\r
28 ga x - s, y - s, s / m1
\r
29 ga x + s, y - s, s / m2
\r
30 ga x + s, y + s, s / m3
\r
31 ga x - s, y + s, s / m4
\r