PNG verschmelzen

[creehawk]

Moin Moin!
zuerst mal sagenhaften vielfältigen Dank.

Ich hatte bis gestern abend auch schon ein paar Dinge enträtseln können, bin dann aber am Alphaformat=afDefined hängengeblieben.
Die Zeile mit

  ImageCollection.Draw(bm.Canvas, Rect(0, 2 * wic.height div 3,wic.Width div 3, wic.height), 'Star'); habe ich noch umgeändert in

  ImageCollection.Draw(bm.Canvas, Rect(0, 0, wic.height,wic.Width), 'Star'); damit der Stern etwas größer wird.

Nochmal: Vielen herzlichen Dank für deine Hilfe oder eigentlich schon fürs mitprogrammieren - und dann noch mitten in der Nacht wie ich eben sehe! Hut ab!

creehawk

[Renate Schaaf]

Zitat:

und dann noch mitten in der Nacht

Senile Bettflucht

[Blup]

Hab mal durchdacht, was bei der Verschmelzung zweier halbtransparenter Layer eigentlich passieren muss:

Code:

           
Betrachter      +++++++++++++++++

Layer1: R1G1B1 .................
        A1     -----------------

Layer2: R2G2B2 .................
        A2     -----------------

Hintergrund     _________________

für die Berechnung das Alpha-Byte auf 0 bis 1 normalisieren: 0.255 -> 0..1 (0 = durchsichtig .. undurchsichtig)

Code:

A1 = A1 / 255
A2 = A2 / 255

Code:

R = A1 * R1 + (1 - A1) * R2
G = A1 * G1 + (1 - A1) * G2
B = A1 * B1 + (1 - A1) * B2
A = 1 - ((1-A1) * (1-A2))

Gleichungen umgeformt:

Code:

R = A1 * (R1 - R2) + R2
G = A1 * (G1 - G2) + G2
B = A1 * (B1 - B2) + B2
A = A1 + A2 - A1 * A2

Alpha wieder als Byte darstellen:

Code:

A = A * 255 // 0..1 -> 0..255

[Uwe Raabe]

Bei folgenden Grenzwerten kommt aber meiner Meinung nach nicht das Richtige raus:

A1 = 255, A2 = 0: Das obere Bild 1 ist undurchsichtig und überdeckt somit das untere Bild 2. Erwartet wird also (R1, G1, B1, 255), aber raus kommt (R1, G1, B1, 0).

A1 = 0, A2 = 255: Das obere Bild 1 ist durchsichtig und lässt das untere Bild 2 vollständig durchscheinen. Der Hintergrund ist unsichtbar. Erwartet (R2, G2, B2, 255), aber raus kommt (R2, G2, B2, 0).

In beiden Fällen sieht man also nur den Hintergrund.

Wegen der Stetigkeit der Funktion vermute ich auch, dass die Zwischenwerte nicht (alle) richtig sind.

[Blup]

Stimmt, da denk ich noch mal drüber nach.
Hoffe jetzt ist alles richtig.
https://www.math3d.org/bRXZ89Rfj