GR32 bilder verdunkeln

[Khabarakh]

Zitat von alienous:

wenn ich als parameter 100 übergebe, merke ich nichts, weil fast nichst subtrahiert wird

Überleg doch. Bei dp = 100 wird jeder Farbwert mit (1 - 1 / dp) = 99% multipliziert, da tut sich natürlich nicht viel .

Zitat:

wenn ich 2 als dp übergebe, wird die farbe des bildes verändert, aber es wird grün :O

Jetzt weißt du, warum Lighten subtrahiert und nicht dividiert . Deine Prozedur ist zwar richtig, aber wohl einfach nicht dafür geeignet, beim Verdunkeln die Bildfarbe gleich zu lassen => nimm Lighten .

[alienous]

Delphi-Quellcode:

procedure makeDarker32(Bitmap: TBitmap32; const dp: Byte = -20);
var
  PixelLine: PColor32array; 
  x, y: integer;
begin
  for y := 0 to Bitmap.height - 1 do
  begin
    PixelLine := Bitmap.ScanLine[y];
    for x := 0 to (Bitmap.width) - 1 do
       PixelLine[x] := Lighten(PixelLine[x], -100);
  end;
end;

so korrekt? kann man noch was am code machen um die geschwindigkeit zu erhöhen?
ansonsten binnich zufrieden, nun wirds auch dunkler ohne das es ins grüne abdriftet