Scanline lahm??

**igel457**

Ich habe folgendes Problem:

in meinem Spiel sollen bestimmte Teile der Hintergrundgrafik aufgehellt/abgedunkelt werden.

Ich versuche das so:
(buffer ist ein TBitmap)

zusammenfalten · markieren

Delphi-Quellcode:

			  for oy := 0 to buffer.Height-1 do

  begin

    row := buffer.ScanLine[oy];

    for ox := 0 to buffer.Width-1 do

    begin

      gamma := 10;

      if gamma <> 0 then

      begin

        b := cut(row[ox].rgbtBlue+gamma);

        g := cut(row[ox].rgbtGreen+gamma);

        r := cut(row[ox].rgbtRed+gamma);

        row[ox].rgbtBlue := b;

        row[ox].rgbtGreen := g;

        row[ox].rgbtRed := r;

      end;

    end;

  end;

und so:

markieren

Delphi-Quellcode:

			type

  TRGBTripleArray = array[0..32768] of TRGBTriple;

  // 32768 = maximale Anzahl der Pixel in der Breite eines Bildes (also eine "ScanLine")

  pRGBTripleArray = ^TRGBTripleArray; // Pointer auf TRGBTripleArray

Doch leider ist das furchtbar lahm! Ich brauche für ein 1024x768 großes bild eine halbe Minute! Dabei hatte ich schon öfters ScanLine verwendet, und da war das nicht so lahm.

(Apropos: Das ganze ist mit DelphiX in einem TSprite)

Was mache ich falsch?

Scanline lahm??

Scanline lahm??

Forumregeln