DIRECTORY GraphicsBasic USING [DeviceRef], ColorMap USING [GrayTable], 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]; SetNewColorMapProc: PROC[new: ColorMapProc _ NIL]; SetGrayTable: PUBLIC PROC[table: ColorMap.GrayTable _ NIL]; }. ö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 this lets me slide in a new ColorDevice without rebuilding the boot file this lets me slide in a new colormap lookup proc without rebuilding the boot file NIL means reset to normal operation lets the a client control the mapping for 8 bpp AIS files (table.length=256) NIL means reset to normal operation Ę&˜Jšœ™Jšœ?™?Jšœ4™4Jšœ0™0J˜šĎk ˜ Jšœœ ˜ Jšœ œ ˜Jšœ œ ˜J˜—Jšœœ œ˜*J˜JšœĎc˜1J˜Jšœœ ˜J˜šĎn œœ œœ˜9Jšœ˜!J˜—JšŸ œœœœ˜5J˜JšŸœœ˜)JšœH™HJ˜JšŸœœœ˜2JšœQ™QJ™#JšŸ œœœ"˜;JšœL™LJ™#J˜J˜J˜J˜—…—,