home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 05-11.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  585b  |  34 lines
  1. program main;
  2. uses fgmain, fgbitmap, fgmisc;
  3.  
  4. const
  5.   COLORS : integer = 256;
  6.  
  7. var
  8.   old_mode         : integer;
  9.   red, green, blue : integer;
  10.  
  11. begin
  12.   fg_initpm;
  13.   old_mode := fg_getmode;
  14.   fg_setmode(19);
  15.  
  16.   fg_setcolor(103);
  17.   fg_text('Hello',5);
  18.   fg_waitfor(18);
  19.  
  20.   fg_getrgb(103,red,green,blue);
  21.  
  22.   while (red+green+blue > 0) do
  23.   begin
  24.     if (red > 0)   then dec(red);
  25.     if (green > 0) then dec(green);
  26.     if (blue > 0)  then dec(blue);
  27.     fg_setrgb(103,red,green,blue);
  28.     fg_waitfor(1);
  29.   end;
  30.  
  31.   fg_setmode(old_mode);
  32.   fg_reset;
  33. end.
  34.