In Delphi kannst du den ersten Teil so schreiben:
Delphi-Quellcode:
a,d: DWORD;
imgSpectrumData:
Array of Array of DWORD;
…
...
a := imgSpectrumData[x, y]
shr 24;
// Alpha bestimmen
if a >= d
then a := a-d
else a=0;
// Alpha ändern
c := imgSpectrumData[x,y]
and $00ffffff;
// nur RGB
imgSpectrumData[x,y] := (a
shl 24)
or c;
// Neues Alpha und RGB zurückschreiben