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 >
Wrap
BASIC Source File
|
1989-05-16
|
731b
|
49 lines
DECLARE SUB INITPALETTE ()
DECLARE SUB CHANGEPALETTE ()
DECLARE SUB DRAWELLIPSES ()
DEFINT A-Z
DIM SHARED PALETTEARRAY(15)
SCREEN 8
INITPALETTE
DRAWELLIPSES
DO
CHANGEPALETTE
LOOP WHILE INKEY$ = ""
END
SUB CHANGEPALETTE STATIC
FOR I = 1 TO 15
PALETTEARRAY(I) = (PALETTEARRAY(I) MOD 15) + 1
NEXT I
PALETTE USING PALETTEARRAY(0)
END SUB
SUB DRAWELLIPSES STATIC
CONST ASPECT = 1 / 3
FOR COLORVAL = 15 TO 1 STEP -1
RADIUS = 20 * COLORVAL
CIRCLE (320, 100), RADIUS, COLORVAL, , , ASPECT
PAINT (320, 100), COLORVAL
NEXT
END SUB
SUB INITPALETTE STATIC
FOR I = 0 TO 15
PALETTEARRAY(I) = I
NEXT I
END SUB