--File: MergeDefs.mesa
-- Written by Maureen Stone, October 1980
-- based on Polygon, Written by Martin Newell, May 1980
-- Last updated: October 31, 1980 6:32 PM
-- Last Edited by: Stone, February 3, 1983 3:50 pm

DIRECTORY
 PointDefs: FROM "PointDefs";

MergeDefs: DEFINITIONS =

BEGIN

AreaDescriptor: TYPE = REF AreaBlock;
AreaBlock: TYPE;

AreaCreate: PUBLIC PROCEDURE RETURNS[area: AreaDescriptor];
-- Create new polygon

AreaNewBox: PUBLIC PROCEDURE[area: AreaDescriptor,
 tl,br: PointDefs.ScrPt,z: INTEGER];
-- Add box to area

AreaGenerate: PUBLIC PROCEDURE[area: AreaDescriptor,
     outputBox: PROCEDURE[tl,br: PointDefs.ScrPt, z: INTEGER]];
-- Generate the area defined up to last AreaNewBox
-- This procedure AreaDestroys the area, which therefore is no longer valid

AreaDestroy: PUBLIC PROCEDURE[area: AreaDescriptor];
-- Destroy area

END.