TestCoreView.cm
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bertrand Serlet April 2, 1987 4:25:22 pm PST
This command file needs files in Extract.df in order to work, but that's ok since it is only a test!
← &design ← PW.OpenDesign["TestSinixB"]
← &obj ← PW.Get[&design, "Test"]
← &abut ← PW.AbutX[PW.CreateRotation[&obj, mirrorX], &obj]
← &ct ← Sinix.Extract[&abut, SinixCMosB.mode].result
← PW.Draw[&abut]
← CoreView.GeometryView[&ct, SinixCMosB.mode.decoration, NEW [BOOL ← FALSE]]