DIRECTORY CD, CDCells, CDDirectory, PW, StixCompact;StixTest: CEDAR PROGRAM	IMPORTS CDCells, CDDirectory, PW, StixCompact =BEGIN OPEN PW;ExpandProc: UserProc = {testCell: Object _ Get[design, RequestRope["cell: "]];IF ~CDCells.IsCell[testCell] THEN testCell _ CDDirectory.Expand[testCell, design, design];ob _ StixCompact.SimpleExpand[design, design, testCell];};CompactXProc: UserProc = {testCell: Object _ Get[design, RequestRope["cell: "]];IF ~CDCells.IsCell[testCell] THEN testCell _ CDDirectory.Expand[testCell, design, design];RETURN[StixCompact.CompactXCmd[design, design, testCell]];};Register[ExpandProc, "Expand"];Register[CompactXProc, "CompactX"];END.    Æ  StixTest.mesaCopyright c 1985 by Xerox Corporation.  All rights reversed.Created by: Monier, May 9, 1985 11:18:58 pm PDTLouis Monier December 5, 1985 7:15:39 pm PSTCompactXYProc: UserProc = {testCell: Object _ Get[design, RequestRope["cell: "]];IF ~CDCells.IsCell[testCell] THEN testCell _ CDDirectory.Expand[testCell, design, design];RETURN[StixCompact.CompactXYCmd[design, design, testCell]];};CompactYXProc: UserProc = {testCell: Object _ Get[design, RequestRope["cell: "]];IF ~CDCells.IsCell[testCell] THEN testCell _ CDDirectory.Expand[testCell, design, design];RETURN[Stix.CompactYX[design, testCell]];};Register[CompactXYProc, "CompactXY"];Register[CompactYXProc, "CompactYX"]; Ê|  ˜ –"Cedar" stylešœ™Jšœ
Ïmœ1™<J™/Icode™,J˜ —šÏk	œ˜
Jšœ*˜*—J˜ šÏnœžœžœ˜Jšžœžœ˜/Jšžœžœžœ˜J˜ šÏb
œ˜Jšœ6˜6Kšžœžœ9˜ZJšœ8˜8Jšœ˜J˜ —š œ˜Jšœ6˜6Kšžœžœ9˜ZJšžœ4˜:Jšœ˜—J™ š œ™Jšœ6™6Kšžœžœ9™ZJšžœ5™;Jšœ™—J™ š œ™Jšœ6™6Kšžœžœ9™ZJšžœ#™)Jšœ™—Jšœ˜Jšœ#˜#Jšœ%™%Jšœ%™%Jšžœ˜—J™ — …—    °  ò  