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?