<> <> <> <> 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]; <> <> }.