Farbwert zu Dezimal

[EWeiss]

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

[Klaus01]

..ist noch früh aber solltest Du nicht nach rechts shiften?
Du willst aus einem 32bit Value das Highbyte haben.

Grüße Klaus

[EWeiss]

Zitat von Klaus01:

..ist noch früh aber solltest Du nicht nach rechts shiften?
Du willst aus einem 32bit Value das Highbyte haben.

Grüße Klaus

Danke ja du hast recht. Da gibt es keine Entschuldigung

gruss

[Klaus01]

.. kein Problem.

Delphi-Quellcode:

            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;

sollte in etwas so aussehen:

Delphi-Quellcode:

            if a > 127 then
              SpectrumData2D[X, Y] := c or ((a - 256) shl 24) // hier wird ein Byte zu einem 32Bit Value
            else
              SpectrumData2D[X, Y] := c or (a shl 24); //dito  * $1000000 verschiebt um 24bit nach links
          end;

Grüße
Klaus

[EWeiss]

Zitat:

//dito * $1000000 verschiebt um 24bit nach links

Danke Klaus genau das wollte ich wissen, natürlich auch um die Lösungen

Warum jetzt ShiftLeft? r, g, b nach Links?

Ein anderes kannst du bitte noch mal drüber schauen?

Delphi-Quellcode:

    1:
      begin
        d := round(Fade * 10);
        for Y := 0 to h do
        begin
          for X := 0 to w do
          begin
            if (X > 0) and (Y > 0) and (X < w - 1) and (Y < h - 1) then
            begin
              r := 0;
              g := 0;
              b := 0;
              a := 0;

              for dy := -1 to 1 do
              begin
                for dx := -1 to 1 do
                begin
                  c := SpectrumData2D[X + dx, Y + dy];
                  //a := a + (Int64((c and $FF000000) div $1000000) And 255);
                  a := a + (c shr 24) and 255;
                  //r := r + (c and $FF0000) div $10000;
                  r := r + (c and RGB(255, 0, 0)) div 65536;
                  //g := g + (c and $FF00) div $100;
                  g := g + (c and 65280) div 256;
                  b := b + (c and 255);
                end;
              end;

              r := r div 9;
              g := g div 9;
              b := b div 9;
              a := a div 9 - d;

              c := b or (g * $100) or (r * $10000);

              if a > 127 then
                SpectrumData2D[X, Y] := c or ((a - 256) shl 24)
              else
                SpectrumData2D[X, Y] := c or (a shl 24);
            end
            else
              SpectrumData2D[X, Y] := 0;
          end;
        end;
      end;

gruss

[EWeiss]

Könnte mir jemand sagen ob das jetzt so in Ordnung ist?
Denn so richtig kommt da bei mir nichts an.

Das ist das letzte.

Delphi-Quellcode:

      begin
        d := round(Fade * 64);
        Buf := SpectrumData2D;

        if FSymmetrical then
        begin
          o := 0;
          s := w * 2;
        end
        else
        begin
          o := 0.5;
          s := w;
        end;

        for Y := 0 to h do
        begin
          for X := 0 to w do
          begin
            if (X > h) or (Y > w) then
              continue;

            cx := X / s - o;
            cy := Y / h - 0.5;

            r := round(Sqrt(cx * cx + cy * cy));

            dx := round((cx + o + 0.01 * cx * ((r - 1) / 0.5)) * s);
            dy := round((cy + 0.5 + 0.01 * cy * ((r - 1) / 0.5)) * h);

            //a := ((Buf[dx, dy] and $FF000000) div $1000000) and 256) - d;
            a := ((Buf[dx, dy] shr 24) and 256) - d; // muss 256 hier addiert werden oder nicht!

            //c := Buf[dx, dy] and $FFFFFF;
            c := Buf[dx, dy] and RGB(255, 255, 255);

            if a > 127 then
              // SpectrumData2D[X, Y] := c or ((a - 256) * $1000000)
              SpectrumData2D[X, Y] := c or ((a - 256) shl 24)
            else
              // SpectrumData2D[X, Y] := c or (a * $1000000);
              SpectrumData2D[X, Y] := c or (a shl 24);
          end;
        end;
      end;

gruss