home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / fade_in.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-07  |  1KB  |  31 lines
  1. uses crt,ModeXLib;
  2. var i,j:word;
  3.     paldest:Array[0..767] of Byte;
  4.  
  5. Procedure Fade_in(DPal:Array of Byte);
  6. Begin
  7.   For j:=0 to 63 do Begin       {64 itérations pour mener à bien le fondu }
  8.     For i:=0 to 767 do          {calcule 768 couleurs }
  9.       If Palette[i] < DPal[i]   {couleur inférieur à la valeur finale ?}
  10.         Then Inc(Palette[i]);   {on l'augmente }
  11.     WaitRetrace;                {synchronisation}
  12.     SetPal;                     {réalise la palette calculée}
  13.   End;
  14. End;
  15.  
  16. begin
  17.   ClrScr;                       {efface l'écran }
  18.   GetPal;               {charge la palette avec les valeurs lues dans le DAC }
  19.   Move(Palette,Paldest,768);    {sauvegarde la palette }
  20.   FillChar(Palette,768,0);      {extinction des feux}
  21.   SetPal;                       {réalise la palette noire }
  22.  
  23.   For i:=1 to 40 do             {prépare l'écran de démo }
  24.     Write('Ceci est un texte de démonstration ');
  25.  
  26.   ReadLn;
  27.   fade_in(Paldest); {ouvre l'écran en fondu sur Paldest (palette originale) }
  28.   ReadLn;
  29.   TextMode(3);                  {rétablit l'écran normal }
  30. End.
  31.