graphics/fract2.bas

   1 ' by Svjatoslav Agejenko\r
   2 ' 04.2003\r
   3 \r
   4 DECLARE SUB ga (x!, y!, s!)\r
   5 DIM SHARED m1, m2, m3\r
   6 DIM SHARED v11, v12\r
   7 DIM SHARED v21, v22\r
   8 DIM SHARED v31, v32\r
   9 SCREEN 7, , , 1\r
  10 \r
  11 1\r
  12 frm = frm + 1\r
  13 m1 = SIN(frm / 19) + 3\r
  14 m2 = SIN(frm / 12) + 3\r
  15 m3 = SIN(frm / 17) + 3\r
  16 \r
  17 v11 = SIN(frm / 13) / 3 + 1\r
  18 v12 = SIN(frm / 18) / 3 + 1\r
  19 \r
  20 v21 = SIN(frm / 20) / 3 + 1\r
  21 v22 = SIN(frm / 28) / 3 + 1\r
  22 \r
  23 v31 = SIN(frm / 31) / 3 + 1\r
  24 v32 = SIN(frm / 24) / 3 + 1\r
  25 \r
  26 PCOPY 0, 1\r
  27 CLS\r
  28 ga 160, 180, 80\r
  29 SOUND 0, .5\r
  30 a$ = INKEY$\r
  31 IF a$ <> "" THEN SYSTEM\r
  32 GOTO 1\r
  33 \r
  34 SUB ga (x, y, s)\r
  35 IF s > 1 THEN\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
  41   ga x, y - s, s / m3\r
  42 END IF\r
  43 END SUB\r
  44 \r