DIRECTORY   Rope USING [ROPE],CD USING [Orientation, ObPtr, Design, ApplicationPtr, Position, original];  AlignmentMarks: CEDAR DEFINITIONS = BEGINMark: TYPE = RECORD [pos: CD.Position,  -- Position of tip of arrow relative to origin of containing objectname: Rope.ROPE];Place: PROC [into: CD.Design, mark: Mark, orient: CD.Orientation _ CD.original];Find: PROC [ob: CD.ObPtr, name: Rope.ROPE] RETURNS [REF Mark];FindList: PROC [ob: CD.ObPtr] RETURNS [LIST OF Mark];objAtom: READONLY ATOM;	-- Contains the atom that alignment marks are tagged with.MakeMarkAptr: PROC [mark: Mark, orient: CD.Orientation _ CD.original] RETURNS [CD.ApplicationPtr];AptrToMark: PROC [aptr: CD.ApplicationPtr] RETURNS [REF Mark];END.    ~  File: AlignmentMarks.mesa Copyright c 1984 by Xerox Corporation.  All rights reserved.Created by: Bob Mayo, June 8, 1984 12:40:57 pm PDTLast Edited by: Mayo, November 5, 1984 6:38:10 pm PST-- AlignmentMarks:  Add alignment marks to ChipNDale.  Alignment Marks are named points.-- Place a mark into a design.  -- Find a mark in a cell.-- Find all marks in a cell.-- back door proceedures ---- Make an application for a mark, but don't place it into anything.-- Given a ChipNDale application that points to an alignment mark, return it as a Mark.  -- Returns NIL if the application contains a different type of object. Ê¤  ˜ šœ™Jšœ
Ïmœ1™<J™2J™5—J™ JšœX™XJ˜ šÏk	œ˜Jšœžœžœ˜JšžœžœD˜LJ˜ —JšÏbœžœžœ˜$Jšž˜˜ šŸœžœžœ˜JšœžœÏcC˜VJšœž˜J˜J˜ —Jšœ ™ Jš
Ïnœžœžœžœžœ˜PJ˜ J™Jš¡œžœžœžœžœžœ˜>—˜ J™Jš¡œžœžœžœžœžœ˜5—˜ J™ J™J™ JšŸœžœžœ :˜RJ˜ Jš D™DJš¡œžœžœžœžœžœ˜bJ˜ Jš Y™YJš F™FJš
¡
œžœžœžœžœ˜>J˜ —Jšžœ˜J˜ J˜ J˜— …—    è  
  