home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / graphic / fade_to.pas < prev    next >
Pascal/Delphi Source File  |  1995-07-28  |  690b  |  23 lines
  1. uses crt,ModeXLib,Tools;
  2. var i:word;
  3.     origpal,
  4.     destinationpal:Array[0..767] of Byte;
  5.  
  6. begin
  7.   ClrScr;
  8.   GetPal;                              {load "Palette" with current DAC-palette}
  9.   Move(Palette,OrigPal,768);           {save palette}
  10.   Move(Palette,Destinationpal,768);    {set Destination-Palette}
  11.  
  12.   Draw_Ansi('color.ans');              {load Ansi-picture}
  13.  
  14.   Make_bw(DestinationPal);             {DestinationPal to black/white}
  15.   readkey;
  16.   fade_to(DestinationPal,1);           {fade to black/white palette}
  17.   ReadKey;
  18.   fade_to(OrigPal,1);                  {fade to original palette}
  19.  
  20.   ReadLn;
  21.   TextMode(3);                         {normal state}
  22. End.
  23.