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