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

    Degrade()

         Makes a progressive degrade of the palette

    Syntax:

         Degrade( cPalette ) -> Nil

        cPalette : A string of 768 bytes with the actual palette or with
                   the one wanted to be taken as reference for the degrade.

    Descripci.n:

         This function works in synchronism with the CRT controller so that
         the degrade can offer a vision of soft and progressive change.

    Return:

         Nothing.

    Example:

         cPalette := GetPalette()
         Degrade( cPalette )
         Upgrade( cPalette )