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:

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: