MathGroup Archive 2012

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

Search the Archive

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




  • Prev by Date: select 1st column element based on criteria in 2nd AND 3rd column
  • Next by Date: using units with FindRoot
  • Previous by thread: Re: select 1st column element based on criteria in 2nd AND 3rd column
  • Next by thread: using units with FindRoot