fixed rounding of text bboxes.
[swftools.git] / pdf2swf / swfoutput.cc
index febad86..255ca0f 100644 (file)
@@ -59,6 +59,7 @@ struct fontlist_t
     fontlist_t*next;
 };
 
+double config_dumpfonts=0;
 double config_ppmsubpixels=0;
 double config_jpegsubpixels=0;
 int config_opennewwindow=1;
@@ -73,6 +74,7 @@ int config_splinemaxerror=1;
 int config_fontsplinemaxerror=1;
 int config_filloverlap=0;
 int config_protect=0;
+int config_bboxvars=0;
 float config_minlinewidth=0.05;
 double config_caplinewidth=1;
 
@@ -137,6 +139,8 @@ typedef struct _swfoutput_internal
     int firstpage;
     char pagefinished;
 
+    char overflow;
+
     /* during the transition to the gfxdevice interface:
        a device which uses this swfoutput as target */
     gfxdevice_t device;
@@ -152,6 +156,11 @@ void swf_stroke(gfxdevice_t*dev, gfxline_t*line, gfxcoord_t width, gfxcolor_t*co
 void swf_fill(gfxdevice_t*dev, gfxline_t*line, gfxcolor_t*color);
 void swf_fillbitmap(gfxdevice_t*dev, gfxline_t*line, gfximage_t*img, gfxmatrix_t*matrix, gfxcxform_t*cxform);
 void swf_fillgradient(gfxdevice_t*dev, gfxline_t*line, gfxgradient_t*gradient, gfxgradienttype_t type, gfxmatrix_t*matrix);
+void swf_drawchar(gfxdevice_t*dev, char*fontid, int glyph, gfxcolor_t*color, gfxmatrix_t*matrix);
+void swf_addfont(gfxdevice_t*dev, char*fontid, gfxfont_t*font);
+void swf_drawlink(gfxdevice_t*dev, gfxline_t*line, char*action);
+
+int getCharID(SWFFONT *font, int charnr, char *charname, int u);
 
 static swfoutput_internal* init_internal_struct()
 {
@@ -161,6 +170,7 @@ static swfoutput_internal* init_internal_struct()
     i->storefont = 0;
     i->currentswfid = 0;
     i->depth = 0;
+    i->overflow = 0;
     i->startdepth = 0;
     i->linewidth = 0;
     i->shapeid = -1;
@@ -193,6 +203,9 @@ static swfoutput_internal* init_internal_struct()
     i->device.fill = swf_fill;
     i->device.fillbitmap = swf_fillbitmap;
     i->device.fillgradient = swf_fillgradient;
+    i->device.addfont = swf_addfont;
+    i->device.drawchar = swf_drawchar;
+    i->device.drawlink = swf_drawlink;
 
     return i;
 };
@@ -206,9 +219,21 @@ static U16 getNewID(struct swfoutput* obj)
        if(!id_error)
            msg("<error> ID Table overflow");
        id_error=1;
+       i->overflow = 1;
     }
     return ++i->currentswfid;
 }
+static U16 getNewDepth(struct swfoutput* obj)
+{
+    swfoutput_internal*i = (swfoutput_internal*)obj->internal;
+    if(i->depth == 65535) {
+       if(!id_error)
+           msg("<error> Depth Table overflow");
+       id_error=1;
+       i->overflow = 1;
+    }
+    return ++i->depth;
+}
 
 static void startshape(struct swfoutput* obj);
 static void starttext(struct swfoutput* obj);
@@ -221,8 +246,8 @@ static void transform (plotxy*p0,struct swfmatrix*m)
     double x,y;
     x = m->m11*p0->x+m->m12*p0->y;
     y = m->m21*p0->x+m->m22*p0->y;
-    p0->x = x + m->m13;
-    p0->y = y + m->m23;
+    p0->x = x + m->m31;
+    p0->y = y + m->m32;
 }
 
 // write a move-to command into the swf
@@ -499,10 +524,10 @@ static SRECT getcharacterbbox(struct swfoutput*obj, SWFFONT*font)
        b.ymin *= i->chardata[t].size;
        b.xmax *= i->chardata[t].size;
        b.ymax *= i->chardata[t].size;
-       b.xmin /= 1024;
-       b.ymin /= 1024;
-       b.xmax /= 1024;
-       b.ymax /= 1024;
+
+       /* divide by 1024, rounding xmax/ymax up */
+       b.xmax += 1023; b.ymax += 1023; b.xmin /= 1024; b.ymin /= 1024; b.xmax /= 1024; b.ymax /= 1024;
+
        b.xmin += i->chardata[t].x;
        b.ymin += i->chardata[t].y;
        b.xmax += i->chardata[t].x;
@@ -698,6 +723,9 @@ static void putcharacter(struct swfoutput*obj, int fontid, int charid, int x,int
    If we set it to low, however, the char positions will be inaccurate */
 #define FONT_INTERNAL_SIZE 4
 
+static int font_active = 0;
+static char* font_active_filename = 0;
+
 /* process a character. */
 static int drawchar(struct swfoutput*obj, SWFFONT *swffont, char*character, int charnr, int u, swfmatrix*m, gfxcolor_t*col)
 {
@@ -708,6 +736,16 @@ static int drawchar(struct swfoutput*obj, SWFFONT *swffont, char*character, int
     }
 
     int charid = getCharID(swffont, charnr, character, u); 
+    if(font_active) {
+       char buf[1024];
+       sprintf(buf, "%s.usage", font_active_filename);
+       FILE*fi = fopen(buf, "ab+");
+       if(fi) {
+            fprintf(fi, "%d %d %d %s\n", charnr, u, charid, character);
+            fclose(fi);
+       } else 
+           msg("<error> Couldn't write to %s", buf);
+    }
     
     if(charid<0) {
        msg("<warning> Didn't find character '%s' (c=%d,u=%d) in current charset (%s, %d characters)", 
@@ -726,8 +764,8 @@ static int drawchar(struct swfoutput*obj, SWFFONT *swffont, char*character, int
     if(i->textid<0)
        starttext(obj);
 
-    float x = m->m13;
-    float y = m->m23;
+    float x = m->m31;
+    float y = m->m32;
     float det = ((m->m11*m->m22)-(m->m21*m->m12));
     if(fabs(det) < 0.0005) { 
        /* x direction equals y direction- the text is invisible */
@@ -798,11 +836,10 @@ static void endtext(swfoutput*obj)
     putcharacters(obj, i->tag);
     swf_SetU8(i->tag,0);
     i->tag = swf_InsertTag(i->tag,ST_PLACEOBJECT2);
-    //swf_ObjectPlace(i->tag,i->textid,/*depth*/i->depth++,&i->page_matrix,NULL,NULL);
     MATRIX m2;
     swf_MatrixJoin(&m2,&obj->fontmatrix, &i->page_matrix);
 
-    swf_ObjectPlace(i->tag,i->textid,/*depth*/++i->depth,&m2,NULL,NULL);
+    swf_ObjectPlace(i->tag,i->textid,getNewDepth(obj),&m2,NULL,NULL);
     i->textid = -1;
 }
 
@@ -852,11 +889,11 @@ int getCharID(SWFFONT *font, int charnr, char *charname, int u)
     return -1;
 }
 
-
 /* set's the t1 font index of the font to use for swfoutput_drawchar(). */
 void swfoutput_setfont(struct swfoutput*obj, char*fontid, char*filename)
 {
     swfoutput_internal*i = (swfoutput_internal*)obj->internal;
+    font_active = 0;
     fontlist_t*last=0,*iterator;
     if(!fontid) {
        msg("<error> No fontid");
@@ -888,6 +925,11 @@ void swfoutput_setfont(struct swfoutput*obj, char*fontid, char*filename)
     swf_SetLoadFontParameters(64,/*skip unused*/0,/*full unicode*/1);
     SWFFONT*swffont = swf_LoadFont(filename);
 
+    if(config_dumpfonts) {
+       font_active = 1;
+       font_active_filename = strdup(filename);
+    }
+
     if(swffont == 0) {
        msg("<warning> Couldn't load font %s (%s)", fontid, filename);
        swffont = swf_LoadFont(0);
@@ -913,6 +955,10 @@ void swfoutput_setfont(struct swfoutput*obj, char*fontid, char*filename)
             swffont->encoding = 255;
         }
     }
+    
+    if(swffont->encoding != FONT_ENCODING_UNICODE && swffont->encoding != 255) {
+       msg("<warning> Non-unicode mapping for font %s (%s)", fontid, filename);
+    }
 
     swf_FontSetID(swffont, getNewID(obj));
     
@@ -971,9 +1017,13 @@ int swfoutput_queryfont(struct swfoutput*obj, char*fontid)
 
 /* set's the matrix which is to be applied to characters drawn by
    swfoutput_drawchar() */
-void swfoutput_setfontmatrix(struct swfoutput*obj,double m11,double m12,
-                                                  double m21,double m22)
+void swfoutput_setfontmatrix(struct swfoutput*obj,double m11,double m21,
+                                                  double m12,double m22)
 {
+    m11 *= 1024;
+    m12 *= 1024;
+    m21 *= 1024;
+    m22 *= 1024;
     swfoutput_internal*i = (swfoutput_internal*)obj->internal;
     if(obj->fontm11 == m11 &&
        obj->fontm12 == m12 &&
@@ -1004,8 +1054,8 @@ int swfoutput_drawchar(struct swfoutput* obj,double x,double y,char*character, i
     m.m12 = obj->fontm12;
     m.m21 = obj->fontm21;
     m.m22 = obj->fontm22;
-    m.m13 = x;
-    m.m23 = y;
+    m.m31 = x;
+    m.m32 = y;
     return drawchar(obj, obj->swffont, character, charnr, u, &m, color);
 }
 
@@ -1072,9 +1122,9 @@ static void setBackground(struct swfoutput*obj, int x1, int y1, int x2, int y2)
     swf_ShapeSetEnd(i->tag);
     swf_ShapeFree(s);
     i->tag = swf_InsertTag(i->tag, ST_PLACEOBJECT2);
-    swf_ObjectPlace(i->tag,shapeid,++i->depth,0,0,0);
+    swf_ObjectPlace(i->tag,shapeid,getNewDepth(obj),0,0,0);
     i->tag = swf_InsertTag(i->tag, ST_PLACEOBJECT2);
-    swf_ObjectPlaceClip(i->tag,shapeid,++i->depth,0,0,0,65535);
+    swf_ObjectPlaceClip(i->tag,shapeid,getNewDepth(obj),0,0,0,65535);
     i->cliptag = i->tag;
 }
 
@@ -1335,7 +1385,7 @@ static void endshape(swfoutput*obj)
     msg("<trace> Placing shape id %d", i->shapeid);
 
     i->tag = swf_InsertTag(i->tag,ST_PLACEOBJECT2);
-    swf_ObjectPlace(i->tag,i->shapeid,/*depth*/++i->depth,&i->page_matrix,NULL,NULL);
+    swf_ObjectPlace(i->tag,i->shapeid,getNewDepth(obj),&i->page_matrix,NULL,NULL);
 
     swf_ShapeFree(i->shape);
     i->shape = 0;
@@ -1360,6 +1410,22 @@ static void endshape(swfoutput*obj)
     }*/
 }
 
+void wipeSWF(SWF*swf)
+{
+    TAG*tag = swf->firstTag;
+    while(tag) {
+       TAG*next = tag->next;
+       if(tag->id != ST_SETBACKGROUNDCOLOR &&
+          tag->id != ST_END &&
+          tag->id != ST_DOACTION &&
+          tag->id != ST_SHOWFRAME) {
+           swf_DeleteTag(tag);
+       }
+       tag = next;
+    }
+}
+
+
 void swfoutput_finalize(struct swfoutput*obj)
 {
     swfoutput_internal*i = (swfoutput_internal*)obj->internal;
@@ -1367,6 +1433,32 @@ void swfoutput_finalize(struct swfoutput*obj)
     if(i->tag && i->tag->id == ST_END)
         return; //already done
 
+    if(config_bboxvars) {
+       TAG* tag = swf_InsertTag(i->swf.firstTag, ST_DOACTION);
+       ActionTAG*a = 0;
+       a = action_PushString(a, "xmin");
+       a = action_PushFloat(a, i->swf.movieSize.xmin / 20.0);
+       a = action_SetVariable(a);
+       a = action_PushString(a, "ymin");
+       a = action_PushFloat(a, i->swf.movieSize.ymin / 20.0);
+       a = action_SetVariable(a);
+       a = action_PushString(a, "xmax");
+       a = action_PushFloat(a, i->swf.movieSize.xmax / 20.0);
+       a = action_SetVariable(a);
+       a = action_PushString(a, "ymax");
+       a = action_PushFloat(a, i->swf.movieSize.ymax / 20.0);
+       a = action_SetVariable(a);
+       a = action_PushString(a, "width");
+       a = action_PushFloat(a, (i->swf.movieSize.xmax - i->swf.movieSize.xmin) / 20.0);
+       a = action_SetVariable(a);
+       a = action_PushString(a, "height");
+       a = action_PushFloat(a, (i->swf.movieSize.ymax - i->swf.movieSize.ymin) / 20.0);
+       a = action_SetVariable(a);
+       a = action_End(a);
+       swf_ActionSet(tag, a);
+       swf_ActionFree(a);
+    }
+
     if(i->frameno == i->lastframeno) // fix: add missing pagefeed
         swfoutput_pagefeed(obj);
 
@@ -1376,8 +1468,8 @@ void swfoutput_finalize(struct swfoutput*obj)
        TAG*mtag = i->swf.firstTag;
        if(iterator->swffont) {
            mtag = swf_InsertTag(mtag, ST_DEFINEFONT2);
-           /*if(!storeallcharacters)
-               swf_FontReduce(iterator->swffont);*/
+           if(!config_storeallcharacters)
+               swf_FontReduce(iterator->swffont);
            swf_FontSetDefine2(mtag, iterator->swffont);
        }
 
@@ -1393,6 +1485,10 @@ void swfoutput_finalize(struct swfoutput*obj)
         swf_DeleteTag(tag);
         tag = prev;
     }
+    
+    if(i->overflow) {
+       wipeSWF(&i->swf);
+    }
 }
 
 SWF* swfoutput_get(struct swfoutput*obj)
@@ -1739,9 +1835,9 @@ static void drawlink(struct swfoutput*obj, ActionTAG*actions1, ActionTAG*actions
         m = i->page_matrix;
         m.tx = p.x;
         m.ty = p.y;
-       swf_ObjectPlace(i->tag, buttonid, ++i->depth,&m,0,0);
+       swf_ObjectPlace(i->tag, buttonid, getNewDepth(obj),&m,0,0);
     } else {
-       swf_ObjectPlace(i->tag, buttonid, ++i->depth,&i->page_matrix,0,0);
+       swf_ObjectPlace(i->tag, buttonid, getNewDepth(obj),&i->page_matrix,0,0);
     }
 }
 
@@ -1846,6 +1942,18 @@ void swfoutput_endclip(struct swfoutput*obj)
     gfxdevice_t*dev = &i->device;
     dev->endclip(dev);
 }
+void swfoutput_gfxaddfont(struct swfoutput*obj, char*fontid, gfxfont_t*font)
+{
+    swfoutput_internal*i = (swfoutput_internal*)obj->internal;
+    gfxdevice_t*dev = &i->device;
+    dev->addfont(dev, fontid, font);
+}
+void swfoutput_gfxdrawchar(struct swfoutput*obj, char*fontid, int glyph, gfxcolor_t*c, gfxmatrix_t*m)
+{
+    swfoutput_internal*i = (swfoutput_internal*)obj->internal;
+    gfxdevice_t*dev = &i->device;
+    dev->drawchar(dev, fontid, glyph, c, m);
+}
 
 #define IMAGE_TYPE_JPEG 0
 #define IMAGE_TYPE_LOSSLESS 1
@@ -1935,6 +2043,8 @@ void swfoutput_setparameter(char*name, char*value)
        config_storeallcharacters = atoi(value);
     } else if(!strcmp(name, "enablezlib")) {
        config_enablezlib = atoi(value);
+    } else if(!strcmp(name, "bboxvars")) {
+       config_bboxvars = atoi(value);
     } else if(!strcmp(name, "insertstop")) {
        config_insertstoptag = atoi(value);
     } else if(!strcmp(name, "protected")) {
@@ -1945,6 +2055,8 @@ void swfoutput_setparameter(char*name, char*value)
        config_minlinewidth = atof(value);
     } else if(!strcmp(name, "caplinewidth")) {
        config_caplinewidth = atof(value);
+    } else if(!strcmp(name, "dumpfonts")) {
+       config_dumpfonts = atoi(value);
     } else if(!strcmp(name, "jpegquality")) {
        int val = atoi(value);
        if(val<0) val=0;
@@ -2097,12 +2209,20 @@ gfxline_t* SVPtogfxline(ArtSVP*svp)
     }
 }
 
+/* TODO */
+static int imageInCache(swfoutput*obj, void*data, int width, int height)
+{
+    return -1;
+}
+static void addImageToCache(swfoutput*obj, void*data, int width, int height)
+{
+}
+    
 static int add_image(swfoutput_internal*i, gfximage_t*img, int targetwidth, int targetheight, int* newwidth, int* newheight)
 {
     swfoutput*obj = i->obj;
     RGBA*newpic = 0;
     RGBA*mem = (RGBA*)img->data;
-    int bitid = getNewID(obj);
     
     int sizex = img->width;
     int sizey = img->height;
@@ -2129,7 +2249,7 @@ static int add_image(swfoutput_internal*i, gfximage_t*img, int targetwidth, int
     *newheight  = sizey;
     
     if(newsizex<sizex || newsizey<sizey) {
-       msg("<notice> Scaling %dx%d image to %dx%d", sizex, sizey, newsizex, newsizey);
+       msg("<verbose> Scaling %dx%d image to %dx%d", sizex, sizey, newsizex, newsizey);
        newpic = swf_ImageScale(mem, sizex, sizey, newsizex, newsizey);
        *newwidth = sizex = newsizex;
        *newheight  = sizey = newsizey;
@@ -2160,11 +2280,19 @@ static int add_image(swfoutput_internal*i, gfximage_t*img, int targetwidth, int
     }
     printf("\n");*/
 
-    i->tag = swf_AddImage(i->tag, bitid, mem, sizex, sizey, config_jpegquality);
+    int bitid = -1;
+    int cacheid = imageInCache(obj, mem, sizex, sizey);
+
+    if(cacheid<=0) {
+       bitid = getNewID(obj);
+       i->tag = swf_AddImage(i->tag, bitid, mem, sizex, sizey, config_jpegquality);
+       addImageToCache(obj, mem, sizex, sizey);
+    } else {
+       bitid = cacheid;
+    }
 
     if(newpic)
        free(newpic);
-
     return bitid;
 }
 
@@ -2225,7 +2353,7 @@ void swf_fillbitmap(gfxdevice_t*dev, gfxline_t*line, gfximage_t*img, gfxmatrix_t
 
     i->tag = swf_InsertTag(i->tag,ST_PLACEOBJECT2);
     CXFORM cxform2 = gfxcxform_to_cxform(cxform);
-    swf_ObjectPlace(i->tag,myshapeid,/*depth*/++i->depth,&i->page_matrix,&cxform2,NULL);
+    swf_ObjectPlace(i->tag,myshapeid,getNewDepth(obj),&i->page_matrix,&cxform2,NULL);
 }
 
 void swf_startclip(gfxdevice_t*dev, gfxline_t*line)
@@ -2266,7 +2394,7 @@ void swf_startclip(gfxdevice_t*dev, gfxline_t*line)
     i->tag = swf_InsertTag(i->tag,ST_PLACEOBJECT2);
     i->cliptags[i->clippos] = i->tag;
     i->clipshapes[i->clippos] = myshapeid;
-    i->clipdepths[i->clippos] = ++i->depth;
+    i->clipdepths[i->clippos] = getNewDepth(obj);
     i->clippos++;
 }
 
@@ -2430,3 +2558,187 @@ void swf_fillgradient(gfxdevice_t*dev, gfxline_t*line, gfxgradient_t*gradient, g
 {
     msg("<error> Gradient filling not implemented yet");
 }
+
+void swf_drawlink(gfxdevice_t*dev, gfxline_t*line, char*action)
+{
+    swfoutput_internal*i = (swfoutput_internal*)dev->internal;
+    swfoutput*obj = i->obj;
+
+    endshape(obj);
+    endtext(obj);
+
+    /* shape */
+    int myshapeid = getNewID(obj);
+    RGBA black;
+    black.r = black.g = black.b = black.a = 0;
+    i->tag = swf_InsertTag(i->tag,ST_DEFINESHAPE);
+    SHAPE*shape;
+    swf_ShapeNew(&shape);
+    int fsid = swf_ShapeAddSolidFillStyle(shape,&black);
+    swf_SetU16(i->tag, myshapeid);
+    SRECT r = gfxline_getSWFbbox(line);
+    swf_SetRect(i->tag,&r);
+    swf_SetShapeStyles(i->tag,shape);
+    swf_ShapeCountBits(shape,NULL,NULL);
+    swf_SetShapeBits(i->tag,shape);
+    swf_ShapeSetAll(i->tag,shape,UNDEFINED_COORD,UNDEFINED_COORD,0,fsid,0);
+    i->swflastx = i->swflasty = UNDEFINED_COORD;
+    drawgfxline(obj, line);
+    swf_ShapeSetEnd(i->tag);
+    swf_ShapeFree(shape);
+
+    i->tag = swf_InsertTag(i->tag,ST_PLACEOBJECT2);
+    swf_ObjectPlace(i->tag,myshapeid,getNewDepth(obj),&i->page_matrix,0,NULL);
+}
+
+static SWFFONT* gfxfont_to_swffont(gfxfont_t*font, char* id)
+{
+    SWFFONT*swffont = (SWFFONT*)rfx_calloc(sizeof(SWFFONT));
+    int t;
+    swffont->id = -1;
+    swffont->version = 2;
+    swffont->name = (U8*)strdup(id);
+    swffont->layout = (SWFLAYOUT*)rfx_calloc(sizeof(SWFLAYOUT));
+    swffont->layout->ascent = 0; /* ? */
+    swffont->layout->descent = 0;
+    swffont->layout->leading = 0;
+    swffont->layout->bounds = (SRECT*)rfx_calloc(sizeof(SRECT)*font->num_glyphs);
+    swffont->encoding = FONT_ENCODING_UNICODE;
+    swffont->numchars = font->num_glyphs;
+    swffont->maxascii = font->max_unicode;
+    swffont->ascii2glyph = (int*)rfx_calloc(sizeof(int)*swffont->maxascii);
+    swffont->glyph2ascii = (U16*)rfx_calloc(sizeof(U16)*swffont->numchars);
+    swffont->glyph = (SWFGLYPH*)rfx_calloc(sizeof(SWFGLYPH)*swffont->numchars);
+    swffont->glyphnames = (char**)rfx_calloc(sizeof(char*)*swffont->numchars);
+    for(t=0;t<font->max_unicode;t++) {
+       swffont->ascii2glyph[t] = font->unicode2glyph[t];
+    }
+    for(t=0;t<font->num_glyphs;t++) {
+       drawer_t draw;
+       gfxline_t*line;
+       swffont->glyph2ascii[t] = font->glyphs[t].unicode;
+       if(font->glyphs[t].name) {
+           swffont->glyphnames[t] = strdup(font->glyphs[t].name);
+       } else {
+           swffont->glyphnames[t] = 0;
+       }
+       swffont->glyph[t].advance = (int)(font->glyphs[t].advance * 20);
+
+       swf_Shape01DrawerInit(&draw, 0);
+       line = font->glyphs[t].line;
+       while(line) {
+           FPOINT c,to;
+           c.x = line->sx; c.y = line->sy;
+           to.x = line->x; to.y = line->y;
+           if(line->type == gfx_moveTo) {
+               draw.moveTo(&draw, &to);
+           } else if(line->type == gfx_lineTo) {
+               draw.lineTo(&draw, &to);
+           } else if(line->type == gfx_splineTo) {
+               draw.splineTo(&draw, &c, &to);
+           }
+           line = line->next;
+       }
+       draw.finish(&draw);
+       swffont->glyph[t].shape = swf_ShapeDrawerToShape(&draw);
+       swffont->layout->bounds[t] = swf_ShapeDrawerGetBBox(&draw);
+       draw.dealloc(&draw);
+    }
+    return swffont;
+}
+
+void swf_addfont(gfxdevice_t*dev, char*fontid, gfxfont_t*font)
+{
+    swfoutput_internal*i = (swfoutput_internal*)dev->internal;
+
+    if(i->obj->swffont && i->obj->swffont->name && !strcmp((char*)i->obj->swffont->name,fontid))
+       return; // the requested font is the current font
+    
+    fontlist_t*last=0,*l = i->fontlist;
+    while(l) {
+       last = l;
+       if(!strcmp((char*)l->swffont->name, fontid)) {
+           return; // we already know this font
+       }
+       l = l->next;
+    }
+    l = (fontlist_t*)rfx_calloc(sizeof(fontlist_t));
+    l->swffont = gfxfont_to_swffont(font, fontid);
+    l->next = 0;
+    if(last) {
+       last->next = l;
+    } else {
+       i->fontlist = l;
+    }
+    swf_FontSetID(l->swffont, getNewID(i->obj));
+
+    if(getScreenLogLevel() >= LOGLEVEL_DEBUG)  {
+       // print font information
+       msg("<debug> Font %s",fontid);
+       msg("<debug> |   ID: %d", l->swffont->id);
+       msg("<debug> |   Version: %d", l->swffont->version);
+       msg("<debug> |   Name: %s", l->swffont->name);
+       msg("<debug> |   Numchars: %d", l->swffont->numchars);
+       msg("<debug> |   Maxascii: %d", l->swffont->maxascii);
+       msg("<debug> |   Style: %d", l->swffont->style);
+       msg("<debug> |   Encoding: %d", l->swffont->encoding);
+       for(int iii=0; iii<l->swffont->numchars;iii++) {
+           msg("<debug> |   Glyph %d) name=%s, unicode=%d size=%d bbox=(%.2f,%.2f,%.2f,%.2f)\n", iii, l->swffont->glyphnames?l->swffont->glyphnames[iii]:"<nonames>", l->swffont->glyph2ascii[iii], l->swffont->glyph[iii].shape->bitlen, 
+                   l->swffont->layout->bounds[iii].xmin/20.0,
+                   l->swffont->layout->bounds[iii].ymin/20.0,
+                   l->swffont->layout->bounds[iii].xmax/20.0,
+                   l->swffont->layout->bounds[iii].ymax/20.0
+                   );
+           int t;
+           for(t=0;t<l->swffont->maxascii;t++) {
+               if(l->swffont->ascii2glyph[t] == iii)
+                   msg("<debug> | - maps to %d",t);
+           }
+       }
+    }
+}
+
+static void swf_switchfont(gfxdevice_t*dev, char*fontid)
+{
+    swfoutput_internal*i = (swfoutput_internal*)dev->internal;
+    swfoutput*obj = i->obj;
+
+    if(obj->swffont && obj->swffont->name && !strcmp((char*)obj->swffont->name,fontid))
+       return; // the requested font is the current font
+    
+    fontlist_t*l = i->fontlist;
+    while(l) {
+       if(!strcmp((char*)l->swffont->name, fontid)) {
+           obj->swffont = l->swffont;
+           return; //done!
+       }
+       l = l->next;
+    }
+    msg("<error> Unknown font id: %s", fontid);
+    return;
+}
+
+void swf_drawchar(gfxdevice_t*dev, char*fontid, int glyph, gfxcolor_t*color, gfxmatrix_t*matrix)
+{
+    swfoutput_internal*i = (swfoutput_internal*)dev->internal;
+    swfoutput*obj = i->obj;
+       
+    if(!obj->swffont || !obj->swffont->name || strcmp((char*)obj->swffont->name,fontid)) // not equal to current font
+    {
+       /* TODO: remove the need for this (enhance getcharacterbbox so that it can cope
+                with multiple fonts */
+       endtext(obj);
+
+       swf_switchfont(dev, fontid); // set the current font
+    }
+    swfoutput_setfontmatrix(obj, matrix->m00, matrix->m01, matrix->m10, matrix->m11);
+   
+    swfmatrix m;
+    m.m11 = obj->fontm11;
+    m.m12 = obj->fontm12;
+    m.m21 = obj->fontm21;
+    m.m22 = obj->fontm22;
+    m.m31 = matrix->tx;
+    m.m32 = matrix->ty;
+    drawchar(obj, obj->swffont, 0, glyph, -1, &m, color);
+}