-- File DJExtSortDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick, July 1981
-- Last updated: July 20, 1981 11:46 AM

DIRECTORY
DisjointTypes: FROM "DisjointTypes" USING [Rectangle],
DJExtTypes: FROM "DJExtTypes" USING [Box];

DJExtSortDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes, DJExtTypes;

InitSorter: PUBLIC PROCEDURE [bbox: Rectangle];

SortBox: PUBLIC PROCEDURE [box: Box];

DumpSorter: PUBLIC PROCEDURE;

In: PUBLIC PROCEDURE [layer: INTEGER] RETURNS[BOOLEAN] = INLINE
BEGIN
RETURN[depth[layer] # 0];
END;

depth: PUBLIC READONLY ARRAY [0..16) OF INTEGER;

END.