home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / fade_to.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-07  |  783b  |  25 lines
  1. uses crt,ModeXLib;
  2. var i:word;
  3.     origpal,
  4.     DestPal:Array[0..767] of Byte;
  5.  
  6. begin
  7.   ClrScr;
  8.   GetPal; {charge la palette avec les couleurs courantes du DAC }
  9.   Move(Palette,OrigPal,768);    {sauvegarde la palette }
  10.   Move(Palette,DestPal,768);    {initialise la palette de destination }
  11.  
  12.   For i:=1 to 40 do begin       {prépare l'écran de test }
  13.     TextColor(i mod 15);        {allons-y pour les couleurs !}
  14.     Write('Ceci est un texte de démonstration ');
  15.   End;
  16.   Make_bw(DestPal);             {convertit DestPal en noir-et-blanc }
  17.   readkey;
  18.   fade_to(DestPal,1);           {active la palette n/b }
  19.   ReadKey;
  20.   fade_to(OrigPal,1);           {restaure la palette d'origine }
  21.  
  22.   ReadLn;
  23.   TextMode(3);                  {retour à l'état normal }
  24. End.
  25.