Messwerte mit Farbe darstellen

[blue_idea]

Hallo!

I stehe vor folgenden Problem: Ich habe ein array mit 100 Messwerten, im Bereich von 0 bis 255, nun möchte ich diese Werte auf der Image Komponente mit Farbe darstellen,

code um ein Pixel mit Farbe darzustellen:

Delphi-Quellcode:

Image1.Canvas.Pixels[x,y] := clFarbe

Kann mir da jemand helfen das ich die Array Werte mit Farbe ausgeben kann.

Farbpalette:
0 ...Farbe Schwarz
255 ... Farbe Weiß
Werte die dazwischen liegen sollen angepasst werden.
Hat jemand einen Lösungsvorschlag ?

Danke im voraus !

mfg

[Hawkeye219]

Hallo!

Zwischen schwarz und weiß liegen nicht besonders viele Farben im eigentlichen Sinn, vielleicht meinst du Graustufen. In diesem Fall ist es einfach:

Delphi-Quellcode:

Image1.Canvas.Pixels[x,y] := RGB(Messwert, Messwert, Messwert);

Wenn r-, g- und b-Anteil bei einer Farbe gleich sind, erhält man eine Graustufe.

Gruß Hawkeye

[Igotcha]

Zitat:

Zitat von Hawkeye219

Hallo!

Zwischen schwarz und weiß liegen nicht besonders viele Farben im eigentlichen Sinn...

Liegen dazwischen nicht gerade alle Farben?

Gruß Igotcha

[ste_ett]

Nein, wenn alle drei Farben denselben Wert haben, ergibt sich ein "weiss<->grau<->schwarz"-Verlauf. :)

[shmia]

Schau mal hier:
http://www.delphipraxis.net/internal...ct.php?t=67805
Die Farbe errechnet sich dann so:

Delphi-Quellcode:

farbe := ColorBetween(clBlack, clWhite, messwert / 255.0):

Wenn du einen Regenbogen willst, dann schnapp dir die Unit SpectraLibrary.pas
aus http://www.efg2.com/Lab/Library/Delp...ColorLines.ZIP

[Hawkeye219]

Zitat:

Zitat von shmia

Die Farbe errechnet sich dann so:

Delphi-Quellcode:

farbe := ColorBetween(clBlack, clWhite, messwert / 255.0):

Worin besteht der Vorteil dieser Lösung gegenüber der direkten Nutzung des Meßwertes?

[bastischo]

Ich fürchte, ein solcher Vorteil ist nicht vorhanden.

[Igotcha]

Zitat:

Zitat von ste_ett

Nein, wenn alle drei Farben denselben Wert haben, ergibt sich ein "weiss<->grau<->schwarz"-Verlauf. :)

Da stimmt aber nur bei seinem Beispiel, wo er von Grauwerten ausgeht - was der Fragesteller aber nie gesagt hat ;-)

[Hawkeye219]

@Igotcha

Du hast Recht, es war meine Interpretation, weil ich Begriffe wie "Regenbogen" in seiner Frage vermißt habe. Für solche Fälle sollte man den Hinweis von shmia beachten. Wenn lediglich ein Grauverlauf gesucht ist, kann man die Meßwerte direkt als Farbanteil nutzen.

Gruß Hawkeye

[blue_idea]

DANKE!

Danke für die zahlreichen Antworten, hat super geklappt !

mfg mitch

[Pinki]

Hallo ich bekomme Fehlermeldung:Ungültige Gleitkommaoperation!!
Hier erstmal der Link zum Thread RGB Funktion

Ich habe die übernommen aber bei blend wert definition mekert er
Hier der Code:

Delphi-Quellcode:

 blend := Round(AnzeigeWinkel/DrehWinkel); ////<<<<---- genau hier ist der Fehler/Bei z.B.blend:=0.5 zeigt er richtig die farbe
        LedColor := ColorsBetween([clGreen, clYellow, clRed],blend);
   //// und dann kommt die LED Grafik
with RecT do
        begin
        OldPen := SelectObject(DC,CreatePen(ps_Solid,1,0));
        OldBrush := SelectObject(DC,CreateSolidBrush(LedColor));
        while n > 0 do
        begin
      Dec(n);
      x := (ZentrumX + Trunc(Cos(LEDWinkel) * r1));
      y := (ZentrumY - Trunc(Sin(LEDWinkel) * r2));
      Ellipse(DC,x - LED_RADIUS, y - LED_RADIUS, x + LED_RADIUS, y + LED_RADIUS);
      LEDWinkel:=LEDWinkel-(Pi/8);
      end;

Woran kann es liegen Round???? oder? ergibt doch Integer Wert??

Grüss Pinki

[shmia]

Die funktion Round muss weg:

Delphi-Quellcode:

var
   blend : double;
blend := AnzeigeWinkel/DrehWinkel;

Ausserdem darf DrehWinkel niemals 0 sein.
AnzeigeWinkel muss zwischen 0 und maximal DrehWinkel sein.
Hier bietet sich Assert() als Sicherheitsnetz an:

Delphi-Quellcode:

var
   blend : double;
Assert(Drehwinkel > 0, 'Drehwinkel ist nicht > 0');
Assert(AnzeigeWinkel >= 0, 'AnzeigeWinkel negativ');
Assert(AnzeigeWinkel <= DrehWinkel, 'AnzeigeWinkel zu gross');
blend := AnzeigeWinkel/DrehWinkel;

[Pinki]

Hallo danke für den schnellen Tip aber gleiche Fehlermeldung kommt trotzdem.
Ich habe k.A. vielleicht spinnt der Winswitch nur :wall:

Grüss
Pinki
P.S.Drehwinkel ist vorgegeben.es kann ja Werte 180,270 und 360° haben.Division / Zero ausgeschlossen. :thumb: