Groups > comp.soft-sys.math.mathematica > #1667

Re: Plotting Locators with Color

From	Bill <WDWNORWALK@aol.com>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Plotting Locators with Color
Date	2011-04-14 09:00 +0000
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID	<io6d2s$dr0$1@smc.vnet.net> (permalink)

Show all headers | View raw

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

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: Plotting Locators with Color Bill <WDWNORWALK@aol.com> - 2011-04-14 09:00 +0000

csiph-web