DIRECTORY Controls, ImagerInterpress, IO, Rope, TubeDefs; TubeIO: CEDAR DEFINITIONS ~ BEGIN OPEN TubeDefs; PointProc: TYPE ~ PROC [out: IO.STREAM, id: INTEGER, p, n: Triple, u, v: REAL]; PolyProc: TYPE ~ PROC [out: IO.STREAM, id, p0, p1, p2: INTEGER]; QueryAndPointsPolyOut: PUBLIC PROC [tube: Tube, outer: OuterData, m: Matrix _ NIL]; QueryAndMaxPointsPolyOut: PUBLIC PROC [tube: Tube, outer: OuterData, m: Matrix _ NIL]; PointsPolysOut: PUBLIC PROC [tube: Tube, fileName: ROPE, m: Matrix _ NIL] RETURNS [nPoints, nPolys: INT]; MaxPointsPolysOut: PUBLIC PROC [tube: Tube, fileName: ROPE, m: Matrix _ NIL] RETURNS [nPoints, nPolys: INT]; DefaultPointProc: PUBLIC PointProc; DefaultPolyProc: PUBLIC PolyProc; MaxPointProc: PUBLIC PointProc; MaxPolyProc: PUBLIC PolyProc; Points: PUBLIC PROC [ tube: Tube, out: IO.STREAM, pointProc: PointProc _ DefaultPointProc, view: Matrix _ NIL] RETURNS [nPoints: INT]; Polys: PUBLIC PROC [tube: Tube, out: IO.STREAM, polyProc: PolyProc _ DefaultPolyProc] RETURNS [nPolys: INT]; QueryAndIPOut: PUBLIC PROC [tube: Tube, outer: OuterData, details: Details, m: Matrix]; IPOut: PUBLIC PROC [ref: ImagerInterpress.Ref, tube: Tube, details: Details, m: Matrix]; WriteTubeInfo: PROC [tube: Tube, outer: OuterData]; END. ðTubeIO.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Bloomenthal, May 21, 1986 8:31:30 pm PDT Procedure for writing point id, position (p) and normal (n) to output stream. Procedure for writing poly id and three point ids to output stream. Use outer.typescript to query user for name, then write points and polygons; if view is non-nil, transform the points first. Use outer.typescript to query user for name, then write in Nelson Max format. Write out the points and polygons to the given file; points are indexed and contain xyz, normal, and uvw data. Write out the points and polygons to the given file in Nelson Max format. PointProc to write point data in Imaging default format. PolyProc to write poly data in Imaging default format. PointProc to write point data in Nelson Max format. PolyProc to write poly data in Nelson Max format. Output the set of points in points-poly format; transform points by m if non-nil. Output the set of polygons in points-poly format. Print the currently displayed tube as an interpress file, querying the user for a filename. Write the tube to ref; leaving the file open until ImagerInterpress.Close[ref]. Print the number of points and polygons, and the range of circular resolution. Êa˜šœ ™ Jšœ Ïmœ1™