AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Farbwert zu Dezimal

Ein Thema von EWeiss · begonnen am 28. Mär 2019 · letzter Beitrag vom 3. Apr 2019
Antwort Antwort
Seite 4 von 8   « Erste     234 56     Letzte » 
Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.577 Beiträge
 
Delphi 2010 Architect
 
#31

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 09:18
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
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.292 Beiträge
 
Delphi XE7 Professional
 
#32

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 09:37
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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.577 Beiträge
 
Delphi 2010 Architect
 
#33

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 09:45
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
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.292 Beiträge
 
Delphi XE7 Professional
 
#34

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 10:10
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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.577 Beiträge
 
Delphi 2010 Architect
 
#35

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 10:17
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

Geändert von EWeiss (29. Mär 2019 um 10:31 Uhr)
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.292 Beiträge
 
Delphi XE7 Professional
 
#36

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 10:23
.. 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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.577 Beiträge
 
Delphi 2010 Architect
 
#37

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 10:27
.. 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
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.292 Beiträge
 
Delphi XE7 Professional
 
#38

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 10:32
.. 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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.577 Beiträge
 
Delphi 2010 Architect
 
#39

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 10:36
.. 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
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.292 Beiträge
 
Delphi XE7 Professional
 
#40

AW: Farbwert zu Dezimal

  Alt 29. Mär 2019, 10:49
.. 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
Klaus
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf