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

MathGroup Archive 2012

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

Search the Archive

Locators and Appearance

  • To: mathgroup at smc.vnet.net
  • Subject: [mg128989] Locators and Appearance
  • From: azzteke <klaus.giesselmann at web.de>
  • Date: Fri, 7 Dec 2012 01:38:33 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net

Hello all,

this one works. I get three different Locators named a, b, c:

Manipulate[Graphics[{Opacity[.2], Polygon[pts]}, PlotRange -> 1.2],
 {{q[1], .5, "L1"}, -1, 1}, {{q[2], -0.3, "L2"}, -1, 1},
 {{q[3], 0.8, "L3"}, -1, 1}, {{pts, {{-.5, 0}, {1, 0}, {0, 1}}}, 
  Locator, Appearance -> {a, b, c}},
 TrackedSymbols :> {pts}]

This one does not work properly:

Manipulate[Graphics[{Opacity[.2], Polygon[pts]}, PlotRange -> 1.2],
 {{q[1], .5, "L1"}, -1, 1}, {{q[2], -0.3, "L2"}, -1, 1},
 {{q[3], 0.8, "L3"}, -1, 1}, {{pts, {{-.5, 0}, {1, 0}, {0, 1}}}, 
  Locator, Appearance -> {q[1], q[2], q[3]}},
TrackedSymbols :> {pts}]

Thanks for any advice.
azzteke



  • Prev by Date: Re: System of differential equations
  • Next by Date: Re: System of differential equations
  • Previous by thread: Re: Interactively placing points onto 3D surfaces
  • Next by thread: Re: Locators and Appearance