home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / UNITINT.ZIP / U_FFPCX.INT < prev    next >
Text File  |  1995-02-14  |  765b  |  43 lines
  1.  
  2. (*
  3. ** PCX unit
  4. ** Supports:
  5. ** ■ Fast load routine for 64Kb files only
  6. ** ■ Save routine
  7. ** ■ General display routine
  8. **
  9. ** Made by Bas van Gaalen
  10. *)
  11.  
  12. unit u_ffpcx;
  13.  
  14. interface
  15.  
  16. uses dos,graph,u_pal;
  17.  
  18. const
  19.   pcx_ok=0;
  20.   pcx_nofile=1;
  21.   pcx_invalid=2;
  22.   pcx_nomem=3;
  23.   pcx_nocreate=4;
  24.   pcx_errfile=5;
  25.  
  26. type
  27.   pcx_inforec=record
  28.     xres,yres:word;
  29.     pixs:byte;
  30.   end;
  31.  
  32. var
  33.   pcx_status:byte;
  34.  
  35. function pcx_errstr:string;
  36. function pcx_load(fname:pathstr; var pic:pointer; var pal:pal_type):byte;
  37. function pcx_save(fname:pathstr; pic:pointer; pal:pal_type):byte;  { 320x200 }
  38. function pcx_display(fname,bgipath:pathstr; vidmode:shortint):byte;
  39. function pcx_info(fname:pathstr; var info:pcx_inforec):byte;
  40.  
  41. implementation
  42.  
  43.