' by Svjatoslav Agejenko ' 04.2003 DECLARE SUB ga (x!, y!, s!) DIM SHARED m1, m2, m3 DIM SHARED v11, v12 DIM SHARED v21, v22 DIM SHARED v31, v32 SCREEN 7, , , 1 1 frm = frm + 1 m1 = SIN(frm / 19) + 3 m2 = SIN(frm / 12) + 3 m3 = SIN(frm / 17) + 3 v11 = SIN(frm / 13) / 3 + 1 v12 = SIN(frm / 18) / 3 + 1 v21 = SIN(frm / 20) / 3 + 1 v22 = SIN(frm / 28) / 3 + 1 v31 = SIN(frm / 31) / 3 + 1 v32 = SIN(frm / 24) / 3 + 1 PCOPY 0, 1 CLS ga 160, 180, 80 SOUND 0, .5 a$ = INKEY$ IF a$ <> "" THEN SYSTEM GOTO 1 SUB ga (x, y, s) IF s > 1 THEN LINE (x, y)-(x - s * v11, y - s * v12), 15 LINE (x, y)-(x + s * v21, y - s * v22), 15 LINE (x, y)-(x, y - s), 15 ga x - s * v11, y - s * v12, s / m1 ga x + s * v21, y - s * v22, s / m2 ga x, y - s, s / m3 END IF END SUB