home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 05-12.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  717b  |  43 lines
  1. program main;
  2. uses fgmain, fgbitmap, fgmisc;
  3.  
  4. var
  5.   decreasing : integer;
  6.   i          : integer;
  7.   old_mode   : integer;
  8.   RGBvalues  : array [0..20] of shortint;
  9.  
  10. begin
  11.   fg_initpm;
  12.   old_mode := fg_getmode;
  13.   fg_setmode(19);
  14.  
  15.   for i := 9 to 15 do
  16.   begin
  17.     fg_setcolor(i);
  18.     fg_text('*',1);
  19.   end;
  20.  
  21.   fg_getdacs(9,7,RGBvalues);
  22.   fg_waitfor(18);
  23.  
  24.   repeat
  25.   begin
  26.     decreasing := 0;
  27.     for i := 0 to 20 do
  28.     begin
  29.       if (RGBvalues[i] > 0) then
  30.       begin
  31.         dec(RGBvalues[i]);
  32.         decreasing := 1;
  33.       end;
  34.     end;
  35.     fg_setdacs(9,7,RGBvalues);
  36.     fg_waitfor(1);
  37.   end;
  38.   until (decreasing = 0);
  39.      
  40.   fg_setmode(old_mode);
  41.   fg_reset;
  42. end.
  43.