DIRECTORYCDMarkObjects,CD,CDOrient,CDProperties,Rope USING [ROPE, Equal],Imager,ImagerPath;CDMarkObjectsImpl: CEDAR PROGRAM				IMPORTS CD, CDProperties, Rope, CDOrient, Imager, ImagerPath EXPORTS CDMarkObjects = BEGIN MarkEnumerator: TYPE = CDMarkObjects.MarkEnumerator;markAtom: PUBLIC ATOM _ $AlignmentMarkOb;markOb: PUBLIC CD.Object;markNameProperty: PUBLIC ATOM _ $SignalName;myLayer: CD.Layer _ CD.combined;objsProcs: REF CD.ObjectClass;path: ImagerPath.Trajectory = CreateMarkPath[];DrawMark: CD.DrawProc = BEGINDrawPath: PROC [context: Imager.Context, ob: CD.Object, layer: CD.Layer] =BEGINImager.MaskFillTrajectory[context, path];END;IF pr.symbolics THEN { pr.drawContext[pr, DrawPath, markOb, pos, orient, myLayer]}END; WriteMark: CD.InternalWriteProc --PROC [me: Object]-- = {};ReadMark: CD.InternalReadProc --PROC [] RETURNS [Object]-- = {RETURN [markOb]};SetMarkName: PUBLIC PROC [markInstance: CD.Instance, name: Rope.ROPE] =BEGINCDProperties.PutPropOnInstance[onto: markInstance, prop: markNameProperty, val: name]END;GetMarkName: PUBLIC PROC [markInstance: CD.Instance] RETURNS [name: Rope.ROPE] =BEGINWITH CDProperties.GetPropFromInstance[from: markInstance, prop: markNameProperty] SELECT FROMr: Rope.ROPE => name _ r;ENDCASE => name _ "* bad name *";END;FindMark: PUBLIC PROC [cellOb: CD.Object_NIL, design: CD.Design_NIL, name: Rope.ROPE] RETURNS [inst: CD.Instance_NIL] =BEGINEnumerate: MarkEnumerator = {IF Rope.Equal[GetMarkName[markInstance], name] THEN {inst _ markInstance; quit_TRUE} };[] _ EnumerateMarks[cellOb: cellOb, design: design, proc: Enumerate];END;GetMarkPosition: PUBLIC PROC [markInstance: CD.Instance] RETURNS [CD.Position] =BEGINRETURN [CDOrient.MapPoint[pointInCell: [x: 0, y: 0],cellInstPos: markInstance.location,cellSize: markInstance.ob.size, cellInstOrient: markInstance.orientation]]END;EnumerateMarks: PUBLIC PROC [cellOb: CD.Object_NIL, design: CD.Design_NIL, proc: MarkEnumerator] RETURNS [quit: BOOL_FALSE] =BEGINcp: CD.CellPtr;IF cellOb#NIL THEN cp _ NARROW[cellOb.specificRef]ELSE IF design#NIL THEN cp _ design^.actual.first.specificELSE ERROR;FOR list: CD.InstanceList _ cp.contents, list.rest WHILE (list#NIL AND ~quit) DOIF list.first.ob=markOb THEN {quit _ proc[list.first]; -- do NOT catch errors};ENDLOOP;END;CreateMarkPath: PROC [] RETURNS [path: ImagerPath.Trajectory] =BEGINpath _ ImagerPath.MoveTo[[0, 0]];path _ ImagerPath.LineTo[path, [0, 3]];path _ ImagerPath.LineTo[path, [1, 2]];path _ ImagerPath.LineTo[path, [3, 4]];path _ ImagerPath.LineTo[path, [4, 3]];path _ ImagerPath.LineTo[path, [2, 1]];path _ ImagerPath.LineTo[path, [3, 0]];path _ ImagerPath.LineTo[path, [0, 0]];END;Init: PROC[] = BEGINobjsProcs _ CD.RegisterObjectClass[markAtom];objsProcs.drawMe _ DrawMark;objsProcs.internalWrite _ WriteMark;objsProcs.internalRead _ ReadMark;objsProcs.description _ "mark";objsProcs.symbolic _ TRUE;markOb _ NEW[CD.ObjectRep _ [class: objsProcs,size: [4, 4],layer: myLayer,specificRef: markAtom]];END;Init[];END.  r  CDMarkObjectsImpl.mesa			Copyright c 1984, 1985 by Xerox Corporation.  All rights reserved.Created by: Bob Mayo, June 8, 1984 12:28:34 pm PDTRedesigned by: Jacobi,  September 10, 1984 5:04:14 pm PDTLast Edited: Jacobi,  May 29, 1985 10:42:56 am PDT--PROC [markInstance: CD.Instance] RETURNS [quit: BOOL_FALSE]--actually finds any position of a real origin Ê±  ˜ –"Cedar" stylešœ™Jšœ
Ïmœ7™BJ™2J™9J™2—J˜ šÏk	˜	Jšœ˜Jšžœ˜Jšœ	˜	Jšœ˜Jšœžœžœ	˜Jšœ˜šœ˜J˜ ——J˜ šÏbœžœžœ˜$Jšžœžœ3˜=Jšžœ˜—Jšžœ˜J˜ šœžœ ˜4Jšœ=™=—J˜ Jšœ
žœ˜)Jšœž	œ˜Jšœžœ˜,J˜ Jšœ	žœ	žœ
˜ Jšœžœžœ˜Jšœ/˜/J˜ J˜ šŸœžœ˜Jšž˜šÏnœžœžœžœ	˜JJšž˜Jšœ)˜)Jšžœ˜—šžœžœ˜Jšœ:˜:J˜—Jšžœ˜J˜ —šŸ	œžœÏcœ˜;J˜ —šŸœžœ¡œžœ˜OJ˜ —š œžœžœžœ˜GJšž˜JšœU˜UJšžœ˜—J˜ š
 œžœžœžœžœ˜PJšž˜šžœNžœž˜]Jšœžœ˜Jšžœ˜!—Jšžœ˜—J˜ š œžœ
žœžœ
žœžœžœžœžœ
žœ˜wJšž˜šŸ	œ˜Jšžœ-žœžœ˜UJšœ˜—JšœE˜EJšžœ˜—J˜ š
 œžœžœžœžœ˜PJšœ.™.Jšž˜šžœ˜Jšœ˜Jšœ#˜#Jšœ ˜ Jšœ(˜(Jšœ˜—Jšžœ˜—J˜ š œžœ
žœžœ
žœžœžœžœžœ˜}Jšž˜Jšœžœ	˜Jšžœžœžœžœ˜2Jšžœžœžœžœ#˜:Jšžœžœ˜šžœžœ'žœžœžœž˜Pšžœžœ˜Jšœ¡˜/J˜—Jšžœ˜—Jšžœ˜—J˜ š œžœžœ ˜?Jšž˜Jšœ!˜!Jšœ'˜'Jšœ'˜'Jšœ'˜'Jšœ'˜'Jšœ'˜'Jšœ'˜'Jšœ'˜'Jšžœ˜—J˜ š œžœ˜Jšž˜Jšœžœ˜-J˜J˜$J˜"Jšœ˜Jšœžœ˜šœ	žœžœ˜Jšœ˜J˜Jšœ˜Jšœ˜Jšœ˜—Jšžœ˜J™ —Jšœ˜Jšžœ˜— …—      ;  