--File CIFUtilitiesDefs.Mesa
-- August 1980 by MN
--Last changed: March 27, 1981 4:49 PM

DIRECTORY

Graphics: FROM "Graphics" USING [DisplayContext],
KeyDefs: FROM "KeyDefs" USING [MouseButton];

CIFUtilitiesDefs: DEFINITIONS =

BEGIN OPEN Graphics, KeyDefs;

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];

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

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

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, mouseButtons: KeyDefs.MouseButton];

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

END.