Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: Simulate infrared film

    Delphi
    by Bummi, 29. Nov 2010
  another idea for infrared fake
  
  Procedure NightVision(bmp:TBitMap);
  begin
  Gamma(bmp,0.3);
  ConvertBitmapToGrayscale(bmp);
  InvertBitMap(bmp);
  Multiply(bmp,0,3.5,0);
  end;
• Forum: Multimedia

  AW: Simulate infrared film

    Delphi
    by Bummi, 29. Nov 2010
  :wall: Danke :wall:
• Forum: Multimedia

  AW: Simulate infrared film

    Delphi
    by Bummi, 29. Nov 2010
  @Medium
  
  wo findet der Überlauf statt?
  
  Function GetDoubleByte(i:Integer):Byte;
  Begin
  Result := i * 2;
  if Result > 255 then Result := 255;
  End;
• Forum: Multimedia

  AW: Simulate infrared film

    Delphi
    by Bummi, 29. Nov 2010
  as far as i can see the part you marked is ConvertBitmapToGrayscale
  if not you can play with theis part of the Code
  
  
  for x := 0 to bmp.Width - 1 do
  begin
  pscanLine.rgbBlue := 0;
  pscanLine.rgbGreen := GetDoubleByte(pscanLine.rgbGreen);
  end;
• Forum: Multimedia

  AW: Simulate infrared film

    Delphi
    by Bummi, 28. Nov 2010
  via Bitmap Scanline
  eliminate blue
  increase green * 2
  convert to gray
  
  Call
  
  InfraRed(Image1.Picture.Bitmap);
  Image1.Invalidate;