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? 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} ]