Déplacement d'image VGA

Version imprimable

11/04/2011, 08h20
EpiTouille

Déplacement d'image VGA

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 :ccool:
11/04/2011, 09h16
Paul TOTH

Citation:

Envoyé par titeeee

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 :ccool:

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
11/04/2011, 10h18
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.
11/04/2011, 12h52
Eric2a
Salut,

Citation:

Envoyé par Paul TOTH

ç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:

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;
11/04/2011, 18h58
EpiTouille

Citation:

Envoyé par Paul TOTH

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é
11/04/2011, 20h10
Paul TOTH

ici par exemple

Un bout du code

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 :cry:)

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:

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:

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;

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:

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);

12/04/2011, 21h40
Eric2a
On va tenter une petite optimisation supplémentaire...

Afin que le processus de copie ne soit pas perturbé par une éventuelle interruption externe, nous pouvons le temps de son éxecution, désactiver les interruptions masquables (déclenchées par le hardware).

La famille des processeurs 80x86 et supérieurs dispose de deux instructions nous permettant de traiter ce cas :
- CLI (clear interrupt)
  Désactive les interruptions masquables
- STI (set interrupt)
  Active les interruptions masquables
Avec Turbo Pascal, il suffit de les placer (dans les blocs asm end) aux endroits appropriés.
Code:

1 2 3 4 5 Asm CLI End; PutImage(oldx, oldy,plateau^,xorput); Cplateau.y := Cplateau.y + 10; PutImage(Cplateau.x,Cplateau.y,plateau^,xorput); Asm STI End;