Discussion :

[mikoeur]

Salut tout le monde
J'ai un gros problème d'affichage de couleur. J'aimerais savoir comment fait on pour afficher un pixel d'une couleuR autre que les 15 couleurs qui existent disont par déaut. Evidemment je pourrais utiliser l'unité modevga d'Haypo qui me semble génialement approprée, mais ça ne m'interesse pas d'utiliser ce que je ne comprends pas. J'ai cru comprendre que l'on peut utiliser ceci :
Mem[$A000: Y*320 +X] := Couleur;
putpixel(10,10,couleur);
mais je ne sais pas vraimment a quoi correspond 'mem' et surtout x et y. D'ailleurs, qd je fais ça, l'écran reste vide, avec aucuns signalement d'erreur.
Quelqu'un peut il m'éclaircir sur ce sujet?
Merci d'avance
voici tout ce que j'ai mis (ça doit paraitre ridicul car l'erreur est sans doute évidente) :
USES ecranvga,crt;
var a,b,y,x:integer;
couleur:byte;

begin
asm
mov ax, 13h
int 10h
end;
x:=1;
y:=1;
REPEAT
x:=x+1;
Mem[$A000: Y*320 +X] := Couleur;
putpixel(10,10,couleur);
until keypressed;
END.
Mikoeur

ps : désolé pour ce texte si long mais je viens de passer mon bac français (lol)

[Eric Sigoillot]

Bon, ben dans ce cas...

Tu verras, le mode 13h est très bien pour commencer le graphisme et sortir des 16 couleurs.

Mais on se lasse vite. Parole d'initié !

A+

[haypo]

Quand tu trouves, fait en profiter les autres! Je pense que tu as cherché dans mon unité PalVideo qui permet de modifier la palette vidéo du mode VGA. Ca passe par des ports, je connais plus tout par coeur ... euh, voyez mon unité :-/

@+ Haypo

[Eric Sigoillot]

Puisqu'Haypo a la mémoire qui flanche... !

Modifier une entrée de la palette :

Code :

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

1
2
3
4
5
 
Port[$3C8] := IndexPalette;
Port[$3C9] := Red;
Port[$3C9] := Green;
Port[$3C9] := Blue;

Lire une entrée de la palette :

Code :

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

1
2
3
4
5
 
Port[$3C7] := IndexPalette;
Red := Port[$3C9];
Green := Port[$3C9];
Blue := Port[$3C9];

A+