home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / palrot.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-08  |  704b  |  21 lines
  1. Uses Crt,ModeXLib,Gif;
  2.  
  3. Var slow_flag:Boolean;   {pour ralentir les processus}
  4.  
  5. Begin
  6.   Init_Mode13;           {active le mode 13h }
  7.   LoadGif('echecs');     {charge et affiche l'image }
  8.   Show_Pic13;
  9.   Repeat
  10.     Pal_Rot(16,47);      {déplace l'échiquier }
  11.     If slow_flag Then Begin {toutes les 2 itérations }
  12.       Pal_Rot(63,48);    {anime la fontaine }
  13.       Pal_Rot(88,64);    { et le radar }
  14.     End;
  15.     slow_flag:=not slow_flag; {permet de n'animer la fontaine et le radar qu'une fois sur deux }
  16.     WaitRetrace;         {synchronisation}
  17.     SetPal;              {réalise la palette après rotation }
  18.   Until KeyPressed;      {jusqu'à frappe de touche }
  19.   TextMode(3);
  20. End.
  21.