graphics/fract.bas

   1 ' by Svjatoslav Agejenko\r
   2 ' 04.2003\r
   3 \r
   4 DECLARE SUB ga (x!, y!, s!)\r
   5 DIM SHARED depth\r
   6 DIM SHARED m1, m2, m3, m4\r
   7 SCREEN 7, , , 1\r
   8 \r
   9 depth = 1\r
  10 1\r
  11 frm = frm + 1\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
  16 PCOPY 0, 1\r
  17 CLS\r
  18 ga 160, 100, 40\r
  19 SOUND 0, .4\r
  20 a$ = INKEY$\r
  21 IF a$ <> "" THEN SYSTEM\r
  22 GOTO 1\r
  23 \r
  24 SUB ga (x, y, s)\r
  25 IF s > 1 THEN\r
  26   depth = depth + 1\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
  32   depth = depth - 1\r
  33 END IF\r
  34 END SUB\r
  35 \r