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