Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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