home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / split.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-09  |  685b  |  24 lines
  1. Uses Crt,Gif,ModeXLib;
  2. Var i:Word;
  3. begin
  4.   Init_ModeX;                   {initialisation du Mode X }
  5.   LoadGif('boule');             {chargement de la première image}
  6.   p13_2_ModeX(16000,16000);
  7.   LoadGif('coin');              {chargement de la deusième image}
  8.   p13_2_modex(0,16000);
  9.   SetStart(16000);              {affiche l'image de fond}
  10.   Repeat
  11.     For i:=200 downto 0 do Begin   {déplacement vers le haut}
  12.       WaitRetrace;
  13.       Split(i);
  14.       If KeyPressed Then Exit;
  15.     End;
  16.     For i:=0 to 200 do Begin    {déplacement vers le bas}
  17.       WaitRetrace;
  18.       Split(i);
  19.       If KeyPressed Then Exit;
  20.     End;
  21.   Until KeyPressed;
  22.   TextMode(3);
  23. End.
  24.