-- ColorPackagePrivate.mesa
-- last edited by Maureen Stone, October 5, 1982 2:20 pm
-- last edited by Doug Wyatt, August 31, 1982 2:24 pm
-- makes life easier for debugging the color device

DIRECTORY
GraphicsBasic USING [DeviceRef],
ColorDisplay USING [Byte];

ColorPackagePrivate: CEDAR DEFINITIONS = {

Byte: TYPE = ColorDisplay.Byte;

DeviceProc: TYPE = PROCEDURE[raster,height: CARDINAL ← 0]
RETURNS[GraphicsBasic.DeviceRef];

ColorMapProc: TYPE = PROC[r,g,b: Byte] RETURNS[Byte];

SetNewContextProc
: PROC[new: DeviceProc];
--this lets me slide in a new ColorDevice without rebuilding the boot file

SetNewColorMapProc: PROC[new: ColorMapProc];
--this lets me slide in a new colormap lookup proc without rebuilding the boot file


}.