SRL Archive - SRL Archives

I use the following methods to just put an array of colors into my script yet still use Color Speed 2. Works like a charm. Many of my methods depend on this.

If/When this gets committed I've got some fishing spot finding stuff that could be stuck in Fishing.scar

function GetTolerance(arr: array of Integer; theCTS: Integer): Integer;
var
  cts,i: Integer;
begin
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(theCTS);
  for i:=0 to High(arr)-1 do
  begin
    Result := 0;
    while(not SimilarColors(arr[i],arr[i+1],Result)) do
    begin
      Inc(Result);
    end;
  end;
  ColorToleranceSpeed(cts);
  Inc(Result);
end;

procedure HueSatTolCol(var hue,sat: Extended; var tol,col: Integer; arr: array of Integer; cts: Integer);
var
  i,ii,r,g,b: Integer;
  hslarr: array of THSLColor;
  rgbarr: array of TRGBColor;
  xyzarr: array of TXYZColor;
  rgbminmax: array[0..1] of TRGBColor;
  minmax: array[0..1] of THSLColor;
  xyzminmax: array[0..1] of TXYZColor;
  h,s,l,x,y,z: Extended;
  hmod,smod: Extended;
  bestCol: THSLColor;
begin
  SetLength(hslarr,Length(arr));
  for i:=0 to High(arr) do
  begin
    ColorToHSL(arr[i],hslarr[i].h,hslarr[i].s,hslarr[i].l);
  end;
  // hslarr now contains the contents of arr in HSL form.
  minmax[0].h := 255;
  minmax[0].s := 255;
  minmax[0].l := 255;
  // MinMax[0] = MIN MinMax[1] = MAX
  ii := High(hslarr);
  for i:=0 to ii do
  begin
    minmax[0].h := MinE(minmax[0].h,hslarr[i].h);
    minmax[0].s := MinE(minmax[0].s,hslarr[i].s);
    minmax[0].l := MinE(minmax[0].l,hslarr[i].l);
    minmax[1].h := MaxE(minmax[1].h,hslarr[i].h);
    minmax[1].s := MaxE(minmax[1].s,hslarr[i].s);
    minmax[1].l := MaxE(minmax[1].l,hslarr[i].l);
  end;
  h := minmax[1].h - minmax[0].h;
  s := minmax[1].s - minmax[0].s;
  l := minmax[1].l - minmax[0].l;
  hmod := (h/l);
  smod := (s/l);
  if(hmod < 0.1)then
    hmod := 0.1;
  if(smod < 0.1) then
    smod := 0.1;
  hue := hmod;
  sat := smod;
  if(cts < 2)then
  begin
    ii := High(arr);
    SetLength(rgbarr, ii+1);
    for i:=0 to ii do
    begin
      ColorToRGB(arr[i],rgbarr[i].r,rgbarr[i].g,rgbarr[i].b);
    end;
    ii := High(rgbarr);
    rgbminmax[0].r := 255;
    rgbminmax[0].g := 255;
    rgbminmax[0].b := 255;
    for i:=0 to ii do
    begin
      rgbminmax[0].r := Min(rgbminmax[0].r, rgbarr[i].r);
      rgbminmax[0].g := Min(rgbminmax[0].g, rgbarr[i].g);
      rgbminmax[0].b := Min(rgbminmax[0].b, rgbarr[i].b);
      rgbminmax[1].r := Max(rgbminmax[1].r, rgbarr[i].r);
      rgbminmax[1].g := Max(rgbminmax[1].g, rgbarr[i].g);
      rgbminmax[1].b := Max(rgbminmax[1].b, rgbarr[i].b);
    end;
    r := rgbminmax[1].r - rgbminmax[0].r;
    g := rgbminmax[1].g - rgbminmax[0].g;
    b := rgbminmax[1].b - rgbminmax[0].b;
    col := RGBToColor(r,g,b);
    tol := GetTolerance(arr,cts);
  end;
  if(cts = 2) then
  begin
    bestCol.h := (minmax[0].h + minmax[1].h) div 2;
    bestCol.s := (minmax[0].s + minmax[1].s) div 2;
    bestCol.l := (minmax[0].l + minmax[1].l) div 2;
    col := HSLToColor(bestCol.h,bestCol.s,bestCol.l);
    tol := Round(l + 0.1);
  end;
  if(cts = 3) then
  begin
    SetLength(xyzarr,Length(arr));
    for i:=0 to High(xyzarr) do
    begin
      ColorToXYZ(arr[i],xyzarr[i].x,xyzarr[i].y,xyzarr[i].z);
    end;
    xyzminmax[0].x := 255;
    xyzminmax[0].y := 255;
    xyzminmax[0].z := 255;
    for i:=0 to High(xyzarr) do
    begin
      xyzminmax[0].x := MinE(xyzminmax[0].x,xyzarr[i].x);
      xyzminmax[0].y := MinE(xyzminmax[0].y,xyzarr[i].y);
      xyzminmax[0].z := MinE(xyzminmax[0].z,xyzarr[i].z);
      xyzminmax[1].x := MaxE(xyzminmax[1].x,xyzarr[i].x);
      xyzminmax[1].y := MaxE(xyzminmax[1].y,xyzarr[i].y);
      xyzminmax[1].z := MaxE(xyzminmax[1].z,xyzarr[i].z);
    end;
    x := xyzminmax[1].x - xyzminmax[0].x;
    y := xyzminmax[1].y - xyzminmax[0].y;
    z := xyzminmax[1].z - xyzminmax[0].z;
    col := XYZToColor(x,y,z);
    tol := GetTolerance(arr,cts);
  end;
end;

Check out /core/Colors.scar
function GetColorArrayInfo

:)

From: marpis
Check out /core/Colors.scar
function GetColorArrayInfo

:)

GetTolerance, HueSatTolCol should probably be created based on GetcolorArrayInfo so that no one has to ever deal with that 3D extended array (seriously. wtf? :p)

Whoh. Didn't see that. Well. Time to update all my scripts.

Tniffoc facepalms.