Program Defil_etoiles;
Uses Crt;
Var Etoiles:Array[0..500] of Record
x,y,Plan:Integer;
End;
nb_et:Word;
Procedure PutPixel(x,y,col:word);assembler;
{dessine le point (x,y) en couleur col (Mode 13h)}
asm
mov ax,0a000h {charge le segment}
mov es,ax
mov ax,320 {offset = Y*320 + X}
mul y
add ax,x
mov di,ax {charge l'offset }
mov al,byte ptr col {charge la couleur}
mov es:[di],al {et place le point}
End;
Begin
Randomize; {initialise le g�n�rateur de nombres al�atoires}
asm mov ax,13h; int 10h End; {d�clenche le mode 13h }
Repeat {ex�cution une fois par dessin d'�cran}
For nb_et:=0 to 500 do Begin {nouvelle position pour chaque �toile}
With Etoiles[nb_et] do Begin
PutPixel(x,y,0); {efface l'ancien pixel}
Dec(x,Plan shr 5 + 1); {effectue le d�placement}
if x <= 0 Then Begin {sortie � gauche ?}
x:=319; {alors r�initialisation }
y:=Random(200);
Plan:=Random(256);
End;
PutPixel(x,y,Plan shr 4 + 16); {dessine le nouveau pixel}
End;
End;
delay(100);
Until KeyPressed; {continue jusqu'� ce qu'on frappe une touche}
TextMode(3);
End.
Vous avez donc l� d�j� le moyen d'adresser la
m�moire vid�o et de dessiner ce que vous voulez !!!
En attendant la suite , amusez vous bien !
(nous reviendrons aussi sur ces histoires de plans
assez compliqu�s � comprendre)
