home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Interdit
/
pc-interdit.iso
/
graph
/
voxel.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-09
|
1KB
|
30 lines
Uses Crt,Gif,ModeXLib;
Var x,y:Word; {coordonnées du trapèze }
Procedure Draw_Voxel;external;
{$l c:\edition\prog\fr\asm\voxel.obj}
Begin
Init_ModeX; {active le mode X }
LoadGif('landsc3'); {charge le paysage }
x:=195; {fixe les coordonnées de début }
y:=130;
Repeat
ClrX($0f); {efface l'écran }
Draw_Voxel; {représente le paysage }
Switch; {active la page d'écran terminée }
WaitRetrace; {attend le retour de balayage vertical }
asm
mov ax,000bh {fonction 0bh : lit les coordonnées relatives }
int 33h
sar cx,2 {division par 2}
sar dx,2
add x,cx
add y,dx
End;
If x < 0 Then x:=0; If x > 130 Then x:=130;
If y < 0 Then y:=0; If y > 130 Then y:=130;
Until KeyPressed; {sortie quand une touche est activée}
TextMode(3);
End.