add array of TCTS2Color FindColor overload.

SRL · Nov 22, 2018 · 184a26b · 184a26b
1 parent e10055e
commit 184a26b
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/shared/color.simba b/shared/color.simba
@@ -82,6 +82,7 @@ srl.FindColors
   function TSRL.FindColors(out TPA: TPointArray; Color: TCTSColor;  Area: TBox): UInt32; constref;
   function TSRL.FindColors(out TPA: TPointArray; Color: TCTS1Color; Area: TBox): UInt32; constref;
   function TSRL.FindColors(out TPA: TPointArray; Color: TCTS2Color; Area: TBox): UInt32; constref;
+  function TSRL.FindColors(out TPA: TPointArray; Color: array of TCTS2Color; Area: TBox): UInt32; constref;
 
 Searches for the given Color, returns the resulting points in the TPA.
 *)
@@ -100,6 +101,18 @@ begin
   Result := _FindColors(TPA, Area, Color.Color, Color.Tolerance, 2, Color.HueMod, Color.SatMod);
 end;
 
+function TSRL.FindColors(out TPA: TPointArray; Colors: array of TCTS2Color; Area: TBox): UInt32; constref; overload;
+var
+  Temp: TPointArray;
+  i: Int32;
+begin
+  SetLength(TPA, 0);
+
+  for i := 0 to High(Colors) do
+    if _FindColors(Temp, Area, Colors[i].Color, Colors[i].Tolerance, 2, Colors[i].HueMod, Colors[i].SatMod) > 0 then
+      TPA := TPA + Temp;
+end;
+
 function TSRL.CountColor(Color: TCTSColor; Area: TBox): Int32; overload;
 var
   TPA: TPointArray;