DIRECTORY ImagerInterpress, TubeDefs; TubeIO: CEDAR DEFINITIONS ~ BEGIN OPEN TubeDefs; QueryAndWritePointsPoly: PUBLIC PROC [tube: Tube, o: OuterData, m: Matrix _ NIL]; WritePointsPolys: PUBLIC PROC [tube: Tube, fileName: ROPE, m: Matrix _ NIL] RETURNS [nPoints, nPolys: INT]; QueryAndWriteMaxPointsPoly: PUBLIC PROC [tube: Tube, o: OuterData, m: Matrix _ NIL]; WriteMaxPointsPolys: PUBLIC PROC [tube: Tube, fileName: ROPE, m: Matrix _ NIL] RETURNS [nPoints, nPolys: INT]; QueryAndWriteIP: PUBLIC PROC [tube: Tube, o: OuterData, details: Details, m: Matrix]; WriteIP: PUBLIC PROC [ref: ImagerInterpress.Ref, tube: Tube, details: Details, m: Matrix]; QueryAndWriteTube: PUBLIC PROC [tube: Tube, o: OuterData, m: Matrix _ NIL]; WriteTube: PUBLIC PROC [stream: STREAM, tube: Tube, m: Matrix _ NIL]; QueryAndReadTube: PUBLIC PROC [o: OuterData] RETURNS [Tube]; ReadTube: PUBLIC PROC [stream: STREAM] RETURNS [Tube]; WriteTubeInfo: PROC [tube: Tube, o: OuterData]; END. XTubeIO.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Bloomenthal, November 21, 1986 10:44:52 pm PST Writing Tube in Points-Polygons Format Use o.typescript to query user for name, then write points and polygons; if view is non-nil, transform the points first. Write out the points and polygons to the given file; points are indexed and contain xyz, normal, and uvw data. Writing Tube in Nelson Max Format Use o.typescript to query user for name, then write in Nelson Max format. Write out the points and polygons to the given file in Nelson Max format. Writing Tube in Interpress 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]. Writing and Reading Tube in Tube Format Use o.typescript to query user for name, then write tube. Write tube to stream, multiplying points and tangents by m if non-nil. Use o.typescript to query user for name, then read. Read from stream. Print the number of points and polygons, and the range of circular resolution. Κψ˜šœ ™ Jšœ Οmœ1™