Sieht Farbe rot/gelb/... aus?

[Neutral General]

Hi,

Also ich müsste wissen wie ich herausfinden kann wie eine Farbe "aussieht"... also ob eine Farbe rot/grün/blau aussieht hab ich mit 3_of_8's Hilfe hinbekommen:

Delphi-Quellcode:

function IsRed(Col: TColor): Boolean;
begin
  Result := (GetRValue(Col) > 2*GetGValue(Col)) and (GetRValue(Col) > 2*GetBValue(Col));
end;

Aber wie mache ich das z.B mit Gelb?

Gruß
Neutral General

[SirThornberry]

Verstehst du denn den Quelltext? Wenn dem so ist sollte es doch eigentlich kein problem sein. Nicht der Quelltext ist dabei die Schwierigkeit sondern die Überlegung woran man fest macht ob etwas gelb oder rot etc. ist.

[Neutral General]

Naja was heißt hier ob ich den Quelltext verstehe... der Quelltext selbst ist simpel aber wie man auf die "Formel" kommt weiß ich nicht aber ich schätze das geht in die Richtung

Zitat:

die Überlegung woran man fest macht ob etwas gelb oder rot etc. ist.

... Also das von 3_of_8 klappt relativ gut aber ich habs grad nochmal an nem Bild getestet und das was da angeblich nicht grün war hat für mich zieeemlich grün ausgesehn.... :|

Gruß
Neutral General

[SirThornberry]

tja, grün ist laut der Definition eben nur ein Bild wo der Grünanteil mindestens doppelt so groß ist wie der rot und blauanteil.
Es liegt immer im Auge des Betrachters. Der eine meint etwas sieht Orange aus und der andere widerspricht und meint es ist Braun.

[Neutral General]

Naja aber schaut euch das Bild mal an.. Also wenn die Wand und der Billard-Tisch nicht grün sind dann weiß ich auch nicht :|

[3_of_8]

Najaa, es ist eher so eine Art Grün-Blau...

[SirThornberry]

Bei dem Tisch und der Wand kommt es darauf an welches Pixel du prüfst. Nimmst du mehrere Pixel zusammen und berechnest den Farbmittelwert?

[3_of_8]

Ich habs gerade objektiv überprüft und der beim Tisch ist der Grünwert in etwa das 1,8-fache des Blauwerts.

[Neutral General]

Ne ich prüf jeden einzelnen Pixel alleine

[Gausi]

Probier mal, die RGB-Werte in einen anderen Farbton zu übersetzen. In der Unit GraphUtil (zumindest bei TurboDelphi) gibts ne Funktion ColorRGBToHLS, die sollte dabei helfen. (Das H steht für Hue - Farbton).

[Neutral General]

Zitat:

Zitat von Gausi

Probier mal, die RGB-Werte in einen anderen Farbton zu übersetzen. In der Unit GraphUtil (zumindest bei TurboDelphi) gibts ne Funktion ColorRGBToHLS, die sollte dabei helfen. (Das H steht für Hue - Farbton).

Ok danke werds mal ausprobieren. Aber was sagt mir dieser Hue-Wert ? Was wäre z.B rot?

[Gausi]

Das weiß ich grade auch nicht ^^. Aber das sollte sich recht leicht rausfinden lassen, wenn du bei verschiedenen konstanten S/V-Werten den Farbton durchläufst und dir mal anschaust, wie sich der Farbton zwischen 0 und 255 so verhält...

Kannst ja ein paar Test-Bitmaps erstellen lassen, Dimensionen 256*256. In jeder Zeile lässt du den Farbwert von 0-255 durchlaufen, in der anderen Dimension veränderst du einen der anderen Werte. Das machst du dann für verschiedene Werte des dritten Wertes in mehreren Bitmaps, und dann sollte man ablesen können, dass z.B. Grün im Bereich von 40-80 ist...

[Amateurprofi]

Ich hab mich vor einiger Zeit mal mit Farbmodellen beschäftigt.
Hier ist eine Prozedur, die von RGB nach HSB umrechnet.

Am Farbton (Hue) kannst Du festmachen, zu welchem Farbbereich eine Farbe gehört.
Allerdings, wie schon von Sir T. bemerkt, mag das subjektive Empfinden andere Eindrücke vermitteln.
Wenn z.B. die Helligheit (brightness) auf 0 steht ist, sieht die Farbe immer schwarz aus.

Delphi-Quellcode:

type
   // Rgb + Hsb Werte von Farben
   TRgbHsb= Record
               case integer of
                  1: (red,green,blue,hue,saturation,brightness:integer);
                  2: (a:array[0..5] of integer);
            end;

{------------------------------------------------------------------------------}
{ RGBToHSB                                                                     }
{ Ermittelt aus den rot, grün, blau Werten in rgbhsb die korrespondierenden    }
{ HSB Werte und stellt diese in die entsprechenden Felder in rgbhsb            }
{------------------------------------------------------------------------------}
PROCEDURE RGBToHSB(var rgbhsb:TRgbHsb);
var min,max,mid,imin,imax,imid,xhue:integer;
//------------------------------------------------------------------------------
PROCEDURE GetMinMax;
const midindex:array[0..2,0..2] of integer=((0,2,1),(2,1,0),(1,0,2));
var i:integer;
begin
   with rgbhsb do begin
      min:=red;
      max:=red;
      imax:=0;
      imin:=0;
      for i:=1 to 2 do begin
         if a[i]>max then begin
            max:=a[i];
            imax:=i;
         end;
         if a[i]<min then begin
            min:=a[i];
            imin:=i;
         end;
      end;
      imid:=midindex[imin,imax];
      mid:=a[imid];
   end;
end;
//------------------------------------------------------------------------------
begin
   with rgbhsb do begin
      if (red=green) and (red=blue) then begin
         hue:=0;
         saturation:=0;
         brightness:=Round(red*100/255);
      end else begin
         GetMinMax;
         saturation:=Round(100-100*min/max); //Round((max-min)*100/max);
         brightness:=Round(max*100/255);
         hue:=imax*120+360;
         xhue:=Round(((1-(max-mid)/(max-min))*60));
         if ((imax+1) mod 3)=imid then inc(hue,xhue) else dec(hue,xhue);
         hue:=hue mod 360;
      end;
   end;
end;

[Muetze1]

Du kannst ja mal diese Komponente auseinander nehmen um die HLS Farbwerte zu bekommen: TColorSelector Komponente. Ansonsten ist diese Seite noch recht informativ dazu (Color Spaces z.B.).