Finding a paint closest color

[Advanced Bot]

Is there anyway to find a closest paint color?

[Ad Bot]

[Ipquarx]

There's a function for this in the BuildBot addon, go look that up and take a peek at the code.

[Advanced Bot]

There's a function for this in the BuildBot addon, go look that up and take a peek at the code.

Ah.


function findclosestcolor(%x)
{
   for(%a=0; %a<64; %a++)
   {
      %match = mabs(getword(getcoloridtable(%a),0) - getword(%x,0)) + mabs(getword(getcoloridtable(%a),1) - getword(%x,1)) + mabs(getword(getcoloridtable(%a),2) - getword(%x,2)) + mabs(getword(getcoloridtable(%a),3) - getword(%x,3))*4;

      if(%match < %bestmatch || %bestmatch $= "")
      {
         %bestmatch = %match;
         %bestid = %a;
      }
   }
   return %bestid;
}

[Lugnut]

i feel like that could be optimized a tiny bit -
function findclosestcolor(%x)
{
   for(%a=0; %a<64; %a++)
   {
      %color = getcoloridtable(%a)
      %match = mabs(getword(%color,0) - getword(%x,0)) + mabs(getword(%color,1) - getword(%x,1)) + mabs(getword(%color,2) - getword(%x,2)) + mabs(getword(%color,3) - getword(%x,3))*4;

      if(%match < %bestmatch || %bestmatch $= "")
      {
         %bestmatch = %match;
         %bestid = %a;
      }
   }
   return %bestid;
}

that might be a tiny fraction better

[Port]

time to overkill everything

function min(%a0, %a1, %a2, %a3, %a4, %a5, %a6, %a7, %a8, %a9,
  %a10, %a11, %a12, %a13, %a14, %a15, %a16, %a17, %a18, %a19)
{
  for (%n = 20; %n > 0; %n--)
    if (%a[%n - 1] !$= "")
      break;

  %min = %a0;

  for (%i = 1; %i < %n; %i++)
    if (%a[%i] < %min)
      %min = %a[%i];

  return %min;
}

function max(%a0, %a1, %a2, %a3, %a4, %a5, %a6, %a7, %a8, %a9,
  %a10, %a11, %a12, %a13, %a14, %a15, %a16, %a17, %a18, %a19)
{
  for (%n = 20; %n > 0; %n--)
    if (%a[%n - 1] !$= "")
      break;

  %ax = %a0;

  for (%i = 1; %i < %n; %i++)
    if (%a[%i] > %min)
      %max = %a[%i];

  return %max;
}

function RGBtoHSV(%rgb)
{
  %r = getWord(%rgb, 0);
  %g = getWord(%rgb, 1);
  %b = getWord(%rgb, 2);

  %min = min(%r, %g, %b);
  %max = max(%r, %g, %b);

  %value = %max;
  %delta = %max - %min;

  if (%max != 0)
    %saturation = %delta / %max;
  else
    return "-1 0" SPC %value;

  if (%r == %max)
    %hue = (%g - %b) / %delta;
  else if (%g == %max)
    %hue = 2 + (%b - %r) / %delta;
  else
    %hue = 4 + (%r - %g) / %delta;

  %hue *= 60;

  if (%hue < 0)
    %hue += 360;

  return %hue SPC %saturation SPC %value;
}

function colorDifference(%rgba1, %rgba2)
{
  %a1 = getWord(%rgba2, 3);
  %a2 = getWord(%rgba2, 3);

  %hsv1 = RGBtoHSV(%rgba1);
  %hsv2 = RGBtoHSV(%rgba2);

  return vectorDist(%hsv1, %hsv2) + (%a2 - %a1) * 45;
}

function findBestSprayColor(%rgba)
{
  %best = -1;

  for (%i = 0; %i < 64; %i++)
  {
    %color = getColorIDTable(%i);
    %value = colorDifference(%rgba, %color);

    if (%diff $= "" || %value < %diff)
    {
      %diff = %value;
      %best = %i;
    }
  }

  return %best;
}

[Advanced Bot]

Holy crap Port

[jes00]

I use Space Guy's.

Code: [Select]

function getClosestPaintColor(%rgba)
{
%prevDist = 100000;
%colorMatch = 0;

for(%i = 0; %i < 64; %i++)
{
%color = getColorIDTable(%i);

if(vectorDist(%rgba, getWords(%color, 0, 2)) < %prevDist && getWord(%rgba, 3) - getWord(%color, 3) < 0.3 && getWord(%rgba, 3) - getWord(%color, 3) > -0.3)
{
%prevDist = vectorDist(%rgba, %color);
%colorMatch = %i;
}
}

return %colorMatch;
}


[Lugnut]

I have no idea what port did

[Port]

HSV distance instead of RGB distance

[Chrono]

I use Space Guy's.

Don't. It uses vectorDist which only takes in 3 words, colors need 4.

[Ipquarx]

I have no idea what port did

HSV distance instead of RGB distance

even I figured this out