Utilisation de Turbo Pascal 7.0

• ModeTxt : lance le mode texte ;
• ModeVga256 : lance le mode VGA ;
• PutPixel (X,Y,Coul) : trace un point à la position X,Y dans la couleur Coul ;
• GetPixel (X,Y) : lit la valeur du point à la position X,Y ;
• PutPixelOfs (Ofst: Word;Coul: Byte) : trace un point à l'offset Ofst de la VRAM dans la couleur Coul ;
• EcritBloc (X,Y,Long: Word; var Src) : écrit un bloc de données (linéaire) à la position X,Y d'une longueur Long. Src est le bloc, souvent de type « Array[…] of byte » ;
• EcritBlocOfs (Ofst,Long: Word; var Src) : écrit un bloc de données (linéaire) à l'offset Ofst d'une longueur Long. Src est le bloc, souvent de type « Array[…] of byte » ;
• EcritZone (X,Y,Larg,Haut: Word; var Src) : écrit une zone de données à la position X,Y ayant comme dimensions Haut en hauteur et Larg en largeur. Src est le bloc, souvent de type « Array[…] of byte » ;
• LitBloc (X,Y,Long: Word; var Dst) : lit un bloc de données (linéaire) à la position X,Y d'une longueur Long et l'écrit dans Dst (qui doit avoir une taille d'au moins Long octets) ;
• LitBlocOfs (Ofst,Long: Word; var Dst) : lit un bloc de données (linéaire) à l'offset Ofst d'une longueur Long et l'écrit dans Dst (qui doit avoir une taille d'au moins Long octets) ;
• LitZone (X,Y,Larg,Haut: Word; var Dst) : lit une zone de données à la position X,Y ayant comme dimensions Haut en hauteur et Larg en largeur, et l'écrit dans Dst ;
• RempliBloc (X,Y,Larg: Word; Coul: Byte) : remplit un bloc, c'est-à-dire répète une couleur sur Larg pixels (je ne détaille plus les paramètres, c'est tout le temps la même chose) ;
• procedure RempliBlocOfs (Ofst,Larg: Word; Coul: byte) ;
• procedure RempliZone (X,Y,Larg,Haut: Word; Coul: byte) ;
• procedure RempliZoneOfs (Ofst,Larg,Haut: Word;Coul: byte) ;
• Procedure EcriVga (X,Y: Integer; Txt: String; Coul,CoulF: Byte) : écrit le texte Txt à la position X,Y dans la couleur Coul sur un fond CoulF ;
• Procedure EcriTsp (X,Y: Integer; Txt: String; Coul: Byte) : écrit le texte Txt à la position X,Y dans la couleur Coul sur fond transparent (ne dessine pas les pixels transparents) ;
• procedure ColoriZone (X,Y,Larg,Haut: Word; CoulAvant,CoulApres: byte) : colorie une zone, c'est-à-dire que si la couleur CoulAvant est trouvée, elle est remplacée par la couleur CoulApres ;
• procedure DessineLigneV (X,Y,Haut: word; Coul: byte) : dessine une ligne verticale à la position X,Y d'une hauteur Haut dans la couleur Coul ;
• procedure DessineLigneH (X,Y,Larg: word; Coul: byte) : dessine une ligne horizontale à la position X,Y d'une largeur Larg dans la couleur Coul.

Et ce n'est que le début. J'ai quand même mis deux ans (j'ai dormi un petit peu entre temps) pour concevoir cette unité comme elle est actuellement (du 17/02/1999 pour la version 1.0, au 10/11/2000 pour la version 1.4.1). Et dire que je vous la file gratos !

Pour la suite, ce sont mes nouvelles procédures graphiques qui permettent de faire quelque chose de concret : tracé de ligne, rectangle, disque, etc. Elles acceptent les coordonnées négatives et tronquent ce qui dépasse automatiquement. Je ne vous raconte pas le temps passé pour le tracé du cercle ou d'une simple ligne (le plus dur, surtout quand la ligne est coupée, vive les maths !) :

• procedure DessinePoint (X,Y: Integer; Coul: byte) : trace un point à la position X,Y dans la couleur Coul (comme PutPixel, mais ne trace pas si ça sort de l'écran) ;
• procedure DessineLigne (X,Y,X2,Y2: Integer; Coul: byte) : dessine une ligne depuis le point X,Y jusqu'au point X2,Y2 dans la couleur Coul. Vu comme j'ai bossé dessus, les points peuvent être alignés, confondus, en dehors de l'écran, la ligne peut être verticale ou horizontale. Bon OK, j'arrête de frimer ;
• procedure DessineRectangle (X,Y: Integer; Larg,Haut: word; Coul: Byte) : trace un rectangle à la position X,Y d'une dimension Larg sur Haut et d'une couleur Coul ;
• procedure DessineRectanglePlein (X,Y: Integer; Larg,Haut: word; Coul: Byte) : trace un rectangle plein à la position X,Y d'une dimension Larg sur Haut et d'une couleur Coul ;
• procedure DessineCercle (X,Y: Integer; Rayon: Word; Coul: Byte) : trace un cercle à la position X,Y d'un rayon Rayon et d'une couleur Coul ;
• procedure DessineDisque (X,Y: Integer; Rayon: Word; Coul: Byte) : trace un disque à la position X,Y d'un rayon Rayon et d'une couleur Coul.

Maintenant, pour éviter le scintillement de l'écran pendant l'écriture dans la VRAM, je vous propose encore des procédures :

• AttendEcran : attend l'écran. Explication : le moniteur (écran) est rafraîchi 70 fois par seconde, et il trace l'image de haut en bas et de gauche à droite. Le « spot » s'interrompt à la fin d'une ligne puis revient à gauche (donc 200 fois dans le mode VGA) et une autre fois (plus longtemps) pour aller du coin bas droit au coin haut-gauche. C'est seulement à ce moment que l'on peut modifier la VRAM, car sinon, l'image modifiée scintille légèrement durant la modification. Ce qui donne :

repeat
  AttendEcran;
  { Trace le dessin }
until TouchPresse;

• ChangeDestEcran : change la destination de toutes les procédures, c'est-à-dire qu'au lieu d'écrire directement dans la VRAM, on peut dériver l'écriture (et la lecture) dans un tampon, ce qui est très utilisé pour éviter le scintillement en complément de « AttendEcran ». Voyez mon programme « Bouge », par exemple, pour plus de détails : la procédure TamponEcran en est la clé ;
• AfficheEcran : si variable « Ecran » (modifiable par « ChangeDestEcran ») n'est pas dirigée vers la VRAM directement, copie le contenu du pointeur vers lequel elle pointe dans la VRAM ;
• AffichePtr (Source: Pointer) : affiche le contenu du pointeur Source à l'écran (le copie dans la VRAM) ;
• Procedure CopiePtr (Source,Dest: Pointer) : copie le contenu du pointeur Src (de type PtrImage, soit un pointeur sur un tampon à la dimension de l'écran VGA) dans le pointeur Dest ;
• EffaceEcran (Coul: Byte) : efface le contenu de l'écran avec la couleur Coul (le remplit de cette couleur) ;
• EffacePtr (Dest: Pointer; Coul: Byte) : efface le contenu du pointeur Dest avec la couleur Coul (le remplit de cette couleur).