TubePointsPolys.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Bloomenthal, August 9, 1986 1:56:50 pm PDT
DIRECTORY TubeDefs;
~
BEGIN
OPEN TubeDefs;
Points:
PUBLIC PROC [
tube: Tube, pointProc: PointProc, view: Matrix ← NIL] RETURNS [nPoints: INT];
Operate on the set of points in tube; transform the points by view if non-nil.
Polys:
PUBLIC
PROC [tube: Tube, polyProc: PolyProc]
RETURNS [nPolys:
INT];
Operate on the set of polygons in tube.
NPolys:
PROC [tube: Tube]
RETURNS [
INTEGER];
Number of polygons in the tube.
NPoints:
PROC [tube: Tube]
RETURNS [
INTEGER];
Number of points in the tube.