Try
flocator[r_, color_: Red] :=
Graphics[{Circle[{0, 0}, Offset[r]], color, Disk[{0, 0}, Offset[3]]},
ImageSize -> 20 ]
Try differents colors and radious as in
locator = flocator[3, LightBlue]
And then in 'LocatorPane'
Appearance -> {locator,None}
or
Appearance -> {locator,""}
If you want to hide the locators you can use a flag
flag = {True | False}
and then
Appearance -> {Dynamic@If[flag[locator,""]}
Using a similar construct you might get different colours for different
locators
locator1 = flocator[3, LightBlue]
locator2 = flocator[3, LightRed]
locator3 = flocator[3, LightGreen]
Appearance -> {Dynamic@If[flag, locator1, ""], Dynamic@If[flag, locator2,
""], Dynamic@If[flag, locator3, ""]}
E. Martin-Serrano
-----Mensaje original-----
De: Gregory Lypny [mailto:gregory.lypny at videotron.ca]
Enviado el: domingo, 26 de enero de 2014 9:15
Para: mathgroup at smc.vnet.net
Asunto: How Can I Change the Appearance of a Locator in
Manipulate
Hello everyone,
Is it possible to change the appearance of a locator in a Manipulate? The
only change I've been able to make is to make it invisible using Appearance
-> None, as in
{{pt2, {80, 80}}, Locator, Appearance -> None}
but other appearance options, such as Small or Large, do not work.
Gregory