

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.
   ˜  ColorPatch.mesa
Copyright Ó 1987, 1989, 1992 by Xerox Corporation.  All rights reserved.
Written by:  Maureen Stone June 9, 1986 4:34:05 pm PDT
Pier, March 13, 1987 3:00:35 pm PST
Maureen Stone, May 26, 1987 4:28:34 pm PDT
Doug Wyatt, November 29, 1989 5:19:40 pm PST

mapEntry indicates what colormap entry will be used for the animation.  Change the index field if you want to use multiple patches

 ÊP  –(cedarcode) style•NewlineDelimiter
˜ codešœ™Kšœ
Ïeœ=™HKšœ6™6K™#K™*K™,—K˜ šÏk	˜	Kšœ1˜1K™ —KšÐln
œžœž˜šœž˜K˜ Kšœžœžœ˜.šœžœžœ˜"K˜Kšœžœ˜Kšœ%˜%K˜Kšœ˜—K˜ Kšœžœ˜.K˜ K˜ —šÏnœžœBžœ˜qJšœÏcz™‚—J™ Kš œžœ-žœ˜HKš œžœ<˜NK˜ š œžœžœ˜SK˜ —Kšžœ˜— …—    ¼  ¤  