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