ein letztes update
alpha ist wieder ein Byte (ich fühl mich wohler damit)
Delphi-Quellcode:
for y:= 0 to h do
for x := 0 to w do
begin
alpha := ((imgSpectrum[x,y] and $FF000000) shr 24) and $FF;
c := imgSpectrum[x,y] and $FFFFFF;
if d > alpha then
alpha := 0
else
alpha := alpha - d;
if alpha > 127 then
imgSpectrum[x,y] := c or ((alpha -256) shl 24)
else
imgSpectrum[x,y] := c or (alpha shl 24);
end;
Grüße
Klaus