DIRECTORY CD, CDBasics, CDDefaults, CDOps, CDPinObjects, CDSequencer, Rope, TerminalIO; CDPinObjectsCommands: CEDAR PROGRAM IMPORTS CDBasics, CDDefaults, CDOps, CDPinObjects, CDSequencer, Rope, TerminalIO = BEGIN MakePin: PROC [comm: CDSequencer.Command] = BEGIN name: Rope.ROPE; r: CD.DesignRect = CDBasics.ToRect[comm.pos, comm.sPos]; pinApp: CD.ApplicationPtr; layer: CD.Layer _ CDDefaults.CurrentLayer[comm.design]; TerminalIO.WriteRope[Rope.Cat["Draw Pin (", CDOps.LayerName[layer], ")\n"]]; name _ TerminalIO.RequestRope[" type name of pin: "]; pinApp _ CDPinObjects.CreatePinApp[rect: r, lev: layer, name: name]; CDOps.IncludeApplication[comm.design, pinApp]; END; CDSequencer.ImplementCommand[$DrawPin, MakePin]; END. îCDPinObjectsCommands.mesa (part of ChipNDale) Copyright c 1984, 1985 by Xerox Corporation. All rights reserved. by Christian Jacobi, August 6, 1984 6:41:30 pm PDT last edited Christian Jacobi, January 31, 1985 5:49:26 pm PST Ê,˜šœ/™/Jšœ Ïmœ7™BJšœ4™4Jšœ>™>—J˜šÏk ˜ Jšžœ˜Jšœ ˜ Jšœ ˜ Jšœ˜Jšœ ˜ Jšœ ˜ Jšœ˜Jšœ ˜ J˜—šÏbœžœžœ˜$JšžœL˜S—Jšž˜J˜šÏnœžœ˜+Jšžœ˜Jšœ žœ˜Jšœžœ3˜8Jšœžœ˜Jšœžœ.˜7JšœL˜LJšœ5˜5JšœD˜DJšœ.˜.Jšžœ˜—J˜Jšœ0˜0Jšžœ˜J˜J˜—…—âü