<> <> <> DIRECTORY TubeDefs; TubePointsPolys: CEDAR DEFINITIONS ~ BEGIN OPEN TubeDefs; Points: PUBLIC PROC [ tube: Tube, pointProc: PointProc, view: Matrix _ NIL] RETURNS [nPoints: INT]; <> Polys: PUBLIC PROC [tube: Tube, polyProc: PolyProc] RETURNS [nPolys: INT]; <> <<>> NPolys: PROC [tube: Tube] RETURNS [INTEGER]; <> <<>> NPoints: PROC [tube: Tube] RETURNS [INTEGER]; <> <<>> END.