anchor.diff:    A2 := (aColor2 shr 24 and $FF) / 255;
   
     Result := Sqrt(Sqr(R1 - R2) + Sqr(G1 - G2) + Sqr(B1 - B2) + Sqr(A1 - A2));
  +end;
  +
  +
  +function GetColorDistance(aColor1, aColor2: TKMColor3f): Single;
  +begin
  +  Result := Sqrt(Sqr(aColor1.R - aColor2.R) + Sqr(aColor1.G - aColor2.G) + Sqr(aColor1.B - aColor2.B));
   end;
   
   
  
positive.code: end;
  
  
  //Multiply color by channels
  function ApplyColorCoef(aColor: Cardinal; aAlpha, aRed, aGreen, aBlue: Single): Cardinal;
  var
  
negative.code:   function MultiplyBrightnessByFactor(aColor: Cardinal; aBrightnessFactor: Single; aMinBrightness: Single = 0; aMaxBrightness: Single = 1): Cardinal;
    function ReduceBrightness(aColor: Cardinal; aBrightness: Byte): Cardinal;
    function IsColorCloseToColors(aColor: Cardinal; const aColors: TKMCardinalArray; aDist: Single): Boolean;
    function GetColorDistance(aColor1, aColor2: Cardinal): Single; overload;
    function GetColorDistance(aColor1, aColor2: TKMColor3f): Single; overload;
    function GetRandomColor: Cardinal;
    function GetPingColor(aPing: Word): Cardinal;
    function GetFPSColor(aFPS: Word): Cardinal;
  