ShowPress.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last edited by Shore; December 4, 1982 12:10 am
Last Edited by: Donahue, May 27, 1983 8:41 am
Michael Plass, April 4, 1985 9:56:49 am PST
Doug Wyatt, November 25, 1985 4:40:44 pm PST
DIRECTORY
Imager USING [Context],
ImagerFont USING [Font],
PressReader USING [Handle],
Rope USING [ROPE];
ShowPress: CEDAR DEFINITIONS
~ BEGIN
Handle: TYPE ~ REF PressFileRec;
PressFileRec:
TYPE ~
RECORD [
pressFile: PressReader.Handle,
fontTable: ARRAY [0..256) OF FontRec,
lastPart: INT ← 0
];
FontRec:
TYPE ~
RECORD [
imagerFont: ImagerFont.Font ← NIL,
family: Rope.ROPE ← NIL,
face: [0..256) ← 0,
size: REAL ← 0,
rotation: REAL ← 0
];
Open:
PROC [fileName: Rope.
ROPE]
RETURNS [show: Handle ←
NIL];
DrawPressPage:
PROC [
context: Imager.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:
PROC [show: Handle];
ShowPressError:
ERROR [code:
ATOM];
END.