1 ' by Svjatoslav Agejenko
\r
4 DECLARE SUB ga (x!, y!, s!)
\r
5 DIM SHARED m1, m2, m3
\r
13 m1 = SIN(frm / 19) + 3
\r
14 m2 = SIN(frm / 12) + 3
\r
15 m3 = SIN(frm / 17) + 3
\r
17 v11 = SIN(frm / 13) / 3 + 1
\r
18 v12 = SIN(frm / 18) / 3 + 1
\r
20 v21 = SIN(frm / 20) / 3 + 1
\r
21 v22 = SIN(frm / 28) / 3 + 1
\r
23 v31 = SIN(frm / 31) / 3 + 1
\r
24 v32 = SIN(frm / 24) / 3 + 1
\r
31 IF a$ <> "" THEN SYSTEM
\r
36 LINE (x, y)-(x - s * v11, y - s * v12), 15
\r
37 LINE (x, y)-(x + s * v21, y - s * v22), 15
\r
38 LINE (x, y)-(x, y - s), 15
\r
39 ga x - s * v11, y - s * v12, s / m1
\r
40 ga x + s * v21, y - s * v22, s / m2
\r