+static int objectplace(TAG * t,U16 id,U16 depth,MATRIX * m,CXFORM * cx,const U8 * name, U16 clipaction, U8 blendmode, FILTERLIST*filters)
+{ U8 flags,flags2;
+ if (!t) return -1;
+
+ if(cx && id && cx->r1==0 && cx->g1==0 && cx->b1==0 && cx->a1==0
+ && cx->r0==256 && cx->g0==256 && cx->b0==256 && cx->a0==256)
+ cx = 0;
+
+ if(m && id && isUnitMatrix(m))
+ m = 0;
+
+ flags = (id?PF_CHAR:0)|(m?PF_MATRIX:0)|(cx?PF_CXFORM:0)|(name?PF_NAME:0)|((m||cx)&&(!id)?PF_MOVE:0)|(clipaction?PF_CLIPDEPTH:0);
+ flags2 = (0?PF2_ASBITMAP:0)|(blendmode?PF2_BLENDMODE:0)|(filters?PF2_FILTERS:0);
+
+ swf_SetU8(t,flags);
+ if(t->id == ST_PLACEOBJECT3)
+ swf_SetU8(t, flags2);
+ swf_SetU16(t,depth);
+ if (flags&PF_CHAR) swf_SetU16(t,id);
+ if (flags&PF_MATRIX) swf_SetMatrix(t,m);
+ if (flags&PF_CXFORM) swf_SetCXForm(t,cx,1);
+ if (flags&PF_RATIO) swf_SetU16(t,0);
+ /* ??? The spec states that name comes first? */
+ if (flags&PF_CLIPDEPTH) swf_SetU16(t, clipaction);
+ if (flags&PF_NAME) swf_SetString(t,name);
+
+ if (flags2&PF2_BLENDMODE)
+ swf_SetU8(t,blendmode);
+ return 0;
+}
+int swf_ObjectPlace(TAG * t,U16 id,U16 depth,MATRIX * m,CXFORM * cx,const U8 * name)
+{
+ return objectplace(t,id,depth,m,cx,name,0,0,0);
+}
+int swf_ObjectPlaceClip(TAG * t,U16 id,U16 depth,MATRIX * m,CXFORM * cx,const U8 * name, U16 clipaction)
+{
+ return objectplace(t,id,depth,m,cx,name,clipaction,0,0);
+}
+int swf_ObjectPlaceBlend(TAG * t,U16 id,U16 depth,MATRIX * m,CXFORM * cx,const U8 * name, U8 blend)
+{
+ if(t->id != ST_PLACEOBJECT3)
+ fprintf(stderr, "wrong tag- ignoring blend mode\n");
+ return objectplace(t,id,depth,m,cx,name,0,blend,0);
+}
+int swf_ObjectMove(TAG * t,U16 depth,MATRIX * m,CXFORM * cx)
+{
+ return objectplace(t,0,depth,m,cx,0,0,0,0);
+}
+