DP Tool Club 8/CDASC08.ISO/NEWS/439/GPAL101/GPAL.BI

Text File | 1993-10-07 | 2KB | 17 lines

DECLARE SUB GPal (Colour%, Red%, Green%, Blue%) '  Colour: 0-255          Red: 0-63 (intensity)/Green: 0-63 (intensity)/Blue: 0-63 (intensity)
DECLARE SUB GSavePalette (FileName$) '  Saves the current palette to disk.
DECLARE SUB GLoadPalette (FileName$, ErrCode%)  '  ErrCode:               0 - All's Ok                                                          1 - Not a GPAL file
DECLARE SUB GFadeOutPalette (FadeSpeed%)  '  Fade Speed:                  Range 1 - 10,  1 being the slowest.
DECLARE SUB GFadeInPalette (FadeSpeed%) '  Fade Speed:                    Range 1 - 10,  1 being the slowest.  Use 0 for instant palette        display.
DECLARE SUB GBlankPalette (Options%) '  Options:                          0 - Set palette to black instantly                                    1 - Slowly set palette to black
DECLARE SUB InitGPALDriver () '  Initializes the GPAL driver.  (Note:     always call "InitGPALDriver" after changing any palette values)
DECLARE SUB GetPalette (Array&()) '  Array:                               Array data to be used with "PALETTE USING"
DECLARE SUB GetPaletteRGB (Array&()) '  Array:                            Array data sorted in an RGB pattern
DECLARE SUB GrafLoad (FileName$, Options%, ErrCode%) '  Options:          0  - Load image only, no palette    1  - Load palette before image    2  - Load palette after image       3+ - Fade-in palette after image
DECLARE SUB GrafSave (FileName$) '  Saves a graphic image to disk.
DECLARE SUB MoveDisplay (xAxis%, yAxis%) '  Moves the display left/right/up/down
DECLARE SUB GSetBright (Brightness%) '  Brightness:                    Range 1 - 63,  1 being the darkest.  Use 0 to restore the             brightness.
DECLARE SUB GRestorePalette (Index%) '  Index:                           Number of palette to restore.  Range 0-4.
DECLARE SUB GStorePalette (Index%) '  Index:                           Number to store palette as.  Range 0-4.