7f3865b0b3353d18365e91aafc5d0a73866e4fc4
[swftools.git] / lib / modules / swftools.c
1 /* swftools.c\r
2 \r
3    Math and matrix functions, misc tools\r
4 \r
5    Extension module for the rfxswf library.\r
6    Part of the swftools package.\r
7 \r
8    Copyright (c) 2000, 2001 Rainer Böhme <rfxswf@reflex-studio.de>\r
9  \r
10    This file is distributed under the GPL, see file COPYING for details \r
11 \r
12 */\r
13 \r
14 // Matrix & Math tools for SWF files\r
15 \r
16 #define S64 long long\r
17 SFIXED SP(SFIXED a1,SFIXED a2,SFIXED b1,SFIXED b2)\r
18 { S64 a;\r
19   a = (S64)a1*(S64)b1+(S64)a2*(S64)b2;\r
20   return (SFIXED)(a>>16);\r
21 }\r
22 SFIXED QFIX(int zaehler,int nenner) // bildet Quotient von zwei INTs in SFIXED\r
23 { S64 z = zaehler<<16;\r
24   S64 a = z/(S64)nenner;\r
25   return (SFIXED)a;\r
26 }\r
27 #undef S64\r
28 \r
29 LPMATRIX MatrixJoin(LPMATRIX d,LPMATRIX s1,LPMATRIX s2)\r
30 {        \r
31   if (!d) return NULL;\r
32   if (!s1) return (s2)?(LPMATRIX)memcpy(d,s2,sizeof(MATRIX)):NULL;\r
33   if (!s2) return (LPMATRIX)memcpy(d,s1,sizeof(MATRIX));\r
34   \r
35   d->tx = s1->tx + s2->tx;\r
36   d->ty = s1->ty + s2->ty;\r
37   \r
38   d->sx = SP(s1->sx,s1->r1,s2->sx,s2->r0);\r
39   d->sy = SP(s1->r0,s1->sy,s2->r1,s2->sy);\r
40   d->r0 = SP(s1->r0,s1->sy,s2->sx,s2->r0);\r
41   d->r1 = SP(s1->sx,s1->r1,s2->r1,s2->sy);\r
42 \r
43   //DumpMatrix(NULL,d);\r
44   \r
45   return d;\r
46 }\r
47 \r
48 LPMATRIX MatrixMapTriangle(LPMATRIX m,int dx,int dy,int x0,int y0,\r
49                                int x1,int y1,int x2,int y2)\r
50 { int dx1 = x1 - x0;\r
51   int dy1 = y1 - y0;\r
52   int dx2 = x2 - x0;\r
53   int dy2 = y2 - y0;\r
54   \r
55   if (!m) return NULL;\r
56   if ((!dx)||(!dy)) return NULL; // check DIV by zero\r
57 \r
58   m->tx = x0;\r
59   m->ty = y0;\r
60   m->sx = QFIX(dx1,dx);\r
61   m->sy = QFIX(dy2,dy);\r
62   m->r0 = QFIX(dy1,dx);\r
63   m->r1 = QFIX(dx2,dy);\r
64   \r
65   return m;\r
66 }\r
67 \r
68 U16 GetDefineID(LPTAG t)\r
69 // up to SWF 4.0\r
70 { U32 oldTagPos;\r
71   U16 id = 0;\r
72 \r
73   oldTagPos = GetTagPos(t);\r
74   SetTagPos(t,0);\r
75 \r
76   switch (GetTagID(t))\r
77   { case ST_DEFINESHAPE:\r
78     case ST_DEFINESHAPE2:\r
79     case ST_DEFINESHAPE3:\r
80     case ST_DEFINEMORPHSHAPE:\r
81     case ST_DEFINEBITS:\r
82     case ST_DEFINEBITSJPEG2:\r
83     case ST_DEFINEBITSJPEG3:\r
84     case ST_DEFINEBITSLOSSLESS:\r
85     case ST_DEFINEBITSLOSSLESS2:\r
86     case ST_DEFINEBUTTON:\r
87     case ST_DEFINEBUTTON2:\r
88     case ST_DEFINEBUTTONCXFORM:\r
89     case ST_DEFINEBUTTONSOUND:\r
90     case ST_DEFINEFONT:\r
91     case ST_DEFINEFONT2:\r
92     case ST_DEFINEFONTINFO:\r
93     case ST_DEFINETEXT:\r
94     case ST_DEFINETEXT2:\r
95     case ST_DEFINESOUND:\r
96     case ST_DEFINESPRITE:\r
97       id = GetU16(t);\r
98       break;\r
99   }\r
100 \r
101   SetTagPos(t,oldTagPos);\r
102 \r
103   return id;\r
104 }\r
105 \r
106 U16 GetPlaceID(LPTAG t)\r
107 // up to SWF 4.0\r
108 { U32 oldTagPos;\r
109   U16 id = 0;\r
110 \r
111   oldTagPos = GetTagPos(t);\r
112   SetTagPos(t,0);\r
113 \r
114   switch (GetTagID(t))\r
115   { case ST_PLACEOBJECT:\r
116     case ST_REMOVEOBJECT:\r
117     case ST_STARTSOUND:\r
118       id = GetU16(t);\r
119       break;\r
120 \r
121     case ST_PLACEOBJECT2:\r
122     { U8 flags = GetU8(t);\r
123       U16 d = GetU16(t);\r
124       id = (flags&PF_CHAR)?GetU16(t):id;\r
125     } break;\r
126 \r
127   }\r
128 \r
129   SetTagPos(t,oldTagPos);\r
130 \r
131   return id;\r
132 }\r
133 \r
134 int definingtagids[] =\r
135 {ST_DEFINESHAPE,\r
136  ST_DEFINESHAPE2,\r
137  ST_DEFINESHAPE3,\r
138  ST_DEFINEMORPHSHAPE,\r
139  ST_DEFINEFONT,\r
140  ST_DEFINEFONT2,\r
141  ST_DEFINETEXT,\r
142  ST_DEFINETEXT2,\r
143  ST_DEFINEEDITTEXT,\r
144  ST_DEFINEBITS,\r
145  ST_DEFINEBITSJPEG2,\r
146  ST_DEFINEBITSJPEG3,\r
147  ST_DEFINEBITSLOSSLESS,\r
148  ST_DEFINEBITSLOSSLESS2,\r
149  ST_DEFINEMOVIE,\r
150  ST_DEFINESPRITE,\r
151  ST_DEFINEBUTTON,\r
152  ST_DEFINEBUTTON2,\r
153  ST_DEFINESOUND,\r
154  -1\r
155 };\r
156 \r
157 // tags which may be used inside a sprite definition\r
158 int spritetagids[] =\r
159 {ST_SHOWFRAME,\r
160  ST_PLACEOBJECT,\r
161  ST_PLACEOBJECT2,\r
162  ST_REMOVEOBJECT,\r
163  ST_REMOVEOBJECT2, //?\r
164  ST_DOACTION,\r
165  ST_STARTSOUND,\r
166  ST_FRAMELABEL,\r
167  ST_SOUNDSTREAMHEAD,\r
168  ST_SOUNDSTREAMHEAD2,\r
169  ST_SOUNDSTREAMBLOCK,\r
170  ST_END,\r
171  -1\r
172 };\r
173 \r
174 char isAllowedSpriteTag (TAG*tag)\r
175 {\r
176     int id = tag->id;\r
177     int t=0;\r
178     while(spritetagids[t]>=0)\r
179     {\r
180         if(spritetagids[t] == id) \r
181             return 1;\r
182         t++;\r
183     }\r
184     return 0; \r
185 }\r
186 \r
187 char isDefiningTag (TAG*tag)\r
188 {\r
189     int id = tag->id;\r
190     int t=0;\r
191     while(definingtagids[t]>=0)\r
192     {\r
193         if(definingtagids[t] == id) \r
194             return 1;\r
195         t++;\r
196     }\r
197     return 0; \r
198 }\r
199 \r
200 U16 GetDepth(LPTAG t)\r
201 // up to SWF 4.0\r
202\r
203   U16 depth = 0;\r
204   U32 oldTagPos;\r
205   oldTagPos = GetTagPos(t);\r
206   SetTagPos(t,0);\r
207 \r
208   switch (GetTagID(t))\r
209   { case ST_PLACEOBJECT:\r
210     case ST_REMOVEOBJECT:\r
211       GetU16(t); //id\r
212       depth = GetU16(t);\r
213       break;\r
214     case ST_REMOVEOBJECT2:\r
215       depth = GetU16(t);\r
216       break;\r
217     case ST_PLACEOBJECT2:\r
218     { U8 flags = GetU8(t);\r
219       depth = GetU16(t);\r
220     } break;\r
221   }\r
222   SetTagPos(t,oldTagPos);\r
223   return depth;\r
224 }\r
225 \r
226 char* GetName(LPTAG t)\r
227 {\r
228     char* name = 0;\r
229     U32 oldTagPos;\r
230     MATRIX m;\r
231     CXFORM c;\r
232     oldTagPos = GetTagPos(t);\r
233     SetTagPos(t,0);\r
234     switch(GetTagID(t))\r
235     {\r
236         case ST_FRAMELABEL:\r
237             name = GetTagPosPtr(t);\r
238         break;\r
239         case ST_PLACEOBJECT2: {   \r
240             U8 flags = GetU8(t);\r
241             GetU16(t); //depth;\r
242             if(flags&PF_CHAR) \r
243               GetU16(t); //id\r
244             if(flags&PF_MATRIX)\r
245               GetMatrix(t, &m);\r
246             if(flags&PF_CXFORM)\r
247               GetCXForm(t, &c, 1);\r
248             if(flags&PF_RATIO)\r
249               GetU16(t);\r
250             if(flags&PF_NAME) {\r
251               ResetBitmask(t);\r
252               name = GetTagPosPtr(t);\r
253             }\r
254         }\r
255         break;\r
256     }\r
257     SetTagPos(t,oldTagPos);\r
258     return name;\r
259 }\r
260 \r