DIRECTORY Controls, TubeDefs; TubePick: CEDAR DEFINITIONS ~ BEGIN OPEN TubeDefs; ScreenPick: PUBLIC PROC [tube: Tube, mouse: Mouse, view: Matrix, pick: Pick]; FindPick: PUBLIC PROC [tube: Tube, mouse: Mouse, view: Matrix, pick: Pick]; PointPick: PUBLIC PROC [pick: Pick]; SplinePick: PUBLIC PROC [mouse: Mouse, pick: Pick]; DivideSpline: PUBLIC PROC [pick: Pick]; NewSplits: PUBLIC PROC [pick: Pick]; ChangeTangent: PUBLIC PROC [pick: Pick, tangent: Triple]; ChangePosition: PUBLIC PROC [pick: Pick, change: Triple]; NumberPicked: PUBLIC PROC [pick: Pick] RETURNS [NAT]; BeforePicked: PUBLIC PROC [pick: Pick] RETURNS [NAT]; AfterPicked: PUBLIC PROC [pick: Pick] RETURNS [NAT]; RemakePicked: PUBLIC PROC [pick: Pick, scale, epsilon: REAL]; END. ŠTubePick.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Bloomenthal, April 13, 1986 3:36:14 pm PST Choose a point or a spline on the screen. Determine point on spline nearest mouse point. Set pd for point selected. Set pd for spline selected. Divide a spline at the picked point because the point has been manipulated. Recompute splines to left and right of picked point. Change tangent at picked point. Change position of picked point. Return number of splines currently picked. Return number of splines preceeding the picked splines. Return number of splines following the picked splines. Remake picked tubes. Κ²˜šœ ™ Jšœ Οmœ1™