DIRECTORYRules,Imager USING [black, Color, IntegerMaskRectangle, SetColor],ViewerClasses,ViewerOps;RulesImpl: CEDAR PROGRAMIMPORTS Imager, ViewerOpsEXPORTS RulesSHARES ViewerOps =BEGIN OPEN ViewerClasses, Rules;Create: PUBLIC PROC [info: ViewerRec, color: Imager.Color _ Imager.black, paint: BOOL _ TRUE]RETURNS [rule: Rule] = BEGINIF info.parent=NIL THEN RETURN;info.data _ NEW[Imager.Color _ color];info.border _ FALSE;	-- we did promise uniform colorRETURN[ViewerOps.CreateViewer[flavor: $Rule, info: info, paint: paint]];END;RulePaint: PRIVATE PaintProc = BEGINx: REF Imager.Color = NARROW[self.data];IF x = NIL THEN RETURN;Imager.SetColor[context, x^]; Imager.IntegerMaskRectangle[context, 0, 0, self.cw, self.ch];END;RuleSet: PRIVATE SetProc = BEGINWITH data SELECT FROMx: REF Imager.Color => self.data _ data;ENDCASE => ERROR;IF finalise THEN ViewerOps.PaintViewer[self, client, FALSE];END;ruleClass: ViewerClasses.ViewerClass _ NEW[ViewerClasses.ViewerClassRec _ [paint: RulePaint,set: RuleSet]];ViewerOps.RegisterViewerClass[$Rule, ruleClass];	-- plug in to ViewersEND.   ¾  RulesImpl.mesa; written by Bill PaxtonEdited by McGregor on July 21, 1983 2:51 pmLast Edited by: Maxwell, January 3, 1983 12:28 pmLast Edited by: Wyatt, September 30, 1983 3:48 pm ÊÝ  –"cedar" style˜ JšÏc&™&Jš+™+Jšœ1™1Jšœ1™1J˜ šÏk	˜	J˜Jšœžœ0˜<J˜J˜
J˜ —Jšœž˜J˜ Jšžœ˜Jšžœ˜Jšžœ˜J˜ Jšžœžœ˜ J˜ š
Ïnœžœžœ>žœžœ˜]Jšžœž˜Jšžœžœžœžœ˜Jšœžœ˜&Jšœžœ˜4JšžœB˜HJšžœ˜J˜ —šœžœž˜$Jšœžœžœ˜(Jšžœžœžœžœ˜Jšœ˜Jšœ=˜=Jšžœ˜J˜ —šœ	žœž˜ šžœžœž˜Jšœžœ"˜(Jšžœžœ˜—Jšžœ
žœ%žœ˜<Jšžœ˜J˜ —šœ'žœ!˜KJ˜J˜J˜J˜ —Jšœ1˜FJ˜ Jšžœ˜J˜ J˜ — …—    f    