-- File DJExtCapDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick July 1981
-- Last updated: July 31, 1981  3:10 PM

DIRECTORY
DJExtTypes: FROM "DJExtTypes" USING [Node, NodeNumber];

DJExtCapDefs: DEFINITIONS =
BEGIN
OPEN DJExtTypes;

FindCap: PUBLIC PROCEDURE[num:NodeNumber] RETURNS[node:Node];

AddCapArea: PUBLIC PROCEDURE[cap:Node, layer:INTEGER, area:REAL];

AddCapPerim: PUBLIC PROCEDURE[cap:Node, layer:INTEGER, perim:REAL];

CombineCap: PUBLIC PROCEDURE [c1,c2:Node] RETURNS[Node];

CopyCap: PUBLIC PROCEDURE[c:Node,offset:NodeNumber] RETURNS[cap:Node];

MakeCap: PUBLIC PROCEDURE[] RETURNS[cap:Node];

DeleteCap: PUBLIC PROCEDURE[cap:Node];

GetCapList: PUBLIC PROCEDURE RETURNS[cap:Node];

SelectCap: PUBLIC PROCEDURE RETURNS[intCap,extCap:Node];

RenumberCap: PUBLIC PROCEDURE[cap:Node];

END.
(635)\188b12B40b7B56b10B57b11B57b11B48b7B65b7B41b9B31b10B39b9B49b11B