TestEUPadFrame.cm
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Louis Monier April 23, 1986 11:03:18 pm PST
Bertrand Serlet April 29, 1987 1:15:29 am PDT
Statistics on
Install PadFrames
Run -a TestEUPadFrame
← &padDesign ← PW.OpenDesign["TestEUPadFrame"]
← &innerCt ← PWCore.FromLayoutWithoutPublic[PW.Get[&padDesign, "inner"]]
← &ct ← TestEUPadFrame.CreateWholeChip[&innerCt]
← &ob ← PWCore.Layout[&ct]
← PW.Draw[&ob]
← LayoutCheckpoint.Store[&ct, TRUE]
Run SinixRawCMosBImpl
← &design ← PW.OpenDesign["WholeChipLayout"]
← SinixRawCMosBImpl.Mark[&design]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "inner"].object, $RawFlatten, NIL]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "PadBlank"].object, $RawFlatten, NIL]
← CDProperties.PutProp[CDDirectory.Fetch[&design, "PadBlank"].object, $RawCMosBExtractProc, $ExtractCellAsWire]
← &obj ← CDDirectory.Fetch[&design, "WholeChip"].object
← &ct ← Sinix.Extract[&obj, SinixRawCMosB.mode, NIL, NEW [INT ← 0]].result
← CDViewer.CreateViewer[&design]
← CoreOps.Print[&ct]
← CoreOps.Print[&ct.data[0]]