Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Using an locator and Rotating 3D graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg92579] Using an locator and Rotating 3D graphics
  • From: KB <KennethLeeBaker at gmail.com>
  • Date: Mon, 6 Oct 2008 04:14:57 -0400 (EDT)

When I try to use locators as inputs to 3D graphics, I end up not
being able to rotate 3d graphics.  Clicking on the graphic moves the
nearest locator rather than the graphic.  Switching to a collection of
2D sliders works in a pinch, but does not achieve the desired effect.
Here is an example:

Manipulate[v = pt2 - pt1;
 {Graphics[Arrow[{pt1, pt2}], PlotRange -> 2],
  ParametricPlot3D[{v[[1]] Cos[u], v[[2]] Sin[u], u}, {u, 0, 4 Pi},
   PlotRange -> {{-2, 2}, {-2, 2}},
   ColorFunction -> Function[{x, y, z, u}, Hue[u]],
   PlotStyle -> Thick]}, {{pt1, {0, 1}}, Locator},   {{pt2, {1, 0}},
  Locator}]


Any ideas?


  • Prev by Date: NET/Link Thread in C#
  • Next by Date: Re: NDSolve and error
  • Previous by thread: NET/Link Thread in C#
  • Next by thread: Re: Using an locator and Rotating 3D graphics