Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Black and white - advanced

    Delphi
    by WojTec, 4. Dez 2010
  In my version:
  
  function IntToByte(Value: Integer): Byte;
  begin
  if Value < 0 then
  Result := 0
  else if Value > 255 then
  Result := 255
  else
  Result := Value
• Forum: Multimedia

  Re: Black and white - advanced

    Delphi
    by WojTec, 4. Dez 2010
  But limit to 0..255 range realize IntToByte(). What's wrong with my code? Maybe Input() is bad?
• Forum: Multimedia

  Re: Black and white - advanced

    Delphi
    by WojTec, 4. Dez 2010
  This is what I wrote:
  
  function Input(AInput: Integer): Single;
  begin
  Result := (0.33 * AInput) / 100;
  end;
  
  C := (Bits.G + Bits.B) div 2;
  M := (Bits.R + Bits.B) div 2;
  Y := (Bits.R + Bits.G) div 2;
• Forum: Multimedia

  Black and white - advanced

    Delphi
    by WojTec, 3. Dez 2010
  Hello guys,
  
  What I want to ask today is explained on attached screen (this is filter from PS).
  I want to it too :D Tinting is not secret for me and I already have this functionality. How BW manipulation work?