home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / BADEYE.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  521 b   |  48 lines
  1.  
  2.  
  3. function cdisks(x, y, rad, color)
  4. {
  5. int rrad;
  6. int i;
  7.  
  8. for i = 8 to 1 step -1
  9.     {
  10.     rrad = i*rad>>3
  11.     Circle(x, y, rrad, color)
  12.     color = color + 1;
  13.     }
  14. Swap()
  15. Vsync()
  16. }
  17.  
  18.  
  19. function grow_disk(color)
  20. {
  21. int rad, i
  22.  
  23. for rad = 0 to 50 step 2
  24.     {
  25.     ClearScreen()
  26.     cdisks(160, 100, rad, color)
  27.     color = color + 1
  28.     }
  29.  
  30. for rad = 50 to 0 step -2
  31.     {
  32.     ClearScreen()
  33.     cdisks(160, 100, rad, color)
  34.     color = color - 1
  35.     }
  36. }
  37.  
  38.  
  39. PreSwap()
  40.  
  41. int ix
  42. loop
  43.     {
  44.     grow_disk(ix%15+1)
  45.     ix = ix+1
  46.     }
  47. WaitKey()
  48.