Blending colors in HSL

[WojTec]

Delphi-Quellcode:

function BlendColorsHueCW(const AColor1, AColor2: TColor; const AValue: Byte {0..100}): TColor;
var
  RGB: array [0..2] of Byte;
  HSL1, HSL2: array [0..2] of Integer;
  H, S, L: Integer;
begin
  GetRGB(AColor1, RGB[0], RGB[1], RGB[2]);
  RGBToHSL(RGB[0], RGB[1], RGB[2], HSL1[0], HSL1[1], HSL1[2]);

  GetRGB(AColor2, RGB[0], RGB[1], RGB[2]);
  RGBToHSL(RGB[0], RGB[1], RGB[2], HSL2[0], HSL2[1], HSL2[2]);

  H := Round((MaxHue / 100) * AValue) * (HSL2[0] - HSL1[0]) shr 8 + HSL1[0];
  S := Round((MaxSat / 100) * AValue) * (HSL2[1] - HSL1[1]) shr 8 + HSL1[1];
  L := Round((MaxLum / 100) * AValue) * (HSL2[2] - HSL1[2]) shr 8 + HSL1[2];

  HSLToRGB(H, S, L, RGB[0], RGB[1], RGB[2]);
  Result := SetRGB(RGB[0], RGB[1], RGB[2]);
end;

When ~100% then invalid result. Why?

[lbccaleb]

Maybe, you get it by yourself when you test the following code ;)

Delphi-Quellcode:

  showmessage(inttostr(Round(255{maxhue/maxsat/maxlum} / 100)));

All Numbers over 85 are to high!

[WojTec]

Delphi-Quellcode:

initialization
  MaxHue := 360;
  MaxSat := 100;
  MaxLum := 100;

You mean should be: MaxHue=MaxSat=MaxLum=255? I tried it and result is also not accurately: R is ok, but GB are not ok (G + 2 and B ok or G + 1 and B + 1) :?

Edited: for MaxHue=MaxSat=MaxLum=256 is ok. I did right?

And what about other range (default I have 360:100:100)?

[freeway]

hmm why hsl blend over, i don´t see the benefit to rgb blend methode
ok that don´t explain your question

you got
MaxHue := 360;
MaxSat := 100;
MaxLum := 100;


H := Round((MaxHue / 100) * AValue) * (HSL2[0] - HSL1[0]) shr 8 + HSL1[0];
S := Round((MaxSat / 100) * AValue) * (HSL2[1] - HSL1[1]) shr 8 + HSL1[1];
L := Round((MaxLum / 100) * AValue) * (HSL2[2] - HSL1[2]) shr 8 + HSL1[2];

you see the difference ?

[WojTec]

Oh, of course, will be 1 * percent = percent :-D

Because I want to get colors from HSL circle bethween these 2 colors, not just blend 2 paints :)