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