|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Simulate infrared film
29. Nov 2010, 17:36
another idea for infrared fake
Delphi-Quellcode:
Procedure NightVision(bmp:TBitMap);
begin
Gamma(bmp,0.3);
ConvertBitmapToGrayscale(bmp);
InvertBitMap(bmp);
Multiply(bmp,0,3.5,0);
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi (12. Okt 2012 um 07:37 Uhr)
|