graphics/animations/sun&eart.bas

   1 ' Sun; Earth and Moon\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 1999\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslav@svjatoslav.eu\r
   6  \r
   7 \r
   8 DECLARE SUB maa (a2%, b2%, c2%)\r
   9 DEFINT A-Y\r
  10 DIM SHARED zw\r
  11 DIM SHARED zy\r
  12 SCREEN 7, , , 1\r
  13 \r
  14 \r
  15 \r
  16 z = 0\r
  17 1\r
  18 z = z + .01\r
  19 a1 = SIN(z) * 100 + 100\r
  20 b1 = COS(z) * 30 + 100\r
  21 IF b1 >= 100 THEN CIRCLE (100, 100), 50, 12: PAINT (100, 100), 12\r
  22 maa a1, b1, (b1 - 70) / 2 + 2\r
  23 IF b1 < 100 THEN CIRCLE (100, 100), 50, 12: PAINT (100, 100), 12\r
  24 PCOPY 0, 1\r
  25 CLS\r
  26 IF INKEY$ = "" THEN GOTO 1\r
  27 SYSTEM\r
  28 \r
  29 SUB maa (a2, b2, c2)\r
  30 ed = (b2 - 70) / 2 + 2\r
  31 \r
  32 zw = zw + .1\r
  33 zy = zy + .01\r
  34 \r
  35 a1 = SIN(zw) * ed * 2\r
  36 b1 = COS(zw) * 10\r
  37 \r
  38 IF b1 > 0 THEN CIRCLE (a2, b2), c2, 1: PAINT (a2, b2), 1\r
  39 \r
  40 CIRCLE (a1 + a2, b1 + b2), ((b1 + 20) * ed) \ 50, 14\r
  41 PAINT (a1 + a2, b1 + b2), 14\r
  42 \r
  43 IF b1 <= 0 THEN CIRCLE (a2, b2), c2, 1: PAINT (a2, b2), 1\r
  44 END SUB\r
  45 \r