graphics/animations/water1.bas

   1 ' Wave simulation\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2003.12\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslavagejenko@gmail.com\r
   6  \r
   7 SCREEN 13\r
   8 \r
   9 DIM SHARED yh(1 TO 300)\r
  10 DIM SHARED yhs(1 TO 300)\r
  11 \r
  12 \r
  13 FOR x = 1 TO 300\r
  14 yhs(x) = 0\r
  15 yh(x) = 100\r
  16 NEXT x\r
  17 \r
  18 FOR x = 140 TO 160\r
  19 yh(x) = 150\r
  20 NEXT x\r
  21 \r
  22 \r
  23 \r
  24 1\r
  25 FOR x = 1 TO 300\r
  26   LINE (x, 0)-(x, 200 - yh(x)), 0\r
  27   LINE (x, 200 - yh(x))-(x, 200), 15\r
  28 NEXT x\r
  29 \r
  30 FOR x = 10 TO 290\r
  31   hk = (yh(x - 1) + yh(x + 1) + yh(x + 2) + yh(x - 2)) / 4\r
  32   yhs(x) = yhs(x) + (hk - yh(x)) / 5\r
  33   yhs(x) = yhs(x) / 1.01\r
  34 NEXT x\r
  35 \r
  36 FOR x = 10 TO 290\r
  37   yh(x) = yh(x) + yhs(x)\r
  38   yh(x - 1) = yh(x - 1) + yhs(x) / 2\r
  39   yh(x + 1) = yh(x + 1) + yhs(x) / 2\r
  40 NEXT x\r
  41 \r
  42 SOUND 0, .5\r
  43 IF INKEY$ <> "" THEN SYSTEM\r
  44 GOTO 1\r
  45 \r
  46 \r