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