2D Locators controlling 3D points. Have to wrap each part in Dynamic
- To: mathgroup at smc.vnet.net
- Subject: [mg124473] 2D Locators controlling 3D points. Have to wrap each part in Dynamic
- From: Chris Young <cy56 at comcast.net>
- Date: Sat, 21 Jan 2012 05:12:48 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Wrapping the LocatorPane and the Graphics3D in Dynamic got them
connected. I thought that DynamicModule was enough.
DynamicModule[
{pt = 1/2 {{1, 1}, {-1, 1}, {1, -1}},
P},
{
Dynamic[
LocatorPane[
Dynamic[pt],
P = Append[#, 0] & /@ pt;
Framed @ Graphics[{}, Axes -> True]
]
],
Dynamic[
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]
}
]