home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / UNITINT.ZIP / U_FFGIF.INT < prev    next >
Text File  |  1995-02-14  |  742b  |  41 lines

  1.  
  2. (*
  3. ** Graphics Interchange Format (<tm> of Compuserve) unit
  4. ** Only non-interlaced (sequential) pictures.
  5. ** GIF89a is downward compatible, although the extension blocks aren't
  6. ** handled in any way.
  7. **
  8. ** Also displays any-bit SVGA pictures!
  9. ** Unit code by Bas van Gaalen.
  10. *)
  11.  
  12. unit u_ffgif;
  13.  
  14. interface
  15.  
  16. uses dos,graph;
  17.  
  18. const
  19.   gif_ok=0;
  20.   gif_nofile=1;
  21.   gif_errfile=2;
  22.   gif_interlaced=4;
  23.   gif_invalid=5;
  24.  
  25. type
  26.   gif_inforec=record
  27.     version:string[6];
  28.     xres,yres:word;
  29.     pixs:byte;
  30.   end;
  31.  
  32. var
  33.   gif_status:byte;
  34.  
  35. function gif_errstr:string;
  36. function gif_display(fname,bgipath:pathstr; vidmode:shortint):byte;
  37. function gif_info(fname:pathstr; var info:gif_inforec):byte;
  38.  
  39. implementation
  40.  
  41.