home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / QB4GRAF.ZIP / PALETTE.BAS < prev    next >
BASIC Source File  |  1989-05-16  |  731b  |  49 lines
  1. DECLARE SUB INITPALETTE ()
  2. DECLARE SUB CHANGEPALETTE ()
  3. DECLARE SUB DRAWELLIPSES ()
  4. DEFINT A-Z
  5. DIM SHARED PALETTEARRAY(15)
  6. SCREEN 8
  7. INITPALETTE
  8. DRAWELLIPSES
  9. DO
  10.    CHANGEPALETTE
  11. LOOP WHILE INKEY$ = ""
  12. END
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21. SUB CHANGEPALETTE STATIC
  22.  
  23.    FOR I = 1 TO 15
  24.       PALETTEARRAY(I) = (PALETTEARRAY(I) MOD 15) + 1
  25.    NEXT I
  26.    PALETTE USING PALETTEARRAY(0)
  27.   
  28. END SUB
  29.  
  30. SUB DRAWELLIPSES STATIC
  31.  
  32.      CONST ASPECT = 1 / 3
  33.      FOR COLORVAL = 15 TO 1 STEP -1
  34.         RADIUS = 20 * COLORVAL
  35.         CIRCLE (320, 100), RADIUS, COLORVAL, , , ASPECT
  36.         PAINT (320, 100), COLORVAL
  37.      NEXT
  38.  
  39. END SUB
  40.  
  41. SUB INITPALETTE STATIC
  42.  
  43.    FOR I = 0 TO 15
  44.       PALETTEARRAY(I) = I
  45.    NEXT I
  46.  
  47. END SUB
  48.  
  49.