Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Colored, indexed, resizable locators

  • To: mathgroup at smc.vnet.net
  • Subject: [mg124584] Colored, indexed, resizable locators
  • From: Chris Young <cy56 at comcast.net>
  • Date: Wed, 25 Jan 2012 07:08:24 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

The only problems remaining is that the locators don't initially snap
to the grid, when they're first created, and that increasing the offset
of the indices too much tends to nudge the locators away from their
correct positions slightly.

To use this, just add whatever graphics you want in the Graphics[ ]
expresssion. I've just connected the points with lines.

http://home.comcast.net/~cy56/Mma/ColoredResizableLocators.nb
http://home.comcast.net/~cy56/Mma/ColoredResizableLocatorsPic.png

Chris Young
cy56 at comcast.net

loc[k_, n_, locSize_, opac_, offset_] :=
 Graphics[
  {
   Opacity[opac],
   Hue[0.85 ((k - 1)/(n - 1))], Disk[{0, 0}],
   Opacity[1], Black, Circle[{0, 0}],
   Line[{{-1.5, 0}, {1.5, 0}}], Line[{{0, -1.5}, {0, 1.5}}],
   Text[k, {0, 0}, offset]
   },
  ImageSize -> locSize]

Manipulate[
 DynamicModule[
  {P = {{0, 0}, {1, 1}}},

  Dynamic @ LocatorPane[
    Dynamic @ P,

    Show[
     Graphics[{Thick, Line[Dynamic @ P]}],

     Axes -> True,
     PlotRange -> 2,
     GridLines -> {Range[-2, 2, 0.25], Range[-2, 2, 0.25]},
     GridLinesStyle -> LightGray
     ],
    {{-2, -2}, {2, 2}, {0.25, 0.25}},

    LocatorAutoCreate -> True,
    Appearance -> With[{n = Length[P]},
      Table[loc[k, n, locSize, opac, offset], {k, 1, n}]
      ]
    ]
  ],
 {{locSize, 30}, 5, 80, 1},
 {{opac, 0.3}, 0, 1},
 {{offset, {1, -1}}, {-2, -2}, {2, 2}, {0.25, 0.25}}
 ]




  • Prev by Date: Re: Animating morphing Bezier curves; saving points
  • Next by Date: Re: Automatically colred and indexed custom locators
  • Previous by thread: Mapping Bezier curve to surface. Locator problem, still.
  • Next by thread: Re: Difficulties with LocatorPanel