AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

RGB zu Alpha

Ein Thema von EWeiss · begonnen am 17. Aug 2018 · letzter Beitrag vom 21. Aug 2018
Antwort Antwort
EWeiss
(Gast)

n/a Beiträge
 
#1

AW: RGB zu Alpha

  Alt 19. Aug 2018, 11:34
Nö ich berechne keinen Grau wert.
Wenn dem so wäre würde ich RGB2Gray verwenden.

Zitat:
Problem dürfte sein, dass Deine "Rgb2Alpha" nicht korrekt arbeitet.
Sieh dir einfach die Icons an dann siehst du wie sie arbeitet.
Das zweite Bild.. Nun was arbeitet da nicht korrekt? Du siehst den unterschied?

gruss

Geändert von EWeiss (19. Aug 2018 um 11:36 Uhr)
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.087 Beiträge
 
Delphi XE2 Professional
 
#2

AW: RGB zu Alpha

  Alt 19. Aug 2018, 11:45
Nö ich berechne keinen Grau wert.
Wenn dem so wäre würde ich RGB2Gray verwenden.

Zitat:
Problem dürfte sein, dass Deine "Rgb2Alpha" nicht korrekt arbeitet.
Sieh dir einfach die Icons an dann siehst du wie sie arbeitet.
Das zweite Bild.. Nun was arbeitet da nicht korrekt? Du siehst den unterschied?

gruss
Du verwendest aber exakt die Werte zur Umrechung, die gern und oft für die Umrechnung in Grau vorgeschlagen werden,
zum Beispiel hier https://stackoverflow.com/questions/...cale-intensity
Nur ist es bei dir fehlerhaft programmiert.
Was du willst ist doch die Summe aus RGB.Red*0.2689 + RGB.Green*0.587 + RGB.Blue*0.114
Und das ist der Grau-Wert oder die Intensity oder Luminanz etc.

Aber deine Funktion rechnet eben etwas anderes, und ich vermute ungewollt.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.087 Beiträge
 
Delphi XE2 Professional
 
#3

AW: RGB zu Alpha

  Alt 19. Aug 2018, 11:54
Nö ich berechne keinen Grau wert.
Wenn dem so wäre würde ich RGB2Gray verwenden.

Zitat:
Problem dürfte sein, dass Deine "Rgb2Alpha" nicht korrekt arbeitet.
Sieh dir einfach die Icons an dann siehst du wie sie arbeitet.
Das zweite Bild.. Nun was arbeitet da nicht korrekt? Du siehst den unterschied?

gruss
Das liegt daran, das Pixel die wirklich Schwarz sind (Red=0, Green=0, Blue=0), halt auch bei deiner Implementierung 0 bleiben, weil 0, mit was auch immer multipliziert, 0 bleibt. Zufall also.
Aber du kannst ja mal erklären was deine RGB2Alpha tatsächlich rechnen soll. Ich würde das gerne verstehen.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
Michael II

Registriert seit: 1. Dez 2012
Ort: CH BE Eriswil
771 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: RGB zu Alpha

  Alt 20. Aug 2018, 19:04
Hallo AW

1.

du schreibst:

Delphi-Quellcode:
   if ((Alpha = 0) and (pBits[3] = 0)) then
      pBits[3] := 0
    else
    if (pBits[3] = 0) then
      pBits[3] := 255;
Etwas vereinfacht geschrieben:

if (a=0) and (p=0) then p := 0 else if (p=0) then p:= 255; Dies kannst du vereinfachen:

if (p=0) then if (a>0) then p := 255; D.h. du musst deine function Rgb2Alpha(colrRGB: Colorref): Byte; nur genau dann aufrufen, wenn p=0 ist.

2.

Deine Funktion Rgb2Alpha berechnet in der Tat die Luminanz eines Pixels.

https://de.wikipedia.org/wiki/Luminanz


Da du nur daran interessiert bist, ob Rgb2Alpha 0 zurück liefert oder nicht kannst du deine Funktion Rgb2Alpha ganz wesentlich vereinfachen.

3.

Ich empfehle beim Umsetzen von Formeln wie s = a + b + c nach Delphi die Funktion round - wegen der speziellen Art zu runden - nicht zu verwenden. Und wenn's unbedingt sein muss dann so:

s = round( a + b + c ) und nicht s = round(a) + round(b) + round(c). Im vorliegenden Fall (Berechnung Luminanz) spielt es zwar keine Rolle. Wenn aber wenn a = 12.5, b = 10.5, c = 2.5 dann ist s = 25.5.
s = round( 25.5 ) = 26. Hingegen: s = round(12.5) + round(10.5) + round(2.5) = 24.


Gruss
M
Michael Gasser
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#5

AW: RGB zu Alpha

  Alt 20. Aug 2018, 21:06
Zitat:
D.h. du musst deine function Rgb2Alpha(colrRGB: Colorref): Byte; nur genau dann aufrufen, wenn p=0 ist.
Ich mache nichts anderes nur wo ich die Berechnung ausführe ist gehüpft wie gesprungen..
Delphi-Quellcode:
function Rgb2Alpha(colrRGB: Colorref): Byte;
begin
    if colrRGB <> 0 then
Nur dann hole ich mir die werte.
Einen 0 wert berechnen zu wollen macht keinen sinn der bleibt immer 0.

s := round( a + b + c )
Jo ist sinnvoll wenn es ginge.
Denn ich multiplizier zu Colorref einen single type deshalb muss ich bei jedem
(colrRGB * 0.2989) ein Round vorsetzen.

Das! Wird nix
Delphi-Quellcode:
      Result := Round(LOBYTE(colrRGB * 0.2989) + LOBYTE((colrRGB shr 8) * 0.5870) +
        LOBYTE((colrRGB shr 16) * 0.114)))
Zitat:
Deine Funktion Rgb2Alpha berechnet in der Tat die Luminanz eines Pixels.
https://de.wikipedia.org/wiki/Luminanz
Richtig! auch die Annahme das mich nur <> 0 interessiert.

Zitat:
Nur ist es bei dir fehlerhaft programmiert.
Quatsch..

gruss

Geändert von EWeiss (20. Aug 2018 um 22:02 Uhr)
  Mit Zitat antworten Zitat
Michael II

Registriert seit: 1. Dez 2012
Ort: CH BE Eriswil
771 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: RGB zu Alpha

  Alt 20. Aug 2018, 22:47
Zitat:
Ich mache nichts anderes nur wo ich die Berechnung ausführe ist gehüpft wie gesprungen..
Gehüpft ist aber ab und zu schneller als (in eine Funktion) gesprungen, v.a. weil du oft Millionen von Berechnungen für ein Bild durchführen musst.

Du (AW) rufst deine Rgb2Alpha in jedem Fall auf und rechnest dann im Fall RGB>0 weiter.
Ich (MG) rufe deine Funktion nur im Fall (p[3]=)A=0 auf und rechne im Fall RGB>0 weiter.

Delphi-Quellcode:
RGB A AW MG
 0 0 f f
>0 0 R R
 0 >0 f -
>0 >0 R -
Wenn das Quell-Bild also bereits Alphawerte enthält, gewinne ich viel Zeit.

Da du nur an 0 oder nicht 0 interessiert bist, könntest du alpha so oder ähnlich beschleunigen:

Delphi-Quellcode:
function alpha( r, g, b : integer ) : integer;
begin
  result := 0;
  if (r>=2) or (g>=1) or (b>=5) then result := 255
  else
  if (299*r + 587*g + 114*b >= 500) then result := 255;
end;


Oder deine Funktion etwas beschleunigen, indem du beim Aufruf nicht zuerst die drei Bytes R,G,B zusammenfasst, um sie dann in der Funktion wieder auseinander zu rechnen.


Ich bin hier wieder weg... Viel Spass bei deinen coolen Projekten.
Michael Gasser
  Mit Zitat antworten Zitat
Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.087 Beiträge
 
Delphi XE2 Professional
 
#7

AW: RGB zu Alpha

  Alt 20. Aug 2018, 23:30
[QUOTE=EWeiss;1411152]
Zitat:
Zitat:
Nur ist es bei dir fehlerhaft programmiert.
Quatsch..

gruss
Noch ein Versuch.

Mach mal
ShowMessage(IntToStr(Rgb2Alpha($FFFFB1))); // Rgb2Alpha ist die in #1 gezeigte Funktion.
Und dann
ShowMessage(IntToStr(Rgb2Alpha(0)));

Bei mir kommt da in beiden Fällen 0 heraus.
Und nun erklär mit mal, warum Deine "Rgb2Alpha" bei $FFFFB1 (ein sehr helles Cyan) und bei 0 (Schwarz) den gleichen Wert zurückgibt.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#8

AW: RGB zu Alpha

  Alt 20. Aug 2018, 23:55
Zitat:
Und nun erklär mit mal, warum Deine "Rgb2Alpha" bei $FFFFB1 (ein sehr helles Cyan) und bei 0 (Schwarz) den gleichen Wert zurückgibt.
Ich berechnet die Luminanz eines Pixels. (Wie einige Leute hier schon erkannt haben)
Lese dir das doch einfach nochmal durch
Und erkenne um was es dabei geht.

Das Thema ist jetzt wirklich beendet für mich.
Aber ihr könnt gerne weiter diskutieren.

gruss

Geändert von EWeiss (21. Aug 2018 um 00:09 Uhr)
  Mit Zitat antworten Zitat
Michael II

Registriert seit: 1. Dez 2012
Ort: CH BE Eriswil
771 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: RGB zu Alpha

  Alt 21. Aug 2018, 00:30
Hallo AW,

doch noch rasch:

Apro hat schon Recht; deine Funktion berechnet den Luminanz Wert für die meisten der 256^3 möglichen RGB Werte nicht korrekt.

Sehr einfach kannst du es testen, indem du mit deiner Funktion die Luminanz-Werte von RGB(grau,grau,grau) für grau=0 bis 255 berechnest.

Welche Werte sollte deine Funktion liefern?
In
E'Y = 0,299 E'R + 0,587 E'G + 0,114 E'B
eingesetzt ergibt sich
Y(grau) = 0,299*grau + 0,587*grau + 0,114*grau = grau = id


Deine Funktion liefert jedoch meistens andere Werte (weil du nicht wie Apro dir vorschlägt das jeweilige Farbbyte mittels "and $ff" separierst):

Delphi-Quellcode:
procedure TForm71.Button1Click(Sender: TObject);
var w, grau : byte;
    s : string;
begin
  s := '';
  for grau := 0 to 255 do
  begin
    w := Rgb2Alpha2( RGB( grau, grau, grau ) );
    s := s + w.ToString + ', ';
  end;

  showmessage( s );
end;
Michael Gasser
  Mit Zitat antworten Zitat
Antwort Antwort


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 09:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz