kleine frage
wäre das korrekt?
SpectrumData2D[X, Y] definiert als byte
a definiert als byte
Delphi-Quellcode:
//a := (((SpectrumData2D[X, Y] and $FF000000) div $1000000) and 255);
a := ((SpectrumData2D[X, Y] shl 24) and 255);
sollte dann der Alpha wert sein wenn richtig.
was ist dieses $1000000 bzw.. wie muss ich das zuordnen. Ist der wert noch von nöten bei Shl 24?
$FF000000
Ist klar Schwarz ohne Alphawert. Kann ich mir sparen wenn ich um 24Bit verschiebe oder?
Ich muss das auf vernünftige Farbberechnung umlegen das mit den HEX ist alles nicht so das richtige.
Überlauf unsigned.. signed. Und dann den richtigen DatenTyp dafür noch finden.
Damit kann ich nichts anfangen.
Delphi-Quellcode:
case FEffect of
0:
begin
d := round(Fade * 255);
for Y := 0 to h do
begin
for X := 0 to w do
begin
a := (((SpectrumData2D[X, Y] and $FF000000) div $1000000) and 255);
a := a - d;
if a < 0 then
a := 0;
c := SpectrumData2D[X, Y] and $FFFFFF;
if a > 127 then
SpectrumData2D[X, Y] := c or ((a - 256) * $1000000)
else
SpectrumData2D[X, Y] := c or (a * $1000000);
end;
end;
end;
end;
Könnte dabei bitte jemand helfen?
Mein Ansatz.
Delphi-Quellcode:
case FEffect
of
0:
begin
d := round(Fade * 255);
for Y := 0
to h
do
begin
for X := 0
to w
do
begin
//a := (((SpectrumData2D[X, Y] and $FF000000) div $1000000) and 255);
a := ((SpectrumData2D[X, Y]
shl 24)
and 255);
a := a - d;
// brauche ich nicht Byte gehen niemals ins minus.
//if a < 0 then
// a := 0;
// c := SpectrumData2D[X, Y] and $FFFFFF;
c := SpectrumData2D[X, Y]
and RGB(255, 255, 255);
if a > 127
then
SpectrumData2D[X, Y] := c
or ((a - 256) * $1000000)
// hier komm ich nicht klar wegen den $1000000
else
SpectrumData2D[X, Y] := c
or (a * $1000000);
// hier komm ich nicht klar wegen den $1000000
end;
end;
end;
end;
Wie kann ich die 2 Kommentierten Zeilen shiften?
gruss