-- 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.
(1792)\215b21B43b12B37b11B58b14B63b10B242b8B55b13B55b13B