reworked compression handling logic
[swftools.git] / lib / modules / swfshape.c
1 /* swfshape.c
2
3    shape functions
4       
5    Extension module for the rfxswf library.
6    Part of the swftools package.
7
8    Copyright (c) 2001 Rainer Böhme <rfxswf@reflex-studio.de>
9  
10    This program is free software; you can redistribute it and/or modify
11    it under the terms of the GNU General Public License as published by
12    the Free Software Foundation; either version 2 of the License, or
13    (at your option) any later version.
14
15    This program is distributed in the hope that it will be useful,
16    but WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18    GNU General Public License for more details.
19
20    You should have received a copy of the GNU General Public License
21    along with this program; if not, write to the Free Software
22    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
23
24 #define SF_MOVETO       0x01
25 #define SF_FILL0        0x02
26 #define SF_FILL1        0x04
27 #define SF_LINE         0x08
28 #define SF_NEWSTYLE     0x10
29
30 void swf_ShapeFree(SHAPE * s)
31
32     if(!s)
33         return;
34     if (s->linestyle.data) rfx_free(s->linestyle.data);
35     s->linestyle.data = NULL;
36     s->linestyle.n    = 0;
37     if (s->fillstyle.data) rfx_free(s->fillstyle.data);
38     s->fillstyle.data = NULL;
39     s->fillstyle.n    = 0;
40     if (s->data) rfx_free(s->data);
41     s->data = NULL;
42     rfx_free(s);
43 }
44
45 int swf_ShapeNew(SHAPE * * s)
46
47     SHAPE * sh;
48     if (!s) return -1;
49     sh = (SHAPE *)rfx_calloc(sizeof(SHAPE)); 
50     *s = sh;
51     return 0;
52 }
53
54 int swf_GetSimpleShape(TAG * t,SHAPE * * s) // without Linestyle/Fillstyle Record
55 { SHAPE * sh;
56   int bitl, len;
57   int end;
58   U32 pos;
59   
60   if (FAILED(swf_ShapeNew(s))) return -1;
61   sh = s[0];
62
63   swf_ResetReadBits(t); 
64   sh->bits.fill = (U16)swf_GetBits(t,4);
65   sh->bits.line = (U16)swf_GetBits(t,4);
66   bitl = 0; end = 0; pos = swf_GetTagPos(t);
67
68   while (!end)
69   { int edge = swf_GetBits(t,1); bitl+=1;
70     if (edge)
71     { bitl+=1;
72       if (swf_GetBits(t,1))                 // Line
73       { U16 nbits = swf_GetBits(t,4)+2;
74         bitl+=5;
75
76         if (swf_GetBits(t,1))               // x/y Line
77         { swf_GetBits(t,nbits);
78           swf_GetBits(t,nbits);
79           bitl+=nbits*2;
80         }
81         else                            // hline/vline
82         { swf_GetBits(t,nbits+1);
83           bitl+=nbits+1;
84         }
85       }
86       else                              // Curve
87       { U16 nbits = swf_GetBits(t,4)+2;
88         bitl+=4;
89
90         swf_GetBits(t,nbits);
91         swf_GetBits(t,nbits);
92         swf_GetBits(t,nbits);
93         swf_GetBits(t,nbits);
94
95         bitl+=4*nbits;
96       }
97     }
98     else
99     { U16 flags = swf_GetBits(t,5); bitl+=5;
100       if (flags)
101       {
102         if (flags&SF_MOVETO)
103         { U16 nbits = swf_GetBits(t,5); bitl+=5;
104           swf_GetBits(t,nbits);
105           swf_GetBits(t,nbits);
106           bitl+=2*nbits;
107         }
108         
109         if (flags&SF_FILL0)
110         { swf_GetBits(t,sh->bits.fill);
111           bitl+=sh->bits.fill;
112         }
113         
114         if (flags&SF_FILL1)
115         { swf_GetBits(t,sh->bits.fill);
116           bitl+=sh->bits.fill;
117         }
118
119         if (flags&SF_LINE)
120         { swf_GetBits(t,sh->bits.line);
121           bitl+=sh->bits.line;
122         }
123
124         if (flags&SF_NEWSTYLE)
125         { fprintf(stderr,"RFXSWF: Can't process extended styles in shape.\n");
126         }
127       }
128       else end = 1;
129     }
130   }
131   swf_SetTagPos(t,pos);
132   len = (bitl+7)/8;
133   
134   if (sh->data) rfx_free(sh->data);
135   sh->data = (U8*)rfx_alloc(len);
136   
137   if (sh->data)
138   { sh->bitlen = bitl;
139     swf_GetBlock(t,sh->data,len);
140   }
141   else return -1;
142   
143   return len;
144 }
145
146 int swf_SetSimpleShape(TAG * t,SHAPE * s) // without Linestyle/Fillstyle Record
147 { int l;
148
149   if (!s) return -1;
150   l = (s->bitlen+7)/8;
151
152   if (t)
153   { swf_ResetWriteBits(t);
154
155     swf_SetBits(t,s->bits.fill,4);
156     swf_SetBits(t,s->bits.line,4);
157     swf_SetBlock(t,s->data,l);
158
159     swf_ResetWriteBits(t);
160   }
161   return l+1;
162 }
163
164 int swf_SetFillStyle(TAG * t,FILLSTYLE * f)
165 { if ((!t)||(!f)) return -1;
166   swf_SetU8(t,f->type);
167   
168   switch (f->type)
169   { case FILL_SOLID:
170       if (swf_GetTagID(t)!=ST_DEFINESHAPE3) swf_SetRGB(t,&f->color);
171       else swf_SetRGBA(t,&f->color);
172       break;
173
174     case FILL_TILED:
175     case FILL_CLIPPED:
176       swf_SetU16(t,f->id_bitmap);
177       swf_SetMatrix(t,&f->m);
178       break;
179     case FILL_LINEAR:
180     case FILL_RADIAL:
181       swf_SetMatrix(t,&f->m);
182       swf_SetGradient(t,&f->gradient,/*alpha?*/t->id==ST_DEFINESHAPE3?1:0);
183       break;
184   }
185   
186   return 0;
187 }
188
189 int swf_SetLineStyle(TAG * t,LINESTYLE * l)
190 { if ((!l)||(!t)) return -1;
191   swf_SetU16(t,l->width);
192
193   if (swf_GetTagID(t)!=ST_DEFINESHAPE3) swf_SetRGB(t,&l->color);
194   else swf_SetRGBA(t,&l->color);
195   
196   return 0;
197 }
198
199 int swf_SetShapeStyleCount(TAG * t,U16 n)
200 { if (n>254)
201   { swf_SetU8(t,0xff);
202     swf_SetU16(t,n);
203     return 3;
204   }
205   else
206   { swf_SetU8(t,(U8)n);
207     return 1;
208   }
209 }
210
211 int swf_SetShapeStyles(TAG * t,SHAPE * s)
212 { int i,l;
213   if (!s) return -1;
214
215   l = 0;
216   l += swf_SetShapeStyleCount(t,s->fillstyle.n);
217
218   for (i=0;i<s->fillstyle.n;i++)
219     l+=swf_SetFillStyle(t,&s->fillstyle.data[i]);
220
221   l += swf_SetShapeStyleCount(t,s->linestyle.n);
222
223   for (i=0;i<s->linestyle.n;i++)
224     l+=swf_SetLineStyle(t,&s->linestyle.data[i]);
225
226   return l;
227 }
228
229 int swf_ShapeCountBits(SHAPE * s,U8 * fbits,U8 * lbits)
230 { if (!s) return -1;
231   s->bits.fill = swf_CountUBits(s->fillstyle.n, 0);
232   s->bits.line = swf_CountUBits(s->linestyle.n, 0);
233   if (fbits) fbits[0] = s->bits.fill;
234   if (lbits) lbits[0] = s->bits.line;
235   return 0;    
236 }
237
238 int swf_SetShapeBits(TAG * t,SHAPE * s)
239 { if ((!t)||(!s)) return -1;
240   swf_ResetWriteBits(t);
241   swf_SetBits(t,s->bits.fill,4);
242   swf_SetBits(t,s->bits.line,4);
243   return 0;
244 }
245
246 int swf_SetShapeHeader(TAG * t,SHAPE * s)
247 { int res;
248   res = swf_SetShapeStyles(t,s);
249   if (res>=0) res = swf_ShapeCountBits(s,NULL,NULL);
250   if (res>=0) res = swf_SetShapeBits(t,s);
251   return res;
252 }
253
254 int swf_ShapeAddFillStyle(SHAPE * s,U8 type,MATRIX * m,RGBA * color,U16 id_bitmap, GRADIENT*gradient)
255 { RGBA def_c;
256   MATRIX def_m;    
257   GRADIENT def_g;
258
259   // handle defaults
260   
261   if (!s) return -1;
262   if (!color)
263   { color = &def_c;
264     def_c.a = 0xff;
265     def_c.r = def_c.g = def_c.b = 0;
266   }
267   if (!m)
268   { m = &def_m;
269     swf_GetMatrix(NULL,m);
270   }
271   if(!gradient)
272   {
273     gradient = &def_g;
274     swf_GetGradient(NULL, gradient, 1);
275   }
276
277   // handle memory
278   
279   if (s->fillstyle.data)
280   { FILLSTYLE * xnew = (FILLSTYLE *)rfx_realloc(s->fillstyle.data,(s->fillstyle.n+1)*sizeof(FILLSTYLE));
281     if (!xnew) return -1;
282     s->fillstyle.data = xnew;
283   }
284   else
285   { s->fillstyle.data = (FILLSTYLE *)rfx_alloc(sizeof(FILLSTYLE));
286     s->fillstyle.n = 0;
287     if (!s->fillstyle.data) return -1;
288   }
289
290   // set fillstyle
291   
292   s->fillstyle.data[s->fillstyle.n].type = type; 
293   s->fillstyle.data[s->fillstyle.n].id_bitmap = id_bitmap;
294   memcpy(&s->fillstyle.data[s->fillstyle.n].m,m,sizeof(MATRIX));
295   memcpy(&s->fillstyle.data[s->fillstyle.n].color,color,sizeof(RGBA));
296   memcpy(&s->fillstyle.data[s->fillstyle.n].gradient,gradient,sizeof(GRADIENT));
297           
298   return (++s->fillstyle.n);
299 }
300 int swf_ShapeAddFillStyle2(SHAPE * s,FILLSTYLE*fs)
301 {
302     return swf_ShapeAddFillStyle(s, fs->type, &fs->m, &fs->color, fs->id_bitmap, &fs->gradient);
303 }
304
305 int swf_ShapeAddSolidFillStyle(SHAPE * s,RGBA * color)
306 { return swf_ShapeAddFillStyle(s,FILL_SOLID,NULL,color,0,0);
307 }
308
309 int swf_ShapeAddBitmapFillStyle(SHAPE * s,MATRIX * m,U16 id_bitmap,int clip)
310 { return swf_ShapeAddFillStyle(s,clip?FILL_CLIPPED:FILL_TILED,m,NULL,id_bitmap,0);
311 }
312
313 int swf_ShapeAddGradientFillStyle(SHAPE * s,MATRIX * m,GRADIENT* gradient,int radial)
314 { return swf_ShapeAddFillStyle(s,radial?FILL_RADIAL:FILL_LINEAR,m,NULL,0,gradient);
315 }
316
317 int swf_ShapeAddLineStyle(SHAPE * s,U16 width,RGBA * color)
318 { RGBA def;
319   if (!s) return -1;
320   if (!color)
321   { color = &def;
322     def.a = 0xff;
323     def.r = def.g = def.b = 0; 
324   }
325   if (s->linestyle.data)
326   { LINESTYLE * xnew = (LINESTYLE *)rfx_realloc(s->linestyle.data,(s->linestyle.n+1)*sizeof(LINESTYLE));
327     if (!xnew) return -1;
328     s->linestyle.data = xnew;
329   }
330   else
331   { s->linestyle.data = (LINESTYLE *)rfx_alloc(sizeof(LINESTYLE));
332     s->linestyle.n = 0;
333     if (!s->linestyle.data) return -1;
334   }
335   
336   s->linestyle.data[s->linestyle.n].width = width;
337   memcpy(&s->linestyle.data[s->linestyle.n].color,color,sizeof(RGBA));
338
339   return (++s->linestyle.n);
340 }
341
342 int swf_ShapeSetMove(TAG * t,SHAPE * s,S32 x,S32 y)
343 { U8 b;
344   if (!t) return -1;
345   swf_SetBits(t,0,1);
346   swf_SetBits(t,SF_MOVETO,5);
347   
348   b = swf_CountBits(x,0);
349   b = swf_CountBits(y,b);
350   
351   swf_SetBits(t,b,5);
352   swf_SetBits(t,x,b);
353   swf_SetBits(t,y,b);
354
355   return 0;
356 }
357
358 int swf_ShapeSetStyle(TAG * t,SHAPE * s,int line,int fill0,int fill1)
359 { if ((!t)||(!s)) return -1;
360     
361   swf_SetBits(t,0,1);
362   swf_SetBits(t,(line?SF_LINE:0)|(fill0?SF_FILL0:0)|(fill1?SF_FILL1:0),5);
363
364   if (fill0) swf_SetBits(t,fill0,s->bits.fill);
365   if (fill1) swf_SetBits(t,fill1,s->bits.fill);
366   if (line)  swf_SetBits(t,line ,s->bits.line);
367   
368   return 0;
369 }
370
371 /* TODO: sometimes we want to set fillstyle 0, as that's the empty fill
372    used for line drawings. At the moment, we can't, as 0 fill be considered
373    nonexistent and therefore not set.
374    these defines are a workaround (they also reduce the maximal number of
375    fill styles to 32768)
376  */
377 #define UNDEFINED_COORD 0x7fffffff
378
379 int swf_ShapeSetAll(TAG * t,SHAPE * s,S32 x,S32 y,int line,int fill0,int fill1)
380 { U8 b;
381   U8 hasmove = 0;
382   if ((!t)||(!s)) return -1;
383
384   if(x!=UNDEFINED_COORD || y!=UNDEFINED_COORD)
385       hasmove=1;
386
387   swf_SetBits(t,0,1);
388   swf_SetBits(t,(hasmove?SF_MOVETO:0)|(line?SF_LINE:0)|(fill0?SF_FILL0:0)|(fill1?SF_FILL1:0),5);
389
390   if(hasmove) {
391     b = swf_CountBits(x,0);
392     b = swf_CountBits(y,b);
393     swf_SetBits(t,b,5);
394     swf_SetBits(t,x,b);
395     swf_SetBits(t,y,b);
396   }
397
398   if (fill0) swf_SetBits(t,fill0,s->bits.fill);
399   if (fill1) swf_SetBits(t,fill1,s->bits.fill);
400   if (line)  swf_SetBits(t,line ,s->bits.line);
401   
402   return 0;
403 }
404
405 int swf_ShapeSetEnd(TAG * t)
406 { if (!t) return -1;
407   swf_SetBits(t,0,6);
408   swf_ResetWriteBits(t);
409   return 0;
410 }
411
412 int swf_ShapeSetLine(TAG * t,SHAPE * s,S32 x,S32 y)
413
414     U8 b;
415     if (!t) return -1;
416    
417     b = swf_CountBits(x,2);
418     b = swf_CountBits(y,b);
419     if (b<2) b=2;
420     if(b >= 18) {
421         if(b >= 18 + 6) {
422             /* do not split into more than 64 segments. If the line is *that* long, something's broken */
423             fprintf(stderr, "Warning: Line to %.2f,%.2f is too long\n", (double)x,(double)y);
424             return -1;
425         } else {
426             /* split line */
427             int x1,y1,x2,y2;
428             if(x>=0) { x1 = x/2;x2 = (x+1)/2;} 
429             else     { x1 = x/2;x2 = (x-1)/2;}
430             if(y>=0) { y1 = y/2;y2 = (y+1)/2;} 
431             else     { y1 = y/2;y2 = (y-1)/2;}
432             swf_ShapeSetLine(t, s, x1,y1);
433             swf_ShapeSetLine(t, s, x2,y2);
434             return 0;
435         }
436     }
437
438     if(x!=0 && y!=0) { //(!s)||((x!=0)&&(y!=0)))
439         swf_SetBits(t,3,2); // Straight Edge
440         swf_SetBits(t, b-2, 4); //Number of Bits in x/y
441         swf_SetBits(t,1,1); // Diagonal
442         swf_SetBits(t,x,b);
443         swf_SetBits(t,y,b);
444     } else if (x==0) {
445         swf_SetBits(t,3,2); // Straight Edge
446         swf_SetBits(t, b-2, 4); //Number of Bits in y
447         swf_SetBits(t,1,2); // Vertical
448         swf_SetBits(t,y,b);
449     } else {
450         swf_SetBits(t,3,2); // Straight Edge
451         swf_SetBits(t, b-2, 4); //Number of Bits in x
452         swf_SetBits(t,0,2); // Horizontal
453         swf_SetBits(t,x,b);
454     }
455     return 0;
456 }
457
458 int swf_ShapeSetCurve(TAG * t,SHAPE * s,S32 x,S32 y,S32 ax,S32 ay)
459
460     U8 b;
461     if (!t) return -1;
462
463     b = swf_CountBits(ax,2);
464     b = swf_CountBits(ay,b);
465     b = swf_CountBits(x,b);
466     b = swf_CountBits(y,b);
467
468     if(b >= 18) {
469           fprintf(stderr, "Bit overflow in swf_ShapeSetCurve- %d (%d,%d,%d,%d)\n", b, ax,ay,x,y);
470           b = 17;
471     }
472
473     swf_SetBits(t,2,2);
474     swf_SetBits(t,b-2,4);
475     swf_SetBits(t,x,b);
476     swf_SetBits(t,y,b);
477     swf_SetBits(t,ax,b);
478     swf_SetBits(t,ay,b);
479     return 0;
480 }
481
482 int swf_ShapeSetCircle(TAG * t,SHAPE * s,S32 x,S32 y,S32 rx,S32 ry)
483 { double C1 = 0.2930;    
484   double C2 = 0.4140;   
485   double begin = 0.7070; 
486
487   if (!t) return -1;
488   
489   swf_ShapeSetMove(t,s,x+begin*rx,y+begin*ry);
490   swf_ShapeSetCurve(t,s, -C1*rx,  C1*ry, -C2*rx,      0);
491   swf_ShapeSetCurve(t,s, -C2*rx,      0, -C1*rx, -C1*ry);
492   swf_ShapeSetCurve(t,s, -C1*rx, -C1*ry,      0, -C2*ry);
493   swf_ShapeSetCurve(t,s,      0, -C2*ry,  C1*rx, -C1*ry);
494   swf_ShapeSetCurve(t,s,  C1*rx, -C1*ry,  C2*rx,      0);
495   swf_ShapeSetCurve(t,s,  C2*rx,      0,  C1*rx,  C1*ry);
496   swf_ShapeSetCurve(t,s,  C1*rx,  C1*ry,      0,  C2*ry);
497   swf_ShapeSetCurve(t,s,      0,  C2*ry, -C1*rx,  C1*ry);
498   
499   return 0;
500 }
501
502 void dummycallback1(TAG*tag, int x, void*y)
503 {
504 }
505
506 // from swftools.c:
507 void enumerateUsedIDs_styles(TAG * tag, void (*callback)(TAG*, int, void*), void*callback_data, int num, int morph);
508
509 static int parseFillStyleArray(TAG*tag, SHAPE2*shape)
510 {
511     U16 count;
512     int t;
513     int num=0;
514     int fillstylestart = shape->numfillstyles;
515     int linestylestart = shape->numlinestyles;
516
517     if(tag->id == ST_DEFINESHAPE)
518         num = 1;
519     else if(tag->id == ST_DEFINESHAPE2)
520         num = 2;
521     else if(tag->id == ST_DEFINESHAPE3)
522         num = 3;
523     else if(tag->id == ST_DEFINESHAPE4)
524         num = 4;
525
526     count = swf_GetU8(tag);
527     if(count == 0xff && num>1) // defineshape2,3 only
528         count = swf_GetU16(tag);
529
530     shape->numfillstyles += count;
531     if(shape->numfillstyles) {
532         shape->fillstyles = (FILLSTYLE*)rfx_realloc(shape->fillstyles, sizeof(FILLSTYLE)*shape->numfillstyles);
533
534         for(t=fillstylestart;t<shape->numfillstyles;t++)
535         {
536             int type;
537             FILLSTYLE*dest = &shape->fillstyles[t];
538             type = swf_GetU8(tag); //type
539             shape->fillstyles[t].type = type;
540             if(type == 0) {
541                 /* plain color */
542                 if(num >= 3)
543                     swf_GetRGBA(tag, &dest->color);
544                 else 
545                     swf_GetRGB(tag, &dest->color);
546             }
547             else if(type == 0x10 || type == 0x11 || type == 0x12 || type == 0x13)
548             {
549                 /* linear/radial gradient fill */
550                 swf_ResetReadBits(tag);
551                 swf_GetMatrix(tag, &dest->m);
552                 swf_ResetReadBits(tag);
553                 swf_GetGradient(tag, &dest->gradient, num>=3?1:0);
554                 if(type == 0x13)
555                     swf_GetU8(tag);
556             }
557             else if(type == 0x40 || type == 0x41 || type == 0x42 || type == 0x43)
558             {
559                 /* bitmap fill */
560                 swf_ResetReadBits(tag);
561                 dest->id_bitmap = swf_GetU16(tag); //id
562                 swf_ResetReadBits(tag); //?
563                 swf_GetMatrix(tag, &dest->m);
564             }
565             else {
566                 fprintf(stderr, "rfxswf:swftools.c Unknown fillstyle:0x%02x\n",type);
567             }
568         }
569     }
570
571     swf_ResetReadBits(tag);
572     count = swf_GetU8(tag); // line style array
573     if(count == 0xff)
574         count = swf_GetU16(tag);
575
576     shape->numlinestyles += count;
577     if(count) {
578         shape->linestyles = (LINESTYLE*)rfx_realloc(shape->linestyles, sizeof(LINESTYLE)*shape->numlinestyles);
579         /* TODO: should we start with 1 and insert a correct definition of the
580            "built in" linestyle 0? */
581         for(t=linestylestart;t<shape->numlinestyles;t++) 
582         {
583             shape->linestyles[t].width = swf_GetU16(tag);
584
585             if(num >= 4) {
586                 U16 flags = swf_GetU16(tag);
587                 if(flags & 0x2000)
588                     swf_GetU16(tag); // miter limit
589                 if(flags & 0x0800) {
590                     fprintf(stderr, "Filled strokes parsing not yet supported\n");
591                     return 0;
592                 }
593             }
594
595             if(num >= 3)
596                 swf_GetRGBA(tag, &shape->linestyles[t].color);
597             else
598                 swf_GetRGB(tag, &shape->linestyles[t].color);
599         }
600     }
601     return 1;
602 }
603
604
605 /* todo: merge this with swf_GetSimpleShape */
606 static SHAPELINE* swf_ParseShapeData(U8*data, int bits, int fillbits, int linebits, int version, SHAPE2*shape2)
607 {
608     SHAPELINE _lines;
609     SHAPELINE*lines = &_lines;
610
611     TAG _tag;
612     TAG* tag = &_tag;
613     int fill0 = 0;
614     int fill1 = 0;
615     int line = 0;
616     int x=0,y=0;
617     int linestyleadd=0;
618     int fillstyleadd=0;
619     
620     memset(tag, 0, sizeof(TAG));
621     tag->data = data;
622     tag->len = tag->memsize = (bits+7)/8;
623     tag->pos = 0;
624     tag->id = version==1?ST_DEFINESHAPE:(version==2?ST_DEFINESHAPE2:ST_DEFINESHAPE3);
625
626     lines->next = 0;
627     while(1) {
628         int flags;
629         flags = swf_GetBits(tag, 1);
630         if(!flags) { //style change
631             flags = swf_GetBits(tag, 5);
632             if(!flags)
633                 break;
634             if(flags&1) { //move
635                 int n = swf_GetBits(tag, 5); 
636                 x = swf_GetSBits(tag, n); //x
637                 y = swf_GetSBits(tag, n); //y
638             }
639             if(flags&2)
640                 fill0 = swf_GetBits(tag, fillbits) + fillstyleadd; 
641             if(flags&4)
642                 fill1 = swf_GetBits(tag, fillbits) + fillstyleadd; 
643             if(flags&8)
644                 line = swf_GetBits(tag, linebits) + linestyleadd; 
645             if(flags&16) {
646                 if(!shape2) {
647                     fprintf(stderr, "rfxswf: Error: Additional fillstyles not supported\n");fflush(stderr);
648                     enumerateUsedIDs_styles(tag, dummycallback1, 0, version, 0);
649                 } else {
650                     linestyleadd = shape2->numlinestyles;
651                     fillstyleadd = shape2->numfillstyles;
652                     if(!parseFillStyleArray(tag, shape2))
653                         return 0;
654                 }
655                 fillbits = swf_GetBits(tag, 4);
656                 linebits = swf_GetBits(tag, 4);
657             }
658             if(flags&1) { //move
659                 lines->next = (SHAPELINE*)rfx_alloc(sizeof(SHAPELINE));
660                 lines = lines->next;
661                 lines->type = moveTo;
662                 lines->x = x; 
663                 lines->y = y; 
664                 lines->sx = lines->sy = 0;
665                 lines->fillstyle0 = fill0;
666                 lines->fillstyle1 = fill1;
667                 lines->linestyle = line;
668                 lines->next = 0;
669             }
670         } else {
671             flags = swf_GetBits(tag, 1);
672             if(flags) { //straight edge
673                 int n = swf_GetBits(tag, 4) + 2;
674                 if(swf_GetBits(tag, 1)) { //line flag
675                     x += swf_GetSBits(tag, n); //delta x
676                     y += swf_GetSBits(tag, n); //delta y
677                 } else {
678                     int v=swf_GetBits(tag, 1);
679                     int d;
680                     d = swf_GetSBits(tag, n); //vert/horz
681                     if(v) y += d;
682                     else  x += d;
683                 }
684                 lines->next = (SHAPELINE*)rfx_alloc(sizeof(SHAPELINE));
685                 lines = lines->next;
686                 lines->type = lineTo;
687                 lines->x = x; 
688                 lines->y = y; 
689                 lines->sx = lines->sy = 0;
690                 lines->fillstyle0 = fill0;
691                 lines->fillstyle1 = fill1;
692                 lines->linestyle = line;
693                 lines->next = 0;
694             } else { //curved edge
695                 int n = swf_GetBits(tag, 4) + 2;
696                 int x1,y1;
697                 x += swf_GetSBits(tag, n);
698                 y += swf_GetSBits(tag, n);
699                 x1 = x;
700                 y1 = y;
701                 x += swf_GetSBits(tag, n);
702                 y += swf_GetSBits(tag, n);
703
704                 lines->next = (SHAPELINE*)rfx_alloc(sizeof(SHAPELINE));
705                 lines = lines->next;
706                 lines->type = splineTo;
707                 lines->sx = x1; 
708                 lines->sy = y1; 
709                 lines->x = x; 
710                 lines->y = y; 
711                 lines->fillstyle0 = fill0;
712                 lines->fillstyle1 = fill1;
713                 lines->linestyle = line;
714                 lines->next = 0;
715             }
716         }
717     }
718     return _lines.next;
719 }
720
721 SRECT swf_GetShapeBoundingBox(SHAPE2*shape2)
722 {
723     SRECT r;
724     SHAPELINE*l = shape2->lines;
725     int lastx=0,lasty=0;
726     int valid = 0;
727     r.xmin = r.ymin = SCOORD_MAX;
728     r.xmax = r.ymax = SCOORD_MIN;
729
730     while(l) {
731         int t1;
732         if(l->linestyle>0) {
733             t1 = shape2->linestyles[l->linestyle - 1].width*3/2;
734         } else {
735             t1 = 0;
736         }
737
738         if(l->type == lineTo || l->type == splineTo)
739         {
740             valid = 1;
741             if(lastx - t1 < r.xmin) r.xmin = lastx - t1;
742             if(lasty - t1 < r.ymin) r.ymin = lasty - t1;
743             if(lastx + t1 > r.xmax) r.xmax = lastx + t1;
744             if(lasty + t1 > r.ymax) r.ymax = lasty + t1;
745             if(l->x - t1 < r.xmin) r.xmin = l->x - t1;
746             if(l->y - t1 < r.ymin) r.ymin = l->y - t1;
747             if(l->x + t1 > r.xmax) r.xmax = l->x + t1;
748             if(l->y + t1 > r.ymax) r.ymax = l->y + t1;
749             if(l->type == splineTo) {
750                 if(l->sx - t1 < r.xmin) r.xmin = l->sx - t1;
751                 if(l->sy - t1 < r.ymin) r.ymin = l->sy - t1;
752                 if(l->sx + t1 > r.xmax) r.xmax = l->sx + t1;
753                 if(l->sy + t1 > r.ymax) r.ymax = l->sy + t1;
754             }
755         }
756         lastx = l->x;
757         lasty = l->y;
758         l = l->next;
759     }
760     if(!valid) memset(&r, 0, sizeof(SRECT));
761     return r;
762 }
763
764 void swf_Shape2Free(SHAPE2 * s)
765 {
766     SHAPELINE*line = s->lines;
767     s->lines = 0;
768     while(line) {
769         SHAPELINE*next = line->next;
770         line->next = 0;
771         rfx_free(line);
772         line = next;
773     }
774
775     if(s->linestyles) {
776         rfx_free(s->linestyles);
777         s->linestyles = 0;
778     }
779     if(s->fillstyles) {
780         rfx_free(s->fillstyles);
781         s->fillstyles = 0;
782     }
783     if(s->bbox) {
784         rfx_free(s->bbox);
785         s->bbox = 0;
786     }
787 }
788
789 SHAPE2* swf_Shape2Clone(SHAPE2 * s)
790 {
791     SHAPELINE*line = s->lines;
792     SHAPELINE*prev = 0;
793     SHAPE2*s2 = (SHAPE2*)rfx_alloc(sizeof(SHAPE2));
794     memcpy(s2,s,sizeof(SHAPE2));
795     s2->linestyles = (LINESTYLE*)rfx_alloc(sizeof(LINESTYLE)*s->numlinestyles);
796     memcpy(s2->linestyles, s->linestyles, sizeof(LINESTYLE)*s->numlinestyles);
797     s2->fillstyles = (FILLSTYLE*)rfx_alloc(sizeof(FILLSTYLE)*s->numfillstyles);
798     memcpy(s2->fillstyles, s->fillstyles, sizeof(FILLSTYLE)*s->numfillstyles);
799
800     while(line) {
801         SHAPELINE*line2 = (SHAPELINE*)rfx_alloc(sizeof(SHAPELINE));
802         memcpy(line2, line, sizeof(SHAPELINE));
803         line2->next = 0;
804         if(prev)
805             prev->next = line2;
806         else
807             s2->lines = line2;
808         prev = line2;
809         line = line->next;
810     }
811     if(s->bbox) {
812         s2->bbox = (SRECT*)rfx_alloc(sizeof(SRECT));
813         memcpy(s2->bbox, s->bbox, sizeof(SRECT));
814     }
815     return s2;
816 }
817
818 SHAPE2* swf_ShapeToShape2(SHAPE*shape) {
819
820     SHAPE2*shape2 = (SHAPE2*)rfx_calloc(sizeof(SHAPE2));
821     
822     shape2->numlinestyles = shape->linestyle.n;
823     if(shape2->numlinestyles) {
824         shape2->linestyles = (LINESTYLE*)rfx_alloc(sizeof(LINESTYLE)*shape->linestyle.n);
825         memcpy(shape2->linestyles, shape->linestyle.data, sizeof(LINESTYLE)*shape->linestyle.n);
826     }
827     
828     shape2->numfillstyles = shape->fillstyle.n;
829     if(shape2->numfillstyles) {
830         shape2->fillstyles = (FILLSTYLE*)rfx_alloc(sizeof(FILLSTYLE)*shape->fillstyle.n);
831         memcpy(shape2->fillstyles, shape->fillstyle.data, sizeof(FILLSTYLE)*shape->fillstyle.n);
832     }
833
834     shape2->lines = swf_ParseShapeData(shape->data, shape->bitlen, shape->bits.fill, shape->bits.line, 1, 0);
835     shape2->bbox = 0;
836     return shape2;
837 };
838
839 void swf_ShapeSetBitmapRect(TAG*tag, U16 gfxid, int width, int height)
840 {
841     SHAPE*shape;
842     MATRIX m;
843     RGBA rgb;
844     SRECT r;
845     int lines = 0;
846     int ls=0,fs;
847     swf_ShapeNew(&shape);
848     rgb.b = rgb.g = rgb.r = 0xff;
849     if(lines)
850         ls = swf_ShapeAddLineStyle(shape,20,&rgb);  
851     swf_GetMatrix(NULL,&m);
852     m.sx = 20*65536;
853     m.sy = 20*65536;
854
855     fs = swf_ShapeAddBitmapFillStyle(shape,&m,gfxid,0);
856     r.xmin = 0;
857     r.ymin = 0;
858     r.xmax = width*20;
859     r.ymax = height*20;
860     swf_SetRect(tag,&r);
861
862     swf_SetShapeStyles(tag,shape);
863     swf_ShapeCountBits(shape,NULL,NULL);
864     swf_SetShapeBits(tag,shape);
865
866     swf_ShapeSetAll(tag,shape,0,0,lines?ls:0,fs,0);
867
868     swf_ShapeSetLine(tag,shape,width*20,0);
869     swf_ShapeSetLine(tag,shape,0,height*20);
870     swf_ShapeSetLine(tag,shape,-width*20,0);
871     swf_ShapeSetLine(tag,shape,0,-height*20);
872     swf_ShapeSetEnd(tag);
873     swf_ShapeFree(shape);
874 }
875
876 void swf_Shape2ToShape(SHAPE2*shape2, SHAPE*shape)
877 {
878     TAG*tag = swf_InsertTag(0,0);
879     SHAPELINE*l;
880     int newx=0,newy=0,lastx=0,lasty=0,oldls=0,oldfs0=0,oldfs1=0;
881
882     memset(shape, 0, sizeof(SHAPE));
883
884     shape->linestyle.n = shape2->numlinestyles;
885     shape->linestyle.data = (LINESTYLE*)rfx_alloc(sizeof(LINESTYLE)*shape->linestyle.n);
886     memcpy(shape->linestyle.data, shape2->linestyles, sizeof(LINESTYLE)*shape->linestyle.n);
887     
888     shape->fillstyle.n =  shape2->numfillstyles;
889     shape->fillstyle.data = (FILLSTYLE*)rfx_alloc(sizeof(FILLSTYLE)*shape->fillstyle.n);
890     memcpy(shape->fillstyle.data, shape2->fillstyles, sizeof(FILLSTYLE)*shape->fillstyle.n);
891
892     swf_ShapeCountBits(shape,NULL,NULL);
893
894     l = shape2->lines;
895
896     while(l) {
897         int ls=0,fs0=0,fs1=0;
898
899         if(l->type != moveTo) {
900             if(oldls != l->linestyle) {oldls = ls = l->linestyle;if(!ls) ls=0x8000;}
901             if(oldfs0 != l->fillstyle0) {oldfs0 = fs0 = l->fillstyle0;if(!fs0) fs0=0x8000;}
902             if(oldfs1 != l->fillstyle1) {oldfs1 = fs1 = l->fillstyle1;if(!fs1) fs1=0x8000;}
903
904             if(ls || fs0 || fs1 || newx!=0x7fffffff || newy!=0x7fffffff) {
905                 swf_ShapeSetAll(tag,shape,newx,newy,ls,fs0,fs1);
906                 newx = 0x7fffffff;
907                 newy = 0x7fffffff;
908             }
909         }
910
911         if(l->type == lineTo) {
912             swf_ShapeSetLine(tag,shape,l->x-lastx,l->y-lasty);
913         } else if(l->type == splineTo) {
914             swf_ShapeSetCurve(tag,shape, l->sx-lastx,l->sy-lasty, l->x-l->sx,l->y-l->sy);
915         }
916         if(l->type == moveTo) {
917             newx = l->x;
918             newy = l->y;
919         }
920
921         lastx = l->x;
922         lasty = l->y;
923         l = l->next;
924     }
925     swf_ShapeSetEnd(tag);
926     shape->data = tag->data;
927     shape->bitlen = tag->len*8;
928     free(tag);
929 }
930
931 void swf_SetShape2(TAG*tag, SHAPE2*shape2)
932 {
933     SHAPE shape;
934     swf_Shape2ToShape(shape2, &shape);
935
936     swf_SetRect(tag,shape2->bbox);
937     swf_SetShapeStyles(tag, &shape);
938     //swf_ShapeCountBits(&shape,NULL,NULL); // done in swf_Shape2ToShape()
939     swf_SetShapeBits(tag,&shape);
940
941     swf_SetBlock(tag, shape.data, (shape.bitlen+7)/8);
942 }
943
944 void swf_ParseDefineShape(TAG*tag, SHAPE2*shape)
945 {
946     int num = 0, id;
947     U16 fill,line;
948     SHAPELINE*l;
949     if(tag->id == ST_DEFINESHAPE)
950         num = 1;
951     else if(tag->id == ST_DEFINESHAPE2)
952         num = 2;
953     else if(tag->id == ST_DEFINESHAPE3)
954         num = 3;
955     else if(tag->id == ST_DEFINESHAPE4)
956         num = 4;
957     else {
958         fprintf(stderr, "parseDefineShape must be called with a shape tag");
959     }
960     swf_SetTagPos(tag, 0);
961
962     id = swf_GetU16(tag); //id
963     memset(shape, 0, sizeof(SHAPE2));
964     shape->bbox = (SRECT*)rfx_alloc(sizeof(SRECT));
965     swf_GetRect(tag, shape->bbox);
966     if(num>=4) {
967         SRECT r2;
968         swf_ResetReadBits(tag);
969         swf_GetRect(tag, &r2); // edge bounds
970         U8 flags = swf_GetU8(tag); // flags, &1: contains scaling stroke, &2: contains non-scaling stroke
971     }
972
973     if(!parseFillStyleArray(tag, shape)) {
974         return;
975     }
976
977     swf_ResetReadBits(tag); 
978     fill = (U16)swf_GetBits(tag,4);
979     line = (U16)swf_GetBits(tag,4);
980
981     shape->lines = swf_ParseShapeData(&tag->data[tag->pos], (tag->len - tag->pos)*8, fill, line, 
982             tag->id == ST_DEFINESHAPE?1:(tag->id==ST_DEFINESHAPE2?2:3), shape);
983
984     l = shape->lines;
985 }
986
987 static void free_lines(SHAPELINE* lines)
988 {
989     if (lines->next)
990         free_lines(lines->next);
991     free(lines);
992 }
993
994 void swf_RecodeShapeData(U8*data, int bitlen, int in_bits_fill, int in_bits_line, 
995                          U8**destdata, U32*destbitlen, int out_bits_fill, int out_bits_line)
996 {
997     SHAPE2 s2;
998     SHAPE s;
999     SHAPELINE*line;
1000     memset(&s2, 0, sizeof(s2));
1001     s2.lines = swf_ParseShapeData(data, bitlen, in_bits_fill, in_bits_line, 1, 0);
1002     s2.numfillstyles = out_bits_fill?1<<(out_bits_fill-1):0;
1003     s2.numlinestyles = out_bits_line?1<<(out_bits_line-1):0;
1004     s2.fillstyles = (FILLSTYLE*)rfx_calloc(sizeof(FILLSTYLE)*s2.numfillstyles);
1005     s2.linestyles = (LINESTYLE*)rfx_calloc(sizeof(LINESTYLE)*s2.numlinestyles);
1006
1007     line = s2.lines;
1008     while(line) {
1009         if(line->fillstyle0 > s2.numfillstyles) line->fillstyle0 = 0;
1010         if(line->fillstyle1 > s2.numfillstyles) line->fillstyle1 = 0;
1011         if(line->linestyle > s2.numlinestyles) line->linestyle = 0;
1012         line = line->next;
1013     }
1014
1015     swf_Shape2ToShape(&s2,&s);
1016
1017     free_lines(s2.lines);
1018     free(s2.fillstyles);
1019     free(s2.linestyles);
1020     free(s.fillstyle.data);
1021     free(s.linestyle.data);
1022     *destdata = s.data;
1023     *destbitlen = s.bitlen;
1024 }
1025