--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.