home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / scroll4.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-07  |  1KB  |  27 lines
  1. Uses Crt,Gif,ModeXLib;
  2. Var x,                   {offset courant dans le sens horizontal }
  3.     x_dir,               {direction du défilement dans le sens horizontal }
  4.     y,                   {offset courant dans le sens vertical }
  5.     y_dir:word;          {direction du défilement dans le sens vertical }
  6. Begin
  7.   Init_ModeX;            {active le mode X }
  8.   double;                {sélectionne le mode 160 octets (640*400 pixels) }
  9.   LoadGif('640400');   {charge l'image }
  10.   p13_2_ModeX(vram_pos,rest div 4); {reste de l'image en mémoire d'écran }
  11.   x:=1;                      {x commence en colonne 1}
  12.   x_dir:=1;                  {direction horizontale = 1 octet par itération }
  13.   y:=160;                    {y commence en ligne 1}
  14.   y_dir:=160;                {direction verticale = 160 octets par itération }
  15.   Repeat
  16.     Inc(x,x_dir);        {défilement horizontal }
  17.     Inc(y,y_dir);        {défilement vertical }
  18.     WaitRetrace;         {attend le retour de balayage}
  19.     SetStart(y+x);       {écrit le nouveau début dans le registre }
  20.     if (x >= 80)         {bord vertical atteint -> changer de direction }
  21.     or (x <= 1) Then x_dir:=-x_dir;
  22.     if (y >= 200*160)    {bord horizontal atteint -> changer de direction }
  23.     or (y <= 160) Then y_dir:=-y_dir;
  24.   Until KeyPressed;      {tourne jusqu'à ce qu'on frappe une touche }
  25.   TextMode(3);
  26. End.
  27.