![]() |
Messwerte mit Farbe darstellen
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:
Kann mir da jemand helfen das ich die Array Werte mit Farbe ausgeben kann.
Image1.Canvas.Pixels[x,y] := clFarbe
Farbpalette: 0 ...Farbe Schwarz 255 ... Farbe Weiß Werte die dazwischen liegen sollen angepasst werden. Hat jemand einen Lösungsvorschlag ? Danke im voraus ! mfg |
Re: Messwerte mit Farbe darstellen
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:
Wenn r-, g- und b-Anteil bei einer Farbe gleich sind, erhält man eine Graustufe.
Image1.Canvas.Pixels[x,y] := RGB(Messwert, Messwert, Messwert);
Gruß Hawkeye |
Re: Messwerte mit Farbe darstellen
Zitat:
Gruß Igotcha |
Re: Messwerte mit Farbe darstellen
Nein, wenn alle drei Farben denselben Wert haben, ergibt sich ein "weiss<->grau<->schwarz"-Verlauf. :)
|
Re: Messwerte mit Farbe darstellen
Schau mal hier:
![]() Die Farbe errechnet sich dann so:
Delphi-Quellcode:
Wenn du einen Regenbogen willst, dann schnapp dir die Unit SpectraLibrary.pas
farbe := ColorBetween(clBlack, clWhite, messwert / 255.0):
aus ![]() |
Re: Messwerte mit Farbe darstellen
Zitat:
|
Re: Messwerte mit Farbe darstellen
Ich fürchte, ein solcher Vorteil ist nicht vorhanden.
|
Re: Messwerte mit Farbe darstellen
Zitat:
|
Re: Messwerte mit Farbe darstellen
@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 |
Re: Messwerte mit Farbe darstellen
DANKE!
Danke für die zahlreichen Antworten, hat super geklappt ! mfg mitch |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:39 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz