-- ///cd16/testcif.cm
Jacobi, March 24, 1986 11:00:17 am PST
CStitching
run FlatCif
← &t ← CD.FetchTechnology[$cmos]
← &pol ← CD.FetchLevel[t: &t, uniqueKey: $pol]
← &met ← CD.FetchLevel[t: &t, uniqueKey: $met]
← %CDProperties.PutPropOnLevel[onto: &pol, prop: $CDxCIFBloatActive, val: NEW[INT←-6]]
← FlatCif.partWidth ← 40000
← FlatCif.partHeight ← 40000
← FlatCif.partWidth ← 40
← FlatCif.partHeight ← 40
← &d ← CDViewer.FindDesign["test", FALSE]
← &rp ← CDRects.CreateRect[[200, 200], &pol]
← &rm ← CDRects.CreateRect[[200, 200], &met]
← CDOps.AddAnObject[design: &d, ob: &rp, location: [0, 0], orientation: 0]
← CDOps.AddAnObject[design: &d, ob: &rm, location: [0, 0], orientation: 0]