<> <> <> <> <<>> 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.