Re: Mapping a curve to a surface using Manipulate

*To*: mathgroup at smc.vnet.net*Subject*: [mg124617] Re: Mapping a curve to a surface using Manipulate*From*: Christopher Young <cy56 at comcast.net>*Date*: Fri, 27 Jan 2012 06:07:00 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201212591140.813935@jfultz3winlap>

Thanks very much, that allows me to rotate the 3D graph and resize it, without the clicks being captured by the LocatorPane. It looks like the problem of the clicks getting captured was due to their being two sets of locators, one created by the LocatorPane declaration, and the other by the manipulate listing of points. Taking out the "Locator" and replacing it with "None" fixed this. It's interesting to remove each Dynamic call one at a time and to see the effect. Everything basically works if I just remove the Dynamic wrapper for the 3D plotting. The only problem is that dragging will only go a little way at a time. Everything is vastly slowed down. Can this be understood as the Manipulator sending many more events to the Show[ParametricPlot3D[=85]] unless the Dynamic is applied to "fence it off"? At any rate, working through these examples with this kind of assistance is a big help. Chris On Jan 25, 2012, at 10:11 AM, John Fultz wrote: > 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}]