home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / scrolly.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-06  |  867b  |  24 lines
  1. Program scrolly;
  2.  
  3. Uses Crt,Tools,ModeXLib,Gif,Font;
  4.  
  5. Var Sinus:Array[0..127] of Word;{table de sinus pour oscillations verticales }
  6.     t:Word; {"temps", paramètre de position à l'intérieur du sinus}
  7.  
  8. Begin
  9.   Init_ModeX; {active le mode X }
  10.   LoadGif('pfont4'); {charge le jeu de caractères }
  11.   p13_2_ModeX(48000,16000);     {et le transfère en page 3 }
  12.   Sin_Gen(Sinus,128,Scrl_y div 2,Scrl_y div 2);
  13.           {prépare la table des sinus pour déplacement vertical }
  14.   t:=0; {au commencement était le temps 0 }
  15.   Repeat
  16.     WaitRetrace;                {synchronisation}
  17.     Scrl_Move; {déplace la partie visible vers la droite }
  18.     Scrl_Append; {ajoute une nouvelle colonne à droite }
  19.     SetStart(Sinus[t and 127]*80);  {assure le mouvement vertical }
  20.     Inc(t); {progresse dans la table des sinus }
  21.   Until KeyPressed;
  22.   TextMode(3);
  23. End.
  24.