Circular spectrum visualizer

[Neutral General]

RGBQuad^ := Pixel statt GDIP_BitmapSetPixel :

Delphi-Quellcode:

if alpha >= d then
  Pixel.rgbReserved := alpha - d
else
  Pixel.rgbReserved := 0;
RGBQuad^ := Pixel;

Theoretisch geht auch einfach:

Delphi-Quellcode:

for Col := 0 to BitmapData.Width - 1 do
begin
  alpha := RGBQuad^.rgbReserved;

  if alpha >= d then
    RGBQuad^.rgbReserved := alpha - d
  else
    RGBQuad^.rgbReserved := 0;

  inc(RGBQuad);
end;