PressScreen.mesa
Interface to make AIS/press file of display
Last edited by Michael Plass on November 15, 1982 1:50 pm
Last Edited by: Beach, August 15, 1983 4:54 pm
DIRECTORY
ChoiceButtons,
Rope,
ViewerClasses,
ViewerSpecs;
PressScreen: CEDAR DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
Side: TYPE = {leftSide, bothSides, rightSide};
PressScreen:
PROCEDURE [pressFileName:
ROPE, which: Side];
Old interface to convert part or all of the bit mapped screen into a press file.
MagnificationType:
TYPE = {fullPage, halfPage, useMagnification};
AISPressScreen:
PROCEDURE [
pressFileName: ROPE,
sourceHeight: NAT ← ViewerSpecs.screenH,
sourceWidth: NAT ← ViewerSpecs.screenW,
sourceBottom: NAT ← 0,
sourceLeft: NAT ← 0,
magnification: REAL ← 0.5,
scaleToFit: MagnificationType ← useMagnification,
leftMarginInches, rightMarginInches: REAL ← 0.75,
landscape: BOOLEAN ← FALSE,
borderWidth: REAL ← 2.0] RETURNS[fileName: ROPE];
Converts the specified region of the bit mapped screen into a combination AIS and Press file.
Such files can be used by CedarGraphics or printed by the TSetter.
AISPressScreen can raise two signals: MagnificationFactorTooLarge when the specified rectangle will not fit on an 8.5 by 11 inch page with the supplied margins and magnifications; and AISPageAlignmentHackFailed for an internal error expected when the size of SirPress record definitions change (low probability).
MagnificationFactorTooLarge:
SIGNAL;
The specified rectangle will not fit on an 8.5 by 11 inch page with the supplied margins and magnifications
AISPageAlignmentHackFailed:
SIGNAL;
An internal error expected when the size of SirPress record definitions change (low probability)
NewPressName:
PROCEDURE
RETURNS [pressFileName:
ROPE];
Returns a file name like "Screen1.press", "Screen2.press", etc.
NewAISPressName:
PROCEDURE
RETURNS [pressFileName:
ROPE];
Returns a file name like "Screen1.ais", "Screen2.ais", etc.
PressScreenTool: TYPE = REF PressScreenToolRec;
PressScreenToolRec:
TYPE;
NewPressScreenTool:
PROCEDURE [serverName:
ROPE]
RETURNS[psTool: PressScreenTool];
Creates a PressScreen tool viewer.
END.