graphics/3D/KHK Intellektika 2004 demo/khkdemo4.BAS

   1 DECLARE SUB ga (x!, y!, s!)\r
   2 DIM SHARED colr         ' this variable holds fractal color\r
   3                         ' and because it is 'SHARED' it is accessible\r
   4                         ' from within sub module.\r
   5 SCREEN 12\r
   6 \r
   7 colr = 10                               ' display single fractel\r
   8 ga 320, 240, 127\r
   9 \r
  10 FOR a = 1 TO 50\r
  11   SOUND 0, 1\r
  12 NEXT a\r
  13 CLS\r
  14 \r
  15 FOR a = 1 TO 128 STEP 5                 ' display fractal serie\r
  16   colr = RND * 7 + 7\r
  17   ga 320, 240, a\r
  18 NEXT a\r
  19 \r
  20 FOR a = 1 TO 50\r
  21   SOUND 0, 1\r
  22 NEXT a\r
  23 \r
  24 CHAIN "khkdemo5.bas"\r
  25 \r
  26 SUB ga (x, y, s)\r
  27 IF s >= 1 THEN\r
  28   LINE (x - s, y - s)-(x + s, y + s), colr, B\r
  29   ga x - s, y - s, s / 2.3  ' each fractel sub element is 2.3 times smaller\r
  30   ga x + s, y - s, s / 2.3  ' than previous.\r
  31   ga x + s, y + s, s / 2.3\r
  32   ga x - s, y + s, s / 2.3\r
  33 END IF\r
  34 END SUB\r
  35 \r