[Flash Pascal] Début d'une unité couleur

[Archimède]

ci-joint un début d'unité couleur pour au moins bénéficier des couleurs élémentaires et de la fonction RGB()...

Code :

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
 
unit UColor;
 
interface
 
uses Flash8;
 
const
 clBlack=$000000;
 clWhite=$ffffff;
 clYellow=$ffff00;
 clfuchsia=$FF00FF;
 claqua=$00FFFF;
 clorange=$FFA500;
 clBlue=$0000ff;
 clGreen=$008000;
 clRed=$FF0000;
 clsilver=$C0C0C0;
 clGray=$808080;
 clGold=$FFD700;
 cldarkturquoise=$00CED1;
 claliceblue=$F0F8FF;
 clazure=$F0FFFF;
 clbrown=$A52A2A;
 clcadetblue=$5F9EA0;
 clcoral=$FF7F50;
 cllightskyblue=$87CEFA;
 clmediumspringgreen=$00FA9A;
 clmediumturquoise=$48D1CC;
 clmediumaquamarine=$66CDAA;
 clmediumblue=$0000CD;
 clmediumorchid=$BA55D3;
 clmediumpurple=$9370DB;
 clmediumseagreen=$3CB371;
 clmediumslateblue=$7B68EE;
 clnavajowhite=$FFDEAD;
 clnavy=$000080;
 clorchid=$DA70D6;
 clpowderblue=$B0E0E6;
 clpalegoldenrod=$EEE8AA;
 clpalegreen=$98FB98;
 clpaleturquoise=$AFEEEE;
 clspringgreen=$00FF7F;
 cltomato=$FF6347;
 clyellowgreen=$9ACD32;
 clwheat=$F5DEB3;
 clslategray=$708090;
 clturquoise=$40E0D0;
 clsalmon=$FA8072;
 clsandybrown=$F4A460;
 clseagreen=$2E8B57;
 
 
 
Function GetRvalue(coul:integer):integer;
Function GetGvalue(coul:integer):integer;
Function GetBvalue(coul:integer):integer;
Function RGB(R,V,B:integer):number;
 
implementation
 
 
 
Function GetBvalue(coul:integer):integer;
begin
 result :=coul mod 256;
end;
 
Function GetGvalue(coul:integer):integer;
begin
 result :=floor((Coul mod 65536)/256);
end;
 
Function GetRvalue(coul:integer):integer;
begin
 result :=Floor(Coul/65536);
end;
 
Function RGB(R,V,B:integer):number;
begin
 result:=65536*R+256*V+B;
end;
 
end.