home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Interdit
/
pc-interdit.iso
/
graph
/
scrollv.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-06
|
989b
|
23 lines
Uses Crt,Gif,ModeXLib;
Var y, {valeur courante de la Linear Start. Address}
y_dir:word; {direction du défilement }
Begin
Init_ModeX; {active le mode X }
LoadGif('boule'); {charge la première image en page 0 et 2 }
p13_2_ModeX(0,16000);
p13_2_ModeX(32000,16000);
LoadGif('coin'); {charge la deuxième image en page 1 et 3 }
p13_2_ModeX(16000,16000);
p13_2_ModeX(48000,16000);
y:=80; {on commence en ligne 1}
y_dir:=80; {direction de déplacement +80 octets par itération }
Repeat
Inc(y,y_dir); {déplacement }
WaitRetrace; {attend le retour de balayage }
SetStart(y); {écrit la nouvelle valeur de début dans le registre}
if (y >= 600*80) {bord atteint -> on change de direction }
or (y <= 80) Then y_dir:=-y_dir;
Until KeyPressed; {attend une frappe de touche }
End.