graphics/animations/strange.bas

   1 ' Svjatoslav Agejenko 2000\r
   2 \r
   3 DECLARE SUB cir (x!, y!, r!, c!)\r
   4 SCREEN 13\r
   5 pi = 3.1415926#\r
   6 PAINT (1, 1), 1\r
   7 1\r
   8 x = SIN(a) * 40 + 160\r
   9 x1 = SIN(a + pi) * 40 + 160\r
  10 y = COS(a) * 34 + 100\r
  11 y1 = COS(a + pi) * 34 + 100\r
  12 cir x, y, 40, 0\r
  13 cir x1, y1, 40, 1\r
  14 a = a + .05\r
  15 IF INKEY$ <> "" THEN SYSTEM\r
  16 GOTO 1\r
  17 \r
  18 SUB cir (x, y, r, c)\r
  19 cc1 = 0\r
  20 cc2 = 15\r
  21 IF c = 1 THEN SWAP cc1, cc2\r
  22 FOR a = 1 TO r\r
  23 IF a < r / 2 THEN c1 = cc1 ELSE c1 = cc2\r
  24 CIRCLE (x, y), a, c1\r
  25 NEXT a\r
  26 END SUB\r
  27 \r