DIRECTORY CD, Rope; CDSimpleCells: CEDAR DEFINITIONS = BEGIN Direction: TYPE = {right, up, left, down, none}; InstRec: TYPE = RECORD [ ob: CD.Object, name: Rope.ROPE _ NIL, --instance Name orient: CD.Orientation_CD.original, dX: CD.Number_0, dY: CD.Number_0, properties: CD.Properties_NIL --for instance ]; CreateSimpleCell: PROC [ design: CD.Design, contents: LIST OF InstRec, cellName: Rope.ROPE _ NIL, direction: Direction _ right, alignHigh: BOOL _ FALSE] RETURNS [CD.Object]; --creates a cell by basically abutting the instances (interest rects) --design: cell is included into design; all instances must be in design too --contents: list of descriptions of instances -- the first is placed at an origin, -- all others are placed abutting their predecessor in direction "direction" -- (if direction is none: dX, dY is absolute) --cellName: name given to cell --direction: direction of abutting --alignHigh: -- FALSE: put the edges with smaller coordinate values into a line -- TRUE: put the edges with larger coordinate values into a line -- dX, dY: the instance is displaced by this amount before including; -- not defaulting this causes to create not really abutting instances END. zCDSimpleCells.mesa by Ch. Jacobi, June 7, 1985 5:16:21 pm PDT last edited Ch. Jacobi, July 10, 1985 9:50:33 am PDT ʘšœ™Jšœ*™*Jšœ4™4—J˜šÏk ˜ Jšœ˜ —J˜JšÏb œœ œ˜"Jšœ˜J˜Jšœ œ!˜0J˜šœ œœ˜Jšœœ˜Jšœ œœÏc˜&Jšœœ œ ˜$Jšœœ ˜Jšœœ ˜Jšœ œ œŸ˜-J˜J˜—šÏnœœ˜Jšœœ ˜Jšœ œœ ˜Jšœœœ˜Jšœ˜Jš œ œœœœ ˜-—J˜J˜EJšœK˜KJšœ.˜.Jšœ&˜&JšœM˜MJšœ.˜.Jšœ˜Jšœ"˜"Jšœ ˜ J˜CJ˜AJ˜J˜E˜FJ™—Jšœ˜J˜—…—ÂË