DIRECTORYCDMarkObjects,CD,CDOrient,CDProperties,Rope USING [ROPE, Equal],Graphics USING [Context, MoveTo, LineTo, DrawArea, NewPath, Path, Translate];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;myLevel: CD.Level _ CD.combined;objsProcs: REF CD.ObjectProcs;path: Graphics.Path = CreateAlignmentMarkPath[];DrawAlignMark: CD.DrawProc = BEGINDrawArrowInContext: PROC [context: Graphics.Context] =BEGINcontext.Translate[pos.x, pos.y];CDOrient.OrientateContext[context, markOb.size, orient];context.DrawArea[path: path];END;CD.DrawToContext[pr, DrawArrowInContext, myLevel];END; WriteMark: CD.InternalWriteProc --PROC [me: ObPtr]-- = {};ReadMark: CD.InternalReadProc --PROC [] RETURNS [ObPtr]-- = {RETURN [markOb]};DescribeMark: CD.DescribeProc --PROC [me: ObPtr] RETURNS [Rope.ROPE]-- = BEGINRETURN["alignment mark "];END;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.MapPosition[itemInCell: [x1: 0, y1: 0, x2: 0, y2: 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;CreateAlignmentMarkPath: 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 _ DrawAlignMark;objsProcs.internalWrite _ WriteMark;objsProcs.internalRead _ ReadMark;objsProcs.describe _ DescribeMark;markOb _ NEW[CD.ObjectDefinition _ [p: objsProcs,size: [4, 4],level: myLevel,specificRef: markAtom]];END;Init[];END.  Ò  CDMarkObjectsImpl.mesa			Copyright c 1984 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, September 13, 1984 5:01:54 pm PDT--PROC [markApp: CD.ApplicationPtr] RETURNS [quit: BOOL_FALSE]-- PROC [aptr: ApplicationPtr, pos: DesignPosition, orient: Orientation, pr: REF DrawInformation];--actually finds any position of a real originÊé  ˜ –"Cedar" stylešœ™Jšœ
Ïmœ1™<J™2J™8J™6J˜ —J˜ šÏk	˜	Jšœ˜Jšžœ˜Jšœ	˜	Jšœ˜Jšœžœžœ	˜šœ	žœ?˜MJ˜ ——J˜ šÏbœžœžœ˜$Jšžœžœ)˜3Jšžœ˜—Jšžœ˜J˜ šœžœ ˜4Jšœ>™>—J˜ Jšœ
žœ˜)Jšœž	œ˜Jšœžœ˜,J˜ Jšœ	žœ	žœ
˜ Jšœžœžœ˜J˜0J˜ J˜ šŸœžœ˜Jšž˜JšžœFžœ™bšÏnœžœ˜6Jšž˜Jšœ ˜ Jšœ8˜8Jšœ˜Jšžœ˜—Jšžœ0˜2Jšžœ˜J˜ —šŸ	œžœÏcœ˜:J˜ —šŸœžœ¡œžœ˜NJ˜ —šŸœžœ¡Ðck¡¢¡¢¡œ˜IJšž˜Jšžœ˜Jšžœ˜J˜ —š œžœžœžœ˜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˜ š œžœžœ˜@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šžœ˜— …—    ž  Y  