home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / fade_ove.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-07  |  2KB  |  37 lines
  1. Program fondu;
  2.  
  3. uses Crt,ModeXLib,gif,fade;
  4. Var pic1_pal,                           {palettes des deux images}
  5.     pic2_pal:Array[0..767] of Byte;
  6.     pic1,                               {contient la première image }
  7.     pic2:Pointer;                       {deuxième image, égal à vscreen}
  8.  
  9. Begin
  10.   Init_Mode13;                         {active le mode 13h }
  11.   Screen_off;                          {éteint l'écran pendant le chargement }
  12.   LoadGif('echec');                    {charge la première image }
  13.   GetMem(pic1,64000);                  {mémoire pour la première image }
  14.   Move(vscreen^,pic1^,64000);          {sauve l'image }
  15.   Move(Palette,pic1_pal,768);          {et la palette }
  16.   Show_Pic13;                          {affiche cette image }
  17.  
  18.   LoadGif('caisse');                   {charge l'image suivante en vscreen^ }
  19.   pic2:=vscreen;                       {définit pic2 comme pointeur }
  20.   Move(Palette,pic2_pal,768);          {sauvegarde la palette }
  21.  
  22.   Move(pic1_pal,Palette,768);        {active la palette de la première image }
  23.   SetPal;                            {et la réalise }
  24.   Screen_on;                         {rallume l'écran }
  25.  
  26.   ReadLn;                            {attente}
  27.   FonduEnch(pic2,pic2_pal,0,0,200);
  28.                                      {fondu enchaîné avec l'image 2 }
  29.  
  30.   fade_ResetPic(0,200);              {prépare un nouveau fondu }
  31.   ReadLn;
  32.   FonduEnch(pic1,pic1_pal,0,0,200);
  33.                                      {fondu enchaîné avec l'image 1 }
  34.   ReadLn;
  35.   TextMode(3);
  36. End.
  37.