[Kilop]

Вот функции переводов на Delphi :

Код:

function min(a, b: Byte): Byte;
begin
 if a>b then Result:=b else Result:=a
end;

function max(a, b: Byte): Byte;
begin
 if a>b then Result:=b else Result:=a
end;

function RGB2HSL(RGB: intRGB): HLS;
var
 cMin, cMax: Byte;
 Rdelta, GDelta, BDelta: double;
begin
 cMax:=max(max(RGB.R, RGB.G), RGB.B);
 cMin:=min(min(RGB.R, RGB.G), RGB.B);
 Result.L:=round(((cMax+cMin)*8)/17+0.5);
 if (cMax=cMin) then 
 begin 
   Result.S:=0; Result.H:=160;
 end 
else 
begin
  if (Result.L<=120) then 
  Result.S:=round((((cMax-cMin)*240)+((cMax+cMin)/2))/ (cMax+cMin) )
  else Result.S:=round((((cMax-cMin)*240)+((510-cMax-cMin)/2))/(510-cMax-cMin));
  Rdelta:=(((cMax-RGB.R)*40)+((cMax-cMin)/2))/(cMax-cMin);
  Gdelta:=(((cMax-RGB.G)*40)+((cMax-cMin)/2))/(cMax-cMin);
  Bdelta:=(((cMax-RGB.B)*40)+((cMax-cMin)/2))/(cMax-cMin);
  if (RGB.R=cMax) then Result.H:=round(Bdelta-Gdelta)
  else if (RGB.G=cMax) then Result.H:=round((80)+Rdelta-Bdelta)
  else Result.H:=round(160+Gdelta-Rdelta);
  if (Result.H<0) then Result.H:=Result.H+240;
  if (Result.H >240) then Result.H:= Result.H-240;
 end;
 if Result.S<0 then Result.S:=0; 
 if Result.S>240 then Result.S:=240;
 if Result.L<0 then Result.L:=0; 
 if Result.L>240 then Result.L:=240;
end;

function HLS2RGB(clrHLS: HLS): intRGB;
var
  Magic1, Magic2: single;
  function HueToRGB(n1, n2, hue: single): single;
  begin
    if (hue<0) then hue:=hue+240;
    if (hue>240) then hue:=hue-240;
    if (hue<40) then result:=(n1+(((n2-n1)*hue+20)/40))
    else if (hue<120) then result:=n2
    else if (hue<160) then result:=(n1+(((n2-n1)*(160-hue)+20)/40))
    else result:=(n1);
  end;
begin
  if (clrHLS.S=0) then
  begin
    Result.B:=round((clrHLS.L*17)/16);
    Result.R:=Result.B;
    Result.B:=Result.B;
  end
  else
  begin
    if (clrHLS.L<=120) then Magic2:=( clrHLS.L*(240+ clrHLS.S)+120)/240
    else Magic2:=clrHLS.L+clrHLS.S-( clrHLS.L* clrHLS.S+120)/240;
    Magic1:=2*clrHLS.L-Magic2;
    Result.R:=round((HueToRGB(Magic1, Magic2, clrHLS.H+80)*17+8)/16);
    Result.G:=round((HueToRGB(Magic1,Magic2, clrHLS.H)*17+8) /16);
    Result.B:=round((HueToRGB(Magic1,Magic2, clrHLS.H-80)*17+8)/16);
  end;
  if Result.R<0 then Result.R:=0;
  if Result.R>255 then Result.R:=255;
  if Result.G<0 then Result.G:=0;
  if Result.G>255 then Result.G:=255;
  if Result.B<0 then Result.B:=0;
  if Result.B>255 then Result.B:=255;
end;

Вот описание используемых типов :

Код:

const RGBscale=0.92157;

type
intRGB = record
 R, G, B: Byte;
end;

HLS = record
 H, L, S: Byte;
end;