DIRECTORYCDMarkObjects,CD,CDOrient,CDProperties,Rope USING [ROPE, Equal],Graphics USING [Context, MoveTo, LineTo, DrawArea, NewPath, Path];CDMarkObjectsImpl: CEDAR PROGRAM				IMPORTS CD, CDProperties, Rope, CDOrient, Graphics EXPORTS CDMarkObjects = BEGIN MarkEnumerator: TYPE = CDMarkObjects.MarkEnumerator;markAtom: PUBLIC ATOM _ $AlignmentMarkOb;markOb: PUBLIC CD.ObPtr;markNameProperty: PUBLIC ATOM _ $SignalName;myLayer: CD.Layer _ CD.combined;objsProcs: REF CD.ObjectProcs;path: Graphics.Path = CreateMarkPath[];DrawMark: CD.DrawProc = BEGINDrawPath: PROC [context: Graphics.Context, ob: CD.ObPtr, layer: CD.Layer] =BEGINcontext.DrawArea[path: path];END;IF pr.symbolics THEN { pr.drawContext[pr, DrawPath, markOb, pos, orient, myLayer]}END; WriteMark: CD.InternalWriteProc --PROC [me: ObPtr]-- = {};ReadMark: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- = {RETURN [markOb]};SetMarkName: PUBLIC PROC [markApp: CD.ApplicationPtr, name: Rope.ROPE] =BEGINCDProperties.PutPropOnApplication[onto: markApp, prop: markNameProperty, val: name]END;GetMarkName: PUBLIC PROC [markApp: CD.ApplicationPtr] RETURNS [name: Rope.ROPE] =BEGINWITH CDProperties.GetPropFromApplication[from: markApp, prop: markNameProperty] SELECT FROMr: Rope.ROPE => name _ r;ENDCASE => name _ "* bad name *";END;FindMark: PUBLIC PROC [cellOb: CD.ObPtr_NIL, design: CD.Design_NIL, name: Rope.ROPE] RETURNS [app: CD.ApplicationPtr_NIL] =BEGINEnumerate: MarkEnumerator = {IF Rope.Equal[GetMarkName[markApp], name] THEN {app _ markApp; quit_TRUE} };[] _ EnumerateMarks[cellOb: cellOb, design: design, proc: Enumerate];END;GetMarkPosition: PUBLIC PROC [markApp: CD.ApplicationPtr] RETURNS [CD.DesignPosition] =BEGINRETURN [CDOrient.MapPoint[pointInCell: [x: 0, y: 0],cellInstPos: markApp.location,cellSize: markApp.ob.size, cellInstOrient: markApp.orientation]]END;EnumerateMarks: PUBLIC PROC [cellOb: CD.ObPtr_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.ApplicationList _ 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: Graphics.Path] =BEGINpath _ Graphics.NewPath[size: 8];Graphics.MoveTo[path, 0, 0, TRUE];Graphics.LineTo[path, 0, 3];Graphics.LineTo[path, 1, 2];Graphics.LineTo[path, 3, 4];Graphics.LineTo[path, 4, 3];Graphics.LineTo[path, 2, 1];Graphics.LineTo[path, 3, 0];Graphics.LineTo[path, 0, 0];END;Init: PROC[] = BEGINobjsProcs _ CD.RegisterObjectType[markAtom];objsProcs.drawMe _ DrawMark;objsProcs.internalWrite _ WriteMark;objsProcs.internalRead _ ReadMark;objsProcs.description _ "mark";objsProcs.symbolic _ TRUE;markOb _ NEW[CD.ObjectDefinition _ [p: 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 9, 1985 12:53:10 pm PDT--PROC [markApp: CD.ApplicationPtr] RETURNS [quit: BOOL_FALSE]--actually finds any position of a real origin Ê±  ˜ –"Cedar" stylešœ™Jšœ
Ïmœ7™BJ™2J™9J™1—J˜ šÏk	˜	Jšœ˜Jšžœ˜Jšœ	˜	Jšœ˜Jšœžœžœ	˜šœ	žœ4˜BJ˜ ——J˜ šÏbœžœžœ˜$Jšžœžœ)˜3Jšžœ˜—Jšžœ˜J˜ šœžœ ˜4Jšœ>™>—J˜ Jšœ
žœ˜)Jšœž	œ˜Jšœžœ˜,J˜ Jšœ	žœ	žœ
˜ Jšœžœžœ˜J˜'J˜ J˜ šŸœžœ˜Jšž˜šÏnœžœ!žœžœ	˜KJšž˜Jšœ˜Jšžœ˜—šžœžœ˜Jšœ:˜:J˜—Jšžœ˜J˜ —šŸ	œžœÏcœ˜:J˜ —šŸœžœ¡œžœ˜NJ˜ —š œžœžœžœ˜HJšž˜JšœS˜SJšžœ˜—J˜ š
 œžœžœžœžœ˜QJšž˜šžœLžœž˜[Jšœžœ˜Jšžœ˜!—Jšžœ˜—J˜ š œžœ
žœžœ
žœžœžœžœžœžœ˜{Jšž˜šŸ	œ˜Jšžœ(žœžœ˜JJšœ˜—JšœE˜EJšžœ˜—J˜ š
 œžœžœžœžœ˜WJšœ.™.Jšž˜šžœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ#˜#Jšœ˜—Jšžœ˜—J˜ š œžœ
žœžœ
žœžœžœžœžœ˜|Jšž˜Jšœžœ	˜Jšžœžœžœžœ˜2Jšžœžœžœžœ#˜:Jšžœžœ˜šžœžœ*žœžœžœž˜Sšžœžœ˜Jšœ¡˜/J˜—Jšžœ˜—Jšžœ˜—J˜ š œžœžœ˜7Jšž˜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šžœ˜— …—    è    