home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / graphic / squeeze.pas < prev    next >
Pascal/Delphi Source File  |  1995-08-03  |  315b  |  11 lines
  1. uses Crt,ModeXLib,Gif;
  2. Begin
  3.   Init_ModeX;                   {switching on Mode X}
  4.   LoadGif('squeeze');           {loading of image}
  5.   p13_2_ModeX(vram_pos,rest div 4);
  6.   ReadLn;                       {waiting for Enter}
  7.   Squeeze;                      {squeezing of image}
  8.   ReadLn;
  9.   TextMode(3);
  10. End.
  11.