<> <> <> <> <<>> <<-- AlignmentMarks: Add alignment marks to ChipNDale. Alignment Marks are named points.>> DIRECTORY Rope USING [ROPE], CD USING [Design, ApplicationPtr, Position]; AlignmentMarks: CEDAR DEFINITIONS = BEGIN markAtom: READONLY ATOM; -- Contains the atom that alignment marks are tagged with. <<-- Place mark.>> PlaceMark: PROC [into: CD.Design, markName: Rope.ROPE, markPos: CD.Position]; <<-- Given a ChipNDale application that points to an alignment mark, return it's position. >> <<-- Returns some unspecified value if the application contains a different type of object.>> FindOrigin: PROC [aptr: CD.ApplicationPtr] RETURNS [CD.Position]; <<-- Given a ChipNDale application that points to an alignment mark, return it's name. >> <<-- Returns some unspecified value if the application contains a different type of object.>> FindName: PROC [aptr: CD.ApplicationPtr] RETURNS [Rope.ROPE]; END.