-- File: DisjointGraphicsDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick February 1981
-- Last edited: June 23, 1981 3:44 PM

DIRECTORY

DisjointTypes: FROM "DisjointTypes" USING [DisCell, Instance, Symbol];

DisjointGraphicsDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

DrawInstance: PUBLIC PROCEDURE[inst: Instance];

DrawDisCell: PUBLIC PROCEDURE[disCell: DisCell, stipple: CARDINAL];

DrawCellOffset: PUBLIC PROCEDURE[us: Symbol, x,y: REAL, stipple: CARDINAL];

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

BoundBox: PUBLIC PROCEDURE[s: Symbol] RETURNS[l,b,r,t: REAL];

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

ScreenToPress: PUBLIC PROCEDURE [name: STRING];

END.