TubePick.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Bloomenthal, November 22, 1986 4:56:48 pm PST
DIRECTORY TubeDefs;
~
BEGIN
OPEN TubeDefs;
LastTubePicked:
PUBLIC
PROC
RETURNS [Tube];
Return the tube most recently ScreenPicked.
ScreenPick:
PUBLIC
PROC [tube: Tube, mouse: Mouse, view: Matrix, pick: Pick];
Choose a point or a spline on the screen.
SetPickPoint:
PUBLIC
PROC [pick: Pick];
Set pick data for point selected.
SetPickSelected:
PUBLIC
PROC [pick: Pick];
Set pick data for spline(s) selected.
DivideSpline:
PUBLIC
PROC [pick: Pick];
Divide a spline at the picked point because the point has been manipulated.
NewSplits:
PUBLIC
PROC [pick: Pick];
Recompute splines to left and right of picked point.
ChangeTangent:
PUBLIC
PROC [pick: Pick, tangent: Triple];
Change tangent at picked point.
ChangePosition:
PUBLIC
PROC [pick: Pick, change: Triple];
Change position of picked point.
ChangeRadii:
PUBLIC
PROC [pick: Pick, r0, r1, scale, epsilon:
REAL];
Change the radii of the picked tube; remake the affected tubes.
ChangeTension:
PUBLIC
PROC [pick: Pick, tens0, tens1:
REAL];
Change the tension of the picked tubes.
ChangeTw0:
PUBLIC PROC [pick: Pick, tw0, tw0Prev:
REAL];
Cnange the twist0 of the picked tube.
ChangeTw1:
PUBLIC PROC [pick: Pick, tw1, tw1Prev:
REAL];
Cnange the twist1 of the picked tube.
NumberSelected:
PUBLIC PROC [pick: Pick]
RETURNS [
INTEGER];
Return number of splines currently picked.
BeforeSelected:
PUBLIC PROC [pick: Pick]
RETURNS [
INTEGER];
Return number of splines preceeding the picked splines.
AfterSelected:
PUBLIC PROC [pick: Pick]
RETURNS [
INTEGER];
Return number of splines following the picked splines.
RemakeSelected:
PUBLIC
PROC [pick: Pick, scale, epsilon:
REAL];
Remake picked tubes.