DIRECTORY CD,CDCells USING [CreateEmptyCell],CDPinObjects,CDRects USING [CreateRect], CMos,PW, PWBasics;PWTestA: CEDAR PROGRAM	IMPORTS CDCells, CDPinObjects, CDRects, CMos, PW, PWBasics =BEGIN OPEN PW, PWBasics;CellWithFourCorners: PROC [design: CD.Design, size: CD.DesignPosition] RETURNS [cell: CD.ObPtr] =BEGINcell _ CDCells.CreateEmptyCell[];[] _ IncludeApplication[cell, CDRects.CreateRect[[4, size.y], CMos.pol], [0, 0]];[] _ IncludeApplication[cell, CDRects.CreateRect[[size.x, 4], CMos.ndif], [0, size.y / 2]];[] _ IncludeApplication[cell, CDRects.CreateRect[[4, size.y], CMos.pol], [size.x / 2, 0]];[] _ IncludeApplication[cell, CDRects.CreateRect[[size.x, 4], CMos.ndif], [0, size.y - 4]];[] _ IncludeApplication[cell, CDRects.CreateRect[[size.x, 4], CMos.ndif], [0, size.y - 12]];[] _ IncludeApplication[cell, CDRects.CreateRect[[size.x, 4], CMos.ndif], [0, 8]];[] _ IncludeApplication[cell, CDRects.CreateRect[[size.x, 4], CMos.ndif], [0, 18]];[] _ IncludeApplication[cell, CDRects.CreateRect[[6, size.y], CMos.met], [size.x - 6, 0]];[] _ IncludeApplication[cell, CDRects.CreateRect[[size.x, 6], CMos.met2], [0, 0]];END;PutPin: PROC [cell: CD.ObPtr, name: ROPE, rect: CD.DesignRect]  =BEGIN[] _ IncludeApplication[cell, CDPinObjects.CreatePinOb[[rect.x2-rect.x1, rect.y2-rect.y1]], [rect.x1, rect.y1]];END;MyProc: UserProc =BEGINabobj: CD.ObPtr _ CellWithFourCorners[design, [50, 120]];ab, cd: InstName;PutPin[abobj, "LeftPin", [0, 25, 2, 27]];PutPin[abobj, "RightPin", [48, 15, 50, 17]];PutPin[abobj, "TopPin", [20, 118, 22, 120]];PutPin[abobj, "BottomPin", [12, 0, 14, 2]];RepositionCell[design, abobj];ab _ NameFromObj[abobj];cd _ Array[ab, 8, 4];RETURN [cd ];END;Register[MyProc, "PWTestA"];END.   Z  PWTestA.mesa, Created by Bertrand SerletCopyright c 1984 by Xerox Corporation.  All rights reversed.Last Edited by Bertrand Serlet, March 13, 1985 3:58:47 pm PSTLast Edited by: Monier, February 7, 1985 5:22:49 pm PSTA simple library of cells and some test programs.IncludeAndCleanNewCell[design, cell];cd _ AbutX[ ab, FlipX[ab]];cd _ AbutX[ ab, FlipX[ab], FlipY[ab]];cd _ AbutX[ ab, FlipX[ab], FlipY[ab], Rot90[ab]];cd _ AbutX[ ab, FlipX[ab], FlipY[ab], Rot90[ab], Rot180[ab], Rot270[ab]];cd _ AbutY[ cd , FlipY[cd]];cd _ AbutX[cd, FlipX[cd]];cd _ Array[cd, 4 , 4];cd _ AbutX[cd, Rot90[cd]]; -- this one should provoke an errorcd _ AbutY[ab, FlipY[ab]];cd _ AbutX[cd, FlipX[cd]];cd _ AbutX[ab, FlipX[AbutX[ab, ab]]];cd _ Array[ab, 2, 1];cd _ Rot90[Array[ab, 2, 6]];RETURN [AbutX[cd, "store2B" ]]; -- this one generates an errorÊP  ˜ šœ™Jšœ™Jšœ
Ïmœ1™<Jšœ=™=J™7—J™ J™1J™ šÏk	œ˜
Jšžœ˜Jšœžœ˜ Jšœ˜Jšœžœ˜J˜Jšžœ˜Jšœ	˜	—J˜ šœ	žœžœ˜Jšžœ'žœ˜<Jšžœžœžœ˜J˜ šÏnœžœ
žœžœžœžœ	˜aJšž˜Jšœ!˜!JšœQ˜QJšœ[˜[JšœZ˜ZJšœ[˜[Jšœ\˜\JšœR˜RJšœS˜SJšœZ˜ZJšœR˜RJšœ%™%Jšžœ˜—J˜ š
Ÿœžœžœžœžœ˜AJšž˜Jšœp˜pJšžœ˜J˜ —šÏbœ˜Jšž˜Jšœžœ0˜9Jšœ˜J˜ Jšœ)˜)Jšœ,˜,Jšœ,˜,Jšœ+˜+J˜ Jšœ˜Jšœ˜J˜ Jšœ™Jšœ&™&Jšœ1™1JšœI™IJšœ™J™J™JšœÏc#™>J™Jšœ™Jšœ%™%J™J™Jšœ˜Jšžœ¡™>Jšžœ˜Jšžœ˜J˜ —Jšœ˜Jšžœ˜—J™ J™ — …—    ä  Ž  