graphics/animations/ssaver.bas

   1 ' Mystery screensaver\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' last edit 2004.01\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslavagejenko@gmail.com\r
   6  \r
   7 SCREEN 7, , , 1\r
   8 \r
   9 \r
  10 1\r
  11 frm = frm + 1\r
  12 \r
  13 f = (SIN(frm / 100) + 1.1) * 2\r
  14 FOR s = 1 TO 20 STEP .1\r
  15   x = SIN(s / 1 + frm / 7) * 100\r
  16   y = COS(s / 1 + frm / 10) * 100\r
  17   x1 = SIN(s / 1 - frm / 8) * 100\r
  18   y1 = COS(s / 1 + frm / 15) * 100\r
  19   LINE (x + 160, y + 100)-(x1 + 160, y1 + 100), s MOD 15\r
  20 NEXT s\r
  21 \r
  22 \r
  23 PCOPY 0, 1\r
  24 SOUND 0, 1\r
  25 CLS\r
  26 IF INKEY$ <> "" THEN SYSTEM\r
  27 GOTO 1\r
  28 \r