Discussion :

[EpiTouille]

Bonjour, j'ai besoins de déplacer une image dans le mode VGA.

Voilà comment je procède :

-Enregistrement de l'image dans un pointeur.

et ma boucle :

Afficher l'image
attendre(x seconde)
effacer l'image (avec XorPut);
incrémenter;

Mais un clignotement indésirable apparait. Ayant vue plein de programme VGA
qui marchait sans le clignotement, je me demandait si on pouvait enlever ce clignotement (ASM ?)

Merci de vos réponses
Titeeee

[Paul TOTH]

Bonjour, j'ai besoins de déplacer une image dans le mode VGA.

Voilà comment je procède :

-Enregistrement de l'image dans un pointeur.

et ma boucle :

Afficher l'image
attendre(x seconde)
effacer l'image (avec XorPut);
incrémenter;

Mais un clignotement indésirable apparait. Ayant vue plein de programme VGA
qui marchait sans le clignotement, je me demandait si on pouvait enlever ce clignotement (ASM ?)

Merci de vos réponses
Titeeee

pour éviter les clignotements il y a pas 36 solutions, il faut utiliser deux écrans. Si mon souvenir est bon, le mode VGA classique (640x480x16) ne supporte qu'une seule page vidéo, deux en EGA et 4 en XMode 320x200x256

du coup tu es contraint d'avoir une page (ou plusieurs) offline, c'est à dire en mémoire et de la recopier dans la mémoire vidéo après mise à jour. Ton écran ne clignote plus car il n'efface jamais rien, il est simplement mis à jour dans la bonne couleur...ça plus un VSync pour éviter les défauts d'affichage

[M.Dlb]

Cependant en VGA, rien ne t'empêche de faire le même procédé avec une image en Heap, et tu copies ensuite de mémoire à mémoire.

[Eric2a]

Salut,

ça plus un VSync pour éviter les défauts d'affichage

Absolument oui.

Le bit 3 du registre 1 de l'Input Status (adresse de port 3DAh) nous permet de lire l'état du retour de balayage vertical.

Appeler la procedure classique ci-dessous avant la partie du code copiant les données de l'image.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure WaitRetrace;Assembler;
Asm
	PUSH	DX
	PUSH	AX
	MOV	DX,03DAH
@1:	IN	AL,DX
	TEST	AL,8
	JNZ	@1
@2:	IN	AL,DX
	TEST	AL,8
	JZ	@2
	POP	AX
	POP	DX
End;

[EpiTouille]

pour éviter les clignotements il y a pas 36 solutions, il faut utiliser deux écrans. Si mon souvenir est bon, le mode VGA classique (640x480x16) ne supporte qu'une seule page vidéo, deux en EGA et 4 en XMode 320x200x256

du coup tu es contraint d'avoir une page (ou plusieurs) offline, c'est à dire en mémoire et de la recopier dans la mémoire vidéo après mise à jour. Ton écran ne clignote plus car il n'efface jamais rien, il est simplement mis à jour dans la bonne couleur...ça plus un VSync pour éviter les défauts d'affichage

Aurais-tu un lien ou un exemple de code pour le Xmode et les 2 écrans. J'ai saisie le principe des 2 écrans (comme avec la SDL) mais je ne sais pas comment le réalisé

[Paul TOTH]

ici par exemple

[EpiTouille]

J'ai regardé les sources, mais je n'ai pas trouvé ce que j'avais besoin (je n'ai pas dû trouver le bon morceau de code )

J'ai essayer la procedure WaitRetrace mais elle accentue le clignotement, j'en ai trouvé une autre sur SwagIndex mais le même problème.

Je vous donne un bout de code ça sera surrement plus facile

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
 
{création de l'image }
 (* Plateau *)
  setcolor(Brown);
  setfillstyle(1,Brown);
  line(76,50,100,50);
  line(76,50,76,100);
  line(76,100,350,100);
  line(350,100,350,80);
  line(350,80,100,80);
  line(100,80,100,50);
  floodfill(77,51,Brown);
  PlateauSize := ImageSize(76,50,350,100);
  getmem(plateau, PlateauSize);
  GetImage(76,50,350,100,plateau^);
end;

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
 
procedure Simulation; begin
  if EtageDemmande>EtageActuel then begin
    repeat
      Delay(attente);
      WaitRetrace;
      PutImage(Cplateau.x,Cplateau.y,plateau^,xorput);
      Cplateau.y := Cplateau.y - 10;
      TrouverEtageActuel;
      PutImage(Cplateau.x,Cplateau.y,plateau^,xorput);
    until EtageActuel = EtageDemmande;
  end;
 
  if EtageDemmande<EtageActuel then begin
    repeat
      Delay(attente);
      WaitRetrace;
      PutImage(Cplateau.x,Cplateau.y,plateau^,xorput);
      Cplateau.y := Cplateau.y + 10;
      TrouverEtageActuel;
      PutImage(Cplateau.x,Cplateau.y,plateau^,xorput);
    until EtageActuel = EtageDemmande;
  end;
end;

[Paul TOTH]

WaitRetrace attend que le balayage écran soit en bas d'écran, tu as très peu de temps pour mettre à jour la vidéo, si ta procédure "TrouverEtageActuel" est lente tu dois la sortir de là.

Code :

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

1
2
3
4
5
6
7
8
 
      oldx:=cplateau.x
      oldy:=cplateau.y;
      TrouverEtageActuel;
      WaitRetrace;
      PutImage(oldx, oldy,plateau^,xorput);
      Cplateau.y := Cplateau.y + 10;
      PutImage(Cplateau.x,Cplateau.y,plateau^,xorput);