Farbwert zu Dezimal

[EWeiss]

Zitat von Neutral General:

Zitat von EWeiss:

PS:
Danke für euer Interesse denke muss es aufgeben komme auf keinen grünen zweig.
Man kann es drehen wie man will aber die Berechnung von VB lässt sich scheinbar auf Delphi auch in geänderter Form nicht umlegen.
Er wendet da ein paar Tricks an die so einfach nicht nachvollziehbar sind.

Der Code von VB lässt sich definitiv auf Delphi umlegen und das ganz ohne Tricks.
Du solltest dich eventuell mal mit den Datentypen und binären Operationen auseinandersetzen, weil du nicht wirklich genau weißt was du da überhaupt tust.

Danke für den Ratschlag. Du hast ja so recht.
Nur seltsam das meine Projekte soweit alle laufen für jemand der keine Ahnung hat eine respektvolle Leistung.

gruss

[Klaus01]

Zitat von EWeiss:

Zitat von Klaus01:

Zitat von EWeiss:

Danke für deine Mühe es gibt einen AV direkt in der ersten zeile

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

ein Schreibfehler meinerseits: sollte imgSpectrum[x,y] heißen nit [y,y]

Grüße
Klaus

Kein Problem
Aber nein funktioniert nicht komme niemals über 127 hinweg.

es hat noch eine Zeile gefehlt:

alpha := (alpha div 9) - d Habe es oben ergänzt.

Grüße
Klaus

[EWeiss]

Zitat von Klaus01:

Zitat von EWeiss:

Zitat von Klaus01:

Zitat von EWeiss:

Danke für deine Mühe es gibt einen AV direkt in der ersten zeile

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

ein Schreibfehler meinerseits: sollte imgSpectrum[x,y] heißen nit [y,y]

Grüße
Klaus

Kein Problem
Aber nein funktioniert nicht komme niemals über 127 hinweg.

es hat noch eine Zeile gefehlt:

alpha := (alpha div 9) - d Habe es oben ergänzt.

Grüße
Klaus

Kann sein ändert aber nichts daran es ging um case 0 da wird (alpha div 9) nicht verwendet.
Trotzdem danke..

Tut mir leid das ein Nichtskönner euch mit seinem Problem belästigt hat.. Entschuldigung.
Es gibt immer wieder Leute die viel reden aber zum eigentlichen Thema nichts beitragen.
Müssen sie auch nicht nur dann sollen sie sich bedeckt halten und die Sticheleien gefälligst unterlassen.
Bin sauer!

gruss

[Klaus01]

Sauer sein macht Falten..

Setze doch mal eine Breakpoint auf
 alpha := ((imgSpectrum[x,y] and $FF000000) shr 24) and $FF; Markiere imgSpectrum[x,y], drücke ctrl+F5
das gleiche mache mit alpha.
Editiere die beiden Watcheinträge, und lass sie als Hexwert ausgeben.

Jetzt schau mal was in den imgSpectrum Array drin steht.
.. und was aus alpha wird.

Vielleicht ist es ein Problem Deiner Eingangsdaten..

Wenn ich meine Array mit Quatchwerten belege, dann wird auch ab und an alpha > 127 angefahren.

Delphi-Quellcode:

 for x := 0 to w do
      for y := 0 to h do
        imgSpectrum[x,y] := (random(high(byte)) shl 24) or $00123456;

Grüße
Klaus

[EWeiss]

Zitat:

Vielleicht ist es ein Problem Deiner Eingangsdaten..

Welche Eingangsdaten?
Die Daten bzw.. Farben werden doch erst hier erzeugt.
Es ist ein leeres Bitmap was erst beim Rendern mit Farbe gefüllt wird die Funktionen der Effekte addieren dann die zusätzlichen Farbwerte bzw. Manipulieren diese.

siehe!

Zitat:

imgSpectrum[x,y] := (random(high(byte)) shl 24) or $00123456;

erst hier bekommt das Bitmap bzw.. das Array Farbdaten.

PS:
Nur über das Original Projekt kann man erkennen was abgeht.

gruss

[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.
Oder vielleicht, doch das ist dann aber abhängig von "fade".

Grüße
Klaus

[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