-- File: DJExtGraphicsDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick July 1981
-- Last edited: July 9, 1981 7:41 PM

DIRECTORY

DisjointTypes: FROM "DisjointTypes" USING [Symbol];

DJExtGraphicsDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

DrawSymbol: PUBLIC PROCEDURE[s: Symbol, callOnce: BOOLEAN,
level: INTEGER];
--draw all instances of s at given level of hierarchy
--level=0 is top level
--level=-1 will draw all geometry
--callOnce=TRUE will allow only the first call to each symbol

DrawSegment: PUBLIC PROCEDURE[x0,y0,x1,y1:REAL];

DrawRectangle: PUBLIC PROCEDURE[l,b,r,t: REAL, stipple: CARDINAL];

DrawLongDecimal: PUBLIC PROCEDURE[n:LONG INTEGER,x,y:REAL];

END.