Locator Appearance

Question

I am using LocatorPane with LocatorAutoCreate -> True. I would like to have the appearance of each new locator be different. Ideally I would like to use a dot with a numeric superscript that would be incremented as they where created, but just using the incremented number as the locator would be good too. Is this possible?

Answer 1

I am not aware of any built-in option to do this, but using some graphics in combination with Dynamic does the trick.

pts = {{0, 0}};
LocatorPane[Dynamic[pts], 
  Graphics[
   {
     Circle[], 
     Dynamic@MapIndexed[Text[#2[[1]], #1 + {0.05, 0.05}] &, pts]
   }
  ], 
LocatorAutoCreate -> True]

or, with Appearance -> "\[CenterDot]":