Re: DynamicModule to set locations of 3D points from 2D LocatorPane?
- To: mathgroup at smc.vnet.net
- Subject: [mg124520] Re: DynamicModule to set locations of 3D points from 2D LocatorPane?
- From: "Nasser M. Abbasi" <nma at 12000.org>
- Date: Sun, 22 Jan 2012 07:26:02 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <jfe32d$9pa$1@smc.vnet.net>
- Reply-to: nma at 12000.org
On 1/21/2012 4:12 AM, Chris Young wrote:
> 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]
> }
> ]
>
>
Please try this to see if it works for you.
------------------
DynamicModule[{pt = 1/2 {{1, 1}, {-1, 1}, {1, -1}}, p},
Grid[{
{
Dynamic@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]
}
}]
]
----------------------
--Nasser