[Cyan]<PreISL>TSetter>TSOutput.mesa!1

TSOutput.Mesa

definitions for the interface to Tioga typesetter output routines

last written by Michael Plass, November 16, 1982 2:04 pm

Last Edited by: Beach, May 24, 1983 9:09 am

DIRECTORY

TSTypes, TSObject, TSFont, Rope;

TSOutput: CEDAR DEFINITIONS =

BEGIN

Handle: TYPE = REF OutputRec;

OutputRec: TYPE = RECORD [

charProc: CharProc,

ruleProc: RuleProc,

colorProc: ColorProc,

newPageProc: NewPageProc,

pageSizeProc: PageSizeProc,

finishProc: FinishProc,

outputState: REF ANY

];

CreateViewer: PROCEDURE [viewerName: Rope.ROPE ← NIL] RETURNS [Handle];

CreatePressFile: PROCEDURE [fileName: Rope.ROPE] RETURNS [Handle];

ShipOut: PROCEDURE [self: Handle, page: TSObject.BoxRec];

BoxOut: PROCEDURE [self: Handle, xRef, yRef: TSTypes.Dimn, box: TSObject.BoxRec];

Close: PROCEDURE [self: Handle];

CharProc: TYPE = PROCEDURE [self: Handle, x, y: TSTypes.Dimn, char: CHAR, font: TSFont.Ref];

RuleProc: TYPE = PROCEDURE [self: Handle, leftX, bottomY, width, height: TSTypes.Dimn];

ColorProc: TYPE = PROCEDURE [self: Handle, hue, saturation, brightness: REAL];

NewPageProc: TYPE = PROCEDURE [self: Handle];

PageSizeProc: TYPE = PROCEDURE [self: Handle, height, width: TSTypes.Dimn];

FinishProc: TYPE = PROCEDURE [self: Handle];

END.

Michael Plass, November 2, 1982 10:23 am. CEDARized.

Michael Plass, November 16, 1982 2:03 pm. Added PageSizeProc.