home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / spx10.zip / SPX_INT.ZIP / SPX_FLI.INT < prev    next >
Text File  |  1993-05-05  |  2KB  |  45 lines
  1. Unit SPX_FLI;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. Interface
  6.  
  7. Uses SPX_VGA,SPX_SND,SPX_KEY;
  8.  
  9. const
  10.   leavelast   : boolean = false; { TRUE - don't play last frame }
  11.   leavefirst  : boolean = false; { TRUE - don't play first frame }
  12.  
  13. type
  14.   frameproc = procedure(totframe,frame,loop:longint;var fquit:boolean);
  15.   delayproc = procedure(speed:integer);
  16.   fli_hdr   = record
  17.                  size          : longint;
  18.                  magic,frames,
  19.                  width,height,
  20.                  depth,next    : word;
  21.                  speed,frit    : longint;
  22.                  reserved      : array[1..104] of byte;
  23.                end;
  24.   frame_hdr = record
  25.                 size         : longint;
  26.                 magic,chunks : word;
  27.                 reserved     : array[1..8] of byte;
  28.               end;
  29.  
  30. var
  31.   every_frame   : frameproc;      { procedure called for every frame }
  32.   userdelay     : delayproc;      { delay procedure }
  33.   crnthdr       : fli_hdr;        { current FLI file header }
  34.   framesdid,                      { number of frames played }
  35.   crntfrm       : longint;        { current frame playing }
  36.  
  37. procedure IncPtr(var marker:pointer;incby:longint);
  38. function fli_header(fl:string):boolean;
  39. function read_header(fl:string;var fil:file):boolean;
  40. function memReadHeader(var p:pointer):boolean;
  41. function fli_play(fl:string;sp,tms:integer):boolean;
  42. function memFliPlay(var at;sp,tms:integer):boolean;
  43. procedure memNextframe(var p:pointer);
  44.  
  45.