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