Hilfe zu Farbänderung und Bildüberlagerung

[torte62]

Bisher habe ich Bitmaps mit nachstehendem Code eingefärbt. (entspricht Photoshop Blendenmodi "Multiplizieren")

Delphi-Quellcode:

   Line := Scanline[y];
            for x := 0 to Width - 1 do
            if  Line[x].a  = 254 then
            begin
                   Line[x].B := Line[x].B * b div 255;
                   Line[x].G := Line[x].G * g div 255;
                   Line[x].R := Line[x].R * r div 255;
                   end;
            end;

Zur Erzielung besserer Ergebnisse ist die Kombination mit "Farbe(Color)" erforderlich.


〚Hue(E)Saturation(E)Brightness(E)〛=〚Hue(V)Saturati on(H)Brightness(H)〛

E = Ergebnispixel(mein Bild fertig)
V = Vordergrund (der rgb Wert zum Einfärben)
H = Hintergrund (mein Bild als Vorlage)

von meinem Bild bleiben Sätigung und Helligkeit erhalten und vom rgb Wert zum Einfärben wird der Farbton benutzt anstelle des Farbtons in meinem Bild. Wäre für Hilfe wie sich dieses Vorhaben in Delphi Code übertragen läßt sehr dankbar.

torte62

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]