Hilfe bei Farbverlauf procedure

[Maik81ftl]

Zitat von shmia:

Zitat von Maik81ftl:

Generelle Idee bei mir ist, das ich einen "Grundwert" habe, und von da an 2 werte mir je einer Stufe heller und 2 Werte mit je einer Stufe Dunkler zurückerhalte.

Dann hast du also insgesamt 5 Farben.
Diese Farben müssen im RGB-Farbsystem vorliegen.
Mit den folgenden Funktionen aus der Code-Library: Farbverlauf berechnen
ist es dann ein Leichtes einen Farbverlauf zu erzeugen, der diese 5 Farben benützt.

der gedanke kam mir auch schon und danke für die Link aber da Stört mich eine kleine sache.

function ColorBetween(C1, C2 : TColor; blend:Real):TColor; da muß ich mind, 2 werte eingeben. bei dem Ausgang steht allerdings nur ein Wert zur verfühgung.

und wie auch zuerkennen ist liegen die Farben im RGB und HLS vor. Aber wird mir schon was einfallen...

[Blup]

Zitat von Maik81ftl:

function ColorBetween(C1, C2 : TColor; blend:Real):TColor; da muß ich mind, 2 werte eingeben. bei dem Ausgang steht allerdings nur ein Wert zur verfühgung.

Eventuell könnte man diese Funktion in einer Schleife aufrufen, dabei ändert sich "blend" abhängig von der Position zwischen den beiden Farben.

Zitat von Maik81ftl:

und wie auch zuerkennen ist liegen die Farben im RGB und HLS vor. Aber wird mir schon was einfallen...

Wie auch zu erkennen ist, sind dir die Funktionen zur Umwandlung zwischen den Farbräumen schon aufgefallen...

[Maik81ftl]

Delphi-Quellcode:

function Farbverlauf(bValue: Boolean; cValue: TColor):TProgSet;
Var H, S: Byte;
    L: Array[0..4] of Byte;
    Col: TProgSet;
begin
  if bValue then
    begin
    ColorToHLS(cValue, H, L[2], S);
    Col.Menst[4]:= HLStoColor(H, L[2]-38-38, S);
    Col.Menst[3]:= HLStoColor(H, L[2]   -38, S);
    Col.Menst[2]:= cValue;
    Col.Menst[1]:= HLStoColor(H, L[2]   +38, S);
    Col.Menst[0]:= HLStoColor(H, L[2]+38+38, S);
    Col.Periode:= Form3.Progset.Periode;
    end;
  if not bValue then
    begin
    ColorToHLS(cValue, H, L[2], S);
    Col.Periode[4]:= HLStoColor(H, L[2]-38-38, S);
    Col.Periode[3]:= HLStoColor(H, L[2]   -38, S);
    Col.Periode[2]:= cValue;
    Col.Periode[1]:= HLStoColor(H, L[2]   +38, S);
    Col.Periode[0]:= HLStoColor(H, L[2]+38+38, S);
    Col.Menst:= Form3.Progset.Menst;
    end;
  Result:= Col;
end;

Was haltet Ihr denne von der Variante???

[shmia]

Also irgendwie ist für dich ein Farbverlauf etwas anderes als für mich.
Meine Definition von Farbverlauf:
Ein Farbverlauf ermöglicht stufenloses Überblenden von 2 Farben.
Der Überblendungsfaktor bewegt sich dabei zwischen 0.0 (=0%) bis 1.0 (=100%).
Einen Farbverlauf zwischen mehreren Farben erreicht man dadurch, dass man hintereinander mehrere Farben überblendet.
Für dein Vorhaben brauchst du eigentlich nur 2 Randfarben:
2 stufen dunkler und 2 stufen heller als die Grundfarbe.
Genau in der Mitte also bei 50% liegt dann deine Grundfarbe im Verlauf.

Kleines Demo im Anhang.

[Maik81ftl]

Zitat von shmia:

Also irgendwie ist für dich ein Farbverlauf etwas anderes als für mich.
Meine Definition von Farbverlauf:
Ein Farbverlauf ermöglicht stufenloses Überblenden von 2 Farben.
Der Überblendungsfaktor bewegt sich dabei zwischen 0.0 (=0%) bis 1.0 (=100%).
Einen Farbverlauf zwischen mehreren Farben erreicht man dadurch, dass man hintereinander mehrere Farben überblendet.
Für dein Vorhaben brauchst du eigentlich nur 2 Randfarben:
2 stufen dunkler und 2 stufen heller als die Grundfarbe.
Genau in der Mitte also bei 50% liegt dann deine Grundfarbe im Verlauf.

Kleines Demo im Anhang.

Korektur. wie du es auch dem code entnehemn kannst recht ir das mit einer Farbe aus. und ja, bei mir ist es mehr eine Farbstufung als ein verlauf.

[shmia]

Zitat von Maik81ftl:

function ColorBetween(C1, C2 : TColor; blend:Real):TColor; da muß ich mind, 2 werte eingeben. bei dem Ausgang steht allerdings nur ein Wert zur verfühgung.

Dann schau nochmal genauer hin; die überladene Funktion gibt es in einer Variante, die beliebig viele Farben entgegen nimmt.
Wenn du 5 Farben übergibst, dann bekommst du den Verlauf in sagen wir mal 101 Schritten so:

Delphi-Quellcode:

for i:=0 to 100 do
begin
  blend := i * 0.01;  // blend bewegt sich zwischen 0.0 bis 1.0 !!
  farbe := ColorsBetween([clBlack, clRed, clYellow, clWhite, clGreen], blend);
  // hier mit farbe etwas tun....
end;

Anstelle von clBlack, clRed,... übergibst du natürlich deine eigenen 5 Farben.