Преобразование RGB-HSL

uses
  Math;
 
type
  TRGBColor=record
    r,g,b:byte;
  end;
  THSLColor=record
    h,s,l:double;
  end;
 
function RGB2HSL(v: TRGBColor): THSLColor;
var
  mx,mn: double;
begin
  mx:=max(max(v.r,v.g),v.b);
  mn:=min(min(v.r,v.g),v.b);
  Result.l:=(mx+mn)/510; //510=2*255
  if (Result.l=0) or (mx=mn) then
    Result.s:=0
  else if Result.l<=0.5 then
    Result.s:=(mx-mn)/(mx+mn)
  else if Result.l<>1 then
    Result.s:=(mx-mn)/(510-mx-mn)
  else
    Result.s:=1;
  if mx=mn then
    Result.h:=0
  else if mx=v.r then
    Result.h:=60*(v.g-v.b)/(mx-mn)+IfThen(v.g<v.b,360,0)
  else if mx=v.g then
    Result.h:=60*(v.b-v.r)/(mx-mn)+120
  else
    Result.h:=60*(v.r-v.g)/(mx-mn)+240
end;
 
function HSL2RGB(v: THSLColor): TRGBColor;
var
  q,p,h: double;
  t,c: array[1..3] of double;
  i: integer;
begin
  if v.l<0.5 then
    q:=v.l*(1+v.s)
  else
    q:=v.l+v.s-(v.l*v.s);
  p:=2*v.l-q;
  h:=v.h/360;
  t[1]:=h+1/3;
  t[2]:=h;
  t[3]:=h-1/3;
  for i:=1 to 3 do
    if t[i]<0 then
      t[i]:=t[i]+1
    else if t[i]>1 then
      t[i]:=t[i]-1;
  for i:=1 to 3 do
    if t[i]<1/6 then
      c[i]:=(q-p)*6*t[i]+p
    else if InRange(t[i],1/6,0.5) then
      c[i]:=q
    else if InRange(t[i],0.5,2/3) then
      c[i]:=(q-p)*(2/3-t[i])*6+p
    else
      c[i]:=p;
  Result.r:=round(c[1]*255);
  Result.g:=round(c[2]*255);
  Result.b:=round(c[3]*255);
end;