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