DIRECTORY Imager USING [Color, black], ViewerOps USING [DestroyViewer], ViewerClasses USING [Viewer, ViewerRec]; Rules: CEDAR DEFINITIONS IMPORTS Imager, ViewerOps = BEGIN OPEN ViewerClasses; Rule: TYPE = Viewer; Create: PROC [info: ViewerRec, color: Imager.Color _ Imager.black, paint: BOOL _ TRUE] RETURNS [rule: Rule] ; Destroy: PROC [rule: Rule] = INLINE {ViewerOps.DestroyViewer[rule]}; Set: PROC [rule: Rule, data: REF Imager.Color, paint: BOOL _ TRUE] = INLINE {rule.class.set[rule, data, paint]}; END. κRules.mesa; Written by Bill Paxton Edited by McGregor on July 21, 1983 10:57 am Last Edited by: Maxwell, December 17, 1982 10:07 am A rule is a rectangle (viewer) of uniform color, good for simple graphics when creating tools. Κ – "cedar" style˜JšΟc"™"Jš,™,Jšœ3™3J™šΟk ˜ Jšœžœ˜Jšœ žœ˜ Jšœžœ˜(J˜—Jš œžœžœžœžœ˜NJ˜Jšœžœ ˜J˜Jš^™^J˜šΟnœžœ>žœžœ˜VJšžœ˜J˜—JšŸœžœžœ!˜DJ˜š Ÿœžœžœžœžœž˜KJ˜$J˜J˜—Jšžœ˜J˜J˜—…—