Nach der stärksten bis zur schwächsten Grundfarbe sortieren

[Nixsager]

Hi

Ich weiß es gibt extra Sortiermethoden. Aber die will ich erst mal nicht nutzen, sonst lernen ich ja nichts.

Ich will mir von den drei Grundfarben-Werten die Reihenfolge bzw. die Position von der stärksten bis zu dem schwächsten Wert ausgeben lassen.
So das wenn Rot den Wert $65, Grün den Wert $27, und Blau den Wert $45 hat, das mir die Reihenfolge bzw. die Position 3 für den Wert von Rot, dann 1 für den Wert von Grün und dann 2 für den Wert von Blau.

Für eine andere Funktion habe ich mir eine NearestInteger-Funktion gebaut.

Code: Alles auswählen

 
Function NearestInteger(Const Main, IntegerA, IntegerB: SInt32): SInt32;
 

Bei dieser Funktion wird mir die Ganzzahl zurückgegeben, die am nächsten des Main-Wertes ist.
Habe die Werte von 'IntegerA' und 'IntegerB' zu 'Main' den selben Abstand, wird mir 'IntegerA' zurückgegeben.

Zuerst dachte ich mir, diese Funktion in einer Schleife laufen zu lassen, aber dann hatte ich die Idee, die NearestInteger-Funktion anzupassen.
Aber das gelang mir auch nicht.

Code: Alles auswählen

 
	IF (RedColor > GreenColor) and (RedColor > BlueColor) then
		Result := 1;
	IF (GreenColor > RedColor) and (GreenColor > BlueColor) then
		Result := 2;
	IF (BlueColor > RedColor) and (BlueColor > GreenColor) then
		Result := 3;
 

Bei dieser Methode kriege ich zwar den Wert für die stärkste Farbe, aber wenn zwei Farben identisch sind kriege ich logischerweise den Wert '0' zurück, und ich kann mir die Position der stärksten Farbe nicht zurückgeben.

Hat einer eine Idee wie ich das Problem lösen kann?
Mir scheint meinen Schleifen-Idee nicht so falsch zu sein, da ich damit ja schon einen Vergleich mache.

Gruß vom Nixsager

[LazyBone]

Hai Nixsager!

Wie du ja schon selber feststellst, ist es unmöglich, den stärksten Farbanteil anzugeben, wenn die zwei größten Farbanteile denselben Wert haben.
Da ich leider nicht weiß, wie du diese Farbstärke nutzen möchtest oder was du generell vorhast, bleibt mir gerade nur der Vorschlag, deine Fallunterscheidung ggf. zu erweitern und quasi noch "Sonderfälle" wie "rot und blau sind am größten und gleich => result = 4" etc. zu erweitern. Hier käme dann wohl auch die erwähnte For-Schleife zum tragen, indem du alle Farbanteile schrittweise untersuchst und feststellen kannst, ob es gleiche Werte gibt.

Viele Grüße

[Mathias]

Da ich leider nicht weiß, wie du diese Farbstärke nutzen möchtest oder was du generell vorhast,

Ich denke, er will es für dies da: http://www.lazarusforum.de/viewtopic.ph ... 905#p89905

[wp_xyz]

Was verstehst du eigentlich unter "Farbstärke"? Den Begriff habe ich noch nie gehört. Vielleicht meinst du eine Komponente aus der HSL-Farbdarstellung (H = Hue = Farbton, S = Saturation = Sättigung, L = Lightness = Helligkeit). Dazu findest du in der Unit GraphUtil die Routinen ColorToHLS, HLSToColor usw.

[Nixsager]

Was verstehst du eigentlich unter "Farbstärke"?

Stärke=Kräftiger. Vieleicht gibt es die Bezeichnung gar nicht.
Der Wert $FF ist stärker/kräftiger/höherwertig als der Wert $AA.

[theo]

Aber $FF ist keine Farbe.

Welche Farbe ist "stärker" $FF0000 oder $0000FF ?
Schwer zu sagen oder?

Der Tipp mit HSL ist schon richtig.

[Nixsager]

Aber $FF ist keine Farbe.

Drücke ich mich wirklich so schwer aus?

Ich teile die Farbe in die additive Grundfarben Rot, Grün und Blau auf.
Dann will ich die Reihenfolge der Grundfarbe mit dem höchsten Wert und dann die nächste Farbe und so weiter, bis in die Reihenfolge habe.

Welche Farbe ist "stärker" $FF0000 oder $0000FF ?
Schwer zu sagen oder?

Nein nicht wirklich, bei dem was ich vor habe.
Bei deinem Beispiel müsste ich dann das Ergebnis 'RBG' raus bekommen.
R hat den maximalen Wert, also kommt es an erster Stelle, aber da Blau auch den maximal Wert hat, könnte es auch an erster Stelle kommen, da aber Rot bei der Eingabe vor Blau kam, bleibt sie an erster Stelle und somit kommt Blau an zweiter Stelle. Und da Grün einen niedrigeren Wert als Rot und Blau hat, kommt es bei der Ausgabe nach Rot und Blau.

Der Tipp mit HSL ist schon richtig.

Das ist eine interessante Idee, aber ich glaube, das verkompliziert das ganze.
Da die Eingabe und Ausgabe im RGB-Format ist, müsste ich das ganze umrechnen

[wp_xyz]

Da die Eingabe und Ausgabe im RGB-Format ist, müsste ich das ganze umrechnen

Oh Mann! Wo ist das Problem, ColorToHLS(farbe, h, l, s) einzutippen? Das musst du doch nicht selbst ausrechnen!

[Nixsager]

Doch muss ich.

[Jole]

Also so wie du das erklärst versteh ich das so das du die Grundfarben RGB sortieren willst, oder?
Zum Beispiel wäre $AAFFBB dann $FFBBAA, meinst du das so?

[Nixsager]

Exakt.

[wp_xyz]

Also so wie du das erklärst versteh ich das so das du die Grundfarben RGB sortieren willst, oder?
Zum Beispiel wäre $AAFFBB dann $FFBBAA, meinst du das so?

Verdammt noch mal! Wieso fehlt denn hier wieder das entscheidende Wort, so dass man den Satz versteht? Was heißt "zum Beispiel wäre $AAFFBB dann $FFBBAA"`? Größer als? Kleiner? Gleich?

[Michl]

Naja, ich verstehe schon, was Nixsager versucht zu fragen. In etwas so: Wie könnte eine Funktion aussehen, die mir die Wichtung der Farbkanäle angibt?

Beispiele:
Rot, Grün, Blau -> Wichtung
$FF, $80, $00 -> 1, 2, 3
$80, $FF, $A0 -> 3, 1, 2
$40, $80, $A0 -> 3, 2, 1

Die Frage, die immer noch im Raum steht, ist die, wie mit mit Farben, wie Weiß oder Schwarz verfahren werden soll? Also mit Farben, die zwei oder mehr Kanäle den gleichen roten, grünen oder/und blauen Farbkanalwert haben?

Bsp:
Rot, Grün, Blau -> Wichtung
$FF, $FF, $00 -> 1, 1, 3 oder 1, 2, 3 oder 2, 1, 3
$A0, $FF, $A0 -> 2, 1, 2 oder 2, 1, 3 oder 3, 1, 2
$00, $00, $00 -> 1, 1, 1 oder 1, 2, 3 oder 3, 3, 3 oder 3, 2, 1 oder ...

Solange diese Frage nicht beantwortet ist, ist es unmöglich eine korrekte Anwort zu geben. Ansonsten ist es eine Funktion, die innerhalb weniger als 5 Minuten geschrieben ist (und mir auf Anhieb mehrere Möglichkeiten zur Realisierung einfallen).

[Nixsager]

Die Frage, die immer noch im Raum steht, ist die, wie mit mit Farben, wie Weiß oder Schwarz verfahren werden soll? Also mit Farben, die zwei oder mehr Kanäle den gleichen roten, grünen oder/und blauen Farbkanalwert haben?

Habe ich die nicht schon gegeben?

R hat den maximalen Wert, also kommt es an erster Stelle, aber da Blau auch den maximal Wert hat, könnte es auch an erster Stelle kommen, da aber Rot bei der Eingabe vor Blau kam, bleibt sie an erster Stelle und somit kommt Blau an zweiter Stelle. Und da Grün einen niedrigeren Wert als Rot und Blau hat, kommt es bei der Ausgabe nach Rot und Blau.

[Michl]

Habe ich die nicht schon gegeben?

Ja, sorry, habe ich übersehen.

Eine Variante wäre z.B. so (falls ich keinen Denkfehler habe):

Code: Alles auswählen

program Project1;
 
uses
  sysutils, Math;
 
procedure WeightOfColors(Red, Green, Blue: Byte; out RedWeight, GreenWeight, BlueWeight: Byte);
var
  i, aMax: Byte;
begin
  RedWeight := 0;
  GreenWeight := 0;
  BlueWeight := 0;
  for i := 1 to 3 do
  begin
    aMax := MaxIntValue([Red, Green, Blue]);
    if (Red = aMax) and (RedWeight = 0) then
    begin
      Red := 0;
      RedWeight := i;
      Continue;
    end;
    if (Green = aMax) and (GreenWeight = 0) then
    begin
      Green := 0;
      GreenWeight := i;
      Continue;
    end;
    BlueWeight := i;
    Blue := 0;
  end;
end;
 
var
  r, g, b, rw, gw, bw, i: Byte;
 
begin
  for i := 0 to 19 do
  begin
    r := Random(256);
    g := Random(256);
    b := Random(256);
    WeightOfColors(r, g, b, rw, gw, bw);
    WriteLn(Format('Rot(%d) %d. - Gruen (%d) %d. - Blau(%d) %d.', [r, rw, g, gw, b, bw]));
  end;
end.