-- StrawDefs.mesa
-- Written by Joe Maleson
-- Last changed by Doug Wyatt, October 22, 1980  3:54 PM

DIRECTORY
	GraphicsDefs,
	AltoFileDefs,
	PressDefs;

StrawDefs: DEFINITIONS =
BEGIN

EntityBox: TYPE = RECORD
 [	Box: GraphicsDefs.Box,
	Object: POINTER TO PressDefs.PressObject
 ];

DotObject: TYPE = RECORD
 [	Box: GraphicsDefs.Box,
	Object: POINTER TO PressDefs.PressObject,
	DotsData: POINTER TO PressDefs.PressDotsData
 ];

RectangleParams: TYPE = RECORD
 [	micaWidth,micaHeight: CARDINAL
 ];

FontParams: TYPE = RECORD
 [	spaceX,font: CARDINAL
 ];

FontListEntry: TYPE = RECORD
 [	link: POINTER TO FontListEntry,
	n: CARDINAL,
	strike: POINTER TO GraphicsDefs.StrikeFont,
	mode: GraphicsDefs.textMode,
	width: POINTER TO ARRAY CHARACTER [0C..255C] OF CARDINAL,
	index: CARDINAL,
	PressFontEntry: PressDefs.FontEntry
 ];

WaitCursor: PUBLIC PROCEDURE;

NormalCursor: PUBLIC PROCEDURE;

Refresh: PROCEDURE;

GetNum: PUBLIC PROCEDURE [prompt: STRING] RETURNS [CARDINAL]; 

GetNumWithDefault: PUBLIC PROCEDURE [prompt: STRING,default: CARDINAL] RETURNS [CARDINAL];

GetString: PUBLIC PROCEDURE [s,prompt: STRING];

CreateDotsBox: PUBLIC PROCEDURE [do: POINTER TO DotObject];

CreateObjectBox: PUBLIC PROCEDURE [eBox: POINTER TO EntityBox];

DisplayCoord: PROCEDURE [x,y: CARDINAL] RETURNS [dispX,dispY: CARDINAL];

PageCoord: PROCEDURE [dispX,dispY: CARDINAL] RETURNS [x,y: CARDINAL];

ReleaseEntityBox: PROCEDURE [eBox: POINTER TO EntityBox,erase: BOOLEAN];

SetGrid: PUBLIC PROCEDURE;

RestoreGrid: PROCEDURE [currentBox: POINTER TO GraphicsDefs.Box];

DisplayPressPage: PROCEDURE [p: POINTER TO PressDefs.PressPage];

SelectFile: PUBLIC PROCEDURE;

AddFile: PUBLIC PROCEDURE;

NewPage: PUBLIC PROCEDURE;

WriteFile: PUBLIC PROCEDURE;

EditDisplayList: PROCEDURE ;

EditGrayImage: PROCEDURE [do: POINTER TO DotObject];

GetFont: PROCEDURE [n: CARDINAL] RETURNS [strike: POINTER TO GraphicsDefs.StrikeFont,mode: GraphicsDefs.textMode,width: POINTER TO ARRAY CHARACTER [0C..377C] OF INTEGER,index: CARDINAL];

GetPressFontEntry: PROCEDURE [index: CARDINAL] RETURNS [POINTER TO PressDefs.FontEntry];

GetFontListHandle: PROCEDURE RETURNS[POINTER TO FontListEntry];

ReleaseFontStorage: PROCEDURE;

PressPageFromDisplayList: PROCEDURE [file: STRING];

--from ScrapMagnify

StartMagnifier: PROCEDURE [Index,Gray: CARDINAL];
ShowMagnifier: PROCEDURE;
StopMagnifier: PROCEDURE;
SetMagnification: PROCEDURE [bitsPerInch: CARDINAL];
SetMagnifierPosition: PROCEDURE [x,y: CARDINAL];
SetMagnifierSize: PROCEDURE [width,height: CARDINAL];
ModifyMagnifier: PROCEDURE [x,y: CARDINAL] RETURNS [BOOLEAN];
MagToScreenCoords: PROCEDURE [x,y: CARDINAL] RETURNS [rx,ry: CARDINAL];
MagToMicaCoords: PROCEDURE [x,y: CARDINAL] RETURNS [rx,ry: CARDINAL];
ScreenToMagCoords: PROCEDURE [x,y: CARDINAL] RETURNS [rx,ry: CARDINAL];
END.

(635)\f1 186b10B89b160B55b10B46b13B259b10B20b13B20b8B13b7B57b18B75b9B40b13B48b15B50b12B61b10B62b16B58b7B21b11B56b16B50b10B21b7B21b7B21b9B21b15B15b13B41b7B181b17B73b17B48b18B14b24B31i17I2b14B11f0 24f1 1b13B11f0 1f1 1b13B11f0 1f1 1b16B37b20B29b16B38b15B47b17B55b15B55b17B