Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• Follow-Ups:
  • Re: Locators disappearing in LocatorPane (although working)
    • From: "E. Martín-Serrano" <eMartinSerrano@telefonica.net>