-/* swfshape.c\r
-\r
- shape functions\r
- \r
- Extension module for the rfxswf library.\r
- Part of the swftools package.\r
-\r
- Copyright (c) 2001 Rainer Böhme <rfxswf@reflex-studio.de>\r
- \r
- This file is distributed under the GPL, see file COPYING for details \r
-\r
-*/\r
-\r
-#define SF_MOVETO 0x01\r
-#define SF_FILL0 0x02\r
-#define SF_FILL1 0x04\r
-#define SF_LINE 0x08\r
-#define SF_NEWSTYLE 0x10\r
-\r
-#define FILL_SOLID 0x00\r
-#define FILL_LINEAR 0x10 // Gradient\r
-#define FILL_RADIAL 0x12\r
-#define FILL_TILED 0x40 // Bitmap\r
-#define FILL_CLIPPED 0x41\r
-\r
-void ShapeFree(LPSHAPE s)\r
-{ if (s)\r
- { if (s->linestyle.data) free(s->linestyle.data);\r
- s->linestyle.data = NULL;\r
- s->linestyle.n = 0;\r
- if (s->fillstyle.data) free(s->fillstyle.data);\r
- s->fillstyle.data = NULL;\r
- s->fillstyle.n = 0;\r
- if (s->data) free(s->data);\r
- s->data = NULL;\r
- }\r
- free(s);\r
-}\r
-\r
-int NewShape(LPSHAPE * s)\r
-{ LPSHAPE sh;\r
- if (!s) return -1;\r
- sh = (LPSHAPE)malloc(sizeof(SHAPE)); s[0] = sh;\r
- if (sh) memset(sh,0x00,sizeof(SHAPE));\r
- return sh?0:-1;\r
-}\r
-\r
-int GetSimpleShape(LPTAG t,LPSHAPE * s) // without Linestyle/Fillstyle Record\r
-{ LPSHAPE sh;\r
- int bitl, len;\r
- int end;\r
- U32 pos;\r
- \r
- if (FAILED(NewShape(s))) return -1;\r
- sh = s[0];\r
-\r
- ResetBitmask(t); \r
- sh->bits.fill = (U16)GetBits(t,4);\r
- sh->bits.line = (U16)GetBits(t,4);\r
- bitl = 0; end = 0; pos = GetTagPos(t);\r
-\r
- while (!end)\r
- { int edge = GetBits(t,1); bitl+=1;\r
- if (edge)\r
- { bitl+=1;\r
- if (GetBits(t,1)) // Line\r
- { U16 nbits = GetBits(t,4)+2;\r
- bitl+=5;\r
-\r
- if (GetBits(t,1)) // x/y Line\r
- { GetBits(t,nbits);\r
- GetBits(t,nbits);\r
- bitl+=nbits*2;\r
- }\r
- else // hline/vline\r
- { GetBits(t,nbits+1);\r
- bitl+=nbits+1;\r
- }\r
- }\r
- else // Curve\r
- { U16 nbits = GetBits(t,4)+2;\r
- bitl+=4;\r
-\r
- GetBits(t,nbits);\r
- GetBits(t,nbits);\r
- GetBits(t,nbits);\r
- GetBits(t,nbits);\r
-\r
- bitl+=4*nbits;\r
- }\r
- }\r
- else\r
- { U16 flags = GetBits(t,5); bitl+=5;\r
- if (flags)\r
- {\r
- if (flags&SF_MOVETO)\r
- { U16 nbits = GetBits(t,5); bitl+=5;\r
- GetBits(t,nbits);\r
- GetBits(t,nbits);\r
- bitl+=2*nbits;\r
- }\r
- \r
- if (flags&SF_FILL0)\r
- { GetBits(t,sh->bits.fill);\r
- bitl+=sh->bits.fill;\r
- }\r
- \r
- if (flags&SF_FILL1)\r
- { GetBits(t,sh->bits.fill);\r
- bitl+=sh->bits.fill;\r
- }\r
-\r
- if (flags&SF_LINE)\r
- { GetBits(t,sh->bits.line);\r
- bitl+=sh->bits.line;\r
- }\r
-\r
- if (flags&SF_NEWSTYLE)\r
- { fprintf(stderr,"Can't process extended styles in shape.\n");\r
- }\r
- }\r
- else end = 1;\r
- }\r
- }\r
- SetTagPos(t,pos);\r
- len = (bitl+7)/8;\r
- \r
- if (sh->data) free(sh->data);\r
- sh->data = (U8*)malloc(len);\r
- \r
- if (sh->data)\r
- { sh->bitlen = bitl;\r
- GetBlock(t,sh->data,len);\r
- }\r
- else return -1;\r
- \r
- return len;\r
-}\r
-\r
-int SetSimpleShape(LPTAG t,LPSHAPE s) // without Linestyle/Fillstyle Record\r
-{ int l;\r
-\r
- if (!s) return -1;\r
- l = (s->bitlen+7)/8;\r
-\r
- if (t)\r
- { ResetBitcount(t);\r
-\r
- SetBits(t,s->bits.fill,4);\r
- SetBits(t,s->bits.line,4);\r
- SetBlock(t,s->data,l);\r
-\r
- ResetBitcount(t);\r
- }\r
- return l+1;\r
-}\r
-\r
-int SetFillStyle(LPTAG t,LPFILLSTYLE f)\r
-{ if ((!t)||(!f)) return -1;\r
- SetU8(t,f->type);\r
- \r
- // no gradients yet!\r
- \r
- switch (f->type)\r
- { case FILL_SOLID:\r
- if (GetTagID(t)!=ST_DEFINESHAPE3) SetRGB(t,&f->color);\r
- else SetRGBA(t,&f->color);\r
- break;\r
-\r
- case FILL_TILED:\r
- case FILL_CLIPPED:\r
- SetU16(t,f->id_bitmap);\r
- SetMatrix(t,&f->m);\r
- break;\r
- }\r
- \r
- return 0;\r
-}\r
-\r
-int SetLineStyle(LPTAG t,LPLINESTYLE l)\r
-{ if ((!l)||(!t)) return -1;\r
- SetU16(t,l->width);\r
-\r
- if (GetTagID(t)!=ST_DEFINESHAPE3) SetRGB(t,&l->color);\r
- else SetRGBA(t,&l->color);\r
- \r
- return 0;\r
-}\r
-\r
-int SetShapeStyleCount(LPTAG t,U16 n)\r
-{ if (n>254)\r
- { SetU8(t,0xff);\r
- SetU16(t,n);\r
- return 3;\r
- }\r
- else\r
- { SetU8(t,n);\r
- return 1;\r
- }\r
-}\r
-\r
-int SetShapeStyles(LPTAG t,LPSHAPE s)\r
-{ int i,l;\r
- if (!s) return -1;\r
-\r
- l = 0;\r
- l += SetShapeStyleCount(t,s->fillstyle.n);\r
-\r
- for (i=0;i<s->fillstyle.n;i++)\r
- l+=SetFillStyle(t,&s->fillstyle.data[i]);\r
-\r
- l += SetShapeStyleCount(t,s->linestyle.n);\r
-\r
- for (i=0;i<s->linestyle.n;i++)\r
- l+=SetLineStyle(t,&s->linestyle.data[i]);\r
-\r
- return l;\r
-}\r
-\r
-int ShapeCountBits(LPSHAPE s,U8 * fbits,U8 * lbits)\r
-{ if (!s) return -1;\r
- \r
- s->bits.fill = CountBits(s->fillstyle.n,0);\r
- s->bits.line = CountBits(s->linestyle.n,0);\r
-\r
- if (fbits) fbits[0] = s->bits.fill;\r
- if (lbits) lbits[0] = s->bits.line;\r
- \r
- return 0; \r
-}\r
-\r
-int SetShapeBits(LPTAG t,LPSHAPE s)\r
-{ if ((!t)||(!s)) return -1;\r
- ResetBitcount(t);\r
- SetBits(t,s->bits.fill,4);\r
- SetBits(t,s->bits.line,4);\r
- return 0;\r
-}\r
-\r
-int SetShapeHeader(LPTAG t,LPSHAPE s)\r
-{ int res;\r
- res = SetShapeStyles(t,s);\r
- if (res>=0) res = ShapeCountBits(s,NULL,NULL);\r
- if (res>=0) res = SetShapeBits(t,s);\r
- return res;\r
-}\r
-\r
-int ShapeExport(int handle,LPSHAPE s) // without Linestyle/Fillstyle Record\r
-{ int l;\r
- if (!s) return 0;\r
-\r
- l = sizeof(SHAPE);\r
-\r
- if (handle>=0)\r
- if (write(handle,s,sizeof(SHAPE))!=sizeof(SHAPE)) return -1;\r
-\r
- // Fillstyle, Linestyle ...\r
-\r
- if (s->data)\r
- { int ll = (s->bitlen+7)/8;\r
- l+=ll;\r
- if (handle>=0)\r
- if (write(handle,s->data,ll)!=ll) return -1;\r
- }\r
-\r
- return l;\r
-}\r
-\r
-int ShapeImport(int handle,LPSHAPE * shape)\r
-{ LPSHAPE s;\r
-\r
- if (handle<0) return -1;\r
-\r
- s = (LPSHAPE)malloc(sizeof(SHAPE)); shape[0] = s;\r
- if (!s) return -1;\r
-\r
- if (read(handle,s,sizeof(SHAPE))!=sizeof(SHAPE))\r
- { shape[0] = NULL;\r
- free(s);\r
- return -1;\r
- }\r
-\r
- if (s->data)\r
- { int ll = (s->bitlen+7)/8;\r
- s->data = (U8*)malloc(ll);\r
- if (!s->data)\r
- { shape[0] = NULL;\r
- free(s);\r
- return -1;\r
- }\r
- if (read(handle,s->data,ll)!=ll)\r
- { free(s->data);\r
- free(s);\r
- shape[0] = NULL;\r
- return -1;\r
- }\r
- }\r
-\r
- return 0;\r
-}\r
-\r
-int ShapeAddFillStyle(LPSHAPE s,U8 type,LPMATRIX m,LPRGBA color,U16 id_bitmap)\r
-{ RGBA def_c;\r
- MATRIX def_m; \r
-\r
- // handle defaults\r
- \r
- if (!s) return -1;\r
- if (!color)\r
- { color = &def_c;\r
- def_c.a = 0xff;\r
- def_c.r = def_c.g = def_c.b = 0;\r
- }\r
- if (!m)\r
- { m = &def_m;\r
- GetMatrix(NULL,m);\r
- }\r
-\r
- // handle memory\r
- \r
- if (s->fillstyle.data)\r
- { LPFILLSTYLE new = (LPFILLSTYLE)realloc(s->fillstyle.data,(s->fillstyle.n+1)*sizeof(FILLSTYLE));\r
- if (!new) return -1;\r
- s->fillstyle.data = new;\r
- }\r
- else\r
- { s->fillstyle.data = (LPFILLSTYLE)malloc(sizeof(FILLSTYLE));\r
- s->fillstyle.n = 0;\r
- if (!s->fillstyle.data) return -1;\r
- }\r
-\r
- // set fillstyle (no gradients yet!)\r
- \r
- s->fillstyle.data[s->fillstyle.n].type = type; \r
- s->fillstyle.data[s->fillstyle.n].id_bitmap = id_bitmap;\r
- memcpy(&s->fillstyle.data[s->fillstyle.n].m,m,sizeof(MATRIX));\r
- memcpy(&s->fillstyle.data[s->fillstyle.n].color,color,sizeof(RGBA));\r
- \r
- return (++s->fillstyle.n);\r
-}\r
-\r
-int ShapeAddSolidFillStyle(LPSHAPE s,LPRGBA color)\r
-{ return ShapeAddFillStyle(s,FILL_SOLID,NULL,color,0);\r
-}\r
-\r
-int ShapeAddBitmapFillStyle(LPSHAPE s,LPMATRIX m,U16 id_bitmap,int clip)\r
-{ return ShapeAddFillStyle(s,clip?FILL_CLIPPED:FILL_TILED,m,NULL,id_bitmap);\r
-}\r
-\r
-int ShapeAddLineStyle(LPSHAPE s,U16 width,LPRGBA color)\r
-{ RGBA def;\r
- if (!s) return -1;\r
- if (!color)\r
- { color = &def;\r
- def.a = 0xff;\r
- def.r = def.g = def.b = 0; \r
- }\r
- if (s->linestyle.data)\r
- { LPLINESTYLE new = (LPLINESTYLE)realloc(s->linestyle.data,(s->linestyle.n+1)*sizeof(LINESTYLE));\r
- if (!new) return -1;\r
- s->linestyle.data = new;\r
- }\r
- else\r
- { s->linestyle.data = (LPLINESTYLE)malloc(sizeof(LINESTYLE));\r
- s->linestyle.n = 0;\r
- if (!s->linestyle.data) return -1;\r
- }\r
- \r
- s->linestyle.data[s->linestyle.n].width = width;\r
- memcpy(&s->linestyle.data[s->linestyle.n].color,color,sizeof(RGBA));\r
-\r
- return (++s->linestyle.n);\r
-}\r
-\r
-int ShapeSetMove(LPTAG t,LPSHAPE s,S32 x,S32 y)\r
-{ U8 b;\r
- if (!t) return -1;\r
- SetBits(t,0,1);\r
- SetBits(t,SF_MOVETO,5);\r
- \r
- b = CountBits(x,0);\r
- b = CountBits(y,b);\r
- \r
- SetBits(t,b,5);\r
- SetBits(t,x,b);\r
- SetBits(t,y,b);\r
-\r
- if (s)\r
- { s->px = x;\r
- s->py = y;\r
- }\r
- return 0;\r
-}\r
-\r
-int ShapeSetStyle(LPTAG t,LPSHAPE s,U16 line,U16 fill0,U16 fill1)\r
-{ if ((!t)||(!s)) return -1;\r
- \r
- SetBits(t,0,1);\r
- SetBits(t,(line?SF_LINE:0)|(fill0?SF_FILL0:0)|(fill1?SF_FILL1:0),5);\r
-\r
- if (fill0) SetBits(t,fill0,s->bits.fill);\r
- if (fill1) SetBits(t,fill1,s->bits.fill);\r
- if (line) SetBits(t,line ,s->bits.line);\r
- \r
- return 0;\r
-}\r
-\r
-/* TODO: sometimes we want to set fillstyle 0, as that's the empty fill\r
- used for line drawings. At the moment, we can't, as 0 fill be considered\r
- nonexistent and therefore not set.\r
- these defines are a workaround (they also reduce the maximal number of\r
- fill styles to 32768)\r
- */\r
-#define FILL_RESET 0x8000\r
-#define LINE_RESET 0x8000\r
-int ShapeSetAll(LPTAG t,LPSHAPE s,S32 x,S32 y,U16 line,U16 fill0,U16 fill1)\r
-{ U8 b;\r
- if ((!t)||(!s)) return -1;\r
-\r
- SetBits(t,0,1);\r
- SetBits(t,SF_MOVETO|(line?SF_LINE:0)|(fill0?SF_FILL0:0)|(fill1?SF_FILL1:0),5);\r
-\r
- b = CountBits(x,0);\r
- b = CountBits(y,b);\r
- SetBits(t,b,5);\r
- SetBits(t,x,b);\r
- SetBits(t,y,b);\r
- s->px = x;\r
- s->py = y;\r
-\r
- if (fill0) SetBits(t,fill0,s->bits.fill);\r
- if (fill1) SetBits(t,fill1,s->bits.fill);\r
- if (line) SetBits(t,line ,s->bits.line);\r
- \r
- return 0;\r
-}\r
-\r
-int ShapeSetEnd(LPTAG t)\r
-{ if (!t) return -1;\r
- SetBits(t,0,6);\r
- ResetBitcount(t);\r
- return 0;\r
-}\r
-\r
-int ShapeSetLine(LPTAG t,LPSHAPE s,S32 x,S32 y)\r
-{ U8 b;\r
- if (!t) return -1;\r
- SetBits(t,3,2); // Straight Edge\r
-\r
- if ((!s)||((x!=0)&&(y!=0)))\r
- { b = CountBits(x,2);\r
- b = CountBits(y,b);\r
- if(b<2) \r
- b=2;\r
- SetBits(t, b-2, 4);\r
- SetBits(t,1,1);\r
- SetBits(t,x,b);\r
- SetBits(t,y,b);\r
- if (s)\r
- { s->px += x;\r
- s->py += y;\r
- }\r
- return 0;\r
- }\r
-\r
- if (x==0)\r
- { b = CountBits(y,2);\r
- if(b<2) \r
- b=2;\r
- SetBits(t, b-2, 4);\r
- SetBits(t,1,2);\r
- SetBits(t,y,b);\r
- s->py += y;\r
- }\r
- else\r
- { b = CountBits(x,2);\r
- if(b<2) \r
- b=2;\r
- SetBits(t, b-2, 4);\r
- SetBits(t,0,2);\r
- SetBits(t,x,b);\r
- s->px += x;\r
- }\r
- return 0;\r
-}\r
-\r
-int ShapeSetCurve(LPTAG t,LPSHAPE s,S32 x,S32 y,S32 ax,S32 ay)\r
-{ U8 b;\r
- if (!t) return -1;\r
-\r
- SetBits(t,2,2);\r
-\r
- b = CountBits(ax,2);\r
- b = CountBits(ay,b);\r
- b = CountBits(x,b);\r
- b = CountBits(y,b);\r
-\r
- SetBits(t,b-2,4);\r
- SetBits(t,x,b);\r
- SetBits(t,y,b);\r
- SetBits(t,ax,b);\r
- SetBits(t,ay,b);\r
-\r
- if (s)\r
- { s->px += x+ax;\r
- s->py += y+ay;\r
- }\r
- return 0;\r
-}\r
-\r
-int ShapeSetCircle(LPTAG t,LPSHAPE s,S32 x,S32 y,S32 rx,S32 ry)\r
-{ double C1 = 0.2930; \r
- double C2 = 0.4140; \r
- double begin = 0.7070; \r
-\r
- if (!t) return -1;\r
- \r
- ShapeSetMove(t,s,x+begin*rx,y+begin*ry);\r
- ShapeSetCurve(t,s, -C1*rx, C1*ry, -C2*rx, 0);\r
- ShapeSetCurve(t,s, -C2*rx, 0, -C1*rx, -C1*ry);\r
- ShapeSetCurve(t,s, -C1*rx, -C1*ry, 0, -C2*ry);\r
- ShapeSetCurve(t,s, 0, -C2*ry, C1*rx, -C1*ry);\r
- ShapeSetCurve(t,s, C1*rx, -C1*ry, C2*rx, 0);\r
- ShapeSetCurve(t,s, C2*rx, 0, C1*rx, C1*ry);\r
- ShapeSetCurve(t,s, C1*rx, C1*ry, 0, C2*ry);\r
- ShapeSetCurve(t,s, 0, C2*ry, -C1*rx, C1*ry);\r
- \r
- return 0;\r
-}\r
-\r
+/* swfshape.c
+
+ shape functions
+
+ Extension module for the rfxswf library.
+ Part of the swftools package.
+
+ Copyright (c) 2001 Rainer Böhme <rfxswf@reflex-studio.de>
+
+ This file is distributed under the GPL, see file COPYING for details
+
+*/
+
+#define SF_MOVETO 0x01
+#define SF_FILL0 0x02
+#define SF_FILL1 0x04
+#define SF_LINE 0x08
+#define SF_NEWSTYLE 0x10
+
+#define FILL_SOLID 0x00
+#define FILL_LINEAR 0x10 // Gradient
+#define FILL_RADIAL 0x12
+#define FILL_TILED 0x40 // Bitmap
+#define FILL_CLIPPED 0x41
+
+void swf_ShapeFree(SHAPE * s)
+{ if (s)
+ { if (s->linestyle.data) free(s->linestyle.data);
+ s->linestyle.data = NULL;
+ s->linestyle.n = 0;
+ if (s->fillstyle.data) free(s->fillstyle.data);
+ s->fillstyle.data = NULL;
+ s->fillstyle.n = 0;
+ if (s->data) free(s->data);
+ s->data = NULL;
+ }
+ free(s);
+}
+
+int swf_ShapeNew(SHAPE * * s)
+{ SHAPE * sh;
+ if (!s) return -1;
+ sh = (SHAPE *)malloc(sizeof(SHAPE)); s[0] = sh;
+ if (sh) memset(sh,0x00,sizeof(SHAPE));
+ return sh?0:-1;
+}
+
+int swf_GetSimpleShape(TAG * t,SHAPE * * s) // without Linestyle/Fillstyle Record
+{ SHAPE * sh;
+ int bitl, len;
+ int end;
+ U32 pos;
+
+ if (FAILED(swf_ShapeNew(s))) return -1;
+ sh = s[0];
+
+ swf_ResetBitmask(t);
+ sh->bits.fill = (U16)swf_GetBits(t,4);
+ sh->bits.line = (U16)swf_GetBits(t,4);
+ bitl = 0; end = 0; pos = swf_GetTagPos(t);
+
+ while (!end)
+ { int edge = swf_GetBits(t,1); bitl+=1;
+ if (edge)
+ { bitl+=1;
+ if (swf_GetBits(t,1)) // Line
+ { U16 nbits = swf_GetBits(t,4)+2;
+ bitl+=5;
+
+ if (swf_GetBits(t,1)) // x/y Line
+ { swf_GetBits(t,nbits);
+ swf_GetBits(t,nbits);
+ bitl+=nbits*2;
+ }
+ else // hline/vline
+ { swf_GetBits(t,nbits+1);
+ bitl+=nbits+1;
+ }
+ }
+ else // Curve
+ { U16 nbits = swf_GetBits(t,4)+2;
+ bitl+=4;
+
+ swf_GetBits(t,nbits);
+ swf_GetBits(t,nbits);
+ swf_GetBits(t,nbits);
+ swf_GetBits(t,nbits);
+
+ bitl+=4*nbits;
+ }
+ }
+ else
+ { U16 flags = swf_GetBits(t,5); bitl+=5;
+ if (flags)
+ {
+ if (flags&SF_MOVETO)
+ { U16 nbits = swf_GetBits(t,5); bitl+=5;
+ swf_GetBits(t,nbits);
+ swf_GetBits(t,nbits);
+ bitl+=2*nbits;
+ }
+
+ if (flags&SF_FILL0)
+ { swf_GetBits(t,sh->bits.fill);
+ bitl+=sh->bits.fill;
+ }
+
+ if (flags&SF_FILL1)
+ { swf_GetBits(t,sh->bits.fill);
+ bitl+=sh->bits.fill;
+ }
+
+ if (flags&SF_LINE)
+ { swf_GetBits(t,sh->bits.line);
+ bitl+=sh->bits.line;
+ }
+
+ if (flags&SF_NEWSTYLE)
+ { fprintf(stderr,"RFXSWF: Can't process extended styles in shape.\n");
+ }
+ }
+ else end = 1;
+ }
+ }
+ swf_SetTagPos(t,pos);
+ len = (bitl+7)/8;
+
+ if (sh->data) free(sh->data);
+ sh->data = (U8*)malloc(len);
+
+ if (sh->data)
+ { sh->bitlen = bitl;
+ swf_GetBlock(t,sh->data,len);
+ }
+ else return -1;
+
+ return len;
+}
+
+int swf_SetSimpleShape(TAG * t,SHAPE * s) // without Linestyle/Fillstyle Record
+{ int l;
+
+ if (!s) return -1;
+ l = (s->bitlen+7)/8;
+
+ if (t)
+ { swf_ResetBitcount(t);
+
+ swf_SetBits(t,s->bits.fill,4);
+ swf_SetBits(t,s->bits.line,4);
+ swf_SetBlock(t,s->data,l);
+
+ swf_ResetBitcount(t);
+ }
+ return l+1;
+}
+
+int swf_SetFillStyle(TAG * t,FILLSTYLE * f)
+{ if ((!t)||(!f)) return -1;
+ swf_SetU8(t,f->type);
+
+ // no gradients yet!
+
+ switch (f->type)
+ { case FILL_SOLID:
+ if (swf_GetTagID(t)!=ST_DEFINESHAPE3) swf_SetRGB(t,&f->color);
+ else swf_SetRGBA(t,&f->color);
+ break;
+
+ case FILL_TILED:
+ case FILL_CLIPPED:
+ swf_SetU16(t,f->id_bitmap);
+ swf_SetMatrix(t,&f->m);
+ break;
+ }
+
+ return 0;
+}
+
+int swf_SetLineStyle(TAG * t,LINESTYLE * l)
+{ if ((!l)||(!t)) return -1;
+ swf_SetU16(t,l->width);
+
+ if (swf_GetTagID(t)!=ST_DEFINESHAPE3) swf_SetRGB(t,&l->color);
+ else swf_SetRGBA(t,&l->color);
+
+ return 0;
+}
+
+int swf_SetShapeStyleCount(TAG * t,U16 n)
+{ if (n>254)
+ { swf_SetU8(t,0xff);
+ swf_SetU16(t,n);
+ return 3;
+ }
+ else
+ { swf_SetU8(t,n);
+ return 1;
+ }
+}
+
+int swf_SetShapeStyles(TAG * t,SHAPE * s)
+{ int i,l;
+ if (!s) return -1;
+
+ l = 0;
+ l += swf_SetShapeStyleCount(t,s->fillstyle.n);
+
+ for (i=0;i<s->fillstyle.n;i++)
+ l+=swf_SetFillStyle(t,&s->fillstyle.data[i]);
+
+ l += swf_SetShapeStyleCount(t,s->linestyle.n);
+
+ for (i=0;i<s->linestyle.n;i++)
+ l+=swf_SetLineStyle(t,&s->linestyle.data[i]);
+
+ return l;
+}
+
+int swf_ShapeCountBits(SHAPE * s,U8 * fbits,U8 * lbits)
+{ if (!s) return -1;
+
+ s->bits.fill = swf_CountBits(s->fillstyle.n,0);
+ s->bits.line = swf_CountBits(s->linestyle.n,0);
+
+ if (fbits) fbits[0] = s->bits.fill;
+ if (lbits) lbits[0] = s->bits.line;
+
+ return 0;
+}
+
+int swf_SetShapeBits(TAG * t,SHAPE * s)
+{ if ((!t)||(!s)) return -1;
+ swf_ResetBitcount(t);
+ swf_SetBits(t,s->bits.fill,4);
+ swf_SetBits(t,s->bits.line,4);
+ return 0;
+}
+
+int swf_SetShapeHeader(TAG * t,SHAPE * s)
+{ int res;
+ res = swf_SetShapeStyles(t,s);
+ if (res>=0) res = swf_ShapeCountBits(s,NULL,NULL);
+ if (res>=0) res = swf_SetShapeBits(t,s);
+ return res;
+}
+
+int swf_ShapeExport(int handle,SHAPE * s) // without Linestyle/Fillstyle Record
+{ int l;
+ if (!s) return 0;
+
+ l = sizeof(SHAPE);
+
+ if (handle>=0)
+ if (write(handle,s,sizeof(SHAPE))!=sizeof(SHAPE)) return -1;
+
+ // Fillstyle, Linestyle ...
+
+ if (s->data)
+ { int ll = (s->bitlen+7)/8;
+ l+=ll;
+ if (handle>=0)
+ if (write(handle,s->data,ll)!=ll) return -1;
+ }
+
+ return l;
+}
+
+int swf_ShapeImport(int handle,SHAPE * * shape)
+{ SHAPE * s;
+
+ if (handle<0) return -1;
+
+ s = (SHAPE *)malloc(sizeof(SHAPE)); shape[0] = s;
+ if (!s) return -1;
+
+ if (read(handle,s,sizeof(SHAPE))!=sizeof(SHAPE))
+ { shape[0] = NULL;
+ free(s);
+ return -1;
+ }
+
+ if (s->data)
+ { int ll = (s->bitlen+7)/8;
+ s->data = (U8*)malloc(ll);
+ if (!s->data)
+ { shape[0] = NULL;
+ free(s);
+ return -1;
+ }
+ if (read(handle,s->data,ll)!=ll)
+ { free(s->data);
+ free(s);
+ shape[0] = NULL;
+ return -1;
+ }
+ }
+
+ return 0;
+}
+
+int swf_ShapeAddFillStyle(SHAPE * s,U8 type,MATRIX * m,RGBA * color,U16 id_bitmap)
+{ RGBA def_c;
+ MATRIX def_m;
+
+ // handle defaults
+
+ if (!s) return -1;
+ if (!color)
+ { color = &def_c;
+ def_c.a = 0xff;
+ def_c.r = def_c.g = def_c.b = 0;
+ }
+ if (!m)
+ { m = &def_m;
+ swf_GetMatrix(NULL,m);
+ }
+
+ // handle memory
+
+ if (s->fillstyle.data)
+ { FILLSTYLE * new = (FILLSTYLE *)realloc(s->fillstyle.data,(s->fillstyle.n+1)*sizeof(FILLSTYLE));
+ if (!new) return -1;
+ s->fillstyle.data = new;
+ }
+ else
+ { s->fillstyle.data = (FILLSTYLE *)malloc(sizeof(FILLSTYLE));
+ s->fillstyle.n = 0;
+ if (!s->fillstyle.data) return -1;
+ }
+
+ // set fillstyle (no gradients yet!)
+
+ s->fillstyle.data[s->fillstyle.n].type = type;
+ s->fillstyle.data[s->fillstyle.n].id_bitmap = id_bitmap;
+ memcpy(&s->fillstyle.data[s->fillstyle.n].m,m,sizeof(MATRIX));
+ memcpy(&s->fillstyle.data[s->fillstyle.n].color,color,sizeof(RGBA));
+
+ return (++s->fillstyle.n);
+}
+
+int swf_ShapeAddSolidFillStyle(SHAPE * s,RGBA * color)
+{ return swf_ShapeAddFillStyle(s,FILL_SOLID,NULL,color,0);
+}
+
+int swf_ShapeAddBitmapFillStyle(SHAPE * s,MATRIX * m,U16 id_bitmap,int clip)
+{ return swf_ShapeAddFillStyle(s,clip?FILL_CLIPPED:FILL_TILED,m,NULL,id_bitmap);
+}
+
+int swf_ShapeAddLineStyle(SHAPE * s,U16 width,RGBA * color)
+{ RGBA def;
+ if (!s) return -1;
+ if (!color)
+ { color = &def;
+ def.a = 0xff;
+ def.r = def.g = def.b = 0;
+ }
+ if (s->linestyle.data)
+ { LINESTYLE * new = (LINESTYLE *)realloc(s->linestyle.data,(s->linestyle.n+1)*sizeof(LINESTYLE));
+ if (!new) return -1;
+ s->linestyle.data = new;
+ }
+ else
+ { s->linestyle.data = (LINESTYLE *)malloc(sizeof(LINESTYLE));
+ s->linestyle.n = 0;
+ if (!s->linestyle.data) return -1;
+ }
+
+ s->linestyle.data[s->linestyle.n].width = width;
+ memcpy(&s->linestyle.data[s->linestyle.n].color,color,sizeof(RGBA));
+
+ return (++s->linestyle.n);
+}
+
+int swf_ShapeSetMove(TAG * t,SHAPE * s,S32 x,S32 y)
+{ U8 b;
+ if (!t) return -1;
+ swf_SetBits(t,0,1);
+ swf_SetBits(t,SF_MOVETO,5);
+
+ b = swf_CountBits(x,0);
+ b = swf_CountBits(y,b);
+
+ swf_SetBits(t,b,5);
+ swf_SetBits(t,x,b);
+ swf_SetBits(t,y,b);
+
+ if (s)
+ { s->px = x;
+ s->py = y;
+ }
+ return 0;
+}
+
+int swf_ShapeSetStyle(TAG * t,SHAPE * s,U16 line,U16 fill0,U16 fill1)
+{ if ((!t)||(!s)) return -1;
+
+ swf_SetBits(t,0,1);
+ swf_SetBits(t,(line?SF_LINE:0)|(fill0?SF_FILL0:0)|(fill1?SF_FILL1:0),5);
+
+ if (fill0) swf_SetBits(t,fill0,s->bits.fill);
+ if (fill1) swf_SetBits(t,fill1,s->bits.fill);
+ if (line) swf_SetBits(t,line ,s->bits.line);
+
+ return 0;
+}
+
+/* TODO: sometimes we want to set fillstyle 0, as that's the empty fill
+ used for line drawings. At the moment, we can't, as 0 fill be considered
+ nonexistent and therefore not set.
+ these defines are a workaround (they also reduce the maximal number of
+ fill styles to 32768)
+ */
+#define FILL_RESET 0x8000
+#define LINE_RESET 0x8000
+
+int swf_ShapeSetAll(TAG * t,SHAPE * s,S32 x,S32 y,U16 line,U16 fill0,U16 fill1)
+{ U8 b;
+ if ((!t)||(!s)) return -1;
+
+ swf_SetBits(t,0,1);
+ swf_SetBits(t,SF_MOVETO|(line?SF_LINE:0)|(fill0?SF_FILL0:0)|(fill1?SF_FILL1:0),5);
+
+ b = swf_CountBits(x,0);
+ b = swf_CountBits(y,b);
+ swf_SetBits(t,b,5);
+ swf_SetBits(t,x,b);
+ swf_SetBits(t,y,b);
+ s->px = x;
+ s->py = y;
+
+ if (fill0) swf_SetBits(t,fill0,s->bits.fill);
+ if (fill1) swf_SetBits(t,fill1,s->bits.fill);
+ if (line) swf_SetBits(t,line ,s->bits.line);
+
+ return 0;
+}
+
+int swf_ShapeSetEnd(TAG * t)
+{ if (!t) return -1;
+ swf_SetBits(t,0,6);
+ swf_ResetBitcount(t);
+ return 0;
+}
+
+int swf_ShapeSetLine(TAG * t,SHAPE * s,S32 x,S32 y)
+{ U8 b;
+ if (!t) return -1;
+ swf_SetBits(t,3,2); // Straight Edge
+
+ if ((!s)||((x!=0)&&(y!=0)))
+ { b = swf_CountBits(x,2);
+ b = swf_CountBits(y,b);
+ if (b<2) b=2;
+ swf_SetBits(t, b-2, 4);
+ swf_SetBits(t,1,1);
+ swf_SetBits(t,x,b);
+ swf_SetBits(t,y,b);
+ if (s)
+ { s->px += x;
+ s->py += y;
+ }
+ return 0;
+ }
+
+ if (x==0)
+ { b = swf_CountBits(y,2);
+ if(b<2)
+ b=2;
+ swf_SetBits(t, b-2, 4);
+ swf_SetBits(t,1,2);
+ swf_SetBits(t,y,b);
+ s->py += y;
+ }
+ else
+ { b = swf_CountBits(x,2);
+ if(b<2)
+ b=2;
+ swf_SetBits(t, b-2, 4);
+ swf_SetBits(t,0,2);
+ swf_SetBits(t,x,b);
+ s->px += x;
+ }
+ return 0;
+}
+
+int swf_ShapeSetCurve(TAG * t,SHAPE * s,S32 x,S32 y,S32 ax,S32 ay)
+{ U8 b;
+ if (!t) return -1;
+
+ swf_SetBits(t,2,2);
+
+ b = swf_CountBits(ax,2);
+ b = swf_CountBits(ay,b);
+ b = swf_CountBits(x,b);
+ b = swf_CountBits(y,b);
+
+ swf_SetBits(t,b-2,4);
+ swf_SetBits(t,x,b);
+ swf_SetBits(t,y,b);
+ swf_SetBits(t,ax,b);
+ swf_SetBits(t,ay,b);
+
+ if (s)
+ { s->px += x+ax;
+ s->py += y+ay;
+ }
+ return 0;
+}
+
+int swf_ShapeSetCircle(TAG * t,SHAPE * s,S32 x,S32 y,S32 rx,S32 ry)
+{ double C1 = 0.2930;
+ double C2 = 0.4140;
+ double begin = 0.7070;
+
+ if (!t) return -1;
+
+ swf_ShapeSetMove(t,s,x+begin*rx,y+begin*ry);
+ swf_ShapeSetCurve(t,s, -C1*rx, C1*ry, -C2*rx, 0);
+ swf_ShapeSetCurve(t,s, -C2*rx, 0, -C1*rx, -C1*ry);
+ swf_ShapeSetCurve(t,s, -C1*rx, -C1*ry, 0, -C2*ry);
+ swf_ShapeSetCurve(t,s, 0, -C2*ry, C1*rx, -C1*ry);
+ swf_ShapeSetCurve(t,s, C1*rx, -C1*ry, C2*rx, 0);
+ swf_ShapeSetCurve(t,s, C2*rx, 0, C1*rx, C1*ry);
+ swf_ShapeSetCurve(t,s, C1*rx, C1*ry, 0, C2*ry);
+ swf_ShapeSetCurve(t,s, 0, C2*ry, -C1*rx, C1*ry);
+
+ return 0;
+}
+