Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Locators disappearing in LocatorPane (although working)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg124475] Locators disappearing in LocatorPane (although working)
  • From: Chris Young <cy56 at comcast.net>
  • Date: Sat, 21 Jan 2012 05:13:29 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

The Locators are vanishing from sight before they reach the edge of the 
Locator pane, although they are still working.

DynamicModule[
 {P = 1/2 {{1, 1}, {-1, 1}, {1, -1}},
  \[ScriptCapitalP]},

 GraphicsRow [
  {
   Dynamic[
    LocatorPane[
     Dynamic[P],
     Framed @ Graphics[
       BezierCurve[Dynamic[P], SplineDegree -> Length[P]],
       Axes -> True,
       PlotRange -> {{-1, 1}, {-1, 1}}
       ],
     LocatorAutoCreate -> True
     ]
    ],

   Dynamic[
    \[ScriptCapitalP] = Append[#, 0] & /@  P;
    Graphics3D[
     {
      Sphere[\[ScriptCapitalP], 0.05],
      {Gray, Opacity[0.5], Tube[Line[\[ScriptCapitalP]], 0.015]},
      Tube[
       BezierCurve[\[ScriptCapitalP],
        SplineDegree -> Length[\[ScriptCapitalP]]], .03]
      },
     Axes -> True,
     PlotRange -> 1
     ]
    ]
   }
  ]
 ]




  • Prev by Date: Re: log-like symbols?
  • Next by Date: Re: Filling question
  • Previous by thread: Re: FindRoot and parameters in NIntegrate
  • Next by thread: Re: Locators disappearing in LocatorPane (although working)