ColorMapHackImpl.mesa
Fixes the problem with white getting overwritten by the color patch
Maureen Stone April 9, 1985 5:18:26 pm PST
DIRECTORY
ColorPackagePrivate,
ColorMapImpl,
ColorMapHack;
ColorMapHackImpl:
CEDAR
PROGRAM
IMPORTS ColorMapImpl, ColorPackagePrivate
EXPORTS ColorMapHack
SHARES ColorMapImpl
= BEGIN
NewMapProc: PUBLIC PROC = {ColorPackagePrivate.SetNewColorMapProc[LocalProc]};
ClearMapProc: PUBLIC PROC = {ColorPackagePrivate.SetNewColorMapProc[NIL]};
LocalProc: ColorPackagePrivate.ColorMapProc = {
IF r=g AND g=b AND b=255 THEN RETURN[ColorMapImpl.MaxIndex[]]
ELSE RETURN[ColorMapImpl.MyGetIndex[r,g,b]];
};
END.