Mapping a curve to a surface using Manipulate

• To: mathgroup at smc.vnet.net
• Subject: [mg124556] Mapping a curve to a surface using Manipulate
• From: Chris Young <cy56 at comcast.net>
• Date: Wed, 25 Jan 2012 06:58:40 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

```Everything working very nicely, except that I can't get the locators to
stop intercepting my mouse clicks and drags when I try to rotate the 3D
plots. Is there a way to confine the mouse movements to the proper
graph? Do I have to use LocatorPane, which caused other plotting
problems?

Manipulate[
Grid [{{
Show[
ParametricPlot[\[HorizontalLine]Bez[P, t], {t, 0, 1}],
Graphics @ {Dotted, Line[P]},
PlotRange -> 2,
Axes -> True
],
Show[ParametricPlot3D[
{u, v, u v},
{u, -2, 2}, {v, -2, 2},
PlotRange -> 2, Mesh -> False
],
ParametricPlot3D[
{\[HorizontalLine]Bez[P, t][[1]], \[HorizontalLine]Bez[P, t][[
2]], \[HorizontalLine]Bez[P, t][[
1]] \[HorizontalLine]Bez[P, t][[2]]},
{t, 0, 1},
PlotRange -> 2
] /. Line[pts_, rest___] :> Tube[pts, 0.05, rest]
]
}}
],
{{P,
{{-1, -1}, {-1, -.5}, {-1, 0}, {-1, .5}, {-1, 1},
{  1, -1}, {   1, -.5}, {  1, 0}, {   1, .5}, {  1, 1}}}, Locator},
{{n, 10}, 0, 50, 1}
]

```

• Prev by Date: Re: How to look for this kind of error
• Next by Date: Re: Infinite Series Error - Bug?
• Previous by thread: Re: Question - deviation of elements in a population
• Next by thread: Re: Mapping a curve to a surface using Manipulate