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 >
Wrap
Text File
|
1995-02-14
|
742b
|
41 lines
(*
** Graphics Interchange Format (<tm> of Compuserve) unit
** Only non-interlaced (sequential) pictures.
** GIF89a is downward compatible, although the extension blocks aren't
** handled in any way.
**
** Also displays any-bit SVGA pictures!
** Unit code by Bas van Gaalen.
*)
unit u_ffgif;
interface
uses dos,graph;
const
gif_ok=0;
gif_nofile=1;
gif_errfile=2;
gif_interlaced=4;
gif_invalid=5;
type
gif_inforec=record
version:string[6];
xres,yres:word;
pixs:byte;
end;
var
gif_status:byte;
function gif_errstr:string;
function gif_display(fname,bgipath:pathstr; vidmode:shortint):byte;
function gif_info(fname:pathstr; var info:gif_inforec):byte;
implementation