Re: Mapping a curve to a surface using Manipulate

*To*: mathgroup at smc.vnet.net*Subject*: [mg124598] Re: Mapping a curve to a surface using Manipulate*From*: John Fultz <jfultz at wolfram.com>*Date*: Thu, 26 Jan 2012 03:25:46 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Reply-to*: jfultz at wolfram.com

The Manipulate Locator control always creates a LocatorPane that covers the entire Manipulate contents. If you want different behavior, you'll have to introduce your own LocatorPane to the Manipulate. However, you don't want to run into problems we've discussed previously with controls being recreated inside of a Dynamic (in this case, the implicit Dynamic introduced by Manipulate) as you're using them. So, a couple of strategically placed Dynamics to prevent this are necessary as well. See if this works for you: Manipulate[ Grid[{{LocatorPane[Dynamic[P], Dynamic@Show[ ParametricPlot[\[HorizontalLine]Bez[P, t], {t, 0, 1}], Graphics@{Dotted, Line[P]}, PlotRange -> 2, Axes -> True]], Dynamic@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}}}, None}, {{n, 10}, 0, 50, 1}] Sincerely, John Fultz jfultz at wolfram.com User Interface Group Wolfram Research, Inc. On Wed, 25 Jan 2012 06:58:40 -0500 (EST), Chris Young wrote: > 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? > > http://home.comcast.net/~cy56/Mma/CurveToSaddle.nb > http://home.comcast.net/~cy56/Mma/CurveToSaddlePic.png > > > 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} > ]