ShowPress.mesa
Last edited by Shore; December 4, 1982 12:10 am
Last Edited by: Donahue, May 27, 1983 8:41 am
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 ];
image the press file page in the specified context
assumes the context is already scaled for press coordinate system (Micas)
Close: PROCEDURE [show: Handle];
CreateShowViewer: PROC[name: Rope.ROPE] RETURNS[v: ViewerClasses.Viewer];
ShowPressError: ERROR [code: Code];
Code: PUBLIC TYPE = {CantFindFonts, CantReadFile, NoSuchPage};
END.
Change Log
Created by Andrew Shore; September 13, 1982 5:59 pm
Changed by Donahue; May 26, 1983 3:00 pm
Added ShowData, CreateShowViewer to be used by whiteboards