Optimierung von Pixel

[CHackbart]

Grob auf dem Tablet zusammengezimmert würde das so aussehen:

Delphi-Quellcode:

Var buf: PDWord;
 I, x: integer;
Begin
 For i := 0 to bmp.height - 1 do
 Begin
  Buf := bmp.scanline[i];
  For x := 0 to bmp.width - 1 do
   Begin
      Buf^ := $FF000000 or HLSToRGB(...);
      Inc(buf);
   End;
 End;