|##########|
|#MAGIC   #|CLABLMCD
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--x-----x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|xx---xxxxx-xx---
|##########|
DEFINITION MODULE IFFPictures;

(*----------------------------------------------------------------------------*)
(*                                                                            *)
(*     ILBM-Lade und Speicherroutinen, inklusive Komprimierung und Icons      *)
(*                                                                            *)
(*     Version: 1.2        Datum: 12.12.1989       Autor: Ulrich Sigmund      *)
(*                                                                            *)
(*----------------------------------------------------------------------------*)

FROM Intuition  IMPORT ScreenPtr;

TYPE
  PackedBitMap  = HIDDEN;

VAR
  SaveCompress,               | komprimiert abspeichern
  SaveIcon      : BOOLEAN;    | Icon mitabspeichern

| Defaulttool für abzuspeichernde Bilder setzen
PROCEDURE SetToolType(REF Name : STRING);

| IFFBild abspeichern
PROCEDURE SaveILBM(Screen : ScreenPtr;VAR Name : STRING);

|  IFFBild laden
PROCEDURE LoadILBM(REF Namen : STRING):ScreenPtr;

PROCEDURE LoadILBM_Packed(REF Namen : STRING):PackedBitMap;

PROCEDURE UnpackILBM(pack : PackedBitMap;scr : ScreenPtr);

PROCEDURE FreePacked(pack : PackedBitMap);

END IFFPictures.