2 #include "primitives.h"
9 //----------------------------------------------------------------------------
11 typedef struct _font_internal
15 staticforward tag_internals_t font_tag;
17 static int font_parse(tag_internals_t*self)
19 font_internal_t*font = (font_internal_t*)self->data;
21 PyErr_SetString(PyExc_Exception, setError("Font parsing not implemented yet"));
24 static void font_dealloc(tag_internals_t*self)
26 font_internal_t*font = (font_internal_t*)self->data;
28 swf_FontFree(font->font);
32 static int font_fillTAG(tag_internals_t*self)
34 font_internal_t*fi = (font_internal_t*)self->data;
37 self->tag = swf_InsertTag(0, ST_DEFINEFONT2);
38 swf_FontSetDefine2(self->tag, fi->font);
41 static PyObject* f_DefineFont(PyObject* self, PyObject* args, PyObject* kwargs)
43 static char *kwlist[] = {"filename", NULL};
48 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "|s", kwlist, &filename))
51 font = swf_LoadFont(filename);
53 PyErr_SetString(PyExc_Exception, setError("Could not load %s", filename));
57 tag = tag_new(&font_tag);
58 tag_internals_t*itag = tag_getinternals(tag);
59 font_internal_t*fi = (font_internal_t*)itag->data;
62 return (PyObject*)tag;
64 static SWFFONT* font_getSWFFONT(PyObject*self)
66 PY_ASSERT_TYPE(self, &TagClass);
67 tag_internals_t*itag = tag_getinternals(self);
68 font_internal_t*fi = (font_internal_t*)itag->data;
71 static tag_internals_t font_tag =
74 fillTAG: font_fillTAG,
75 dealloc: font_dealloc,
79 datasize: sizeof(font_internal_t),
81 //----------------------------------------------------------------------------
83 typedef struct _placeobject_internal
86 } placeobject_internal_t;
87 staticforward tag_internals_t placeobject_tag;
89 static void po_dealloc(tag_internals_t*self)
91 placeobject_internal_t*pi = (placeobject_internal_t*)self->data;
93 swf_PlaceObjectFree(pi->po);
97 static int po_parse(tag_internals_t*self)
99 placeobject_internal_t*pi = (placeobject_internal_t*)self->data;
101 PyErr_SetString(PyExc_Exception, setError("Font parsing not implemented yet"));
104 static int po_fillTAG(tag_internals_t*self)
106 placeobject_internal_t*pi = (placeobject_internal_t*)self->data;
107 self->tag = swf_InsertTag(0, ST_PLACEOBJECT2);
108 swf_SetPlaceObject(self->tag, pi->po);
111 static PyObject* po_create(PyObject* self, PyObject* args, PyObject* kwargs,char move)
113 static char *kwlist[] = {"character", "depth", "matrix", "colortransform", "ratio", "name", "clipdepth", "action", NULL};
115 PyObject*character = 0;
124 po = malloc(sizeof(SWFPLACEOBJECT));
125 memset(po, 0, sizeof(SWFPLACEOBJECT));
127 swf_GetPlaceObject(0, po);
129 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "Oi|O!O!isiO!", kwlist,
132 &MatrixClass, &matrix,
133 &CXFormClass, &cxform,
137 &ActionClass, &action
141 po->clipdepth = clipdepth;
145 if(clipdepth) po->clipdepth = clipdepth;
146 if(matrix) po->matrix = matrix_getMatrix(matrix);
147 if(cxform) po->cxform = colortransform_getCXForm(cxform);
148 if(action) po->actions = action_getAction(action);
151 tag = tag_new(&placeobject_tag);
152 tag_internals_t*itag = tag_getinternals(tag);
153 placeobject_internal_t*pi = (placeobject_internal_t*)itag->data;
156 pi->po->id = tagmap_add(itag->tagmap,(PyObject*)character);
161 mylog("+%08x(%d) PlaceObject %08x(%d)\n", (int)tag, tag->ob_refcnt, character, character->ob_refcnt);
163 return (PyObject*)tag;
165 static PyObject* f_PlaceObject(PyObject* self, PyObject* args, PyObject* kwargs)
167 return po_create(self, args, kwargs, 0);
169 static PyObject* f_MoveObject(PyObject* self, PyObject* args, PyObject* kwargs)
171 return po_create(self, args, kwargs, 1);
173 static tag_internals_t placeobject_tag =
181 datasize: sizeof(placeobject_internal_t),
183 //----------------------------------------------------------------------------
184 staticforward tag_internals_t bgcolor_tag;
185 static PyObject* tag_setbackgroundcolor_getrgb(PyObject * self, PyObject*other)
187 tag_internals_t*itag = tag_getinternals(self);
189 r = itag->tag->data[0];
190 g = itag->tag->data[1];
191 b = itag->tag->data[2];
192 return Py_BuildValue("(iii)", r,g,b);
194 static PyMethodDef setbgcolor_methods[] =
195 {{"getRGB", tag_setbackgroundcolor_getrgb, METH_VARARGS, "get's the color set by this tag"},
196 {NULL, NULL, 0, NULL}
198 static PyObject* f_SetBackgroundColor(PyObject* self, PyObject* args, PyObject* kwargs)
200 static char *kwlist[] = {"color", NULL};
205 tag = tag_new(&bgcolor_tag);
206 tag_internals_t*itag = tag_getinternals(tag);
208 /* 1st try- copy constructor */
209 if(!PyArg_ParseTupleAndKeywords(args, kwargs, "O!", kwlist, &ColorClass, &color)) {
211 /* 2nd try- color's contructor */
212 color = f_Color(NULL, args, kwargs);
217 itag->tag = swf_InsertTag(0, ST_SETBACKGROUNDCOLOR);
218 RGBA rgba = color_getRGBA(color);
219 swf_SetU8(itag->tag, rgba.r);
220 swf_SetU8(itag->tag, rgba.g);
221 swf_SetU8(itag->tag, rgba.b);
222 mylog(" %08x(%d) SetBackgroundColor(%02x,%02x,%02x) (colorobj=%08x(%d))\n", (int)tag, tag->ob_refcnt, rgba.r, rgba.g, rgba.b, color, color->ob_refcnt);
224 return (PyObject*)tag;
226 static tag_internals_t bgcolor_tag =
233 tagfunctions: setbgcolor_methods,
236 //----------------------------------------------------------------------------
237 staticforward tag_internals_t protect_tag;
238 static PyObject* f_Protect(PyObject* self, PyObject* args, PyObject* kwargs)
240 static char *kwlist[] = {"password", NULL};
243 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "|s", kwlist, &password))
246 PyObject*tag = tag_new(&protect_tag);
247 tag_internals_t*itag = tag_getinternals(tag);
248 itag->tag = swf_InsertTag(0, ST_PROTECT);
250 swf_SetPassword(itag->tag, password);
252 mylog("+%08x(%d) f_Protect", (int)tag, tag->ob_refcnt);
253 return (PyObject*)tag;
255 static tag_internals_t protect_tag =
265 //----------------------------------------------------------------------------
266 staticforward tag_internals_t showframe_tag;
267 static PyObject* f_ShowFrame(PyObject* self, PyObject* args, PyObject* kwargs)
269 static char *kwlist[] = {"name", NULL};
271 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "|s", kwlist, &name))
274 PyObject*tag = tag_new(&showframe_tag);
275 tag_internals_t*itag = tag_getinternals(tag);
276 itag->tag = swf_InsertTag(0, ST_SHOWFRAME);
277 mylog("+%08x(%d) f_ShowFrame", (int)tag, tag->ob_refcnt);
278 return (PyObject*)tag;
280 static tag_internals_t showframe_tag =
290 //----------------------------------------------------------------------------
291 staticforward tag_internals_t sprite_tag;
292 typedef struct _sprite_internal
297 static int sprite_fillTAG(tag_internals_t*self)
299 mylog("+%08x(?) sprite_fillTAG", (int)self);
301 sprite_internal_t*si = (sprite_internal_t*)self->data;
303 TAG*sprite = swf_InsertTag(0, ST_DEFINESPRITE);
304 swf_SetU16(sprite, 0); //id
305 swf_SetU16(sprite, 0); //frames
307 TAG*tag = taglist_getTAGs2(si->taglist, self->tagmap, 0);
309 /* pass through exception */
313 while(tag2->next) tag2 = tag2->next;
314 swf_InsertTag(tag2, ST_END);
319 swf_FoldSprite(sprite);
324 static PyObject* f_Sprite(PyObject* self, PyObject* args, PyObject* kwargs)
326 static char *kwlist[] = {"name", NULL};
328 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "|s", kwlist, &name))
331 PyObject*tag = tag_new(&sprite_tag);
332 tag_internals_t*itag = tag_getinternals(tag);
333 sprite_internal_t*si = (sprite_internal_t*)itag->data;
334 si->taglist = taglist_new();
335 mylog("+%08x(%d) f_DefineSprite", (int)tag, tag->ob_refcnt);
336 return (PyObject*)tag;
338 static PyObject* sprite_getattr(tag_internals_t*self,char*a)
340 sprite_internal_t*si = (sprite_internal_t*)self->data;
341 if(!strcmp(a, "tags")) {
342 Py_INCREF(si->taglist);
347 static int sprite_setattr(tag_internals_t*self,char*a, PyObject*obj)
349 sprite_internal_t*si = (sprite_internal_t*)self->data;
351 swf_DeleteTag(self->tag);
354 if(!strcmp(a, "tags")) {
355 PY_ASSERT_TYPE(obj,&TagListClass);
356 Py_DECREF(si->taglist);
358 Py_INCREF(si->taglist);
363 static tag_internals_t sprite_tag =
366 fillTAG: sprite_fillTAG,
368 getattr: sprite_getattr,
369 setattr: sprite_setattr,
371 datasize: sizeof(sprite_internal_t),
373 //----------------------------------------------------------------------------
374 staticforward tag_internals_t end_tag;
375 static tag_internals_t end_tag =
385 //----------------------------------------------------------------------------
386 staticforward tag_internals_t text_tag;
388 typedef struct _text_internal
395 staticforward tag_internals_t placeobject_tag;
397 static int text_fillTAG(tag_internals_t*self)
399 text_internal_t*ti = (text_internal_t*)self->data;
400 self->tag= swf_InsertTag(0, ST_DEFINETEXT2);
401 swf_SetU16(self->tag, /*ID*/0);
402 SRECT r = swf_SetDefineText(self->tag, ti->swffont, &ti->rgba, ti->text, ti->size);
405 static PyObject* f_DefineText(PyObject* self, PyObject* args, PyObject* kwargs)
407 static char *kwlist[] = {"font", "text", "size", "color", NULL};
412 RGBA rgba = {255,0,0,0};
416 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "O!Oi|O!", kwlist, &TagClass, &font, &otext, &size, &ColorClass, &color))
418 text = PyString_AS_STRING(PyUnicode_AsUTF8String(otext));
421 rgba = color_getRGBA(color);
423 mylog("DefineText: text = %s", text);
425 tag = tag_new(&text_tag);
426 tag_internals_t* itag = tag_getinternals(tag);
427 text_internal_t*ti = (text_internal_t*)itag->data;
429 ti->swffont = font_getSWFFONT(font);
430 int font_id = tagmap_add(itag->tagmap, font); // add dependency on font
431 ti->swffont->id = font_id; // for swf_SetDefineTexts
432 ti->text = strdup(text);
436 return (PyObject*)tag;
438 static tag_internals_t text_tag =
441 fillTAG: text_fillTAG,
446 datasize: sizeof(text_internal_t),
448 //----------------------------------------------------------------------------
449 staticforward tag_internals_t image_tag;
451 typedef struct _image_internal
461 staticforward tag_internals_t image_tag;
463 static int image_fillTAG(tag_internals_t*self)
465 image_internal_t*ti = (image_internal_t*)self->data;
466 self->tag= swf_InsertTag(0, ST_DEFINEBITSLOSSLESS2);
467 swf_SetU16(self->tag, /*ID*/0);
468 swf_SetLosslessBits(self->tag, ti->width, ti->height, ti->rgba, BMF_32BIT);
471 static void image_dealloc(tag_internals_t*self)
473 image_internal_t*pi = (image_internal_t*)self->data;
475 free(pi->rgba);pi->rgba = 0;
478 static int imagetag_getWidth(PyObject* self)
480 tag_internals_t*itag = tag_getinternals(self);
481 image_internal_t*pi = (image_internal_t*)itag->data;
484 static int imagetag_getHeight(PyObject* self)
486 tag_internals_t*itag = tag_getinternals(self);
487 image_internal_t*pi = (image_internal_t*)itag->data;
490 static PyObject* f_DefineImage(PyObject* self, PyObject* args, PyObject* kwargs)
492 static char *kwlist[] = {"image"};
494 PyObject*tag = tag_new(&image_tag);
496 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "O", kwlist, &image))
499 tag = tag_new(&image_tag);
500 tag_internals_t* itag = tag_getinternals(tag);
501 image_internal_t*ti = (image_internal_t*)itag->data;
503 ti->rgba = image_toRGBA(image);
504 if(!ti->rgba) // pass through exception
506 ti->width = image_getWidth(image);
507 ti->height = image_getHeight(image);
511 ti->size = ti->width*ti->height;
513 return (PyObject*)tag;
515 static tag_internals_t image_tag =
518 fillTAG: image_fillTAG,
519 dealloc: image_dealloc,
523 datasize: sizeof(image_internal_t),
525 //----------------------------------------------------------------------------
526 staticforward tag_internals_t shape_tag;
528 typedef struct _shape_internal
532 staticforward tag_internals_t shape_tag;
534 static int shape_fillTAG(tag_internals_t*self)
536 shape_internal_t*ti = (shape_internal_t*)self->data;
537 self->tag= swf_InsertTag(0, ST_DEFINESHAPE3);
538 swf_SetU16(self->tag, /*ID*/0);
539 swf_SetShape2(self->tag, ti->shape);
542 static void shape_dealloc(tag_internals_t*self)
544 shape_internal_t*pi = (shape_internal_t*)self->data;
546 swf_Shape2Free(pi->shape);
550 static PyObject* f_DefineImageShape(PyObject* self, PyObject* args, PyObject* kwargs)
552 static char *kwlist[] = {"image"};
554 PyObject*tag = tag_new(&shape_tag);
557 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "O!", kwlist, &TagClass, &image))
560 tag = tag_new(&shape_tag);
561 tag_internals_t* itag = tag_getinternals(tag);
562 shape_internal_t*ti = (shape_internal_t*)itag->data;
563 ti->shape = 0; /*HACK*/
565 int width = imagetag_getWidth(image);
566 int height = imagetag_getHeight(image);
567 int id = tagmap_add(itag->tagmap, image);
568 itag->tag= swf_InsertTag(0, ST_DEFINESHAPE3);
569 swf_SetU16(itag->tag, 0);
570 swf_ShapeSetBitmapRect(itag->tag, id, width, height);
571 return (PyObject*)tag;
573 static tag_internals_t shape_tag =
576 fillTAG: shape_fillTAG,
577 dealloc: shape_dealloc,
581 datasize: sizeof(shape_internal_t),
583 //----------------------------------------------------------------------------
585 typedef struct _videostream_internal
589 } videostream_internal_t;
590 staticforward tag_internals_t videostream_tag;
591 staticforward tag_internals_t videoframe_tag;
593 static int videostream_parse(tag_internals_t*self)
595 videostream_internal_t*videostream = (videostream_internal_t*)self->data;
597 PyErr_SetString(PyExc_Exception, setError("videostream parsing not implemented yet"));
600 static void videostream_dealloc(tag_internals_t*self)
602 videostream_internal_t*videostream = (videostream_internal_t*)self->data;
603 if(videostream->stream) {
604 swf_VideoStreamClear(videostream->stream);
605 free(videostream->stream);
606 videostream->stream = 0;
609 static int videostream_fillTAG(tag_internals_t*self)
611 videostream_internal_t*fi = (videostream_internal_t*)self->data;
614 PyErr_SetString(PyExc_Exception, setError("videostream filling not implemented"));
617 static PyObject* f_DefineVideoStream(PyObject* self, PyObject* args, PyObject* kwargs)
619 PyObject*tag = tag_new(&videostream_tag);
621 int width=0,height=0,frames=65535;
622 static char *kwlist[] = {"width", "height", "frames", NULL};
623 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "ii|i", kwlist, &width, &height, &frames))
626 printf(": %d %d\n", width, height);
628 tag_internals_t*itag = tag_getinternals(tag);
629 videostream_internal_t*fi = (videostream_internal_t*)itag->data;
630 fi->stream = malloc(sizeof(VIDEOSTREAM));
631 memset(fi->stream, 0, sizeof(VIDEOSTREAM));
633 TAG*t = swf_InsertTag(0, ST_DEFINEVIDEOSTREAM);
634 swf_SetU16(t, 0); /* id */
635 swf_SetVideoStreamDefine(t, fi->stream, frames, width, height);
637 fi->lastiframe = -65536;
638 return (PyObject*)tag;
640 static VIDEOSTREAM* videostream_getVIDEOSTREAM(PyObject*self)
642 PY_ASSERT_TYPE(self, &TagClass);
643 tag_internals_t*itag = tag_getinternals(self);
644 videostream_internal_t*fi = (videostream_internal_t*)itag->data;
647 static PyObject* videostream_getbwidth(PyObject*self, PyObject*args)
649 tag_internals_t*itag = tag_getinternals(self);
650 videostream_internal_t*fi = (videostream_internal_t*)itag->data;
651 int width = fi->stream->bbx;
652 return Py_BuildValue("i", width);
654 static PyObject* videostream_getbheight(PyObject*self, PyObject*args)
656 tag_internals_t*itag = tag_getinternals(self);
657 videostream_internal_t*fi = (videostream_internal_t*)itag->data;
658 int height = fi->stream->bby;
659 return Py_BuildValue("i", height);
661 static PyObject* videostream_addFrame(PyObject*self, PyObject*args, PyObject*kwargs)
663 tag_internals_t*_itag = tag_getinternals(self);
664 videostream_internal_t*fi = (videostream_internal_t*)_itag->data;
667 char*type=0; // none, "i", "p"
669 static char *kwlist[] = {"image", "quant", "type", NULL};
670 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "O|is", kwlist, &image, &quant, &type))
672 if(fi->stream->width != image_getWidth(image)) {
673 PyErr_SetString(PyExc_Exception, setError("bad image width %d!=%d", image_getWidth(image), fi->stream->width));return 0;
675 if(fi->stream->height != image_getHeight(image)) {
676 PyErr_SetString(PyExc_Exception, setError("bad image width %d!=%d", image_getHeight(image), fi->stream->height));return 0;
678 PyObject*tag = tag_new(&videoframe_tag);
679 tag_internals_t*itag = tag_getinternals(tag);
681 RGBA*pic = image_toRGBA(image);
686 { int f,j=0,i=0,rr,gg,bb;
689 char*filename="test.ppm";
690 printf("Creating %s %dx%d\n",filename, 512,512);
691 o=fopen(filename, "wb");
692 fprintf(o,"P6\n%d %d\n255\n",512, 512);
698 fprintf(o,"%c%c%c",rr,gg,bb);
705 TAG* t = swf_InsertTag(0, ST_VIDEOFRAME);
706 if((type && (type[0]=='I' || type[0]=='i')) || (type==0 && fi->lastiframe+64 < fi->stream->frame)) {
707 swf_SetU16(t,0); /* id */
708 swf_SetVideoStreamIFrame(t, fi->stream, pic, quant);
709 fi->lastiframe = fi->stream->frame;
712 swf_SetVideoStreamPFrame(t, fi->stream, pic, quant);
715 tagmap_addMapping(itag->tagmap, 0, self);
719 static PyObject* videostream_addDistortionFrame(PyObject*self, PyObject*args, PyObject*kwargs)
721 tag_internals_t*_itag = tag_getinternals(self);
722 videostream_internal_t*fi = (videostream_internal_t*)_itag->data;
724 static char *kwlist[] = {"image", "quant", NULL};
727 if (!PyArg_ParseTupleAndKeywords(args, kwargs, "O|i", kwlist, &array, &quant))
730 signed char* movex = malloc(fi->stream->bbx * fi->stream->bby);
731 signed char* movey = malloc(fi->stream->bbx * fi->stream->bby);
732 signed char* itx=movex;
733 signed char* ity=movey;
735 if(!array || !PySequence_Check(array))
736 return PY_ERROR("Not an array");
737 if(PySequence_Length(array) < fi->stream->bby)
738 return PY_ERROR("Array (y) has to have at least %d elements, but has only %d ", fi->stream->bby, PySequence_Length(array));
739 for(y=0;y<fi->stream->bby;y++) {
740 PyObject*line = PySequence_GetItem(array, y);
741 if(!line || !PySequence_Check(line))
742 return PY_ERROR("Not an array of arrays");
743 if(PySequence_Length(line) < fi->stream->bbx)
744 return PY_ERROR("Inner arrays (x) have to be at least %d long- %dth is only %d", fi->stream->bbx, y, PySequence_Length(line));
746 for(x=0;x<fi->stream->bbx;x++) {
747 PyObject*pixel = PySequence_GetItem(line, x);
752 if(!PyComplex_Check(pixel)) {
753 return PY_ERROR("Not an array of arrays of complex numbers");
755 *itx = (signed char)PyComplex_RealAsDouble(pixel);
756 *ity = (signed char)PyComplex_ImagAsDouble(pixel);
763 PyObject*tag = tag_new(&videoframe_tag);
764 tag_internals_t*itag = tag_getinternals(tag);
766 TAG* t = swf_InsertTag(0, ST_VIDEOFRAME);
767 swf_SetU16(t,0); /* id */
768 swf_SetVideoStreamMover(t, fi->stream, movex, movey, quant);
771 tagmap_addMapping(itag->tagmap, 0, self);
778 static PyMethodDef videostream_methods[] =
779 {{"xblocks", videostream_getbwidth, METH_VARARGS, "get's the number of horizontal blocks"},
780 {"yblocks", videostream_getbheight, METH_VARARGS, "get's the number of vertical blocks"},
781 {"addFrame", (PyCFunction)videostream_addFrame, METH_KEYWORDS, "add a Video Frame"},
782 {"addDistortionFrame", (PyCFunction)videostream_addDistortionFrame, METH_KEYWORDS, "add a MVD frame"},
783 {NULL, NULL, 0, NULL}
786 static tag_internals_t videostream_tag =
788 parse: videostream_parse,
789 fillTAG: videostream_fillTAG,
790 dealloc: videostream_dealloc,
793 tagfunctions: videostream_methods,
794 datasize: sizeof(videostream_internal_t),
797 //============================================================================
799 static tag_internals_t videoframe_tag =
810 //============================================================================
812 static PyMethodDef TagMethods[] =
815 {"BackgroundColor", (PyCFunction)f_SetBackgroundColor, METH_KEYWORDS, "Create a SetBackGroundColor Tag."},
816 {"Protect", (PyCFunction)f_Protect, METH_KEYWORDS, "Create a Protect Tag."},
817 {"Font", (PyCFunction)f_DefineFont, METH_KEYWORDS, "Create a DefineFont Tag."},
818 {"Text", (PyCFunction)f_DefineText, METH_KEYWORDS, "Create a DefineText Tag."},
819 {"PlaceObject", (PyCFunction)f_PlaceObject, METH_KEYWORDS, "Create a PlaceObject Tag."},
820 {"MoveObject", (PyCFunction)f_MoveObject, METH_KEYWORDS, "Create a PlaceObject Move Tag."},
821 {"VideoStream", (PyCFunction)f_DefineVideoStream, METH_KEYWORDS, "Create a Videostream."},
822 {"Image", (PyCFunction)f_DefineImage, METH_KEYWORDS, "Create an SWF Image Tag."},
823 {"ImageShape", (PyCFunction)f_DefineImageShape, METH_KEYWORDS, "Create an SWF Image Shape Tag."},
824 {"ShowFrame", (PyCFunction)f_ShowFrame, METH_KEYWORDS, "Create an SWF Show Frame Tag."},
825 {"Sprite", (PyCFunction)f_Sprite, METH_KEYWORDS, "Create an SWF Sprite Tag."},
826 {NULL, NULL, 0, NULL}
828 PyMethodDef* tags_getMethods()
830 TagClass.ob_type = &PyType_Type;
832 register_tag(ST_PLACEOBJECT,&placeobject_tag);
833 register_tag(ST_PLACEOBJECT2,&placeobject_tag);
834 register_tag(ST_SETBACKGROUNDCOLOR,&bgcolor_tag);
835 register_tag(ST_DEFINEFONT,&font_tag);
836 register_tag(ST_PROTECT,&protect_tag);
837 register_tag(ST_DEFINETEXT,&text_tag);
838 register_tag(ST_DEFINEBITSJPEG,&image_tag);
839 register_tag(ST_DEFINEBITSJPEG2,&image_tag);
840 register_tag(ST_DEFINEBITSJPEG3,&image_tag);
841 register_tag(ST_DEFINEBITSLOSSLESS,&image_tag);
842 register_tag(ST_DEFINEBITSLOSSLESS2,&image_tag);
843 register_tag(ST_SHOWFRAME,&showframe_tag);
844 register_tag(ST_DEFINEVIDEOSTREAM,&videostream_tag);
845 register_tag(ST_VIDEOFRAME,&videoframe_tag);
846 register_tag(ST_DEFINESPRITE,&sprite_tag);
847 register_tag(ST_END,&end_tag);