PadFrameTest.cm
Don Curry May 13, 1988 11:19:15 am PDT
Install PadFrame
Install IcPack
CDRead PadFrameTest
← CedarProcess.SetPriority[background]
← &design ← CDViewer.FindDesign["PadFrameTest"]
← &cx ← Sisyph.Create[&design]
← &ct ← Sisyph.ES["PadFrameTest.sch", &cx]
← &obj ← PWCore.Layout[&ct]
← PWCore.Store[&ct]
PW.Draw[&obj]
← &factor ← 40
← &font ← CDTexts.MakeFont["Xerox/TiogaFonts/Helvetica7", 4*&factor/2]
← &pads ← IcPack.BuildPadModel[cell: &ct, pinWidth: 8*&factor, scale: 40/&factor, refFont: &font]
← PW.Draw[&pads]