PrintFileConvert.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Doug Wyatt, July 22, 1986 6:24:27 pm PDT
Michael Plass, September 18, 1986 3:47:46 pm PDT
DIRECTORY
ImagerBrick USING [Brick],
ImagerPDPublic USING [Toner, Toners, UCR],
Interpress USING [LogProc],
Rope USING [ROPE];
PrintFileConvert: CEDAR DEFINITIONS
~ BEGIN
ROPE: TYPE ~ Rope.ROPE;
PDParams:
TYPE ~
RECORD [
deviceCode: CARDINAL ← 0,
sRes, fRes: CARDINAL ← 0, -- resolution, pixels per inch
pageSSize, pageFSize: REAL ← 0.0, -- page size, inches
ppd: REAL ← 0.0, -- pixels per halftone dot
bricks: ARRAY ImagerPDPublic.Toner OF ImagerBrick.Brick ← ALL[NIL], -- Holliday halftone bricks
leftovers: BOOL ← FALSE,
bandSize: NAT ← 0,
load: INT ← 0,
toners: ImagerPDPublic.Toners ← NIL,
tonerUniverse: ImagerPDPublic.Toners ← NIL,
fontTuning: ROPE ← NIL,
ucr: ImagerPDPublic.UCR ← []
];
ProgressProc:
TYPE ~
PROC [begin:
BOOL, page:
INT];
ParamsFromPrinterType:
PROC [type:
ATOM]
RETURNS [PDParams];
InterpressToPD:
PROC [
inputName: ROPE, -- name of Interpress file
outputName: ROPE, -- name of PD file
params: PDParams, -- PD parameters
sx, sy: REAL ← 1.0, -- scale
tx, ty: REAL ← 0.0, -- translate
rotateDegrees: REAL ← 0.0, -- rotation (degrees)
skipPages: INT ← 0,
nPages: INT ← INT.LAST,
logProc: Interpress.LogProc ← NIL, -- called for errors during Interpress execution
progressProc: ProgressProc ← NIL -- called at the beginning and end of each page
];
END.