home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / graphic / fade_out.pas < prev    next >
Pascal/Delphi Source File  |  1995-07-28  |  318b  |  13 lines
  1. uses crt,modexlib,Tools;
  2. var i:word;
  3.  
  4. Begin
  5.   GetPal;                       {load "Palette" with current DAC-palette}
  6.   Draw_Ansi('color.ans');       {load picture}
  7.   Setpal;
  8.   ReadLn;
  9.   Fade_out;                     {fade out picture}
  10.   ReadLn;
  11.   TextMode(3);                  {normal picture again}
  12. End.
  13.