ImagerPressTest.cm
Copyright © 1985 by Xerox Corporation. All rights reserved.
Michael Plass, June 11, 1985 4:37:56 pm PDT
Tim Diebert May 16, 1985 8:44:48 am PDT
Run PressReaderImpl
Run ShowPressPackage
Run ImagerToJaMImpl
Run PressImageImpl
Run SirPressImpl
Run ImagerPressFontSubstImpl
Run ImagerPressImpl
← &c ← ImagerPress.SimpleCreate["test.press"]
← Imager.MaskRectangle[&c, [0.1, 0.1, 0.05, 0.03]]
← Imager.ScaleT[&c, 0.8]
← Imager.MaskRectangle[&c, [0.1, 0.1, 0.05, 0.03]]
← Imager.ScaleT[&c, 0.8]
← Imager.SetGray[&c, 0.3]
← Imager.MaskRectangle[&c, [0.1, 0.1, 0.05, 0.03]]
← Imager.SetGray[&c, 1]
← Imager.RotateT[&c, 22.5]
← Imager.MaskRectangle[&c, [0.1, 0.1, 0.05, 0.03]]
← ImagerPress.Close[&c]
← &s ← ShowPress.Open["test.press"]
← &v ← ViewerIO.CreateViewerStreams["test.press viewer"]
← &c ← ImagerToJaM.Create[&v.out]
← ShowPress.DrawPressPage[&c, &s, 1]
TSetter Stinger Test.press
← &c ← ImagerPress.SimpleCreate["flamingos.press"]
← &s ← ShowPress.Open["[ivy]<stone>print>fourflamingos.press"]
← Imager.ScaleT[&c, 1.0e-5]
← Imager.TranslateT[&c, [8.5*2540/2, 11*2540/2]]
← Imager.ScaleT[&c, 0.5]
← ShowPress.DrawPressPage[&c, &s, 1]
← Imager.RotateT[&c, 180-30]
← ShowPress.DrawPressPage[&c, &s, 1]
← ImagerPress.Close[&c]
TSetter Stinger flamingos.press
← &s ← ShowPress.Open["ImagerPressTest.cm.press"]
← &c ← ImagerPress.SimpleCreate["text.press"]
← Imager.ScaleT[&c, 1.0e-5]
← ShowPress.DrawPressPage[&c, &s, 1]
← ImagerPress.Close[&c]