MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: SumConvergence still imperfect
  • Next by Date: Re: Derivatives Output as TraditionalForm
  • Previous by thread: Re: DynamicModule to set locations of 3D points from 2D LocatorPane?
  • Next by thread: Re: DynamicModule to set locations of 3D points from 2D LocatorPane?