-- File CIFDrcNewListDefs.mesa
-- Written by Dan Fitzpatrick and Martin Newell, September 1980
-- Last updated: March 24, 1981  2:55 PM

-- CIF Drc List Routines

DIRECTORY

CIFDrcUtilsDefs: FROM "CIFDrcUtilsDefs" USING [Trapezoid],
IntervalsDefs: FROM "IntervalsDefs" USING [GetHandleRecord];

CIFDrcNewListDefs: DEFINITIONS =

BEGIN

OPEN CIFDrcUtilsDefs, IntervalsDefs;

InitList: PUBLIC PROCEDURE[left,right: LONG INTEGER];

InsertTrap:PUBLIC PROCEDURE [trap:Trapezoid, layer:CARDINAL, swath:SwathType];

RemoveTrap:PUBLIC PROCEDURE [trap:Trapezoid, layer:CARDINAL, swath:SwathType];

EmptyList:PUBLIC PROCEDURE [layer:CARDINAL];

StepSwaths:PUBLIC PROCEDURE [];

GenSwath: PUBLIC PROCEDURE [layer:CARDINAL, swath:SwathType,list:POINTER TO ListDescriptor] RETURNS[trap:Trapezoid];

GetSwath: PUBLIC PROCEDURE [list:POINTER TO ListDescriptor] RETURNS[trap:Trapezoid];

GenLocal: PUBLIC PROCEDURE [minx,maxx:LONG INTEGER, layer:CARDINAL, list:POINTER TO ListDescriptor] RETURNS[trap:Trapezoid];

GetLocal: PUBLIC PROCEDURE [list:POINTER TO ListDescriptor] RETURNS[trap:Trapezoid];

SwathType:TYPE = {bottom, middle, top};

ListDescriptor:TYPE = RECORD [
	layer: CARDINAL,
	min,max:LONG INTEGER,
	swath: SwathType,
	handle: GetHandleRecord
	];


END.
(635)\163b9B123b17B61b9B47b10B70b10B70b9B36b11B22b9B109b9B77b9B117b9B77b1B40b1B120b1B