DIRECTORY Draw2d, G2dContour, G3dBasic, G3dCurve, G3dMatrix, G3dPlane, G3dShape, G3dSpline, G3dVector, Imager, ImagerInterpress, IO, Rope, ViewerClasses;

G3dTube: CEDAR DEFINITIONS

~ BEGIN
Contour:				TYPE ~ G2dContour.Contour;
ContourSequence:	TYPE ~ G2dContour.ContourSequence; -- presumed ordered according to t
Frame:				TYPE ~ G3dBasic.Frame;
Hull:					TYPE ~ G3dBasic.Hull;
Pair:					TYPE ~ G3dBasic.Pair;
PairSequence:		TYPE ~ G3dBasic.PairSequence;
Ray:					TYPE ~ G3dBasic.Ray;
Triad:					TYPE ~ G3dBasic.Triad;
Triple:				TYPE ~ G3dBasic.Triple;
TripleSequence:		TYPE ~ G3dBasic.TripleSequence;
Curve:				TYPE ~ G3dCurve.Curve;
Matrix:				TYPE ~ G3dMatrix.Matrix;
Plane:					TYPE ~ G3dPlane.Plane;
Shape:					TYPE ~ G3dShape.Shape;
Bezier:				TYPE ~ G3dSpline.Bezier;
NearSpline:			TYPE ~ G3dSpline.NearSpline;
Spline:				TYPE ~ G3dSpline.Spline;
NearSegment:			TYPE ~ G3dVector.NearSegment;
Color:					TYPE ~ Imager.Color;
STREAM:				TYPE ~ IO.STREAM;
ROPE:					TYPE ~ Rope.ROPE;

origin:				Triple ~ [0.0, 0.0, 0.0];

RadiusMode:			TYPE ~ {linear, square};

XSection:				TYPE ~ REF XSectionRep;
XSectionRep:			TYPE ~ RECORD [
t:								REAL ¬ 0.0,					-- parametric position on curve
frame:							Frame ¬ [],					-- reference frame
length:						REAL ¬ 0.0,					-- distance from beginning of curve
scale:							REAL ¬ 1.0,					-- scale
twist:							REAL ¬ 0.0,					-- twist
matrix:						Matrix ¬ NIL,				-- matrix (right-handed) w/ scale,twist
contour:						Contour ¬ NIL,				-- normalized to unit square						
normals:						PairSequence ¬ NIL			-- normals of contour
];

XSectionSequence:		TYPE ~ REF XSectionSequenceRep;
XSectionSequenceRep:	TYPE ~ RECORD [
length:						NAT ¬ 0,
element:						SEQUENCE maxLength: NAT OF XSection
];

Tube:					TYPE ~ REF TubeRep;
TubeRep:				TYPE ~ RECORD [
p0, p1: 					Triple ¬ origin,				-- Hermite endpoints of curve
v0, v1: 					Triple ¬ origin,				-- Hermite tangents of curve
circleRes:					INTEGER ¬ 6,				-- # sides of circular contour
epsilon:					REAL ¬ 0.03,					-- criterion for spline flatness
tw0, tw1:					REAL ¬ 0.0,					-- twists
tens0, tens1:				REAL ¬ 1.0,					-- tensions
r0, r1:						REAL ¬ 0.05,					-- radii
scale:						REAL ¬ 1.0,					-- applied to radii
taper:						REAL ¬ 0.0,					-- applied to r1
contours:					ContourSequence ¬ NIL,	-- optional contours
spline: 					Spline ¬ NIL,				-- coefficients of curve
xSpline: 					Spline ¬ NIL,				-- curve xformed to screen
bezier:					Bezier ¬ [],					-- useful in proximity testing
refVec: 					Triple ¬ origin,				-- reference vector to make xSections
length:					REAL ¬ 0.0,					-- length of the tube
length0, length1:		REAL ¬ 0.0,					-- distances from root
plane:						Plane ¬ [],					-- plane at p1 perpendicular to curve
xSections:					XSectionSequence ¬ NIL,	-- reference xSections, ordered by t
planeValid:				BOOL ¬ FALSE,				-- if plane ok
splineValid:				BOOL ¬ FALSE,				-- if tube.spline were set
lengthsValid:			BOOL ¬ FALSE,				-- if length, length0, and length1 ok
xSectionsValid:				BOOL ¬ FALSE,				-- if xSections ok
prev, next: 				Tube ¬ NIL,					-- parent and continuing tubes
branches:					TubeSequence ¬ NIL,		-- branch (non-continuing) tubes
nearSpline:				NearSpline ¬ [],				-- relative to a previous query
nearSegment:				NearSegment ¬ [],			-- relative to a previous query
name:						ROPE ¬ NIL,					-- optional name of tube
color:						Color ¬ NIL,					-- Imager color
refAny:					REF ANY ¬ NIL,				-- for client data
selected:					BOOL ¬ FALSE				-- selected for drawing?
];

TubeSequence:		TYPE ~ REF TubeSequenceRep;
TubeSequenceRep:	TYPE ~ RECORD [
length:						NAT ¬ 0,
element:						SEQUENCE maxLength: NAT OF Tube
];

TubePlace:			TYPE ~ RECORD [tube: Tube, t: REAL];

DetailType:			TYPE ~ {
						autoSimplify,	-- kill details if mouse held
						label,				-- label vectors
						skeleton,			-- draw straight line skeleton
						spline,			-- draw spline axis
						ends,				-- draw spline ends
						pick,				-- draw picked point
						enabled,			-- enable viewing of details
						xSections,			-- reference xSections
						lines,				-- longitudinal lines
						curvature,		-- curvature
						velocity,			-- velocity
						acceleration,		-- acceleration							
						contours,			-- true: contours, false: circles
						points,			-- points
						normals,			-- normals
						shape,				-- xSections or curvature or velocity or acceleration
						skin				-- contours or normals
						};

Details:				TYPE ~ REF DetailsRep;
DetailsRep:			TYPE ~ ARRAY DetailType OF BOOL ¬ [
						FALSE,			-- autoSimplify
						TRUE,				-- label
						FALSE,			-- skeleton
						TRUE,				-- spline
						TRUE,				-- ends
						TRUE,				-- pick
						TRUE,				-- enabled
						FALSE,			-- xSections
						FALSE,			-- lines
						FALSE,			-- curvature
						FALSE,			-- velocity
						FALSE,			-- acceleration
						FALSE,			-- contours
						FALSE,			-- points
						FALSE,			-- normals
						FALSE,			-- shape
						FALSE				-- skin
						];
TubeProc:			TYPE ~ PROC [tube: Tube] RETURNS [continue: BOOL ¬ TRUE];
XSectionProc:			TYPE ~ PROC [position, velocity: Triple, t: REAL] RETURNS [XSection];
PointProc:			TYPE ~ PROC [id: INTEGER, position, normal: Triple, texture: Pair]
								RETURNS [continue: BOOL ¬ TRUE];

PolyProc:			TYPE ~ PROC [id, p0, p1, p2: INTEGER] RETURNS [continue: BOOL ¬ TRUE];
EvalPosition: PROC [tube: Tube, t: REAL] RETURNS [Triple];
EvalXSection: PROC [tube: Tube, t: REAL] RETURNS [XSection];
SetSpline: PROC [tube: Tube];

SetSectionSpline: PROC [tube: Tube];
ExtractPartTube: PROC [in: Tube, t0, t1: REAL, out: Tube ¬ NIL] RETURNS [Tube];
CurveFromTube: PROC [tube: Tube] RETURNS [Curve];
SetTubeProperties: PROC [
tube: Tube, scale, taper, epsilon: REAL, recursively: BOOL ¬ TRUE];
PropagateEpsilon: PROC [tube: Tube, epsilon: REAL];
PropagateScale: PROC [tube: Tube, scale: REAL];
Tension: PROC [tube: Tube, t: REAL] RETURNS [REAL];

Twist: PROC [tube: Tube, t: REAL] RETURNS [REAL];
AddContour: PROC [tube: Tube, contour: Contour];
DivideContours: PROC [tube, tube0, tube1: Tube, t: REAL];
TContour: PROC [contours: ContourSequence, circle: Contour, t: REAL] RETURNS [Contour];
Skin: PROC [tube: Tube];
GetContourPairs: PROC [xSection: XSection] RETURNS [PairSequence];

PropagateCircleRes: PROC [tube: Tube, circleRes: INTEGER];
ScreenCircleRes: PROC [tube: Tube, view: Matrix] RETURNS [INTEGER];
Radius: PROC [tube: Tube, t: REAL, roundTip: BOOL ¬ FALSE] RETURNS [REAL];
SetRadii: PROC [tube: Tube, radius: REAL];
SetDescendantRadii: PROC [tube: Tube, mode: RadiusMode];
Length: PROC [tube: Tube, t: REAL] RETURNS [REAL];
SetLengths: PROC [tube: Tube];

SetSectionLengths: PROC [tube: Tube];
AdjustXSectionLengths: PROC [tube: Tube];
SetPlanes: PROC [tube: Tube];

SetPlane: PROC [tube: Tube];
ReScale: PROC [tube: Tube, scale: REAL ¬ 1.0, taper: REAL ¬ 0.0];
SetCircles: PROC [tube: Tube, circleRes: NAT];
NearestTube: PROC [q: Triple, tube: Tube, nearValid: BOOL ¬ TRUE] RETURNS [TubePlace];
NearestTube2d: PROC [tube: Tube, screen: Pair, mouseDown: BOOL, view: Matrix]
RETURNS [TubePlace];
Rotate: PROC [tube: Tube, line: Ray, angle: REAL, degrees, tubeAlso: BOOL ¬ TRUE];
Make: PROC [
tube: Tube,
skin: BOOL ¬ FALSE,
roundTip: BOOL ¬ FALSE,
view: Matrix ¬ NIL,
epsilon: REAL ¬ 0.03,
xSectionProc: XSectionProc ¬ NIL];
MakeXSections: PROC [
tube: Tube,
skin: BOOL ¬ FALSE,
roundTip: BOOL ¬ FALSE,
view: Matrix ¬ NIL,
xSectionProc: XSectionProc ¬ NIL];
MakeSectionXSections: PROC [
tube: Tube,
skin: BOOL ¬ FALSE,
roundTip: BOOL ¬ FALSE,
view: Matrix ¬ NIL,
xSectionProc: XSectionProc ¬ NIL];
NXSections: PROC [tube: Tube] RETURNS [INTEGER];
TotalNXSections: PROC [tube: Tube] RETURNS [nXSections: NAT ¬ 0];
GetXSection: PROC [tube: Tube, t: REAL] RETURNS [XSection];
PutXSection: PROC [tube: Tube, xSection: XSection];
CopyXSection: PROC [xSections: XSection] RETURNS [XSection];
CopyXSections: PROC [xSections: XSectionSequence] RETURNS [XSectionSequence];
Basis: PROC [v, vv, rv: Triple] RETURNS [Triad];
RefMatrix: PROC [position: Triple, triad: Triad, scale, twist: REAL, out: Matrix ¬ NIL]
RETURNS [Matrix];
XYFromXSection: PROC [point: Triple, tube: Tube, t: REAL] RETURNS [Pair];
ShapeFromTube: PROC [tube: Tube] RETURNS [Shape];
CopyTubeSection: PROC [tube: Tube, copy: Tube ¬ NIL] RETURNS [Tube];
CopyEntireTube: PROC [tube: Tube] RETURNS [copy: Tube];
Find: PROC [searchee, search: Tube] RETURNS [BOOL];
Where: PROC [searchee, search: Tube] RETURNS [ROPE];
SetLastTubePicked: PROC [tube: Tube];
LastTubePicked: PROC [copy: BOOL ¬ TRUE] RETURNS [Tube];

First: PROC [tube: Tube] RETURNS [Tube];
Last: PROC [tube: Tube] RETURNS [Tube];
Divide: PROC [tube: Tube, t: REAL];

Delete: PROC [tube: Tube];
SelectAll: PUBLIC PROC [tube: Tube];
UnSelectAll: PUBLIC PROC [tube: Tube];
ExtractTubeName: PROC [fileName: ROPE] RETURNS [ROPE];
SetTubeColors: PROC [tube: Tube];
Average: PROC [tube0, tube1: Tube] RETURNS [Tube];
InterpTubes: PROC [tube1, tube2, interp: Tube, alpha: REAL];
NewTube: PROC [
knots: TripleSequence,
tension: REAL ¬ 1.0,
tangent0, tangent1: Triple ¬ [],
cyclic: BOOL ¬ FALSE]
RETURNS [Tube];
NewBranch: PROC [tube: Tube] RETURNS [Tube];
AddBranch: PROC [tube, branch: Tube];
GetBranch: PROC [tube: Tube, n: NAT] RETURNS [branch: Tube];
TubeHull: PROC [tube: Tube] RETURNS [Hull];
InvalidateTubeAttributes: PROC [tube: Tube];
NTubes: PROC [tube: Tube] RETURNS [INTEGER];
NBranches: PROC [tube: Tube, nextAlso: BOOL ¬ FALSE] RETURNS [INTEGER];
NSiblings: PROC [tube: Tube, tubeAlso: BOOL ¬ TRUE] RETURNS [INTEGER];
NPoints: PROC [tube: Tube] RETURNS [INT];
NPolys: PROC [tube: Tube] RETURNS [INT];
NSplinesInBranch: PROC [tube: Tube] RETURNS [INT];
Depth: PROC [tube: Tube] RETURNS [NAT];
Info: PROC [tube: Tube] RETURNS [nPoints, nPolys, minCres, maxCres: INT];
Points: PROC [tube: Tube, pointProc: PointProc, view: Matrix ¬ NIL] RETURNS [nPoints: INT];

Polys: PROC [tube: Tube, polyProc: PolyProc] RETURNS [nPolys: INT];

ApplyToTube: PROC [tube: Tube, tubeProc: TubeProc];
ApplyToBranches: PROC [tube: Tube, tubeProc: TubeProc, nextAlso: BOOL ¬ TRUE];
ApplyToSiblings: PROC [tube: Tube, tubeProc: TubeProc, tubeAlso: BOOL ¬ TRUE];
ReadTube: PROC [stream: STREAM] RETURNS [Tube];
WriteTube: PROC [stream: STREAM, tube: Tube, m: Matrix ¬ NIL];
WritePointsPolys: PROC [tube: Tube, fileName: ROPE, m: Matrix ¬ NIL]
RETURNS [nPoints, nPolys: INT];
WriteIP: PROC [ref: ImagerInterpress.Ref, tube: Tube, details: Details, m: Matrix];
TubeFromFile: PROC [fileName: ROPE] RETURNS [tube: Tube];
TubeToFile: PROC [tube: Tube, fileName: ROPE, matrix: Matrix ¬ NIL];
DrawType:	TYPE ~ Draw2d.DrawType;
MarkType:	TYPE ~ Draw2d.MarkType;
Viewport:		TYPE ~ G3dMatrix.Viewport;
Context:		TYPE ~ Imager.Context;

DrawTube: PROC [
context: Context,
tube: Tube,
details: Details,
view: Matrix,
viewport: Viewport ¬ [],
drawType: DrawType ¬ solid];
DrawSkeleton: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
drawType: DrawType ¬ solid];
DrawSplines: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
drawType: DrawType ¬ solid];

DrawSplineEnds: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
mark: MarkType ¬ dot];

DrawPoints: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
markType: MarkType ¬ dot];

DrawContours: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
drawType: DrawType ¬ solid];

DrawLines: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
drawType: DrawType ¬ solid];

DrawXSections: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
label: BOOL,
drawType: DrawType ¬ solid];

DrawNormals: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
label: BOOL,
drawType: DrawType ¬ solid];
DrawCurvature: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
label: BOOL,
drawType: DrawType ¬ solid];

DrawVelocity: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
label: BOOL,
drawType: DrawType ¬ solid];

DrawAcceleration: PROC [
context: Context,
tube: Tube,
view: Matrix,
viewport: Viewport ¬ [],
label: BOOL,
drawType: DrawType ¬ solid];

NVectors: PROC [tube: Tube, details: Details] RETURNS [INTEGER];
END.


%Μ
G3dTube.mesa
Copyright Σ 1985, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 15, 1992 4:06 pm PDT
Glassner, June 28, 1989 5:10:57 pm PDT
In General
A tube is a tree-like structure that may have an antecedent (tube.prev), a continuation (tube.next), and an arbitrary number of branches (tube.branches).  A section is a tube considered by itself, without its continuation or branches.  A branch is a tube and, recursively, its continuation.  Generally, a tube means the sub-tree consisting of the current section and, recursively, its continuation and branches.  The entire tree is the sub-tree that has no antecedent.
Tube Definitions
geometric givens:
geometric derivations:
derivations status:
topology:
nearness:
miscellaneous:
CallBack Definitions
								Procedure for operating on each tube section.

								Return a xSection given the position and velocity
								of the curve at parametric position t.

								Procedure for operating on the given point.
								Procedure for operating on the given triangle.
Geometric Operations
Evaluation
Return the position of the tube at parametric position t.
For t=0, return tube.p0; for t=1, return tubeLast.p1 (tubeLast is the final section of tube).

Return the xSection of the tube at parametric position t.
For t=0, return xSection at tube.p0;
for t=1, return xSection at tubeLast.p1 (tubeLast is the final section of tube).
Splines
Set the spline coefficients for tube and its descendents.
Set the spline coefficients for tube only.

Return a copy of that part of tube beginning at parameter t0 and ending at t1.

Return curve consisting of tube, tube.next, tube.next.next, and so on, ignoring branches.
Epsilon, Scale, Tension, Twist
Set the given properties of tube and (if recursively) to its descendants.

Propagate the epsilon throughout the tube.

Propagate the scale throughout the tube.

Return the tension of the tube at parameter t.
Return the twist of the tube at parameter t.
Contour Procedures
Add the contour to the set of contours in the tube.

Divide the contours belonging to tube between tube0 and tube1 and the t dividing point.

Return the (possibly interpolated) contour t-way through the sequence;
If the sequence doesn't span t, then circle is returned.

Set the contour and normals fields of tube.xSections

Return the sequence of pairs defining the tube hull at this xSection.
Change circular resolution to circleRes for tube.

Return the approximately appropriate circular resolution for display of the tube section.
tube.xSections is presumed defined.
Radius Procedures
Return the tube radius at parametric position t.
If roundTip and tube has no .next, then attenuate the radius to form a hemispherical tip.

Set tube's and its descendents' radii to radius.

Set tube's descendents' radii such that, if radiusMode is linear, their sum equals tube.r1,
else, if square, the sum of their squares equals the square of tube.r1.
Length Procedures
Return the length from the root of the tube to the t position on tube.

Set the length0 and length1 fields for tube and its descendents.
Set the length0 and length1 fields for tube only.

Revise the xSection.length estimate based on the more accurate tube.length.
Plane Procedures
Set the plane field for tube and its descendents.
Set the plane field for tube only.
Altering Tube XSections
Resize tube.xSections to scale*tube.r.

Set all tube xSections to be circular, with the given resolution.
Nearness Operations
Return tube and t nearest to q; iff nearValid, presumes nearSpline has been computed.

Return the tube and t nearest to q; iff mouse is down, recomputes tube screen projections.
Rotation Operations
Rotate tube (if tubeAlso) and its descendents about line by angle;
spline coefficients and tube xSections are not recomputed.
XSection Operations
Create spline coefficients and reference xSections for the entire tube (its descendants and
antecedants).  For each tube section, points, tangents, radii & twists are presumed defined.

The xSection matrix is scaled by tube.scale.  This scale is changed according to distance from
the tube base and tube.taper; if tube.taper is 0, no tapering occurs; if tube.taper is 1, then
the scale of the matrix is reduced to zero after a distance of 1.

If skin TRUE then the curve subdivison considers the variation in any associated contours
and at each xSection the contour is computed.

If roundTip is TRUE then make the ends of those tubes without branches be hemispherical
by adding additional xSections.

tube.epsilon is set to epsilon.  If view is NIL, the tube is considered only in object space
and epsilon is the same discriminator as in G3dSpline.FlatBezier; if view # NIL, epsilon is
the number of pixels the straight line approximation is permitted to deviate from the curve
as transformed to screen space.

If xSectionProc non-NIL, it is used to create the each xSection; otherwise a standard procedure,
return a xSection consisting of a circular cross-section.

Make the xSections for the tube sub-tree (tube and its descendants only).
epsilon, scale, taper, skin, roundTip, view & xSectionProc have same meaning as in Make[].

Create a xSection sequence for the tube section only.
skin, roundTip, view, and xSectionProc have the same meaning as in Make[].

Return the number of xSections in tube.

Return the total number of xSections in tube and its descendents.

Return the xSection at parametric position t, t IN [0..1].

Insert the xSection in the tube.

Return a copy of the input xSection.

Return a copy of the input xSection sequence.

Given tangent v along a curve, previous tangent vv, and reference vector rv, compute
vectors n and b; v, n, and b form a new set of axes; the transformation of the x, y, and z
axes to v, n, and b accomodates the twist in the curve; v, vv, and rv presumed unitized.

Return matrix to transform origin to p, z-axis to triad.v, x-axis to triad.n and y-axis to triad.b;
twist around z by t degrees and scale by s.

Return the point as transformed to the x-y plane determined by tube.xSections at t.
Miscellany
Create a polygonal shape given tube.

Return a copy of the input tube.

Copy tube and all its descendents.

Return true iff searchee is somewhere within search.

Return the whereabouts of serachee within search; returns NIL if searchee no in search.

Set the most recently ScreenPicked tube to be tube.

Return the tube most recently ScreenPicked; if copy then return copy.
Return the first antecedent of tube (that is, tube.prev.prev etc. such that tube.prev = NIL).

Return the first last of tube (that is, tube.next.next etc. such that tube.next = NIL).

Divide tube into two parts, from 0 to t, and from t to 1.
Delete this tube and all its descendents.

Set select field TRUE for tube and its descendents.

Set select field FALSE for tube and its descendents.

Return the base name of the tube.

Set the tube colors according to their recursive depths.
Interpolation
Return the average of the two input tubes.  next and branches fields are left NIL.
XSections and lengths are not computed.  Spline are computed.

Set the endpoints of interp according to an angular interpolation method.
This presumes tube1 and tube2 have identical topology!
interp should be initialized as a copy of either tube1 or tube2.
Creation
Create a new tube based upon the input knot sequence.
If cyclic, tangent0 and tangent1 are ignored, and the last knot need not equal the first.
Branching
Fabricate a branch beginning at the end of tube.

Add the branch to the end of tube.

Return the n-th branch of tube; for n = 0, return tube.next, if it exist;
else return the appropriate branch.  If n is out of range, NIL is returned.
Attributes
Return interesting attributes of the tube.

Set splineValid, lengthsValid and xSectionsValid to false for tube and its descendents.

Return the number of tubes (tube and its descendents).

Return the number of branches of tube.  Iff nextAlso, add 1 if tube.next # NIL.

Return the number of siblings of tube, including, iff tubeAlso, tube.

Return the number of points in the tube.

Return the number of polygons in the tube.

Return the number of splines in the branch.

Return the depth of recursion of tube; that is, its recursive distance from its first antecedent.

Return the total number of points and polygons in a tube, and the extremes of circle res.
Call Backs
Apply pointProc to the points in tube; first transform the points by view, if non-nil.
Apply polyProc to the polygons in tube.
tubeProc is applied to a subset of tube; a tubeProc is called only if its argument is non-NIL.
Apply tubeProc recursively to tube and its descendant tubes (tube.next, and tube.branches).

Apply tubeProc to tube.branches and, iff nextAlso true, to tube.next.

Apply tubeProc to siblings of tube and, iff tubeAlso true, to tube.
IO
Read from stream.

Write tube to stream, multiplying points and tangents by m if non-nil.

Write out the points and polygons to the given file;
points are indexed and contain xyz, normal, and uvw data.

Write the tube to ref; leaving the file open until ImagerInterpress.Close[ref].

Return a tube given the file name.

Write tube to the given file name; transform the tube points according to matrix, if not NIL.
Drawing
Draw entire tube according to the details; splines as solid, if selected, or dotted, otherwise.

Draw the entire tube with straight lines.

Draw splines as drawType, if selected, or dotted, otherwise.
Draw ends of splines with mark.
Draw the contour points.
Draw circles.
Draw lines.
Draw xSections.
Draw normals to the tube.

Draw curvature vectors.
Draw tangent vectors.
Draw acceleration vectors.
Count number of vectors to draw.

Κ‘•NewlineDelimiter

–
"cedarcode" style™™Jšœ	Οeœ6™BJ™&J™&J˜JšΟk	œvžœ˜™
J˜—šΠblœžœ
ž˜J˜—Jšœž˜
headš
Οl
™
JšœΟbœ—
‘œJ‘œΰ
™Τ—š
 ™Jšœžœ˜&JšœžœΟc"˜VJšœ
žœ˜ Jšœ
žœ˜Jšœž	œ˜Jšœ
žœ˜,Jšœž	œ˜Jšœžœ˜!Jšœžœ˜"Jšœžœ˜0Jšœžœ˜ Jšœžœ˜#Jšœž	œ˜!Jšœž	œ˜!Jšœžœ˜#Jšœ
žœ˜*Jšœžœ˜#Jšœžœ˜,Jšœžœ˜Jšžœžœžœ
žœ
˜šžœžœžœ
˜J˜—˜$J˜—šœžœ˜&J˜—Jšœ
žœžœ
˜$šœžœžœ˜Jšœ
žœ’˜9Jšœ’˜/Jšœ
žœ’#˜@Jšœ
žœ’˜%Jšœ
žœ’˜%Jšœžœ’	Πcs
’£
’˜EJšœžœ’"˜BJšœžœ’˜8J˜J˜—Jšœžœžœ˜2šœžœžœ˜$Jšœ
žœ˜Jšœžœžœ
žœ	˜1J˜J˜—Jšœžœžœ	˜šœžœžœ˜™Jšœ!’˜>Jšœ!’˜=Jšœžœ	’˜=Jšœ
žœ
’ ˜>Jšœžœ’	˜'Jšœžœ’˜,Jšœ
žœ
’˜&Jšœžœ’˜/Jšœžœ’˜,Jšœ žœ’˜9—™Jšœžœ’˜6Jšœžœ’˜9Jšœ’˜;Jšœ!’%˜FJšœžœ’˜1Jšœžœ’˜9Jšœ’%˜AJšœ"žœ’$˜K—™Jšœžœžœ’˜.Jšœžœžœ’˜;Jšœžœžœ’%˜FJšœžœžœ’˜6—™	Jšœžœ’˜>Jšœžœ’ ˜C—™	Jšœ#’˜BJšœ$’˜C—™Jšœžœžœ’˜3Jšœžœ’˜,Jšœžœ
žœžœ’˜0Jšœžœžœ’˜6—J˜J˜—Jšœžœžœ˜*šœžœžœ˜ Jšœ
žœ˜Jšœžœžœ
žœ˜-J˜J˜—šœ
žœžœžœ˜1J˜—šœ
žœ˜Jšœ’˜1Jšœž
œ’˜ Jšœž
œ’˜0Jšœ’˜#Jšœ’˜"Jšœ’˜#Jšœ’Οi˜-Jšœ’˜)Jšœ’˜%Jšœ’˜Jšœ’˜Jšœ’œ
ž˜+Jšœ’!˜3Jšœ’	˜Jšœ’
˜Jšœž
œ’€2˜EJšœ’€˜$J˜J˜—Jšœžœžœ˜"š	œžœžœžœ
žœ˜1Jšœžœ’˜Jšœžœ’˜Jšœžœ’˜Jšœžœ’	˜Jšœžœ
’˜Jšœžœ
’˜Jšœžœ’˜Jšœžœ’˜Jšœžœ’˜Jšœžœ’˜Jšœžœ’˜Jšœžœ’˜Jšœžœ’˜Jšœžœ’	˜Jšœžœ’
˜Jšœžœ’˜Jšœžœ’˜Jš
œ˜——š
 ™š‘œžœžœžœžœžœ˜EJ™5J™—š
‘œžœžœ!žœžœ˜UJ™9J™.J™—šΟn	œ
žœžœžœ*˜OJšœžœžœžœ˜(J™3J˜—š₯œ
žœžœžœžœžœžœ˜RJ™6——š
 ™š
 
™
š₯œžœžœžœ
˜:J™9J™]J™—š₯œžœžœžœ˜<J™9J™$J™P——š
 ™š₯	œžœ˜J™9J˜—š₯œžœ˜$J™*J™—š
₯œžœžœžœžœ˜OJ™NJ™—š₯
œžœžœ	˜1J™Y——š
 ™š₯œžœ˜Jšœ#žœžœžœ˜CJ™IJ™—š₯œžœžœ˜3J™*J™—š₯œžœžœ˜/J™(J™—š
₯œžœžœžœžœ˜3J™.J˜—š
₯œžœžœžœžœ˜1J™,——š
 ™š₯
œžœ ˜0J™3J™—š₯œžœžœ˜9J™WJ™—š₯œžœ1žœ
žœ˜WJ™FJ™8J™—š₯œžœ˜J™4J™—š₯œžœžœ˜BJ™EJ˜—š₯œžœžœ˜:J™1J™—š₯œžœžœžœ˜CJ™YJ™#——š
 ™š₯œžœžœžœžœžœžœ˜JJ™0J™YJ™—š₯œžœžœ˜*J™0J™—š₯œžœ ˜8J™[J™G——š
 ™š
₯œžœžœžœžœ˜2J™FJ™—š₯
œžœ˜J™@J˜—š₯œžœ˜%J™1J™—š₯œžœ˜)J™K——š
 ™š₯	œžœ˜J™1J˜—š₯œžœ˜J™"——š
 ™š₯œžœžœžœ˜AJ™&J™—š₯
œžœžœ˜.J™A——š
 ™š
₯œžœ$žœžœžœ
˜VJ™UJ™—š₯
œ
žœ'žœ˜MJšžœ
˜J™Z——š
 ™š
₯œžœ žœžœžœ˜RJ™BJ™:——š
 ™š₯œžœ˜J˜Jšœžœžœ
˜Jšœ
žœžœ
˜Jšœžœ
˜Jšœ	žœ˜Jšœžœ˜"J™[™\J™—J™^J™^™AJ™—JšœΟsœM™Y™-J™—Jšœ¦œD™W™J™—Jšœ,žœ-™\JšœL¦œ™[Jš
œ[™[š
œ™J™—JšœžœI™`J™9J™—š₯
œžœ˜J˜Jšœžœžœ
˜Jšœ
žœžœ
˜Jšœžœ
˜Jšœžœ˜"J™IJ™ZJ™—š₯œžœ˜J˜Jšœžœžœ
˜Jšœ
žœžœ
˜Jšœžœ
˜Jšœžœ˜"J™5J™JJ™—š₯
œžœžœžœ˜0J™'J™—š₯œžœžœžœ˜AJ™AJ™—š₯œžœžœžœ˜;Jšœ0žœ™:J™—š₯œžœ"˜3J™ J™—š₯œžœžœ˜<J™$J™—š₯
œžœžœ˜MJ™-J™—š₯œ
žœžœ	˜0J™TJ™ZJ™XJ™—š₯	œžœ0žœžœ
˜WJšžœ
˜J™cJ™+J™—š₯œ
žœ žœžœ˜IJ™S———š
 
™
š₯
œžœžœ	˜1J™$J™—š₯œžœžœžœ˜DJ™ J™—š₯œžœžœ˜7J™"J™—š₯œžœžœžœ˜3Jš
œ4™4J™—š₯œžœžœžœ˜4J™WJ™—š₯œžœ˜%J™3J™—š
₯œžœžœžœžœ˜8J™EJ˜—š₯œžœžœ˜(JšœX¦œ™]J™—š₯œžœžœ˜'JšœR¦œ™WJ™—š₯œžœžœ˜#J™9J˜—š₯œžœ˜J™)J™—š₯	œžœ
žœ˜$Jšœ¦œ™3J™—š₯œžœ
žœ˜&Jšœ¦œ™4J™—š
₯œžœžœžœžœ˜6J™!J™—š₯
œžœ˜!J™8——š
 
™
š₯œžœžœ˜2JšœN¦œ
™RJš
œ=™=J™—š₯œžœ%žœ˜<J™IJ™6J™@——š
 ™š₯œžœ˜Jš
œ˜Jšœ	žœ˜J˜ Jšœžœžœ
˜Jšžœ˜J™5J™Y——š
 	™	š₯	œžœžœ˜,J™0J™—š₯	œžœ˜%J™"J™—š₯	œžœžœžœ˜<Jš
œI™IJšœ;¦œ
™K——š
 
™
š₯œžœžœ˜+J™*J™—š₯œžœ˜,J™WJ™—š₯œžœžœžœ˜,J™6J™—š₯	œžœžœžœžœžœ˜GJšœK¦œ
™OJ™—š₯	œžœžœžœžœžœ˜FJš
œE™EJ™—š₯œ
žœžœžœ˜)J™(J™—š₯œžœžœžœ˜(J™*J™—š₯œžœžœžœ˜2J™+J™—š₯œžœžœžœ˜'J™aJ™—š₯œžœ
žœ%žœ˜IJ™Y——š
 
™
š
₯œ
žœ3žœ
žœžœ˜[Jš
œV™VJ˜—š₯œžœ!žœ
žœ˜CJš
œ'™'JšœZžœ
™^J˜—š₯œžœ"˜3J™[J™—š₯œžœ,žœžœ˜NJ™EJ™—š₯œžœ,žœžœ˜NJ™C——š
 ™š₯œžœ
žœžœ˜/J™J™—š₯	œžœ
žœžœ˜>J™FJ™—š₯œžœžœžœ
˜DJšžœžœ˜J™4J™9J™—š₯œžœE₯
˜SJ™OJ™—šΠbnœžœžœžœ˜9J™"J™—š§
œžœžœžœ˜DJšœY¦œ
™]——š
 ™Jšœ	žœ˜!Jšœ	žœ˜!Jšœ	žœ˜%šœžœ˜ J˜—š₯œžœ˜J˜J˜J˜J˜
J˜J˜J™_J™—š₯œžœ˜J˜J˜J˜
J˜J˜J™)J™—š₯œžœ˜J˜J˜J˜
J˜J˜J™<J˜—š₯œžœ˜J˜J˜J˜
J˜J˜J™J˜—š₯
œžœ˜J˜J˜J˜
J˜J˜J™J˜—š₯œžœ˜J˜J˜J˜
J˜J˜J™
J˜—š₯	œžœ˜J˜J˜J˜
J˜J˜J™J˜—š₯
œžœ˜J˜J˜J˜
J˜Jšœžœ
˜J˜J™J˜—š₯œžœ˜J˜J˜J˜
J˜Jšœžœ
˜J˜™J™——š₯
œžœ˜J˜J˜J˜
J˜Jšœžœ
˜J˜J™J˜—š₯œžœ˜J˜J˜J˜
J˜Jšœžœ
˜J˜J™J˜—š₯œžœ˜J˜J˜J˜
J˜Jšœžœ
˜J˜J™J˜—š₯œžœ žœžœ˜@J™ —J™—Jšžœ
˜J˜J˜—…—/ϊjW