ColorPackagePrivate.mesa

last edited by Maureen Stone, February 10, 1984 12:56:48 pm PST

last edited by Doug Wyatt, December 20, 1983 4:00 pm

makes life easier for debugging the color device

DIRECTORY

ColorPackagePrivate: CEDAR DEFINITIONS = {

terminal: Terminal.Virtual; -- the color terminal

Byte: TYPE = [0..256);

DeviceProc: TYPE = PROCEDURE[raster,height: CARDINAL ← 0]

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 ← NIL];

this lets me slide in a new colormap lookup proc without rebuilding the boot file

NIL means reset to normal operation

SetGrayTable: PUBLIC PROC[table: ColorMap.GrayTable ← NIL];

lets the a client control the mapping for 8 bpp AIS files (table.length=256)

NIL means reset to normal operation

}.