Script.cm
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Tim Diebert: April 14, 1987 2:50:16 pm PDT
Install Interpress
Install RasterControllerHeadDorado
Run PlatemakerControlImpl
&sm ← PlatemakerControlImpl.MakePrinterSampleMap[]
&ip ← Interpress.Open["/Wright/Cedar/7.0/Roster/CP-1863-1891.ip", NIL]
&c ← PlatemakerControlImpl.ContextFromSampleMap[&sm]
ImagerSample.Clear[&sm]
Imager.TranslateT[&c, [x: 0.75 * Imager.metersPerInch, y: 0.125 * Imager.metersPerInch]]
Imager.MaskRectangle[&c, [x: -0.75*Imager.metersPerInch, y: -0.125*Imager.metersPerInch, w: 0.75*Imager.metersPerInch, h: 0.125*Imager.metersPerInch]]
Imager.MaskRectangle[&c, [x: 8.5*Imager.metersPerInch, y: -0.125*Imager.metersPerInch, w: 0.75*Imager.metersPerInch, h: 0.125*Imager.metersPerInch]]
Imager.MaskRectangle[&c, [x: -0.75*Imager.metersPerInch, y: 11.0*Imager.metersPerInch, w: 0.75*Imager.metersPerInch, h: 0.125*Imager.metersPerInch]]
Imager.MaskRectangle[&c, [x: 8.5*Imager.metersPerInch, y: 11.0*Imager.metersPerInch, w: 0.75*Imager.metersPerInch, h: 0.125*Imager.metersPerInch]]
Interpress.DoPage[&ip, 1, &c, NIL]
PlatemakerControlImpl.PrintMap[&sm]
Interpress.Close[&ip]
&v ← BitmapViewer.Create[[hscrollable: TRUE]]
BitmapViewer.SetBitmap[&v, &sm]