graphics/animations/movdna.bas

   1 ' Svjatoslav Agejenko\r
   2 \r
   3 DEFINT A-Y\r
   4 \r
   5 DIM SHARED cx(1 TO 100)\r
   6 DIM SHARED cy(1 TO 100)\r
   7 DIM SHARED cz(1 TO 100)\r
   8 DIM SHARED cc(1 TO 100)\r
   9 \r
  10 SCREEN 7, , , 1\r
  11 f = 0\r
  12 1\r
  13 b = 0\r
  14 zf = zf + .1\r
  15 FOR a = 1 TO 20\r
  16 \r
  17 b = b + 1\r
  18 cx(b) = SIN(a / 2 + zf) * 30 + 150\r
  19 cz(b) = SIN(a / 2 + zf + 1.6) * 2 + 2\r
  20 cy(b) = a * 8 + cz(b)\r
  21 cc(b) = 3\r
  22 b = b + 1\r
  23 cx(b) = SIN(a / 2 + zf + 2.5) * 30 + 150\r
  24 cz(b) = SIN(a / 2 + zf + 1.6 + 2.5) * 2 + 2\r
  25 cy(b) = a * 8 + cz(b)\r
  26 cc(b) = 4\r
  27 NEXT a\r
  28 \r
  29 CLS\r
  30 FOR b = 0 TO 4\r
  31 \r
  32 IF b = 1 THEN\r
  33 FOR a = 1 TO 40 STEP 2\r
  34 LINE (cx(a), cy(a))-(cx(a + 1), cy(a + 1)), 15\r
  35 NEXT a\r
  36 END IF\r
  37 \r
  38 FOR a = 1 TO 40\r
  39 IF cz(a) = b THEN\r
  40 CIRCLE (cx(a), cy(a)), b + 5, cc(a)\r
  41 PAINT (cx(a), cy(a)), cc(a)\r
  42 CIRCLE (cx(a), cy(a)), b + 5, 0\r
  43 END IF\r
  44 NEXT a\r
  45 NEXT b\r
  46 PCOPY 0, 1\r
  47 CLS\r
  48 IF INKEY$ = "" THEN GOTO 1\r
  49 SYSTEM\r
  50 \r