DIRECTORY IO, Graphics, Rope, TSOutput, SirPress, TSFont; TSOutputPress: CEDAR DEFINITIONS = BEGIN PressState: TYPE = REF PressStateRec; PressStateRec: TYPE = RECORD [ graphicsContext: Graphics.Context, -- Draw graphics through a Context pressHandle: SirPress.PressHandle, -- Text goes directly to the press file pipe: SirPress.Pipe, curFont: TSFont.Ref _ NIL ]; CreateWithCursor: PROCEDURE [stream: IO.STREAM, documentName: Rope.ROPE, cursorObject: SirPress.CursorObject] RETURNS [handle: TSOutput.Handle]; SetFont: PROCEDURE [pressState: PressState, font: TSFont.Ref]; END. Michael Plass, September 16, 1982 12:22 pm: Changed fileName parameter to IO.STREAM. Michael Plass, November 2, 1982 9:58 am: Made into CEDAR interface. Michael Plass, November 3, 1982 10:53 am: CursorObject. ΈTSOutputPress.mesa definitions for the interface to Tioga typesetter press output routines Michael Plass, November 3, 1982 10:53 am Last Edited by: Beach, May 24, 1983 9:10 am Κ%– "cedar" style˜JšΟc™JšG™GJšœ™)J™+šΟk ˜ Jšžœ˜J˜ J˜J˜ J˜ J˜J˜—Jšœžœž œ˜"Jšž˜J˜Jšœ žœžœ˜%šœžœžœ˜Jšœ$"˜FJšœ$'˜KJ˜Jšœž˜J˜J˜—š Οnœž œ žœžœžœ&˜mJšžœ˜"J˜—JšŸœž œ,˜>J˜Jšžœ˜JšœJžœžœ˜TJšœ3žœ ˜CJšœ7˜7—…—χ