Farbwert zu Dezimal

[EWeiss]

Zitat von Klaus01:

.. ich ging davon aus, das Daten im imgSpectrum vorhanden sind.
Wenn das Array leer ist, bzw mit 0en gefüllt, dann kann alpha nie > 127 sein.
Grüße
Klaus

Zitat:

Oder vielleicht, doch das ist dann aber abhängig von "fade".

Richtig! Deshalb kann man das nur mit dem Original testen.
Aber das ist schwierig weil das Rendern über eine Callback gesteuert wird unterbrichts du die wird es schwierig da was zu debuggen.

gruss

[Klaus01]

.. kannst Du nit die "fade" oder "d" Werte in eine Datei schreiben lassen?

Mit den Werten könnte man die Funktion dann testetn.

Grüße
Klaus

[EWeiss]

Zitat von Klaus01:

.. kannst Du nit die "fade" oder "d" Werte in eine Datei schreiben lassen?

Mit den Werten könnte man die Funktion dann testetn.

Grüße
Klaus

Die hast du doch..
d := round(Fade * 255);

Für das Case 0 also wenn kein Effekt ausgewählt ist.
Fade ist ein wert zwischen 0 und 1 Default 0.81xxxx

gruss

[Klaus01]

.. aber wenn d einen wert größer als 0 hat
und alpha so berechnet wird ->

Delphi-Quellcode:

alpha := ((imgSpectrum[x,y] and $FF000000) shr 24) and $FF;
alpha := alpha - d

ist dann nicht alpha immer < 0?

Grüße
Klaus

[EWeiss]

Im Original VB source nicht.

gruss

[Klaus01]

.. wenn es da funktioniert, dann kann imgSpectrumData nicht nur mit Nullen gefüllt sein.

Grüße
Klaus

[EWeiss]

Zitat von Klaus01:

.. wenn es da funktioniert, dann kann imgSpectrumData nicht nur mit Nullen gefüllt sein.

Grüße
Klaus

Doch ist es

Code:

GdipCreateBitmapFromScan0(w, frmMain.ScaleHeight, w * 4, PixelFormat32bppARGB, imgSpectrumData(0, 0), imgSpectrum)

GDIP_CreateBitmapFromScan0(w, rc.Bottom, w * 4, PixelFormat32bppARGB, PByte(SpectrumData1D[0]), imgSpectrum)

erstellt ein leeres Bitmap im angegebenen Format

@Michael II Funktion liefert auch immer 0 zurück.

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] shr 24;
            if a >= d then
              a := a - d
            else
              a := 0;

            c := SpectrumData2D[x,y] and $00FFFFFF;

            SpectrumData2D[x,y] := (a shl 24) or c;
          end;
        end;
      end;

Die VB6 Funktion konvertiert das Byte (255) zu LONG

Code:

a = (((imgSpectrumData(x, y) And &HFF000000) \ &H1000000) And &HFF&)

Kann mir aber nicht vorstellen das es daran liegen könnte.

gruss