<> <> <> DIRECTORY Graphics USING [Context, FontRef], PressFontReader USING [Font, Handle], PressReader USING [Handle], Rope USING [ROPE], ViewerClasses USING[ViewerRec, Viewer]; ShowPress: DEFINITIONS IMPORTS PressFontReader SHARES Graphics = BEGIN Handle: TYPE = REF PressFileRec; PressFileRec: TYPE = RECORD [ pressFile: PressReader.Handle, pressFontFile: PressFontReader.Handle, fontTable: ARRAY [0..256) OF FontRec, lastPart: INT _ 0 ]; FontRec: TYPE = RECORD [ screenFont: Graphics.FontRef, pressFont: PressFontReader.Font, size: REAL, rotation: REAL ]; Open: PROCEDURE [fileName: Rope.ROPE] RETURNS [show: Handle _ NIL]; DrawPressPage: PROCEDURE [ context: Graphics.Context, show: Handle, pageNumber: INT, tinyPaint: BOOL _ FALSE ]; <> <> Close: PROCEDURE [show: Handle]; CreateShowViewer: PROC[name: Rope.ROPE] RETURNS[v: ViewerClasses.Viewer]; ShowPressError: ERROR [code: Code]; Code: PUBLIC TYPE = {CantFindFonts, CantReadFile, NoSuchPage}; END. <> <> <<>> <> <>