[TP]dégradé de couleur

**mikoeur** · 29/10/2002, 18h47

bonjour tout le monde. J'ai essayé de refaire un truc qui correspondrait à demopal.pas d'haypo, mais je n'arrive pas à afficher sur l'écran 2 gammes différentes de couleur. Qd je change la couleur, toutes les couleurs se changent en même temps, ce qui est embêtant si j'ai envie, plus tard de faire un dégradé avec 3 couleurs.
Pour l'instant, voila ce que j'ai : 8)

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
uses crt;
 
var  x,y,c,coeffr,coeffg,coeffb,ra,ga,ba,rouge,vert,bleu:integer;
 
 
procedure SetColor(col,r,g,b:byte);
begin
  port[$3c8]:=col;
  port[$3c9]:=r;
  port[$3c9]:=g;
  port[$3c9]:=b;
end;
 
procedure nouvellecouleur;
var i:integer;
begin
if ra >2 THEN ra:=0;
if ga >2 THEN ga:=0;
if ba >2 THEN ba:=0;
ra:=ra+1;
ba:=ba+1;
ga:=ga+1;
coeffr:=4-ra;
coeffg:=4-ga;
coeffb:=4-ba;
if coeffr>1 THEN coeffr:=0;
if coeffg>1 THEN coeffg:=0;
if coeffb>1 THEN coeffb:=0;
 
end;
 
 
begin
asm
mov ax, 13h
int 10h
end;
ba:=1;
ga:=2;
ra:=3;
repeat
if x=319 THEN
begin
x:=0;
y:=y+1;
end;
x:=x+1;
if y=200 THEN y:=0;
MEM[$a000:x+Y*320]:=X;
if c= 62 THEN nouvellecouleur;
c:=c+1;
bleu:=c*coeffb;
rouge:=c*coeffr;
vert:=c*coeffg;
SetColor(x,rouge,vert,bleu);
until keypressed;
readln;
end.

Merci d'avance

**M.Dlb** · 29/10/2002, 19h36

Il fait que tu divises 256 par le nombre de palettes que tu veux et tu obtiens le nombre de couleurs dans chaque palette. Ca veut dire que si tu veux deux dégradés, il te faut deux palettes et donc 128 couleurs par palettes. Ensuite il te faut faire le dégradé sur ces 128 couleurs.
a+

**mikoeur** · 29/10/2002, 23h08

heu... pas tré bien compris... Pourrais tu préciser par un exemple?

**Eric Sigoillot** · 29/10/2002, 23h45

Le fait est que tu utilises un mode en 256 couleurs, donc qui utilise une palette.

Or, comme tout mode dit indexé, lorsque tu change une couleur dans la palette, le changement se reflète directement à l'écran. Ca a ses avantages (notamment pour les fondus), mais aussi pas mal d'inconvénients.

Tu rencontres ici le principal ! Comment se limiter à 256 couleurs. Tu veux créer un dégradé. Pourquoi pas. Mais ton dégradé devra se limiter à 256 couleurs.

Ce que voulait te dire Wormful, c'est que si tu veux créer deux dégradés en même temps, qui n'utilisent pas les même couleurs, alors il va falloir qu'ils se partagent la palette, et les 256 couleurs qui vont avec.

Donc, pour deux dégradés qui ne se battent pas, il faudra te limiter à 128 couleurs par dégradé, car 128 * 2 = 256 !

Il faut faire bien attention à te limiter à 256 couleurs lorsque tu crées ton dégradé, ou bien que tu crée une procédure qui ajoute des couleurs à la palette si le besoin se fait sentir. Ou alors que tu passes à un mode haute résolution !

A+

**mikoeur** · 30/10/2002, 01h23

ok merci beaucoup

**mikoeur** · 30/10/2002, 09h53

De toute façon , j'ai reussi à faire un autre truc avec ce que j'avais déjà : je fais tomber la neige!!!!!. 8)

Je m'explique :

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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
uses crt;
 
TYPE neige=record
x,y:integer;
i:byte;
end;
 
var   vitesse,b,v:integer;
      depla:array[1..10000]of neige;
 
 
procedure parametre;
begin
asm
mov ax, 03h
int 10h
end;
WRITEln('vitesse? (10:trŠs rapide, 20:rapide, 30:moyen, 40:lent...');
READln(vitesse);
writeln('baromŠtre? (500:petite chutte, 1000:tempˆte, 2000:blizzar...');
readln(b);
writeln('vent de c“t‚?: (1:faible, 2:moyen, 3:‚lev‚...');
readln(v);
end;
 
 
 
 
procedure position(x,y:integer;i:byte);
begin
mem[$a000:x+y*320]:=i;
end;
 
procedure setcolor(i,r,g,b:byte);
begin
port[$3c8]:=i;
port[$3c9]:=r;
port[$3c9]:=g;
port[$3c9]:=b;
end;
 
procedure assigncolor;
var j:integer;
begin
for j:=1 to 240 do setcolor(j,j,j,j);
for j:=1 TO b do with depla[j] do
begin
x:=random(320);
y:=random(200);
i:=random(250);
position(x,y,i);
end;
end;
 
procedure deplace;
var j:integer;
begin
for j:= 1 TO b DO WITH depla[j] DO
begin
position(x,y,0);
if i<50 THEN
BEGIN
y:=y+1;
x:=x+v;
end
else
 
 
 
 
if i<100 THEN
BEGIN
Y:=Y+2;
x:=x+v;
end
else
 
 
 
if i<150 THEN
begin
Y:=Y+3;
x:=x+v;
end
else
 
if i<200 THEN
begin
Y:=Y+4;
x:=x+v+1;
end
else
begin
y:=y+5;
x:=x+v+1;
END;
if y> 199 THEN inc(y,0);
Position(x,y,I);
end;
end;
 
 
begin
parametre;
asm
mov ax, 13h
int 10h
end;
RANDOMIZE;
assigncolor;
repeat
deplace;
delay(vitesse);
until keypressed;
end.

pas mal? hein 8)

**charly** · 30/10/2002, 11h47

pas mal du tous , bravo !!!!
mainteant un detaille ou deux , esseye de faire une inerface diretemment sans passer par se genre de question genre +- pour le vent <-->pour la direction ect .... avec un text qui indique tous sa ... enfin c est un avie perso !!
sinon , une question , je n arrive pas a voire comment tu rafraichis ton ecran ...

**mikoeur** · 30/10/2002, 15h12

pkoi raffraichir l'écran? Il a été Initialiser, en quoi consiste le rafraichissage(

ça sonne bizzare ce que g ecri)
par contre ça me fait très plaisir que tu as trouvé ça bien ): . Ya pas 2 semaines je connaissais presque rien de ce que je viens de faire, et si j'avais regardé mon code, j'au rai rien compris...

ok c bon j'ai reussi
merci pour ton conseil

**Eric Sigoillot** · 30/10/2002, 20h37

Le rafraîchissement se fait dans Deplace. Il réaffiche tout l'écran en changeant la couleur.
Comme la palette a été initialisée au départ, il suffit de placer un pixel noir.

A+