Изменение тона изображения - Lazarus - Ответ 3119344

{ RGB -> HLS }
function RGB2HLS (px : TColor): integer;
var H, L, S, R, G, B, x, n : byte;
  dR, dG, dB : single;
begin
  R:= px shr 16;
  G:= (px shl 8) shr 16;
  B:= (px shl 16) shr 16;
 
  x:= max(max(r,g),b);
  n:= min(min(r,g),b);
 
  L:= round(((x+n)*HLSMAX + RGBMAX)/(2*RGBMAX));
 
  if x = n then
  begin
    S:= 0;
    H:= (HLSMAX*2) div 3;
  end
  else
  begin
    if (L <= (HLSMAX*2)) then
      S:= round(((x-n)*HLSMAX + ((x+n)/2)) / (x+n))
    else
      S:= round(((x-n)*HLSMAX + ((2*RGBMAX-x-n)/2)) / (2*RGBMAX-x-n));
 
    dR:= ((x - R)*HLSMAX/2 + ((x-n)/2)) / (x-n);
    dG:= ((x - G)*HLSMAX/2 + ((x-n)/2)) / (x-n);
    dB:= ((x - B)*HLSMAX/2 + ((x-n)/2)) / (x-n);
 
    if R = x then
      H:= round(dB - dG)
    else
      if G = x then
        H:= round((HLSMAX/3) + dR - dB)
      else
        H:= round(2*HLSMAX/3 + dG - dR);
 
    if H < 0 then
      H:= H + HLSMAX;
    if H > HLSMAX then
      H:= H - HLSMAX;
  end;
 
  RGB2HLS:= (H*$010000) + (L*$000100) + S;
end;
{ /! RGB -> HLS }
{--------------------------------------------}
 
{ HLS -> RGB }
function HLS2RGB(H, L, S : integer): integer;
var R, G, B : byte;
   n1, n2 :single;
 
  function H2RGB(hue: integer): integer;
  begin
    if (hue < 0) then hue := hue+HLSMAX;
    if (hue > HLSMAX) then
      hue:=hue -HLSMAX;
    if (hue < (HLSMAX/6)) then
      result:= round( n1 + (((n2-n1)*hue+HLSMAX/12)/(HLSMAX/6)) )
    else
      if (hue < (HLSMAX/2)) then
        result:=round(n2)
      else
        if (hue < ((HLSMAX*2)/3)) then
          result:= round( n1 + (((n2-n1)*(((HLSMAX*2)/3)-hue)+(HLSMAX/12))/(HLSMAX/6)))
        else result:= round( n1 );
  end;
 
begin 
  if (S = 0) then
  begin
      B:=round( (L*RGBMAX)/HLSMAX );
      R:=B;
      G:=B;
  end
  else
  begin
    if (L <= (HLSMAX/2)) then
      n2 := (L*(HLSMAX + S) + (HLSMAX/2))/HLSMAX
    else
      n2 := L + S - ((L*S) + (HLSMAX/2))/HLSMAX;
    n1 := 2*L-n2;
    R := round( (H2RGB(H+round(HLSMAX/3))*RGBMAX + (HLSMAX/2))/HLSMAX );
    G := round( (H2RGB(H)*RGBMAX + (HLSMAX/2)) / HLSMAX );
    B := round( (H2RGB(H-round(HLSMAX/3))*RGBMAX + (HLSMAX/2))/HLSMAX );
  end;
 
  if R < 0 then
    R:= 0;
  if R > RGBMAX then
    R:= RGBMAX;
 
  if G < 0 then
    G:= 0;
  if G > RGBMAX then
    G:= RGBMAX;
 
  if B < 0 then
    B:= 0;
  if B > RGBMAX then
    B:= RGBMAX;
 
  HLS2RGB:= (R*$010000) + (G*$000100) + B;
end;