Discussion :

[paolo2002]

bonjour à tous!!
Voilà, je rame un peu..heu beaucoup même pour faire une correspondance entre des températures et des couleurs dessinées sur une palette.
j'ai pu créer une palette de couleurs et une échelle de températures qui va avec pour pouvoir dire que telle température correpond à telle couleur sur 50 pts environs.
Mais j'arrive pas faire le lien entre les deux car je voudrais faire un graphe justement qui montre la température de chaque point.
si quelqu'un peut me donner un indice svp !!

[Fxg]

Bonjour,

Si tu utilises un tableau qui te permettes de stocker la valeur de la température et en afce le code couleur corrsepondant ?

Si j'ai bien compris la question, sinon ?

[paolo2002]

en fait ce sera difficile , vu le nombre de couleurs qui existent.128 ou 256 selon leur code RGB.

[Fxg]

D'un autre coté le travail serait fait une fois pour toute.

Plus sérieusement tu cherches un fonction qui permette de passer de l'un à l'autre ?

Par exemple tu peux partir du blanc codé en RGB (255 255 255) et en modifiant les composantes G et B en fonction de la valeur de ta température arriver au rouge (255 0 0). Ce qui te permet 255 valeurs de tempréture en théorie.

[paolo2002]

oui, c'est vrai ,ça je l'ai fait ..pour obtenir la palette.
supposons que je cherche à afficher la couleur correspondant à la température 25°C ,c'est que je n'arrive pas à faire.........

[DMO]

Salut Paolo,

Supposant qu'un truc dans le genre n'est pas ce que tu cherches :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
object TrackBar1: TTrackBar
  Max = 50
  Min = -30
  OnChange = TrackBar1Change
end

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  with TrackBar1 do
    if Position >= 0 then
      Color := RGB(Position * 255 div Max, 0, 0)
    else
      Color := RGB(0, 0, Abs(Position) * 255 div (Abs(Min)));
end;

Il nous faudrait plus d'indices pour creuser. Tu parles de palette, mais concrètement tu crées vraiment une palette ? Tu as une liste de couleurs quelquepart (à priori cela ne me parait pas utile) ?

correspondance entre des températures et des couleurs dessinées sur une palette.

Il y a bien un lien logique entre les couleurs et les valeurs des temparétures ?

telle température correpond à telle couleur sur 50 pts environs

Précise ce que tu as au départ, et ce que tu veux obtenir exactement à l'arrivée stp, car pour moi en tous cas, c'est encore flou.

Bon dev'

[paolo2002]

bonjour.
Le dernier message m'a beaucoup aidé surtout pour savoir ce que je cherche vraiment .

voici le code qui me permet de dessiner une palette:

Var
i : integer;
rr, bb, gg : integer;
ctr : integer;
Begin
ctr := 0;
for i := 0 to 15 do
begin {Red To Yellow}
rr := 255;
bb := 0;
gg := (255 * i) div 15;
couleur[ctr] := rgb(rr, gg, bb);
inc(ctr);
end; { 16 }
for i := 0 to 15 do
begin
{ Yellow To Green}
gg := 255;
bb := 0;
rr := 255 - (128*i) div 15;
couleur[ctr] := rgb(rr,gg, bb);
inc(ctr);
end; { 24 }
For i := 0 to 7 do
begin
{ Green To Cyan}
rr := 0;
gg := 255;
bb := (255 * i) div 7;
couleur[ctr] := rgb(rr,gg, bb);
inc(ctr);
end; { 40 }
For i := 0 to 15 do
begin
{ Cyan To Blue}
rr := 0;
bb := 255;
gg := 255 - (255 * i) div 15;
couleur[ctr] := rgb(rr,gg, bb);
inc(ctr);
end; { 56 }
For i := 0 TO 7 do
begin
{ Blue To Magenta}
gg := 0;
bb := 255;
rr := (255 * i) div 7;
couleur[ctr] := rgb(rr,gg, bb);
inc(ctr);
end; { 64 }

En d'autres termes ce que je voudrais faire c'est ceci:
-->palette --> echellede température --> graphique (température de 5 pts de la palette)

je sais pas trop si j'ai été clair ..mais bon j'espère que cela vous éclairera

[DMO]

Salut,

Tout d'abord, conformément aux règles du forum, il faut mettre ton code dans la balise dédiée.

Le dernier message m'a beaucoup aidé surtout pour savoir ce que je cherche vraiment .

OK si on peut te permettre de rendre tout ça moins flou tant mieux

Ensuite, le code que tu as fourni, et que je remets ci-dessous, fonctionne parfaitement pour créer une "palette" de couleurs choisies. J'ai implémenté le clic de la form pour vérifier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    Couleurs: Array[0..63] of TColor;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
Var
  i : integer;
  rr, bb, gg : integer;
  ctr : integer;
Begin
  ctr := 0;
 
  for i := 0 to 15 do
    begin {Red To Yellow}
      rr := 255;
      bb := 0;
      gg := (255 * i) div 15;
      Couleurs[ctr] := rgb(rr, gg, bb);
      inc(ctr);
    end; { 16 }
 
  for i := 0 to 15 do
    begin
      { Yellow To Green}
      gg := 255;
      bb := 0;
      rr := 255 - (128*i) div 15;
      Couleurs[ctr] := rgb(rr,gg, bb);
      inc(ctr);
    end; { 24 }
 
  For i := 0 to 7 do
    begin
      { Green To Cyan}
      rr := 0;
      gg := 255;
      bb := (255 * i) div 7;
      Couleurs[ctr] := rgb(rr,gg, bb);
      inc(ctr);
    end; { 40 }
 
  For i := 0 to 15 do
    begin
      { Cyan To Blue}
      rr := 0;
      bb := 255;
      gg := 255 - (255 * i) div 15;
      Couleurs[ctr] := rgb(rr,gg, bb);
      inc(ctr);
    end; { 56 }
 
  For i := 0 TO 7 do
    begin
      { Blue To Magenta}
      gg := 0;
      bb := 255;
      rr := (255 * i) div 7;
      Couleurs[ctr] := rgb(rr,gg, bb);
      inc(ctr);
    end; { 64 }
end;
 
procedure TForm1.FormClick(Sender: TObject);
var
  X: Integer;
begin
  for X := 0 to Length(Couleurs)-1 do
    begin
      Canvas.Pen.Color := Couleurs[X];
      Canvas.MoveTo(10+X, 10);
      Canvas.LineTo(10+X, 30);
    end;
end;
 
end.

Cependant, il manque la partie "échelle de température". Je n'en vois nullepart. À moins que ce soit les indices du tableau de couleurs (0° à 63° j'en doute), nous n'avons là qu'un tableau de couleurs choisies.

Quelle est la correspondance avec les températures ? Peut-être peux tu faire un tableau de températures dont les indices correspondent avec celui des couleurs, ou un tableau de record, ou de vrais objets avec une instance d'une classe de liste pour les gérer, ...

En espérant que cela t'aide.

Bon dev'