ColorPackagePrivate.mesa
last edited by Maureen Stone, October 5, 1982 2:20 pm
last edited by Doug Wyatt, December 20, 1983 4:00 pm
makes life easier for debugging the color device
DIRECTORY
GraphicsBasic USING [DeviceRef],
Terminal USING [Virtual];
ColorPackagePrivate: CEDAR DEFINITIONS = {
terminal: Terminal.Virtual; -- the color terminal
Byte: TYPE = [0..256);
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
}.