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.   ¼  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 Ê¦  –"cedar" style˜ JšÏc™JšA™AJš8™8Jš+™+šÏk	˜	J˜ J˜ —Jšœ
žœžœ˜Jšž˜J˜ Jšœžœžœ˜šœžœžœ˜J˜J˜J˜J˜J˜J˜Jšœžœž˜J˜J˜ —Jš
Ïnœž	œžœžœžœ
˜GJ˜ JšŸœž	œžœžœ
˜BJ˜ JšŸœž	œ'˜9J˜ JšŸœž	œ@˜QJ˜ JšŸœž	œ˜ J˜ JšŸœžœž	œ*žœ˜\J˜ JšŸœžœž	œ=˜WJ˜ JšŸ	œžœž	œ-žœ˜NJ˜ JšŸœžœž	œ˜-J˜ JšŸœžœž	œ-˜KJ˜ JšŸ
œžœž	œ˜,J˜ Jšžœ˜J˜4J˜=— …—    –  ø  