Discussion :

[Ponytear]

Bonjour,

Pour m'amuser, je développe depuis quelques années un cheater sous DOS en mode texte. Le programme se compose principalement d'une liste de jeux ou du texte que l'utilisateur fait défiler. J'utilisais les fonctions de base de Turbo Pascal (version 7) pour écrire et rafraîchir l'écran ("write" et "clrscr"). Celles-ci étaient suffisantes jusqu'à ce que je veuille implémenter une nouvelle fonction: avoir en fond d'écran, non pas une seule couleur, mais une image composée par différentes couleurs.

J'ai implémenté la fonction, mais le rafraîchissement de l'écran est devenu beaucoup trop lent avec les fonctions de base. J'ai pu très légèrement amélioré le problème en écrivant directement dans la mémoire vidéo grâce à un algorithme trouvé dans la base de données SWAG, mais c'est très loin d'être satisfaisant. Ne connaissant pas du tout le fonctionnement de l'adressage direct en mémoire pour utiliser l'écran, je ne sais pas quoi faire (pour l'instant, j'essaye de me débrouiller comme je peux).

Le fonctionnement de mon programme lié au rafraîchissement est très simple et est certainement la base de ce problème: l'écran s'affiche et attend une action de l'utilisateur. Une fois celle-ci reçue, le programme la traite, puis réaffiche la partie de l'écran qui a été modifiée (généralement presque tout l'écran).

J'imagine que plutôt que de réafficher à chaque fois presque tout l'écran, je ne devrais réafficher que ce qui a été modifié (en capturant et restaurant la partie de l'écran en question?), mais cela me semble bien compliqué.

J'ai mis le programme (exécutable) ici pour que vous puissiez vous rendre compte de ce que ça donne:
http://users.skynet.be/fa224292/tuc.zip
(Attention, je n'ai copié que le nécessaire! Les données du programme sont absentes sur ce lien). Remarque: vu que je suis en train de modifier le code source d'affichage du programme, tout n'est pas encore réglé et le menu Painter déconne un peu beaucoup pour l'instant...

Pour activer/désactiver le "mode image", faire SHIFT+TAB.

Brièvement, pour comprendre ce qui se passe:
- affichage de tout l'écran;
- le programme dessine l'image de fond;
- l'utilisateur appuie sur la flèche du bas pour descendre dans la liste;
- le programme réaffiche _toute_ la liste (bien que seulement deux lignes aient été modifiées par l'action de l'utilisateur);
- le programme dessine l'image de fond;
- etc.

Une chose que j'ai remarqué: quand j'affiche l'image de fond et que j'essaie de savoir la couleur de l'écran en x,y celle-ci ne correspond jamais à la couleur visible à l'écran, mais à la couleur par défaut du fond d'écran. Exemple: en position x/y (25,18), la couleur affichée est "vert" et la couleur renvoyée est "bleu" (= la couleur par défaut de l'écran).

La solution idéale la plus simple serait peut-être qu'une fois l'image de fond affichée, le programme puisse écrire des caractères sans changer la couleur de fond d'écran (ce que je n'arrive pas à faire puisqu'ici, chaque caractère est écrit sur fond bleu qui est la couleur par défaut).

Voilà, j'espère avoir été plus ou moins clair et quelqu'un pourra m'aider d'une façon ou d'une autre.

Un grand merci pour votre patience et votre temps!

Ponytear

PS: Ci-après, la fonction "fastwrite" de SWAG que j'utilise (pour l'instant) pour afficher le texte à l'écran et la fonction "draw_picture" que j'utilise pour afficher l'image de fond (basée sur SWAG aussi).

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

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
 procedure fastwrite(x, y, f, b: byte; s : STRING);
{ Does a direct video write -- extremely fast.
  X, Y = screen location of first byte;
  S = string to display;
  F = foreground color;
  B = background color. }
type  videolocation=record    { the layout of a two-byte video location }
                    videodata: char;        { character displayed }
                    videoattribute: byte;   { attributes }
                    end;
var cnter: byte;
    videosegment: word;         { the location of video memory }
    monosystem: boolean;        { mono vs. color }
    vidptr: ^videolocation;     { pointer to video locations }
Begin
 
  videosegment := $b800;
  vidptr:=ptr(videosegment,2*(80*(y-1)+(x-1)));
  for cnter:=1 to length(s) do
      Begin
           vidptr^.videoattribute:=(b shl 4)+f; 
           vidptr^.videodata:=s[cnter];          { put character at location }
           inc(vidptr);                          { go to next video location }
      End;
End;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Code :

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

1
2
3
4
5
6
7
8
9
 procedure draw_picture;
{remarque: picture[] est le tableau qui contient mon image}
var 
    i:word;
Begin
     for i:=0 to 3999 do
      If Odd(i) then
      Mem[$b800:i]:=(Mem[$b800:i] and 15) or ((picture[i] and 15) shl 4);
End;

[Ponytear]

Finalement, en cherchant ces dernières heures, j'ai presque résolu mon problème et j'ai réussi à supprimer ces rafraîchissements intempestifs.

Si quelqu'un sait comment intégrer l'image de fond dans la résolution 80*50, pourrait-il me l'expliquer? J'imagine que ce n'est pas très compliqué et qu'il suffit de modifier quelque peu la procédure "draw_picture".

Voilà, un grand merci...

[Alcatîz]

Bonjour !

Pour passer en mode 80*50, tu dois sélectionner une matrice de caractères 8*8 à l'aide de la sous-fonction 12h de la fonction 11h de l'interruption 10h.

L'adressage d'un caractère particuler en RAM vidéo n'est pas plus compliqué qu'en mode 80*25. Où se situe ton problème ?

[Ponytear]

Bonjour,

"L'adressage d'un caractère particuler en RAM vidéo n'est pas plus compliqué qu'en mode 80*25. Où se situe ton problème ?"

Ne sachant pas comment marche l'adressage direct, quand je passe en mode 80*50, mon image de fond n'est affichée quand dans la moitié supérieure de l'écran et il n'y a rien dans la moitié inférieure. J'ai bien essayé de faire quelques changements au code trouvé dans SWAG (qui marche très bien pour le 80*25), mais je n'arrive à rien (ce qui est un peu normal puisque je ne sais pas comment ça marche!).

Voici le code source de SWAG qui marche très bien pour le mode 80*25:

for i:=0 to 3999 do
If Odd(i) then
Mem[$b800:i]:=(Mem[$b800:i] and 15) or ((picture[i] and 15) shl 4);

Que faut-il changer pour ça marche correctement en 80*50? Et pourquoi faut-il la condition Odd(i) pour afficher la couleur?

Un grand merci, en tout cas! Je vais essayer de comprendre cette histoire d'interruption (une notion qui manque malheureusement à ma connaissance).

[Alcatîz]

Dans la RAM vidéo, les caractères sont codés sur 2 octets : un pour le code ASCII et l'autre pour l'attribut.
Les attributs se trouvant aux adresses impaires, cela explique le test Odd().

En mode 80*50, ta boucle ne doit pas s'arrêter à 4000 itérations mais doit aller jusqu'à 8000 (vu qu'il y a deux fois plus de caractères sur 50 lignes que sur 25) ! Cela explique que tu n'as qu'un demi-écran.

[Ponytear]

>Les attributs se trouvant aux adresses impaires, cela explique le test Odd().

Ok, merci!

>En mode 80*50, ta boucle ne doit pas s'arrêter à 4000 itérations mais doit >aller jusqu'à 8000

Etrange, il me semblait que j'avais essayé ça, mais que ça n'avait pas marché. J'ai sûrement dû faire une autre erreur. Je réessaierai en faisant plus attention! [/quote]

[Eric Sigoillot]

Tu devrais utiliser un tableau en absolute, ça te simplifierait la vie...

Fait comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
  TScreenChar = record
    Ch: Char;
    Color: Byte;
  end;
 
  TScreen: array[1..50, 1..80] of TScreenChar;
 
var
  Screen: TScreen absolute $B800:$0000;

Comme ça, tu peux accéder directement à l'écran, et sans te casser la tête :

Code :

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

1
2
 
Screen[5, 5].Ch := 'A';

A noter que la mémoire vidéo est plus large que ce que tu peux apercevoir à l'écran. Donc une solution pourrait consister à écrire en mémoire sur une écran "caché" (après les 8000 octets visibles) puis à le recopier rapidement en affichage visible dans les 8000 premiers octets avec Move.

A+

[Ponytear]

Merci beaucoup pour ces explications! C'est en effet beaucoup plus simple...

[Alcatîz]

Et pour poursuivre l'idée de HDD34, tu peux jouer avec plusieurs pages d'écran et commuter entre elles.