DynamicModule to set locations of 3D points from 2D LocatorPane?
- To: mathgroup at smc.vnet.net
- Subject: [mg124471] DynamicModule to set locations of 3D points from 2D LocatorPane?
- From: Chris Young <cy56 at comcast.net>
- Date: Sat, 21 Jan 2012 05:12:06 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
I don't see why the following doesn't update the 3D points. They just
stay stuck at the initialized x and y coordinates.
DynamicModule[
{pt = 1/2 {{1, 1}, {-1, 1}, {1, -1}},
P},
{
LocatorPane[
Dynamic[pt],
P = Append[#, 0] & /@ pt;
Framed @ Graphics[{}, Axes -> True]
],
Graphics3D[
{
Sphere[P, 0.05],
{Opacity[0.5], Tube[Line[P], 0.03]},
Tube[BezierCurve[P], .03]
},
Axes -> True,
PlotRange -> 1
],
Dynamic[pt],
Dynamic[P]
}
]