home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / IFFPictures.def < prev    next >
Text File  |  1994-05-25  |  1KB  |  45 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMCD
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE IFFPictures;
  11.  
  12. (*----------------------------------------------------------------------------*)
  13. (*                                                                            *)
  14. (*     ILBM-Lade und Speicherroutinen, inklusive Komprimierung und Icons      *)
  15. (*                                                                            *)
  16. (*     Version: 1.2        Datum: 12.12.1989       Autor: Ulrich Sigmund      *)
  17. (*                                                                            *)
  18. (*----------------------------------------------------------------------------*)
  19.  
  20. FROM Intuition  IMPORT ScreenPtr;
  21.  
  22. TYPE
  23.   PackedBitMap  = HIDDEN;
  24.  
  25. VAR
  26.   SaveCompress,               | komprimiert abspeichern
  27.   SaveIcon      : BOOLEAN;    | Icon mitabspeichern
  28.  
  29. | Defaulttool für abzuspeichernde Bilder setzen
  30. PROCEDURE SetToolType(REF Name : STRING);
  31.  
  32. | IFFBild abspeichern
  33. PROCEDURE SaveILBM(Screen : ScreenPtr;VAR Name : STRING);
  34.  
  35. |  IFFBild laden
  36. PROCEDURE LoadILBM(REF Namen : STRING):ScreenPtr;
  37.  
  38. PROCEDURE LoadILBM_Packed(REF Namen : STRING):PackedBitMap;
  39.  
  40. PROCEDURE UnpackILBM(pack : PackedBitMap;scr : ScreenPtr);
  41.  
  42. PROCEDURE FreePacked(pack : PackedBitMap);
  43.  
  44. END IFFPictures.
  45.