Click above to get retro games delivered to your door ever month!

 R_SavePal() 
 Saves the actual Clipper colour palette to a string
------------------------------------------------------------------------------

 Syntax
        cPalet := R_SavePal ()

 Parameters
        (None)

 Returns
        cPalet          A 48 byte string with the actual values of the
                        16 Clipper colours

 Description
        With the R_SavePal () function you can save the actual values
        of the Clipper colours (temporarily) to a string.
        This saved palette can be restored using the R_RestPal () function.

 Example
        && Change the Clipper MAGENTA-colour to another colour

        *-- RPCXLib definitions
        #include "RPCXLib.CH"

        LOCAL   cPalet := R_SavePal ()          && Save Clipper palette
        [...]

        R_SetRGB ( PL_MAGENTA, 20, 43, 5 )
        [...]

        && Restore the previous saved Clipper palette
        R_RestPal ( cPalet )