Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Blending colors in HSL

    Delphi
    by WojTec, 11. Jul 2012
  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 :)
• Forum: Multimedia

  Re: Blending colors in HSL

    Delphi
    by WojTec, 11. Jul 2012
  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)?
• Forum: Multimedia

  Blending colors in HSL

    Delphi
    by WojTec, 11. Jul 2012
  function BlendColorsHueCW(const AColor1, AColor2: TColor; const AValue: Byte {0..100}): TColor;
  var
  RGB: array of Byte;
  HSL1, HSL2: array of Integer;
  H, S, L: Integer;
  begin
  GetRGB(AColor1, RGB, RGB, RGB);
  RGBToHSL(RGB, RGB, RGB, HSL1, HSL1, HSL1);
  
  GetRGB(AColor2, RGB, RGB, RGB);