1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
(* ---------------------------------------------------------------------------
IFF.def - Library Interface Module for the iff.library, V18.8, 31-Jul-90
By Olivier Schraner, Roggenweg 6, 5036 Oberentfelden/AG, Switzerland
For A+L's "M2Amiga" Modula-2 Compiler V3.3
--------------------------------------------------------------------------- *)
DEFINITION MODULE IFF {"iff.library",18};
FROM SYSTEM IMPORT ADDRESS,CAST;
FROM Graphics IMPORT BitMapPtr,ViewModeSet;
FROM Exec IMPORT MemReqs,MemReqSet;
CONST
badTask = -1; (* IFFError() called by wrong task *)
cantOpenFile = 16; (* File not found *)
readError = 17; (* Error reading file *)
noMem = 18; (* Not enough memory *)
notIFF = 19; (* File is not an IFF file *)
writeError = 20; (* Error writing file *)
noILBM = 24; (* IFF file is not of type ILBM *)
noBMHD = 25; (* BMHD chunk not found *)
noBODY = 26; (* BODY chunk not found *)
tooManyPlanes = 27; (* Obsolete since V18.6 *)
unknownCompression = 28; (* Unknown compression type *)
noANHD = 29; (* ANHD chunk not found *)
noDLTA = 30; (* DLTA chunk not found *)
idFORM = CAST(LONGINT,"FORM") ;
idPROP = CAST(LONGINT,"PROP") ;
idLIST = CAST(LONGINT,"LIST") ;
idCAT = CAST(LONGINT,"CAT ")-ORD(" ") ;
idANIM = CAST(LONGINT,"ANIM") ;
idANHD = CAST(LONGINT,"ANHD") ;
idILBM = CAST(LONGINT,"ILBM") ;
idBMHD = CAST(LONGINT,"BMHD") ;
idBODY = CAST(LONGINT,"BODY") ;
idCAMG = CAST(LONGINT,"CAMG") ;
idCLUT = CAST(LONGINT,"CLUT") ;
idCMAP = CAST(LONGINT,"CMAP") ;
idCRNG = CAST(LONGINT,"CRNG") ;
idDLTA = CAST(LONGINT,"DLTA") ;
idSHAM = CAST(LONGINT,"SHAM") ;
id8SVX = CAST(LONGINT,"8SVX") ;
idATAK = CAST(LONGINT,"ATAK") ;
idNAME = CAST(LONGINT,"NAME") ;
idRLSE = CAST(LONGINT,"RLSE") ;
idVHDR = CAST(LONGINT,"VHDR") ;
TYPE
UByte=[0..255];
Chunk=RECORD
ckID:LONGINT;
ckSize:LONGINT;
(* ckData:ARRAY [1..ckSize] OF UByte; (variable size) *)
END;
ChunkPtr=POINTER TO Chunk;
BitMapHeader=RECORD
w:CARDINAL;
h:CARDINAL;
x:INTEGER;
y:INTEGER;
nPlanes:UByte;
masking:UByte;
compression:UByte;
pad1:UByte;
transparentColor:CARDINAL;
xAspect:UByte;
yAspect:UByte;
pageWidth:INTEGER;
pageHeight:INTEGER;
END;
BitMapHeaderPtr=POINTER TO BitMapHeader;
AnimHeader=RECORD
operation:UByte;
mask:UByte;
w:CARDINAL;
h:CARDINAL;
x:INTEGER;
y:INTEGER;
absTime:LONGCARD;
relTime:LONGCARD;
interleave:UByte;
pad0:UByte;
bits:LONGCARD;
pad:ARRAY [0..15] OF UByte;
END;
AnimHeaderPtr=POINTER TO AnimHeader;
CompressionFlags=(cmpByteRun1,cf1,cf2,cf3,cf4,cf5,cf6,thisIsHAM,cf8,cf9,
cf10,cf11,cf12,cf13,cf14,cf15,cf16,cf17,cf18,cf19,cf20,
cf21,cf22,cf23,cf24,cf25,cf26,cf27,cf28,cf29,cf30,cf31);
CompressionFlagSet=SET OF CompressionFlags;
PROCEDURE OpenIFF(filename{8}:ADDRESS):ADDRESS; CODE -30;
PROCEDURE CloseIFF(ifffile{9}:ADDRESS); CODE -36;
PROCEDURE FindChunk(ifffile{9}:ADDRESS;
chunkname{0}:LONGINT):ADDRESS; CODE -42;
PROCEDURE GetBMHD(ifffile{9}:ADDRESS):BitMapHeaderPtr; CODE -48;
PROCEDURE GetColorTab(ifffile{9}:ADDRESS;
colortable{8}:ADDRESS):LONGINT; CODE -54;
PROCEDURE DecodePic(ifffile{9}:ADDRESS;
bitmap{8}:BitMapPtr):BOOLEAN; CODE -60;
PROCEDURE SaveBitMap(filename{8}:ADDRESS;
bitmap{9}:BitMapPtr;
colortable{10}:ADDRESS;
flags{0}:CompressionFlagSet):BOOLEAN; CODE -66;
PROCEDURE SaveClip(filename{8}:ADDRESS;
bitmap{9}:BitMapPtr;
coltab{10}:ADDRESS;
flags{0}:CompressionFlagSet;
xoff{1}:LONGINT;
yoff{2}:LONGINT;
width{3}:LONGINT;
height{4}:LONGINT):BOOLEAN; CODE -72;
PROCEDURE IFFError():LONGINT; CODE -78;
PROCEDURE GetViewModes(ifffile{9}:ADDRESS):ViewModeSet; CODE -84;
PROCEDURE NewOpenIFF(filename{8}:ADDRESS;type{0}:MemReqSet):ADDRESS; CODE -90;
PROCEDURE ModifyFrame(modForm{9}:ADDRESS;bm{8}:BitMapPtr):BOOLEAN; CODE -96;
END IFF.
|
