home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / fade_txt.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-07  |  1KB  |  34 lines
  1. Uses Crt,Gif,ModeXLib,Fade;
  2. Var
  3.   Text_Pal:Array[0..767] of Byte;
  4.   i:word;
  5.  
  6. Begin
  7.   Init_Mode13;          {initialise le mode 13h }
  8.   Screen_Off;           {désactive l'écran pendant le chargement }
  9.   LoadGif('vflog210');  {charge la partie statique }
  10.   Move(Palette[210*3],  {et enregistre sa participation à la palette (couleurs 210..255)}
  11.     Text_Pal[210*3],46*3); 
  12.   Show_Pic13;             {copie en mémoire VGA l'image statique }
  13.  
  14.   LoadGif('texte');             {charge une image avec des textes }
  15.   Move(Palette,Text_Pal,14*3);  {et enregistre sa participation à la palette (couleurs 0..13)}
  16.   Move(Text_Pal,Palette,768);   {réalise la palette préparée }
  17.   SetPal;
  18.  
  19.   Move(vscreen^,                {le premier texte peut être directement copié }
  20.     Ptr($a000,160*320)^,19*320);{sur l'écran }
  21.   Screen_On;                    {on réallume l'écran }
  22.   Colors:=14;                 {dans ce programme les images ont 14 couleurs !}
  23.  
  24.   For i:=1 to 6 do Begin        {ouvre en fondu les 6 autres textes }
  25.     Delay(500);                 {temps laissé à la lecture }
  26.     FonduEnch(vscreen, {fondu enchaîné sur l'image suivante à l'ancienne position (y=160) }
  27.       text_pal,i*20,160,19);
  28.     Fade_ResetPic(160,19);      {réinitialisation }
  29.     If KeyPressed Then Exit;    {possibilité d'interruption }
  30.   End;
  31.   Readln;
  32.   TextMode(3);
  33. End.
  34.