Farbwerte vergleichen

**HannosG**

Es wurde hier schon des öfteren über das Vergleichen von zwei Farbwerten diskutiert.
Da sich weder RGB (

RGB-Probleme, wenig Berücksichtigung der menschlichen Farbwahrnehmung)
noch HSV (Sprungstelle bei V von 360° zu 0°; bei Werten in der Nähe von schwarz und weiß werden S und V irrelevant, V ist in Graustufen undefiniert)
gut dazu eignen, möchte ich hier eine andere Variante vorstellen.

Es handelt sich hierbei um den

I1I2I3-Farbraum (Wikipedia).
(Warum dieser Farbraum so praktisch ist, erfährt man in Wikipedia

)

Als Funktion, die die Farbabweichung nun feststellen soll, sieht das ganze so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			function GetPixelAbweichung(Farbe1,Farbe2: TColor): Byte;

type

Farbwerte = record

  I1,I2,I3: Integer;

  end;

var

R,G,B: Byte;

Farbe1I, Farbe2I, DeltaI: Farbwerte;

begin

R:=GetRValue(Farbe1);

G:=GetGValue(Farbe1);

B:=GetBValue(Farbe1);

Farbe1I.I1:=(R+G+B)div 3;  // Umrechnung: RGB in I1I2I3

Farbe1I.I2:=(R-B)div 2;

Farbe1I.I3:=(2*G-R-B)div 4;

R:=GetRValue(Farbe2);

G:=GetGValue(Farbe2);

B:=GetBValue(Farbe2);

Farbe2I.I1:=(R+G+B)div 3;  // Umrechnung: RGB in I1I2I3

Farbe2I.I2:=(R-B)div 2;

Farbe2I.I3:=(2*G-R-B)div 4;

DeltaI.I1:=Abs(Farbe1I.I1-Farbe2I.I1);  // Abweichung (Differenz) der Einzelwerte

DeltaI.I2:=Abs(Farbe1I.I2-Farbe2I.I2);

DeltaI.I3:=Abs(Farbe1I.I3-Farbe2I.I3);

Result:=Max(Max(DeltaI.I1,DeltaI.I2),DeltaI.I3);  // Maximale Abweichung

{Result:=Max(Abs(GetRValue(Farbe1)-GetRValue(Farbe2)),  // (Das wäre Farbabweichung über RGB)

        Max(Abs(GetGValue(Farbe1)-GetGValue(Farbe2)),

        Abs(GetBValue(Farbe1)-GetBValue(Farbe2)))); }

end;

Anbei zwei Testprogramme, die mit dieser Funktion arbeiten:

Farbwerte vergleichen

Farbwerte vergleichen

Forumregeln