--	File CIFUtilitiesDefs.Mesa
-- August 1980 by MN
--	Last changed:  7-Jul-81  9:50:18

DIRECTORY

Graphics: FROM "Graphics" USING [Context],
Keys: FROM "Keys" USING [KeyName];

CIFUtilitiesDefs: DEFINITIONS =

BEGIN OPEN Graphics, Keys;

DisplayContext: TYPE = Graphics.Context;
Rectangle: TYPE = RECORD[llx,lly,urx,ury: REAL];
TrapezoidBlock: TYPE = RECORD[ystart,yend,xsleft,xsright,xeleft,xeright: REAL];

InitCedarGraphics: PUBLIC PROCEDURE;

SetDisplayContext: PUBLIC PROCEDURE[dc: DisplayContext];

GetDisplayContext: PUBLIC PROCEDURE RETURNS[dc: DisplayContext];

GetBaseContext: PUBLIC PROCEDURE RETURNS[dc: DisplayContext];

SetClipRectangle: PUBLIC PROCEDURE[cr: Rectangle];

GetClipRectangle: PUBLIC PROCEDURE RETURNS[cr: Rectangle];

GetBaseClipRectangle: PUBLIC PROCEDURE RETURNS[cr: Rectangle];

DrawClipRectangle: PUBLIC PROCEDURE;

ClearClipRectangle: PUBLIC PROCEDURE;

DrawRectangleOutline: PUBLIC PROCEDURE[cr: Rectangle];

DrawRectangleArea: PUBLIC PROCEDURE[cr: CIFUtilitiesDefs.Rectangle];

MoveTo: PUBLIC PROCEDURE[x,y: REAL];

DrawTo: PUBLIC PROCEDURE[x,y: REAL];

DrawStringAt: PUBLIC PROCEDURE[s: STRING, x,y: REAL];

SetStipple: PUBLIC PROCEDURE[s: CARDINAL];

EnableClipping: PUBLIC PROCEDURE;

DisableClipping: PUBLIC PROCEDURE;

MapRectangle: PUBLIC PROCEDURE[rect1: Rectangle, cntxt1,cntxt2: DisplayContext]
		RETURNS[rect2: Rectangle];

--GetBaseContextRecord: PUBLIC PROCEDURE RETURNS[baseContext: DisplayContext];

SetUniformView: PUBLIC PROCEDURE[rfrom, rto: Rectangle];

ScreenParams: PUBLIC PROCEDURE
		RETURNS[base: LONG POINTER, widthWords, heightLines: CARDINAL];

TrackBox: PUBLIC PROCEDURE[x,y: REAL, mouseButton: Keys.KeyName];

MoveCursorTo: PUBLIC PROCEDURE[x,y: REAL];

WatchKeys: PUBLIC PROCEDURE;
END.
(635)\93b9B98b16B178b17B21b17B41b17B49b14B49b16B36b16B44b20B44b17B21b18B21b20B36b6B32b6B32b14B21b15B21b12B98b22B58b14B44b12B86b8B67b12B