' by Svjatoslav Agejenko
' 04.2003

DECLARE SUB ga (x!, y!, s!)
DIM SHARED depth
DIM SHARED m1, m2, m3, m4
SCREEN 7, , , 1

depth = 1
1
frm = frm + 1
m1 = SIN(frm / 19) * 1 + 3
m2 = SIN(frm / 12) * 1 + 3
m3 = SIN(frm / 17) * 1 + 3
m4 = SIN(frm / 22) * 1 + 3
PCOPY 0, 1
CLS
ga 160, 100, 40
SOUND 0, .4
a$ = INKEY$
IF a$ <> "" THEN SYSTEM
GOTO 1

SUB ga (x, y, s)
IF s > 1 THEN
  depth = depth + 1
  LINE (x - s, y - s)-(x + s, y + s), depth, BF
  ga x - s, y - s, s / m1
  ga x + s, y - s, s / m2
  ga x + s, y + s, s / m3
  ga x - s, y + s, s / m4
  depth = depth - 1
END IF
END SUB