graphics/animations/ssaver2.bas

   1 ' Svjatoslav Agejenko 2003.04\r
   2 \r
   3 SCREEN 7, , , 1\r
   4 \r
   5 1\r
   6 IF frm > 10000 THEN frm = -10000\r
   7 FOR c = 1 TO 6\r
   8   OUT &H3C8, c\r
   9   OUT &H3C9, SIN(c + frm * 3) * 30 + 31\r
  10   OUT &H3C9, COS(c * 1 + frm * 5) * 30 + 31\r
  11   OUT &H3C9, SIN(c * .7 + frm * 2.23) * 30 + 31\r
  12 NEXT c\r
  13 \r
  14 frm = frm + .01\r
  15 \r
  16 FOR b = 1 TO 10\r
  17   c = (b MOD 6) + 1\r
  18   x = SIN(b + frm) * 100 + 150\r
  19   y = COS(b * 1.2 + frm * 1.81) * 80 + 100\r
  20   xs = SIN(b * frm * 2.3)\r
  21   FOR xp = -50 TO 50 STEP 10\r
  22   ys = COS(xp / 60 + frm * 1 + b) * 50\r
  23   LINE (x, y)-(x + xp * xs, y - ys), c\r
  24   NEXT xp\r
  25 NEXT b\r
  26 PCOPY 0, 1\r
  27 CLS\r
  28 SOUND 0, .4\r
  29 IF INKEY$ <> "" THEN SYSTEM\r
  30 GOTO 1\r
  31 \r