Цвет значению

← →
QuasiLamo © (2004-07-01 05:37) [0]

Требуется отобразить графически некоторую величину...
Надо бу как нибудь получить цвет для каждого ее значения...
Пока делаю так(от синего до красного)
Function TFEMPro.ColorFor(Const x, maxx, minx: double): Tcolor;
//на входе - число из диапазона minx..maxx, на выходе - цвет, который ему соответствует
// minx - синий, maxx - красный
Var
i : integer;
Begin
If SameValue(minx, maxx, 1E-11) Then
i:=0
Else
i:=round(x*(510/(maxX-minX))-(255*(maxX+minX)/(maxX-minX)));
If i<0 Then
result:=RGB(0, 255-abs(i), abs(i))
Else
If i>0 Then
result:=RGB(abs(i), 255-abs(i), 0)
Else
result:=RGB(0, 255, 0);
End;

← →
QuasiLamo © (2004-07-01 05:39) [1]

хорошо бы как нибудь сделать чтобы начальнй и конечный цвета указывать можно было

← →
iZEN © (2004-07-01 05:56) [2]

Замечание по проектированию.
Сделать:
class function TFEMPro.ColorFor(const x, maxx, minx: double): TColor;

Ну и зарезервированные слова писать в нижнем регистре... ;)

← →
iZEN © (2004-07-01 06:01) [3]

Может быть подойдёт.
http://pc.infx.ru/p/Photoshop(Adobe)/stat16/stat.php
Цветовая модель HSB
Здесь заглавные буквы не соответствуют никаким цветам, а символизируют цвет, насыщенность и яркость. Все цвета располагаются по кругу, и каждому соответствует свой градус, то есть всего насчитывается 360 вариантов (красный — 0, желтый — 60, зеленый — 120 градусов и так далее).
Насыщенность определяет, насколько ярко выраженным будет выбранный цвет. 0 — серый, 100 — самый яркий и чистый из возможных вариантов.
Параметр яркости соответствует общепризнанному, то есть 0 — это черный цвет.
Такая цветовая модель намного беднее рассмотренной ранее RGB, так как позволяет работать всего лишь с 3 миллионами цветов.

Цвет значению Найти похожие ветки