home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / graphic / palrot.pas < prev    next >
Pascal/Delphi Source File  |  1995-08-10  |  767b  |  23 lines
  1. Uses Crt,ModeXLib,Gif;
  2.  
  3. Var slow_flag:Boolean;          {for controlling the slow progressions}
  4.  
  5. Begin
  6.   Init_Mode13;                  {Mode 13h on}
  7.   LoadGif('palrot');            {load and display image}
  8.   Show_Pic13;
  9.   Repeat
  10.     Pal_Rot(16,47);             {move "chess board"}
  11.     If slow_flag Then Begin     {with every other progression:}
  12.       Pal_Rot(63,48);           {move "fountain"}
  13.       Pal_Rot(88,64);           {move "radar"}
  14.     End;
  15.     slow_flag:=not slow_flag;   {alternating "fountain" and "radar"}
  16.                                 {enable and lock}
  17.     WaitRetrace;                {synchronization}
  18.  
  19.     SetPal;                     {set rotated palette}
  20.   Until KeyPressed;             {until keypress}
  21.   TextMode(3);
  22. End.
  23.