RGB zu Alpha

[Amateurprofi]

Zitat von EWeiss:

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.

[Michael II]

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

[EWeiss]

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