Dynamic colour wheel

Question

An extension of this question, I'd like to create multiple locators as per the example below:

Manipulate[
 With[{pts =  Append[#, First[#]] &@
 Table[{r {Cos[phi], Sin[phi]}, phi/(2 Pi)}, {phi, 0, 2 Pi, 
   1/10}, {r, 0, 1, 1/10}]}, 
 DynamicModule[{constrain, dots = {{.5, .5}}}, 
 constrain = If[Norm[#] < 1, #, Normalize[#]] &;
 LocatorPane[Dynamic[dots, (dots = constrain /@ #) &], 
 Graphics[{Polygon[{{0, 0}, First[#1], First[#2]}, 
     VertexColors -> (Hue /@ {{0, 0, 1}, Last[#1], Last[#2]})] & @@@
    Partition[pts[[All, -1, {1, 2}]], 2, 1], 
  Dynamic[{EdgeForm[Black], 
    Hue[Module[{a, b}, b = (List @@@ dots)[[1]]; 
       a = Quiet@(180 ArcTan[#2/#]/Pi) & @@ b; 
       If[Positive[b[[1]]] && Positive[b[[2]]], a, 
        If[Negative[b[[1]]] && Positive[b[[2]]], 180 + a, 
         If[Negative[b[[1]]] && Negative[b[[2]]], 180 + a, 
          If[Positive[b[[1]]] && Negative[b[[2]]], 360 + a, 
           If[b[[2]] == 0 && Positive[b[[1]]], 360, 
            If[b[[1]] == 0 && Positive[b[[2]]], 360/4, 
             If[b[[2]] == 0 && Negative[b[[1]]], 360/2, 
              If[b[[1]] == 0 && Negative[b[[2]]], 360/4]]]]]]]]]/360, 
    Evaluate@EuclideanDistance[{0, 0}, dots[[1]]], b], 
    Disk[#, Scaled[.05]] & /@ dots}]}], 
Appearance -> None]]], {{b, 1}, 0, 1}, ControlPlacement -> Top]

ie, the aim is to make a dynamic version of this:

I have tried

... DynamicModule[{constrain, dots = {{.5, .5}}, dots1 = {{-.5, .5}}}, 
constrain = If[Norm[#] < 1, #, Normalize[#]] &;
LocatorPane[
Dynamic[{dots, (dots = constrain /@ #) &}, {dots1, (dots1 = 
   constrain /@ #) &}], Graphics[ ...

but syntax clearly isn't right. Not sure where to go from here.

Answer 1

ClearAll[wheel, constrain, hue, saturation, disk]

wheel = With[{pts = Append[#, First[#]] & @
   Table[{r {Cos[phi], Sin[phi]}, phi/(2 Pi)}, {phi, 0, 2 Pi, 1/10}, {r, 0, 1, 1/10}]},
   Polygon[{{0, 0}, First[#1], First[#2]}, 
      VertexColors -> (Hue /@ {{0, 0, 1}, Last[#1], Last[#2]})] & @@@ 
    Partition[pts[[All, -1, {1, 2}]], 2, 1]];

constrain = If[Norm[#] < 1, #, Normalize[#]] &;

hue = Module[{a = Quiet @ (180 ArcTan[#2/#]/Pi) & @@ #, signs = Sign[#]},
    Switch[signs, {1, 1}, a, {-1, 1 | -1}, 180 + a, {1, -1}, 
      360 + a, {1, 0}, 360, {-1, 0}, 360/2, {0, 1 | -1}, 360/4]/360] &;

saturation = Norm @ # &;

disk[brightness_] := {EdgeForm[Black], Hue[hue@#, saturation@#, brightness],
   Disk[#, Scaled[.05]]} &;

Manipulate[DynamicModule[{dots = {{.5, .5}}},
  LocatorPane[Dynamic[dots, (dots = constrain /@ #) &], 
   Graphics[{wheel, Dynamic[disk[brightness] /@ dots]}, 
    PlotRange -> {{-1.2, 1.2}, {-1.2, 1.2}}], 
   Appearance -> None, LocatorAutoCreate -> True]], 
 {{brightness, 1}, 0, 1}, ControlPlacement -> Top]

Update: Controlling the number of locators with a slider we can have a slider to control brightness of each locator:

Manipulate[DynamicModule[{dots = RandomPoint[Disk[], n]}, 
  LocatorPane[Dynamic[dots, (dots = constrain /@ #) &], 
   Graphics[{wheel, Dynamic[Table[disk[b[i]] @ dots[[i]], {i, n}]]}, 
    PlotRange -> {{-1.2, 1.2}, {-1.2, 1.2}}], Appearance -> None, 
   LocatorAutoCreate -> False]],
 {{b, b}, None}, 
 {{n, 5}, 1, 10, 1},
 Dynamic @ Column @ Table[With[{i = i}, 
     Control[{{b, b, Dynamic @ Row[{"b[", i, "]"}]}, 0, 1, 
       Slider[Dynamic[b[i]], ##2] &}]], {i, n}], 
 ControlPlacement -> Left, Initialization :> {Do[b[i] = 1, {i, n}]}]

where I use the approach in this answer by Michael E2 to specify a list of controls without having to explicitly list them.