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