Farbwert zu Dezimal

[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

[Klaus01]

.. wieso rechnest Du mit 256 - $FF entspricht 255

 a := ((Buf[dx, dy] shr 24) and 256) - d; // muss 256 hier addiert werden oder nicht! es werden hier nicht 256 addiert - das ist eine logische Verknüpfung.
Hier wird schlicht eine Wert maskiert, vor dem "and " war der Value noch 32bit breit
mit der makierung wird erreicht das er nur noch 8Bit breit ist.

Daher nehme ich auch an, dass mit 255 maskiert werden sollte.

Grüße
Klaus

[EWeiss]

Zitat von Klaus01:

.. wieso rechnest Du mit 256 - $FF entspricht 255

 a := ((Buf[dx, dy] shr 24) and 256) - d; // muss 256 hier addiert werden oder nicht! es werden hier nicht 256 addiert - das ist eine logische Verknüpfung.
Hier wird schlicht eine Wert maskiert, vor dem "and " war der Value noch 32bit breit
mit der makierung wird erreicht das er nur noch 8Bit breit ist.

Daher nehme ich auch an, dass mit 255 maskiert werden sollte.

Grüße
Klaus

Weil &H100 256 ist.
Und das steht bei ihm so im Quelltext. Delphi $100
An welcher stelle meinst du denn insbesondere?

Das ist der original source

Code:

//a := ((Buf[dx, dy] and $FF000000) div $1000000) and 256) - d;

gruss

[Klaus01]

a := ((Buf[dx, dy] shr 24) and 256) - d

Code:

$AAbbggrr shr 24
$000000AA and $FF
$AA

wenn Du 256 verwendst - passt das nicht in ein Byte

Code:

$AAbbggrr shr 24
$000000AA and $100
$000

Grüße
Klaus

[EWeiss]

Zitat von Klaus01:

a := ((Buf[dx, dy] shr 24) and 256) - d

Code:

$AAbbggrr shr 24
$000000AA and $FF
$AA

wenn Du 256 verwendst - passt das nicht in ein Byte

Code:

$AAbbggrr shr 24
$000000AA and $100
$000

Grüße
Klaus

Ja sorry Klaus das ist nicht aus meinem Mist gewachsen.
Es ist so vom Original übernommen.

Werde mir das nochmal genauer ansehen.

gruss

[Klaus01]

Delphi-Quellcode:

var
  test32Bit: cardinal;
  test8Bit: Byte;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    test32Bit := $ABCDEF89;
    test8Bit := (test32Bit shr 24) and $FF;
    writeLn(intToHex(test8Bit));

    test32Bit := $ABCDEF89;
    test8Bit := ((test32Bit and $FF000000) div $1000000) and 255;
    writeln(intToHex(test8Bit));
    readLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

Erebnis:
AB
AB

Delphi-Quellcode:

var
  test32Bit: cardinal;
  test8Bit: Byte;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    test32Bit := $ABCDEF89;
    test8Bit := (test32Bit shr 24) and $FF;
    writeLn(intToHex(test8Bit));

    test32Bit := $ABCDEF89;
    test8Bit := ((test32Bit and $FF000000) div $1000000) and 256;
    writeln(intToHex(test8Bit));
    readLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Ergebnis:
AB
00

Grüße
Klaus

[EWeiss]

Ja Klaus..
Ich habe nicht behauptet das du falsch liegst sondern das es so im Original steht es ist mir nur nicht aufgefallen.

gruss