-- File CIFDrcListDefs.mesa
-- Written by Dan Fitzpatrick and Martin Newell, September 1980
-- Last updated: September 3, 1980  3:17 PM

-- CIF Drc List Routines

DIRECTORY

CIFDrcUtilsDefs: FROM "CIFDrcUtilsDefs" USING [Trapezoid];

CIFDrcListDefs: DEFINITIONS =

BEGIN

OPEN CIFDrcUtilsDefs;

InitList: PUBLIC PROCEDURE;

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

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

PrintList: PUBLIC PROCEDURE[i:CARDINAL];

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

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

GetInitialLocal: PUBLIC PROCEDURE [minx,maxx:REAL, layer:CARDINAL, list:POINTER TO ListDescriptor] RETURNS[trap:Trapezoid];

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

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

EmptyList: PUBLIC PROCEDURE [layer:CARDINAL];

ListDescriptor:TYPE = RECORD [
	bucketNumb:CARDINAL,
	trapPtr: Trapezoid,
	layer: CARDINAL,
	min,max:REAL
	];


END.
(635)\163b9B62b14B46b9B21b10B52b1v10BV53b9B32b9B92b8B77b16B109b9B77b11B77b10B148b1B