<> <> <> <> <> <> DIRECTORY Imager, ImagerColor, ImagerDither, ViewerClasses; <<>> ColorPatch: CEDAR DEFINITIONS ~ BEGIN ColorPatchData: TYPE = REF ColorPatchDataRec; ColorPatchDataRec: TYPE = RECORD [ box: Imager.Box, rgb: ImagerColor.RGB, patchMapEntry: ImagerDither.MapEntry, lastColor: ImagerColor.Color ]; ColorPatchViewer: TYPE = ViewerClasses.Viewer; MakeColorPatch: PROC [info: ViewerClasses.ViewerRec, mapEntry: ImagerDither.MapEntry] RETURNS[ColorPatchViewer]; <> <<>> PaintColorPatch: PROC [patch: ColorPatchViewer, color: ImagerColor.RGB]; PaintSpecial: PROC[patch: ColorPatchViewer, color: ImagerColor.ConstantColor]; GetSpecialMapEntry: PROC [patch: ColorPatchViewer] RETURNS [ImagerDither.MapEntry]; END.