added filters
[swftools.git] / src / swfc.c
index 092a49d..745ec2e 100644 (file)
 #include "../lib/log.h"
 #include "../lib/args.h"
 #include "../lib/q.h"
+#include "../lib/mp3.h"
+#include "../lib/wav.h"
 #include "parser.h"
-#include "wav.h"
+#include "../lib/png.h"
 
 //#define DEBUG
 
@@ -42,10 +44,12 @@ static char * outputname = "output.swf";
 static int verbose = 2;
 static int optimize = 0;
 static int override_outputname = 0;
+static int do_cgi = 0;
 
 static struct options_t options[] = {
 {"h", "help"},
 {"V", "version"},
+{"C", "cgi"},
 {"v", "verbose"},
 {"o", "output"},
 {0,0}
@@ -66,6 +70,10 @@ int args_callback_option(char*name,char*val)
        optimize = 1;
        return 0;
     }
+    else if(!strcmp(name, "C")) {
+       do_cgi = 1;
+       return 0;
+    }
     else if(!strcmp(name, "v")) {
        verbose ++;
        return 0;
@@ -87,6 +95,7 @@ void args_callback_usage(char *name)
     printf("\n");
     printf("-h , --help                    Print short help message and exit\n");
     printf("-V , --version                 Print version info and exit\n");
+    printf("-C , --cgi                     Output to stdout (for use in CGI environments)\n");
     printf("-v , --verbose                 Increase verbosity. \n");
     printf("-o , --output <filename>       Set output file to <filename>.\n");
     printf("\n");
@@ -117,7 +126,7 @@ static void syntaxerror(char*format, ...)
     va_start(arglist, format);
     vsprintf(buf, format, arglist);
     va_end(arglist);
-    printf("\"%s\", line %d column %d: error- %s\n", filename, line, column, buf);
+    fprintf(stderr, "\"%s\", line %d column %d: error- %s\n", filename, line, column, buf);
     exit(1);
 }
 
@@ -128,7 +137,7 @@ static void warning(char*format, ...)
     va_start(arglist, format);
     vsprintf(buf, format, arglist);
     va_end(arglist);
-    printf("\"%s\", line %d column %d: warning- %s\n", filename, line, column, buf);
+    fprintf(stderr, "\"%s\", line %d column %d: warning- %s\n", filename, line, column, buf);
 }
 
 static void readToken()
@@ -194,6 +203,7 @@ static dictionary_t images;
 static dictionary_t textures;
 static dictionary_t outlines;
 static dictionary_t gradients;
+static dictionary_t filters;
 static char idmap[65536];
 static TAG*tag = 0; //current tag
 
@@ -213,6 +223,8 @@ typedef struct _parameters {
     float shear;
     SPOINT pivot;
     SPOINT pin;
+    U8 blendmode; //not interpolated
+    FILTER*filter;
 } parameters_t;
 
 typedef struct _character {
@@ -240,6 +252,10 @@ typedef struct _gradient {
     int rotate;
 } gradient_t;
 
+typedef struct _filter {
+    FILTER filter;
+} filter_t;
+
 typedef struct _texture {
     FILLSTYLE fs;
 } texture_t;
@@ -318,15 +334,6 @@ static instance_t* s_addinstance(char*name, character_t*c, U16 depth)
     return i;
 }
 
-static void parameters_set(parameters_t*p, int x,int y, float scalex, float scaley, float rotate, float shear, SPOINT pivot, SPOINT pin, CXFORM cxform)
-{
-    p->x = x; p->y = y; 
-    p->scalex = scalex; p->scaley = scaley;
-    p->pin    = pin; p->pivot = pivot;
-    p->rotate = rotate; p->cxform = cxform;
-    p->shear = shear;
-}
-
 static void parameters_clear(parameters_t*p)
 {
     p->x = 0; p->y = 0; 
@@ -336,6 +343,8 @@ static void parameters_clear(parameters_t*p)
     p->pivot.x = 0; p->pivot.y = 0;
     p->rotate = 0; 
     p->shear = 0; 
+    p->blendmode = 0;
+    p->filter = 0;
     swf_GetCXForm(0, &p->cxform, 1);
 }
 
@@ -402,6 +411,7 @@ void s_swf(char*name, SRECT r, int version, int fps, int compress, RGBA backgrou
     dictionary_init(&textures);
     dictionary_init(&outlines);
     dictionary_init(&gradients);
+    dictionary_init(&filters);
     dictionary_init(&instances);
     dictionary_init(&fonts);
     dictionary_init(&sounds);
@@ -671,11 +681,16 @@ static void s_endSWF()
        warning("Empty bounding box for movie");
     }
     
-    fi = open(filename, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY, 0644);
+    if(do_cgi)
+       fi = fileno(stdout);
+    else
+       fi = open(filename, O_WRONLY|O_CREAT|O_TRUNC|O_BINARY, 0644);
     if(fi<0) {
        syntaxerror("couldn't create output file %s", filename);
     }
-    if(swf->compressed) 
+    if(do_cgi)
+       {if(swf_WriteCGI(swf)<0) syntaxerror("WriteCGI() failed.\n");}
+    else if(swf->compressed) 
        {if(swf_WriteSWC(fi, swf)<0) syntaxerror("WriteSWC() failed.\n");}
     else
        {if(swf_WriteSWF(fi, swf)<0) syntaxerror("WriteSWF() failed.\n");}
@@ -687,7 +702,8 @@ static void s_endSWF()
     dictionary_clear(&images);
     dictionary_clear(&textures);
     dictionary_clear(&outlines);
-    dictionary_clear(&gradients);
+    dictionary_clear(&gradients); // mem leak
+    dictionary_clear(&filters);
     dictionary_clear(&fonts);
     dictionary_clear(&sounds);
 
@@ -713,7 +729,7 @@ int s_getframe()
     return currentframe+1;
 }
 
-void s_frame(int nr, int cut, char*name)
+void s_frame(int nr, int cut, char*name, char anchor)
 {
     int t;
     TAG*now = tag;
@@ -727,11 +743,15 @@ void s_frame(int nr, int cut, char*name)
        if(t==nr-1 && name && *name) {
            tag = swf_InsertTag(tag, ST_FRAMELABEL);
            swf_SetString(tag, name);
+           if(anchor)
+               swf_SetU8(tag, 1); //make this an anchor
        }
     }
-    if(nr == 0 && currentframe == 0 && name) {
+    if(nr == 0 && currentframe == 0 && name && *name) {
         tag = swf_InsertTag(tag, ST_FRAMELABEL);
         swf_SetString(tag, name);
+       if(anchor)
+           swf_SetU8(tag, 1); //make this an anchor
     }
 
     if(cut) {
@@ -1020,13 +1040,8 @@ void s_image(char*name, char*type, char*filename, int quality)
     SRECT r;
     int imageID = id;
     int width, height;
-    if(type=="png") {
-       warning("image type \"png\" not supported yet!");
-       s_box(name, 0, 0, black, 20, 0);
-       return;
-    }
-    if(type=="jpeg") {
-#ifndef HAVE_LIBJPEG
+    if(!strcmp(type,"jpeg")) {
+#ifndef HAVE_JPEGLIB
        warning("no jpeg support compiled in");
        s_box(name, 0, 0, black, 20, 0);
        return;
@@ -1048,6 +1063,31 @@ void s_image(char*name, char*type, char*filename, int quality)
        s_addimage(name, id, tag, r);
        incrementid();
 #endif
+    } else if(!strcmp(type,"png")) {
+       RGBA*data = 0;
+       swf_SetU16(tag, imageID);
+
+       getPNG(filename, &width, &height, (unsigned char**)&data);
+
+       if(!data) {
+           syntaxerror("Image \"%s\" not found, or contains errors", filename);
+       }
+
+       /*tag = swf_AddImage(tag, imageID, data, width, height, quality)*/
+       tag = swf_InsertTag(tag, ST_DEFINEBITSLOSSLESS);
+       swf_SetU16(tag, imageID);
+       swf_SetLosslessImage(tag, data, width, height);
+
+       r.xmin = 0;
+       r.ymin = 0;
+       r.xmax = width*20;
+       r.ymax = height*20;
+       s_addimage(name, id, tag, r);
+       incrementid();
+    } else {
+       warning("image type \"%s\" not supported yet!", type);
+       s_box(name, 0, 0, black, 20, 0);
+       return;
     }
 
     /* step 2: the character */
@@ -1090,6 +1130,8 @@ void s_texture(char*name, char*object, int x, int y, float scalex, float scaley,
     parameters_t p;
     FILLSTYLE*fs = &texture->fs;
 
+    memset(&p, 0, sizeof(parameters_t));
+
     if(bitmap) {
        fs->type = FILL_TILED;
        fs->id_bitmap = bitmap->id;
@@ -1156,6 +1198,10 @@ void s_font(char*name, char*filename)
     font->id = id;
     tag = swf_InsertTag(tag, ST_DEFINEFONT2);
     swf_FontSetDefine2(tag, font);
+    tag = swf_InsertTag(tag, ST_EXPORTASSETS);
+    swf_SetU16(tag, 1);
+    swf_SetU16(tag, id);
+    swf_SetString(tag, name);
     incrementid();
 
     if(dictionary_lookup(&fonts, name))
@@ -1174,18 +1220,16 @@ typedef struct _sound_t
 void s_sound(char*name, char*filename)
 {
     struct WAV wav, wav2;
+    struct MP3 mp3;
     sound_t* sound;
-    U16*samples;
-    int numsamples;
-    int t;
-    int blocksize = 1152;
-
-    if(!readWAV(filename, &wav)) {
-       warning("Couldn't read wav file \"%s\"", filename);
-       samples = 0;
-       numsamples = 0;
-    } else {
-       convertWAV2mono(&wav, &wav2, 44100);
+    U16*samples = NULL;
+    unsigned numsamples;
+    unsigned blocksize = 1152;
+    int is_mp3 = 0;
+
+    if(wav_read(&wav, filename)) {
+        int t;
+       wav_convert2mono(&wav, &wav2, 44100);
        samples = (U16*)wav2.data;
        numsamples = wav2.size/2;
        free(wav.data);
@@ -1195,6 +1239,16 @@ void s_sound(char*name, char*filename)
            samples[t] = (samples[t]>>8)&0xff | (samples[t]<<8)&0xff00;
        }
 #endif
+    } else if(mp3_read(&mp3, filename)) {
+        fprintf(stderr, "\"%s\" seems to work as a MP3 file...\n", filename);
+        blocksize = 1;
+        is_mp3 = 1;
+    }
+    else
+    {
+       warning("Couldn't read WAV/MP3 file \"%s\"", filename);
+       samples = 0;
+       numsamples = 0;
     }
     
     if(numsamples%blocksize != 0)
@@ -1213,8 +1267,28 @@ void s_sound(char*name, char*filename)
 
     tag = swf_InsertTag(tag, ST_DEFINESOUND);
     swf_SetU16(tag, id); //id
-    swf_SetSoundDefine(tag, samples, numsamples);
-   
+    if(is_mp3)
+    {
+        swf_SetSoundDefineMP3(
+                tag, mp3.data, mp3.size,
+                mp3.SampRate,
+                mp3.Channels,
+                mp3.NumFrames);
+       mp3_clear(&mp3);
+    }
+    else
+    {
+        swf_SetSoundDefine(tag, samples, numsamples);
+    }
+    
+    tag = swf_InsertTag(tag, ST_NAMECHARACTER);
+    swf_SetU16(tag, id);
+    swf_SetString(tag, name);
+    tag = swf_InsertTag(tag, ST_EXPORTASSETS);
+    swf_SetU16(tag, 1);
+    swf_SetU16(tag, id);
+    swf_SetString(tag, name);
+
     sound = (sound_t*)malloc(sizeof(sound_t)); /* mem leak */
     sound->tag = tag;
     sound->id = id;
@@ -1255,6 +1329,8 @@ GRADIENT parseGradient(const char*str)
     int lastpos = -1;
     const char* p = str;
     memset(&gradient, 0, sizeof(GRADIENT));
+    gradient.ratios = rfx_calloc(16*sizeof(U8));
+    gradient.rgba = rfx_calloc(16*sizeof(RGBA));
     while(*p) {
        char*posstr,*colorstr;
        int pos;
@@ -1268,8 +1344,8 @@ GRADIENT parseGradient(const char*str)
        if(!*p) syntaxerror("Error in shape data: Color expected after %s", posstr);
        colorstr = gradient_getToken(&p);
        color = parseColor(colorstr);
-       if(gradient.num == sizeof(gradient.ratios)/sizeof(gradient.ratios[0])) {
-           warning("gradient record too big- max size is 8, rest ignored");
+       if(gradient.num == 16) {
+           warning("gradient record too big- max size is 16, rest ignored");
            break;
        }
        gradient.ratios[gradient.num] = pos;
@@ -1295,6 +1371,92 @@ void s_gradient(char*name, const char*text, int radial, int rotate)
        syntaxerror("gradient %s defined twice", name);
     dictionary_put2(&gradients, name, gradient);
 }
+    
+void s_gradientglow(char*name, char*gradient, float blurx, float blury, 
+                   float angle, float distance, float strength, char innershadow, 
+                   char knockout, char composite, char ontop, int passes)
+{
+    gradient_t* g = dictionary_lookup(&gradients, gradient);
+
+    composite = 1;
+
+    if(!g)
+       syntaxerror("unknown gradient %s", gradient);
+    FILTER_GRADIENTGLOW* filter = rfx_calloc(sizeof(FILTER_GRADIENTGLOW));
+    filter->type = FILTERTYPE_GRADIENTGLOW;
+    filter->gradient = &g->gradient;
+    filter->blurx = blurx;
+    filter->blury = blury;
+    filter->strength = strength;
+    filter->angle = angle;
+    filter->distance = distance;
+    filter->innershadow = innershadow;
+    filter->knockout = knockout;
+    filter->composite = composite;
+    filter->ontop = ontop;
+    filter->passes = passes;
+
+    if(dictionary_lookup(&filters, name))
+       syntaxerror("filter %s defined twice", name);
+    dictionary_put2(&filters, name, filter);
+}
+
+void s_dropshadow(char*name, RGBA color, double blurx, double blury, double angle, double distance, double strength, char innershadow, char knockout, char composite, int passes)
+{
+    composite = 1;
+    FILTER_DROPSHADOW* filter = rfx_calloc(sizeof(FILTER_DROPSHADOW));
+    filter->type = FILTERTYPE_DROPSHADOW;
+    filter->color= color;
+    filter->blurx = blurx;
+    filter->blury = blury;
+    filter->strength = strength;
+    filter->angle = angle;
+    filter->distance = distance;
+    filter->innershadow = innershadow;
+    filter->knockout = knockout;
+    filter->composite = composite;
+    filter->passes = passes;
+
+    if(dictionary_lookup(&filters, name))
+       syntaxerror("filter %s defined twice", name);
+    dictionary_put2(&filters, name, filter);
+}
+
+void s_bevel(char*name, RGBA shadow, RGBA highlight, double blurx, double blury, double angle, double distance, double strength, char innershadow, char knockout, char composite, char ontop, int passes)
+{
+    composite = 1;
+    FILTER_BEVEL* filter = rfx_calloc(sizeof(FILTER_BEVEL));
+    filter->type = FILTERTYPE_BEVEL;
+    filter->shadow = shadow;
+    filter->highlight = highlight;
+    filter->blurx = blurx;
+    filter->blury = blury;
+    filter->strength = strength;
+    filter->angle = angle;
+    filter->distance = distance;
+    filter->innershadow = innershadow;
+    filter->knockout = knockout;
+    filter->composite = composite;
+    filter->ontop = ontop;
+    filter->passes = passes;
+
+    if(dictionary_lookup(&filters, name))
+       syntaxerror("filter %s defined twice", name);
+    dictionary_put2(&filters, name, filter);
+}
+
+void s_blur(char*name, double blurx, double blury, int passes)
+{
+    FILTER_BLUR* filter = rfx_calloc(sizeof(FILTER_BLUR));
+    filter->type = FILTERTYPE_BLUR;
+    filter->blurx = blurx;
+    filter->blury = blury;
+    filter->passes = passes;
+
+    if(dictionary_lookup(&filters, name))
+       syntaxerror("filter %s defined twice", name);
+    dictionary_put2(&filters, name, filter);
+}
 
 void s_action(const char*text)
 {
@@ -1334,7 +1496,7 @@ int s_swf3action(char*name, char*action)
     ActionTAG* a = 0;
     instance_t* object = 0;
     if(name) 
-       dictionary_lookup(&instances, name);
+       object = (instance_t*)dictionary_lookup(&instances, name);
     if(!object && name && *name) {
        /* we have a name, but couldn't find it. Abort. */
        return 0;
@@ -1450,13 +1612,17 @@ void s_includeswf(char*name, char*filename)
            level--;
        if(!level)
            break;
-       /* We simply dump all tags right after the sprite
-          header, relying on the fact that swf_OptimizeTagOrder() will
-          sort things out for us later. 
-          We also rely on the fact that the imported SWF is well-formed.
-        */
-       tag = swf_InsertTag(tag, ftag->id);
-       swf_SetBlock(tag, ftag->data, ftag->len);
+
+       if(ftag->id != ST_SETBACKGROUNDCOLOR) {
+           /* We simply dump all tags right after the sprite
+              header, relying on the fact that swf_OptimizeTagOrder() will
+              sort things out for us later. 
+              We also rely on the fact that the imported SWF is well-formed.
+            */
+           tag = swf_InsertTag(tag, ftag->id);
+           swf_SetBlock(tag, ftag->data, ftag->len);
+       }
+
        ftag = ftag->next;
     }
     if(!ftag)
@@ -1526,6 +1692,30 @@ void s_endClip()
     currentdepth++;
 }
 
+void setPlacement(TAG*tag, U16 id, U16 depth, MATRIX m, char*name, parameters_t*p, char move)
+{
+    SWFPLACEOBJECT po;
+    FILTERLIST flist;
+    swf_GetPlaceObject(NULL, &po);
+    po.id = id;
+    po.depth = depth;
+    po.matrix = m;
+    po.cxform = p->cxform;
+    po.name = name;
+    po.move = move;
+    if(move)
+       po.id = 0;
+    if(p->blendmode) {
+       po.blendmode = p->blendmode;
+    }
+    if(p->filter) {
+       flist.num = 1;
+       flist.filter[0] = p->filter;
+       po.filters = &flist;
+    }
+    swf_SetPlaceObject(tag, &po);
+}
+
 void s_put(char*instance, char*character, parameters_t p)
 {
     character_t* c = dictionary_lookup(&characters, character);
@@ -1538,12 +1728,18 @@ void s_put(char*instance, char*character, parameters_t p)
     i = s_addinstance(instance, c, currentdepth);
     i->parameters = p;
     m = s_instancepos(i->character->size, &p);
+   
+    if(p.blendmode || p.filter) {
+       tag = swf_InsertTag(tag, ST_PLACEOBJECT3);
+    } else {
+       tag = swf_InsertTag(tag, ST_PLACEOBJECT2);
+    }
+    setPlacement(tag, c->id, currentdepth, m, instance, &p, 0);
     
-    tag = swf_InsertTag(tag, ST_PLACEOBJECT2);
-    swf_ObjectPlace(tag, c->id, currentdepth, &m, &p.cxform, instance);
     i->lastTag = tag;
     i->lastFrame = currentframe;
     currentdepth++;
+    
 }
 
 void s_jump(char*instance, parameters_t p)
@@ -1557,12 +1753,93 @@ void s_jump(char*instance, parameters_t p)
     i->parameters = p;
     m = s_instancepos(i->character->size, &p);
 
-    tag = swf_InsertTag(tag, ST_PLACEOBJECT2);
-    swf_ObjectMove(tag, i->depth, &m, &p.cxform);
+    if(p.blendmode || p.filter) {
+       tag = swf_InsertTag(tag, ST_PLACEOBJECT3);
+    } else {
+       tag = swf_InsertTag(tag, ST_PLACEOBJECT2);
+    }
+    setPlacement(tag, 0, i->depth, m, 0, &p, 1);
+
     i->lastTag = tag;
     i->lastFrame = currentframe;
 }
 
+RGBA interpolateColor(RGBA c1, RGBA c2, float ratio)
+{
+    RGBA c;
+    c.r = c1.r * (1-ratio) + c2.r * ratio;
+    c.g = c1.g * (1-ratio) + c2.g * ratio;
+    c.b = c1.b * (1-ratio) + c2.b * ratio;
+    c.a = c1.a * (1-ratio) + c2.a * ratio;
+    return c;
+}
+
+FILTER* interpolateFilter(FILTER*filter1,FILTER*filter2, float ratio)
+{
+    if(!filter1 && !filter2)
+       return 0;
+    if(!filter1)
+       return interpolateFilter(filter2,filter1,1-ratio);
+
+    if(filter2 && filter2->type != filter1->type)
+       syntaxerror("can't interpolate between %s and %s filters yet", filtername[filter1->type], filtername[filter2->type]);
+   
+    if(filter1->type == FILTERTYPE_BLUR) {
+       FILTER_BLUR*f1 = (FILTER_BLUR*)filter1;
+       FILTER_BLUR*f2 = (FILTER_BLUR*)filter2;
+       if(f2 && f1->blurx == f2->blurx && f1->blury == f2->blury)
+           return 0;
+       FILTER_BLUR*f = (FILTER_BLUR*)swf_NewFilter(FILTERTYPE_BLUR);
+       f->blurx= (f1->blurx)*(1-ratio) + (f2?f2->blurx:0)*ratio;
+       f->blury= (f1->blury)*(1-ratio) + (f2?f2->blury:0)*ratio;
+       f->passes= (f1->passes)*(1-ratio) + (f2?f2->passes:0)*ratio;
+       return (FILTER*)f;
+    } else if (filter1->type == FILTERTYPE_DROPSHADOW) {
+       FILTER_DROPSHADOW*f1 = (FILTER_DROPSHADOW*)filter1;
+       FILTER_DROPSHADOW*f2 = (FILTER_DROPSHADOW*)filter2;
+       if(f2 && !memcmp(&f1->color,&f2->color,sizeof(RGBA)) && f1->strength == f2->strength && 
+          f1->blurx == f2->blurx && f1->blury == f2->blury && 
+          f1->angle == f2->angle && f1->distance == f2->distance)
+           return 0;
+       FILTER_DROPSHADOW*f = (FILTER_DROPSHADOW*)swf_NewFilter(FILTERTYPE_DROPSHADOW);
+       memcpy(f, f1, sizeof(FILTER_DROPSHADOW));
+       f->color = interpolateColor(f1->color, f2->color, ratio);
+       f->blurx= (f1->blurx)*(1-ratio) + (f2?f2->blurx:0)*ratio;
+       f->blury= (f1->blury)*(1-ratio) + (f2?f2->blury:0)*ratio;
+       f->passes= (f1->passes)*(1-ratio) + (f2?f2->passes:0)*ratio;
+       f->angle= (f1->angle)*(1-ratio) + (f2?f2->angle:0)*ratio;
+       f->distance= (f1->distance)*(1-ratio) + (f2?f2->distance:0)*ratio;
+       f->strength= (f1->strength)*(1-ratio) + (f2?f2->strength:0)*ratio;
+       return (FILTER*)f;
+    } else if (filter1->type == FILTERTYPE_BEVEL) {
+       FILTER_BEVEL*f1 = (FILTER_BEVEL*)filter1;
+       FILTER_BEVEL*f2 = (FILTER_BEVEL*)filter2;
+       if(f2 && !memcmp(&f1->shadow,&f2->shadow,sizeof(RGBA)) && 
+          !memcmp(&f1->highlight,&f2->highlight,sizeof(RGBA)) && 
+          f1->blurx == f2->blurx && f1->blury == f2->blury && f1->angle == f2->angle && f1->strength == f2->strength && f1->distance == f2->distance)
+           return 0;
+       FILTER_BEVEL*f = (FILTER_BEVEL*)swf_NewFilter(FILTERTYPE_BEVEL);
+       memcpy(f, f1, sizeof(FILTER_BEVEL));
+       f->shadow = interpolateColor(f1->shadow, f2->shadow, ratio);
+       f->highlight = interpolateColor(f1->highlight, f2->highlight, ratio);
+       f->blurx= (f1->blurx)*(1-ratio) + (f2?f2->blurx:0)*ratio;
+       f->blury= (f1->blury)*(1-ratio) + (f2?f2->blury:0)*ratio;
+       f->passes= (f1->passes)*(1-ratio) + (f2?f2->passes:0)*ratio;
+       f->angle= (f1->angle)*(1-ratio) + (f2?f2->angle:0)*ratio;
+       f->distance= (f1->distance)*(1-ratio) + (f2?f2->distance:0)*ratio;
+       f->strength= (f1->strength)*(1-ratio) + (f2?f2->strength:0)*ratio;
+       return (FILTER*)f;
+    } /*else if (filter1->type == FILTERTYPE_GRADIENTGLOW) {
+       FILTER_GRADIENTGLOW*f = (FILTER_GRADIENTGLOW*)swf_NewFilter(FILTERTYPE_GRADIENTGLOW);
+       // can't interpolate gradients
+       memcpy(f, filter1, sizeof(FILTER_GRADIENTGLOW));
+       return (FILTER*)f;
+    }*/ else {
+       syntaxerror("can't interpolate %s filters yet", filtername[filter1->type]);
+    }
+    return 0;
+}
+
 parameters_t s_interpolate(parameters_t*p1, parameters_t*p2, int pos, int num)
 {
     parameters_t p;
@@ -1592,6 +1869,8 @@ parameters_t s_interpolate(parameters_t*p1, parameters_t*p2, int pos, int num)
     p.pivot.y = (p2->pivot.y-p1->pivot.y)*ratio + p1->pivot.y;
     p.pin.x = (p2->pin.x-p1->pin.x)*ratio + p1->pin.x;
     p.pin.y = (p2->pin.y-p1->pin.y)*ratio + p1->pin.y;
+
+    p.filter = interpolateFilter(p1->filter, p2->filter, ratio);
     return p;
 }
 
@@ -1614,8 +1893,12 @@ void s_change(char*instance, parameters_t p2)
     }
     
     m = s_instancepos(i->character->size, &p2);
-    tag = swf_InsertTag(tag, ST_PLACEOBJECT2);
-    swf_ObjectMove(tag, i->depth, &m, &p2.cxform);
+    if(p2.blendmode || p2.filter) {
+       tag = swf_InsertTag(tag, ST_PLACEOBJECT3);
+    } else {
+       tag = swf_InsertTag(tag, ST_PLACEOBJECT2);
+    }
+    setPlacement(tag, 0, i->depth, m, 0, &p2, 1);
     i->parameters = p2;
 
     /* o.k., we got the start and end point set. Now iterate though all the
@@ -1632,9 +1915,14 @@ void s_change(char*instance, parameters_t p2)
            frame ++;
            p = s_interpolate(&p1, &p2, frame, allframes);
            m = s_instancepos(i->character->size, &p); //needed?
-           lt = swf_InsertTag(t, ST_PLACEOBJECT2);
+
            i->lastFrame = currentframe;
-           swf_ObjectMove(lt, i->depth, &m, &p.cxform);
+           if(p.blendmode || p.filter) {
+               lt = swf_InsertTag(t, ST_PLACEOBJECT3);
+           } else {
+               lt = swf_InsertTag(t, ST_PLACEOBJECT2);
+           }
+           setPlacement(lt, 0, i->depth, m, 0, &p, 1);
            t = lt;
            if(frame == allframes)
                break;
@@ -1681,7 +1969,7 @@ typedef int command_func_t(map_t*args);
 
 SRECT parseBox(char*str)
 {
-    SRECT r;
+    SRECT r = {0,0,0,0};
     float xmin, xmax, ymin, ymax;
     char*x = strchr(str, 'x');
     char*d1=0,*d2=0;
@@ -1751,8 +2039,10 @@ int parseTwip(char*str)
        int t;
        return sign*parseInt(str)*20;
     } else {
-       int l=strlen(++dot);
+       char* old = strdup(str);
+       int l=strlen(dot+1);
        char*s;
+       *dot++ = 0;
        for(s=str;s<dot-1;s++)
            if(*s<'0' || *s>'9')
                syntaxerror("Not a coordinate: \"%s\"", str);
@@ -1761,10 +2051,12 @@ int parseTwip(char*str)
                syntaxerror("Not a coordinate: \"%s\"", str);
        }
        if(l>2 || (l==2 && (dot[1]!='0' && dot[1]!='5'))) {
-           warning("precision loss: %s converted to twip: %s", str, dot);
+           dot[1] = ((dot[1]-0x30)/5)*5 + 0x30;
            dot[2] = 0;
            l=2;
+           warning("precision loss: %s converted to twip: %s.%s", old, str, dot);
        }
+       free(old);
        if(l==0)
            return sign*atoi(str)*20;
        if(l==1)
@@ -1828,12 +2120,18 @@ int parseColor2(char*str, RGBA*color)
        color->r = r; color->g = g; color->b = b; color->a = a;
        return 1;
     }
+    int len=strlen(str);
+    U8 alpha = 255;
+    if(strchr(str, '/')) {
+       len = strchr(str, '/')-str;
+       sscanf(str+len+1,"%02x", &alpha);
+    }
     for(t=0;t<sizeof(colors)/sizeof(colors[0]);t++)
-       if(!strcmp(str, colors[t].name)) {
+       if(!strncmp(str, colors[t].name, len)) {
            r = colors[t].r;
            g = colors[t].g;
            b = colors[t].b;
-           a = 255;
+           a = alpha;
            color->r = r; color->g = g; color->b = b; color->a = a;
            return 1;
        }
@@ -1973,7 +2271,7 @@ static int c_flash(map_t*args)
        filename = outputname;
     
     if(!strcmp(compressstr, "default"))
-       compress = version==6;
+       compress = version>=6;
     else if(!strcmp(compressstr, "yes") || !strcmp(compressstr, "compress"))
        compress = 1;
     else if(!strcmp(compressstr, "no"))
@@ -2118,6 +2416,117 @@ static int c_gradient(map_t*args)
     texture2(name, name, args, 0);
     return 0;
 }
+
+static int c_blur(map_t*args) 
+{
+    char*name = lu(args, "name");
+    char*blurstr = lu(args, "blur");
+    char*blurxstr = lu(args, "blurx");
+    char*blurystr = lu(args, "blury");
+    float blurx=1.0, blury=1.0;
+    if(blurstr[0]) {
+       blurx = parseFloat(blurstr);
+       blury = parseFloat(blurstr);
+    } 
+    if(blurxstr[0])
+       blurx = parseFloat(blurxstr);
+    if(blurystr[0])
+       blury = parseFloat(blurystr);
+    int passes = parseInt(lu(args, "passes"));
+    s_blur(name, blurx, blury, passes);
+    return 0;
+}
+
+static int c_gradientglow(map_t*args) 
+{
+    char*name = lu(args, "name");
+    char*gradient = lu(args, "gradient");
+    char*blurstr = lu(args, "blur");
+    char*blurxstr = lu(args, "blurx");
+    char*blurystr = lu(args, "blury");
+    float blurx=1.0, blury=1.0;
+    if(blurstr[0]) {
+       blurx = parseFloat(blurstr);
+       blury = parseFloat(blurstr);
+    } 
+    if(blurxstr[0])
+       blurx = parseFloat(blurxstr);
+    if(blurystr[0])
+       blury = parseFloat(blurystr);
+
+    float angle = parseFloat(lu(args, "angle")) / 180 * M_PI;
+    float distance = parseFloat(lu(args, "distance"));
+    float strength = parseFloat(lu(args, "strength"));
+    char innershadow = strcmp(lu(args, "innershadow"),"innershadow")?0:1;
+    char knockout = strcmp(lu(args, "knockout"),"knockout")?0:1;
+    char composite = strcmp(lu(args, "composite"),"composite")?0:1;
+    char ontop = strcmp(lu(args, "ontop"),"ontop")?0:1;
+    int passes = parseInt(lu(args, "passes"));
+
+    s_gradientglow(name, gradient, blurx, blury, angle, distance, strength, innershadow, knockout, composite, ontop, passes);
+    return 0;
+}
+
+static int c_dropshadow(map_t*args) 
+{
+    char*name = lu(args, "name");
+    RGBA color = parseColor(lu(args, "color"));
+    char*blurstr = lu(args, "blur");
+    char*blurxstr = lu(args, "blurx");
+    char*blurystr = lu(args, "blury");
+    float blurx=1.0, blury=1.0;
+    if(blurstr[0]) {
+       blurx = parseFloat(blurstr);
+       blury = parseFloat(blurstr);
+    } 
+    if(blurxstr[0])
+       blurx = parseFloat(blurxstr);
+    if(blurystr[0])
+       blury = parseFloat(blurystr);
+
+    float angle = parseFloat(lu(args, "angle")) / 180 * M_PI;
+    float distance = parseFloat(lu(args, "distance"));
+    float strength = parseFloat(lu(args, "strength"));
+    char innershadow = strcmp(lu(args, "innershadow"),"innershadow")?0:1;
+    char knockout = strcmp(lu(args, "knockout"),"knockout")?0:1;
+    char composite = strcmp(lu(args, "composite"),"composite")?0:1;
+    int passes = parseInt(lu(args, "passes"));
+
+    s_dropshadow(name, color, blurx, blury, angle, distance, strength, innershadow, knockout, composite, passes);
+    return 0;
+}
+
+static int c_bevel(map_t*args) 
+{
+    char*name = lu(args, "name");
+    RGBA shadow = parseColor(lu(args, "shadow"));
+    RGBA highlight = parseColor(lu(args, "highlight"));
+    char*blurstr = lu(args, "blur");
+    char*blurxstr = lu(args, "blurx");
+    char*blurystr = lu(args, "blury");
+    float blurx=1.0, blury=1.0;
+    if(blurstr[0]) {
+       blurx = parseFloat(blurstr);
+       blury = parseFloat(blurstr);
+    } 
+    if(blurxstr[0])
+       blurx = parseFloat(blurxstr);
+    if(blurystr[0])
+       blury = parseFloat(blurystr);
+
+    float angle = parseFloat(lu(args, "angle")) / 180 * M_PI;
+    float distance = parseFloat(lu(args, "distance"));
+    float strength = parseFloat(lu(args, "strength"));
+    char innershadow = strcmp(lu(args, "innershadow"),"innershadow")?0:1;
+    char knockout = strcmp(lu(args, "knockout"),"knockout")?0:1;
+    char composite = strcmp(lu(args, "composite"),"composite")?0:1;
+    char ontop = strcmp(lu(args, "ontop"),"ontop")?0:1;
+    int passes = parseInt(lu(args, "passes"));
+
+    s_bevel(name, shadow, highlight, blurx, blury, angle, distance, strength, innershadow, knockout, composite, ontop, passes);
+    return 0;
+}
+
 static int c_point(map_t*args) 
 {
     char*name = lu(args, "name");
@@ -2212,6 +2621,9 @@ static int c_placement(map_t*args, int type)
     char* astr = lu(args, "alpha");
     char* pinstr = lu(args, "pin");
     char* as = map_lookup(args, "as");
+    char* blendmode = lu(args, "blend");
+    char*filterstr = lu(args, "filter");
+    U8 blend;
     MULADD r,g,b,a;
     float oldwidth;
     float oldheight;
@@ -2365,6 +2777,29 @@ static int c_placement(map_t*args, int type)
        p.cxform.a0 = a.mul;p.cxform.a1 = a.add;
     }
 
+    if(blendmode[0]) {
+       int t;
+       blend = 255;
+       for(t=0;blendModeNames[t];t++) {
+           if(!strcmp(blendModeNames[t], blendmode)) {
+               blend = t;
+               break;
+           }
+       }
+       if(blend == 255) {
+           syntaxerror("unknown blend mode: '%s'", blendmode);
+       }
+       p.blendmode = blend;
+    }
+    
+    if(filterstr[0]) {
+       FILTER*f = dictionary_lookup(&filters, filterstr);
+       if(!f) 
+           syntaxerror("Unknown filter %s", filterstr);
+       p.filter = f;
+    }
+
+
     if(type == 0)
        s_put(instance, character, p);
     else if(type == 1)
@@ -2440,7 +2875,14 @@ static int c_frame(map_t*args)
 {
     char*framestr = lu(args, "n");
     char*cutstr = lu(args, "cut");
+    
     char*name = lu(args, "name");
+    char*anchor = lu(args, "anchor");
+    char buf[40];
+
+    if(!strcmp(anchor, "anchor") && !*name)
+       name = framestr;
+
     int frame;
     int cut = 0;
     if(strcmp(cutstr, "no"))
@@ -2457,7 +2899,7 @@ static int c_frame(map_t*args)
                && !(frame==1 && s_getframe()==frame)) // equality is o.k. for frame 0
            syntaxerror("frame expression must be >%d (is:%s)", s_getframe(), framestr);
     }
-    s_frame(frame, cut, name);
+    s_frame(frame, cut, name, !strcmp(anchor, "anchor"));
     return 0;
 }
 static int c_primitive(map_t*args) 
@@ -2822,7 +3264,7 @@ static struct {
     char*arguments;
 } arguments[] =
 {{"flash", c_flash, "bbox=autocrop background=black version=6 fps=50 name= filename= @compress=default"},
- {"frame", c_frame, "n=<plus>1 name= @cut=no"},
+ {"frame", c_frame, "n=<plus>1 name= @cut=no @anchor=no"},
  // "import" type stuff
  {"swf", c_swf, "name filename"},
  {"shape", c_swf, "name filename"},
@@ -2841,6 +3283,12 @@ static struct {
  {"outline", c_outline, "name format=simple"},
  {"textshape", c_textshape, "name font size=100% text"},
 
+    // filters
+ {"blur", c_blur, "name blur= blurx= blury= passes=1"},
+ {"gradientglow", c_gradientglow, "name gradient blur= blurx= blury= angle=0.0 distance=0.0 strength=1.0 @innershadow=0 @knockout=0 @composite=0 @ontop=0 passes=1"},
+ {"dropshadow", c_dropshadow, "name color blur= blurx= blury= angle=0.0 distance=0.0 strength=1.0 @innershadow=0 @knockout=0 @composite=0 passes=1"},
+ {"bevel", c_bevel, "name shadow highlight blur= blurx= blury= angle=0.0 distance=0.0 strength=1.0 @innershadow=0 @knockout=0 @composite=0 @ontop=0 passes=1"},
+
     // character generators
  {"box", c_primitive, "name width height color=white line=1 @fill=none"},
  {"circle", c_primitive, "name r color=white line=1 @fill=none"},
@@ -2851,7 +3299,7 @@ static struct {
  {"edittext", c_edittext, "name font= size=100% width height text="" color=white maxlength=0 variable="" @password=0 @wordwrap=0 @multiline=0 @html=0 @noselect=0 @readonly=0 @border=0 @autosize=0 align="},
  {"morphshape", c_morphshape, "name start end"},
  {"button", c_button, "name"},
-    {"show", c_show,             "name x=0 y=0 red=+0 green=+0 blue=+0 alpha=+0 luminance= scale= scalex= scaley= pivot= pin= shear= rotate= ratio= above= below= as="},
+    {"show", c_show,             "name x=0 y=0 red=+0 green=+0 blue=+0 alpha=+0 luminance= scale= scalex= scaley= blend= filter= pivot= pin= shear= rotate= ratio= above= below= as="},
     {"on_press", c_on_press, "position=inside"},
     {"on_release", c_on_release, "position=anywhere"},
     {"on_move_in", c_on_move_in, "state=not_pressed"},
@@ -2865,12 +3313,12 @@ static struct {
  {"previousframe", c_previousframe, "name"},
 
     // object placement tags
- {"put", c_put,             "<i> x=0 y=0 red=+0 green=+0 blue=+0 alpha=+0 luminance= scale= scalex= scaley= pivot= pin= shear= rotate= ratio= above= below="},
- {"startclip", c_startclip, "<i> x=0 y=0 red=+0 green=+0 blue=+0 alpha=+0 luminance= scale= scalex= scaley= pivot= pin= shear= rotate= ratio= above= below="},
- {"change", c_change,   "name x= y= red= green= blue= alpha= luminance= scale= scalex= scaley= pivot= pin= shear= rotate= ratio= above= below="},
- {"arcchange", c_arcchange,   "name pivot= angle= red= green= blue= alpha= luminance= scale= scalex= scaley= pivot= pin= shear= rotate= ratio= above= below="},
- {"qchange", c_qchange, "name x= y= red= green= blue= alpha= luminance= scale= scalex= scaley= pivot= pin= shear= rotate= ratio= above= below="},
- {"jump", c_jump,       "name x= y= red= green= blue= alpha= luminance= scale= scalex= scaley= pivot= pin= shear= rotate= ratio= above= below="},
+ {"put", c_put,             "<i> x=0 y=0 red=+0 green=+0 blue=+0 alpha=+0 luminance= scale= scalex= scaley= blend= filter= pivot= pin= shear= rotate= ratio= above= below="},
+ {"startclip", c_startclip, "<i> x=0 y=0 red=+0 green=+0 blue=+0 alpha=+0 luminance= scale= scalex= scaley= blend= filter= pivot= pin= shear= rotate= ratio= above= below="},
+ {"change", c_change,   "name x= y= red= green= blue= alpha= luminance= scale= scalex= scaley= blend= filter= pivot= pin= shear= rotate= ratio= above= below="},
+ {"arcchange", c_arcchange,   "name pivot= angle= red= green= blue= alpha= luminance= scale= scalex= scaley= blend= filter= pivot= pin= shear= rotate= ratio= above= below="},
+ {"qchange", c_qchange, "name x= y= red= green= blue= alpha= luminance= scale= scalex= scaley= blend= filter= pivot= pin= shear= rotate= ratio= above= below="},
+ {"jump", c_jump,       "name x= y= red= green= blue= alpha= luminance= scale= scalex= scaley= blend= filter= pivot= pin= shear= rotate= ratio= above= below="},
  {"del", c_del, "name"},
     // virtual object placement
  {"texture", c_texture, "<i> x=0 y=0 width= height= scale= scalex= scaley= r= shear= rotate="},
@@ -3121,7 +3569,7 @@ int main (int argc,char ** argv)
     
     file = generateTokens(filename);
     if(!file) {
-       printf("parser returned error.\n");
+       fprintf(stderr, "parser returned error.\n");
        return 1;
     }
     pos=0;