home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / graphic / split.pas < prev    next >
Pascal/Delphi Source File  |  1995-07-28  |  636b  |  24 lines
  1. Uses Crt,Gif,ModeXLib;
  2. Var i:Word;
  3. begin
  4.   Init_ModeX;                   {initialize Mode X}
  5.   LoadGif('upfold');            {load first image (background)}
  6.   p13_2_ModeX(16000,16000);
  7.   LoadGif('corner');            {load second image}
  8.   p13_2_modex(0,16000);
  9.   SetStart(16000);              {show background}
  10.   Repeat
  11.     For i:=200 downto 0 do Begin{draw Split-Line up}
  12.       WaitRetrace;
  13.       Split(i);
  14.       If KeyPressed Then Exit;
  15.     End;
  16.     For i:=0 to 200 do Begin    {Split-Line down}
  17.       WaitRetrace;
  18.       Split(i);
  19.       If KeyPressed Then Exit;
  20.     End;
  21.   Until KeyPressed;
  22.   TextMode(3);
  23. End.
  24.