home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 09-07.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-31  |  604b  |  29 lines
  1. program main;
  2. uses fgmain, fgflic;
  3.  
  4. var
  5.   mode, status : integer;
  6.   width, height : integer;
  7.   header : array [1..128] of byte;
  8.  
  9. begin
  10.   fg_initpm;
  11.   status := fg_flichead('GLASS.FLI'+chr(0),header);
  12.   if (status = -1) then
  13.   begin
  14.     writeln('Can''t open GLASS.FLI.');
  15.     exit;
  16.   end
  17.   else if (status = -2) then
  18.   begin
  19.     writeln('GLASS.FLI is not a FLI or FLC file.');
  20.     exit;
  21.   end;
  22.  
  23.   mode := fg_flicmode(header);
  24.   writeln('Optimal display mode is ',mode,'.');
  25.  
  26.   fg_flicsize(header,width,height);
  27.   writeln('Image size is ',width,' by ',height,' pixels.');
  28. end.
  29.