MathGroup Archive 2011

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

Search the Archive

Re: Plotting Locators with Color

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118148] Re: Plotting Locators with Color
  • From: Bill <WDWNORWALK at aol.com>
  • Date: Thu, 14 Apr 2011 04:50:17 -0400 (EDT)

Hi:

Thanks Guys!

Here's one that I came up with using Background:

Needs["Splines`"]
Manipulate[
 LocatorPane[pts; Dynamic@pts, 
  Dynamic@Graphics[{Magenta, Spline[pts, Bezier], 
     Locator[Dynamic[pts[[1]]], Background -> Red], 
     Locator[Dynamic[pts[[2]]], Background -> Green], 
     Locator[Dynamic[pts[[3]]], Background -> Darker[LightBlue]], 
     Locator[Dynamic[pts[[4]]], Background -> Cyan]}, Axes -> True, 
    AxesLabel -> {x, y}, PlotRange -> {{-3, 3}, {-3, 3}}, 
    Background -> LightYellow]], {{pts, {{0, 0}, {0, 2}, {2, 0}, {2, 
     2}}}, {-3, -3}, {3, 3}, ControlType -> None}, 
 SaveDefinitions -> True, AutorunSequencing -> {2}]


Have a nice day,

Bill


  • Prev by Date: Coloring curves: not as simple as it sounds..
  • Next by Date: Undesired horizontal line in Plot / Bug?
  • Previous by thread: Re: Plotting Locators with Color
  • Next by thread: Re: Plotting Locators with Color