Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 17. Aug 2012
  var
  RGB: array of Byte;
  HSL1, HSL2: array of Integer;
  H, S, L: Integer;
  begin
  // get values here
  
  // Max* vars are = 256
  H := Round((MaxHue / ARange) * AValue) * (HSL2 - HSL1) shr 8 + HSL1;
  S := Round((MaxSat / ARange) * AValue) * (HSL2 - HSL1) shr 8 + HSL1;
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 16. Aug 2012
  I'm trying and nothing :(
  
  For blend in HSL I have this. Please, how to get what I'm talking about :?:
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 26. Mai 2012
  CCW I mean something like in attachement (this is in HSB, but idea is identical) ;)
  
  Ok, but problem is, how to get these gradient points? To draw I can use HSL blend function (above; and for example don't use 100 percents, but let's say 4, 8, ... and get 25 colors instead 100) and all will be ok. But I want to get up to 256 colors between 2 colors on HSL wheel (like 256 colors in RGB on begin...
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 25. Mai 2012
  Oh, you've right, thanks ;)
  
  Ok, I'm trying make blender in HSL space and I did it:
  
  // get both colors HSL values to HSL1 and HSL2
  
  H := Round((MaxHue / 100) * AValue) * (HSL2 - HSL1) shr 8 + HSL1;
  S := Round((MaxSat / 100) * AValue) * (HSL2 - HSL1) shr 8 + HSL1;
  L := Round((MaxLum / 100) * AValue) * (HSL2 - HSL1) shr 8 + HSL1;
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 24. Mai 2012
  So, gradient haven't to be identical as in sample. I just want to know way to get something similar ;) Could you post some example, please?
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 24. Mai 2012
  RGB(255, 0, 0) = HSL(0, 100, 50)
  RGB(255, 0, 255) = HSL(300, 100, 50)
  add H/S/L values and divide by 2
  result HSL(300, 200, 100) = RGB(0, 255, 128)
  result is similar to color 3 in sample
  
  Is this good way? :cyclops: Ah, I don't think so :(
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 24. Mai 2012
  When I'll blend red and magenta (above image) I'll get RGB(255, 0, 127), this color isn't in example output. So, I still don't understand what I need to blend? :(
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 23. Mai 2012
  I don't understand you, what I need to blend with?
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 19. Apr 2012
  Guys, how to do something similar, but with color wheel, mean not only 2 colors gradient, but N colors beetwen 2 input colors?
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 28. Dez 2011
  Thanks, I tried it too, but I forgot about ( and ) :-D
  
  And what about BW gradient from int version?
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 28. Dez 2011
  Hi, thanks!
  
  Float point version working, but: first element in result is first input color, then steps-1 are real steps. Why?
  
  Second int version is making black-white gradient, why?
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 27. Dez 2011
  It returns different colors than above script.
  When steps > 15 then returns more colors than I want (in other words for steps 1-15 array has 1-15 colors, for more steps array hase more colors than should contain, eg for 16 it contains 19 colors or for 64 --> 99).
  
  
  Maybe my idea is good but imprecise?
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 27. Dez 2011
  Did you saw link above? So, generaly thera are 2 colors on input and on output I want to array with n colors between input colors - it mean not full gradient, but just n colors.
• Forum: Multimedia

  Re: Color mixer

    Delphi
    by WojTec, 27. Dez 2011
  var
  V, T: Byte;
  begin
  SetLength(Result, 0);
  
  V := 100 div (EnsureRange(ASteps, 1, 64) + 1);
  T := V;
  
  while (T < 100) and (100 - T >= V) do
  begin
• Forum: Multimedia

  Color mixer

    Delphi
    by WojTec, 27. Dez 2011
  I'm trying implement this tool:
  
  http://www.design-lib.com/color_tool_mixer.php
  
  I already have this:
  
  type
  TColorArray = array of TColor;
  
  function GetColors(const C1, C2: TColor; Steps: Byte): TColorArray;