--File CIFUtilitiesDefs.Mesa
-- August 1980 by MN
--Last changed: 29-Oct-81 19:01:10

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;

Update: 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.