graphics/animations/orbiit.bas

   1 ' Svjatoslav Agejenko\r
   2 \r
   3 DEFINT A-Y\r
   4 SCREEN 7, , , 1\r
   5 RANDOMIZE TIMER\r
   6 DIM SHARED zme(1 TO 100)\r
   7 DIM SHARED zme1(1 TO 100)\r
   8 DIM SHARED zme2(1 TO 100)\r
   9 \r
  10 \r
  11 \r
  12 FOR a = 1 TO 100\r
  13 zme2(a) = RND * 15\r
  14 zme1(a) = RND * 100\r
  15 zme(a) = RND * 100\r
  16 NEXT a\r
  17 1\r
  18 CLS\r
  19 FOR a = 1 TO 50\r
  20 z2 = zme(a)\r
  21 z1 = zme1(a)\r
  22 c = zme2(a)\r
  23 x = SIN(z2) * 25\r
  24 y = SIN(z1) * 20\r
  25 zb = (COS(z2) + 2) * 2\r
  26 x = x * zb\r
  27 y = y * zb\r
  28 CIRCLE (x + 160, y + 100), zb, c\r
  29 PAINT (x + 160, y + 100), c\r
  30 LINE (160, 100)-(x + 160, y + 100), c\r
  31 \r
  32 zme(a) = zme(a) + .1\r
  33 NEXT a\r
  34 PCOPY 0, 1\r
  35 IF INKEY$ <> "" THEN SYSTEM\r
  36 SOUND 0, 1\r
  37 GOTO 1\r
  38 \r
  39 \r