TubePick.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Bloomenthal, April 13, 1986 3:36:14 pm PST
DIRECTORY Controls, TubeDefs;
TubePick:
CEDAR
DEFINITIONS
~ BEGIN
OPEN TubeDefs;
ScreenPick:
PUBLIC
PROC [tube: Tube, mouse: Mouse, view: Matrix, pick: Pick];
Choose a point or a spline on the screen.
FindPick:
PUBLIC
PROC [tube: Tube, mouse: Mouse, view: Matrix, pick: Pick];
Determine point on spline nearest mouse point.
PointPick:
PUBLIC
PROC [pick: Pick];
Set pd for point selected.
SplinePick:
PUBLIC
PROC [mouse: Mouse, pick: Pick];
Set pd for spline 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.
NumberPicked:
PUBLIC PROC [pick: Pick]
RETURNS [
NAT];
Return number of splines currently picked.
BeforePicked:
PUBLIC PROC [pick: Pick]
RETURNS [
NAT];
Return number of splines preceeding the picked splines.
AfterPicked:
PUBLIC PROC [pick: Pick]
RETURNS [
NAT];
Return number of splines following the picked splines.
RemakePicked:
PUBLIC
PROC [pick: Pick, scale, epsilon:
REAL];
Remake picked tubes.
END.