Bitmap aus einem Array von Farbwerten erzeugen

[daschaos]

Der Pixel wird momentan folgendermaßen berechnet und abgespeichert:

Pixel := (IntensityA + Max(0, IntensityS * CosA)) / 255;

Red := Round(Byte(LayerColor)* Pixel);
Green := Round(Byte(LayerColor shr 8) * Pixel);
Blue := Round(Byte(LayerColor shr 16) * Pixel);

PixelArray[ix, iy] := RGB(Red, Green, Blue);