WaveFade

[EWeiss]

Wenn ich dich richtig verstanden habe dann so!

Delphi-Quellcode:

    //' Fade The Data.
    for dy := 0 to nHeight - 1 do
    begin
      for dx := 0 to 255 do
      begin
        i  := PPixelArray(pAddr)[dy + dx div 256, dx mod 256].b - 15;
        if i < 0 then i := 0;
        PPixelArray(pAddr)[dy + dx div 256, dx mod 256].b := i ;

        i := PPixelArray(pAddr)[dy + dx div 256, dx mod 256].g - 15;
        if i < 0 then i := 0;
        PPixelArray(pAddr)[dy + dx div 256, dx mod 256].g := i ;

        i  := PPixelArray(pAddr)[dy + dx div 256, dx mod 256].r - 15;
        if i < 0 then i := 0;
        PPixelArray(pAddr)[dy + dx div 256, dx mod 256].r := i ;
      end;
    end;

Leider kracht es gewaltig

gruss Emil