<> <> <> <> 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]; <> SetNewColorMapProc: PROC[new: ColorMapProc]; <> }.