pdf2swf/swfoutput.cc

   1 /* swfoutput.cc
   2    Implements generation of swf files using the rfxswf lib. The routines
   3    in this file are called from pdf2swf.
   4
   5    This file is part of swftools.
   6
   7    Swftools is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    Swftools is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with swftools; if not, write to the Free Software
  19    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
  20
  21 #include <string.h>
  22 #include <fcntl.h>
  23 #include <unistd.h>
  24 #include "swfoutput.h"
  25 #include "spline.h"
  26 extern "C" {
  27 #include "../lib/log.h"
  28 #include "../lib/rfxswf.h"
  29 }
  30 #define standardEncodingSize 335
  31 extern char *standardEncodingNames[standardEncodingSize];
  32
  33 int opennewwindow=0;
  34 int ignoredraworder=0;
  35 int drawonlyshapes=0;
  36 int jpegquality=85;
  37 int storeallcharacters=0;
  38 int enablezlib=0;
  39 int insertstoptag=0;
  40 static int flag_protected = 0;
  41
  42 typedef unsigned char u8;
  43 typedef unsigned short int u16;
  44 typedef unsigned long int u32;
  45
  46 static int fi;
  47 static char* filename = 0;
  48 static SWF swf;
  49 static TAG *tag;
  50 static int currentswfid = 0;
  51 static int depth = 1;
  52 static int startdepth = 1;
  53
  54 static SHAPE* shape;
  55 static int shapeid = -1;
  56 static int textid = -1;
  57
  58 static int drawmode = -1;
  59 static char storefont = 0;
  60 static int fillstyleid;
  61 static int linestyleid;
  62 static int swflastx=0;
  63 static int swflasty=0;
  64 static int lastwasfill = 0;
  65 static char fill = 0;
  66 static int sizex;
  67 static int sizey;
  68 TAG* cliptags[128];
  69 int clipshapes[128];
  70 u32 clipdepths[128];
  71 int clippos = 0;
  72
  73 int CHARMIDX = 0;
  74 int CHARMIDY = 0;
  75
  76 char fillstylechanged = 0;
  77
  78 static void startshape(struct swfoutput* obj);
  79 static void starttext(struct swfoutput* obj);
  80 static void endshape();
  81 static void endtext();
  82
  83 // matrix multiplication. changes p0
  84 static void transform (plotxy*p0,struct swfmatrix*m)
  85 {
  86     double x,y;
  87     x = m->m11*p0->x+m->m12*p0->y;
  88     y = m->m21*p0->x+m->m22*p0->y;
  89     p0->x = x + m->m13;
  90     p0->y = y + m->m23;
  91 }
  92
  93 // write a move-to command into the swf
  94 static void moveto(TAG*tag, plotxy p0)
  95 {
  96     int rx = (int)(p0.x*20);
  97     int ry = (int)(p0.y*20);
  98     if(rx!=swflastx || ry!=swflasty || fillstylechanged) {
  99       swf_ShapeSetMove (tag, shape, rx,ry);
 100       fillstylechanged = 0;
 101     }
 102     swflastx=rx;
 103     swflasty=ry;
 104 }
 105
 106 // write a line-to command into the swf
 107 static void lineto(TAG*tag, plotxy p0)
 108 {
 109     int rx = ((int)(p0.x*20)-swflastx);
 110     int ry = ((int)(p0.y*20)-swflasty);
 111     /* we can't skip this for rx=0,ry=0, those
 112        are plots */
 113     swf_ShapeSetLine (tag, shape, rx,ry);
 114     swflastx+=rx;
 115     swflasty+=ry;
 116 }
 117
 118 // write a spline-to command into the swf
 119 static void splineto(TAG*tag, plotxy control,plotxy end)
 120 {
 121     int cx = ((int)(control.x*20)-swflastx);
 122     int cy = ((int)(control.y*20)-swflasty);
 123     swflastx += cx;
 124     swflasty += cy;
 125     int ex = ((int)(end.x*20)-swflastx);
 126     int ey = ((int)(end.y*20)-swflasty);
 127     swflastx += ex;
 128     swflasty += ey;
 129     if(cx || cy || ex || ey)
 130         swf_ShapeSetCurve(tag, shape, cx,cy,ex,ey);
 131 }
 132
 133 /* write a line, given two points and the transformation
 134    matrix. */
 135 static void line(TAG*tag, plotxy p0, plotxy p1, struct swfmatrix*m)
 136 {
 137     transform(&p0,m);
 138     transform(&p1,m);
 139     moveto(tag, p0);
 140     lineto(tag, p1);
 141 }
 142
 143 /* write a cubic (!) spline. This involves calling the approximate()
 144    function out of spline.cc to convert it to a quadratic spline.  */
 145 static void spline(TAG*tag,plotxy p0,plotxy p1,plotxy p2,plotxy p3,struct swfmatrix*m)
 146 {
 147     double d;
 148     struct qspline q[16];
 149     int num;
 150     int t;
 151     transform(&p0,m);
 152     transform(&p1,m);
 153     transform(&p2,m);
 154     transform(&p3,m);
 155
 156     num = approximate(p0,p1,p2,p3,q);
 157     for(t=0;t<num;t++) {
 158         moveto(tag,q[t].start);
 159         splineto(tag,q[t].control, q[t].end);
 160     }
 161 }
 162
 163 void resetdrawer()
 164 {
 165     swflastx = 0;
 166     swflasty = 0;
 167 }
 168
 169 /* draw a T1 outline. These are generated by pdf2swf and by t1lib.
 170    (representing characters) */
 171 void drawpath(TAG*tag, T1_OUTLINE*outline, struct swfmatrix*m, int log)
 172 {
 173     if(tag->id != ST_DEFINEFONT &&
 174         tag->id != ST_DEFINESHAPE &&
 175         tag->id != ST_DEFINESHAPE2 &&
 176         tag->id != ST_DEFINESHAPE3)
 177     {
 178         logf("<error> internal error: drawpath needs a shape tag, not %d\n",tag->id);
 179         exit(1);
 180     }
 181     double x=0,y=0;
 182     double lastx=0,lasty=0;
 183     double firstx=0,firsty=0;
 184     int init=1;
 185
 186     while (outline)
 187     {
 188         x += (outline->dest.x/(float)0xffff);
 189         y += (outline->dest.y/(float)0xffff);
 190         if(outline->type == T1_PATHTYPE_MOVE)
 191         {
 192             if(((int)(lastx*20) != (int)(firstx*20) ||
 193                 (int)(lasty*20) != (int)(firsty*20)) &&
 194                      fill && !init)
 195             {
 196                 plotxy p0;
 197                 plotxy p1;
 198                 p0.x=lastx;
 199                 p0.y=lasty;
 200                 p1.x=firstx;
 201                 p1.y=firsty;
 202                 if(log) printf("fix: %f,%f -> %f,%f\n",p0.x,p0.y,p1.x,p1.y);
 203                 line(tag, p0, p1, m);
 204             }
 205             firstx=x;
 206             firsty=y;
 207             init = 0;
 208         }
 209         else if(outline->type == T1_PATHTYPE_LINE)
 210         {
 211             plotxy p0;
 212             plotxy p1;
 213             p0.x=lastx;
 214             p0.y=lasty;
 215             p1.x=x;
 216             p1.y=y;
 217             if(log) printf("line: %f,%f -> %f,%f\n",p0.x,p0.y,p1.x,p1.y);
 218             line(tag, p0,p1,m);
 219         }
 220         else if(outline->type == T1_PATHTYPE_BEZIER)
 221         {
 222             plotxy p0;
 223             plotxy p1;
 224             plotxy p2;
 225             plotxy p3;
 226             T1_BEZIERSEGMENT*o2 = (T1_BEZIERSEGMENT*)outline;
 227             p0.x=x;
 228             p0.y=y;
 229             p1.x=o2->C.x/(float)0xffff+lastx;
 230             p1.y=o2->C.y/(float)0xffff+lasty;
 231             p2.x=o2->B.x/(float)0xffff+lastx;
 232             p2.y=o2->B.y/(float)0xffff+lasty;
 233             p3.x=lastx;
 234             p3.y=lasty;
 235             if(log) printf("spline: %f,%f -> %f,%f\n",p3.x,p3.y,p0.x,p0.y);
 236             spline(tag,p0,p1,p2,p3,m);
 237         }
 238         else {
 239          logf("<error> drawpath: unknown outline type:%d\n", outline->type);
 240         }
 241         lastx=x;
 242         lasty=y;
 243         outline = outline->link;
 244     }
 245     if(((int)(lastx*20) != (int)(firstx*20) ||
 246         (int)(lasty*20) != (int)(firsty*20)) &&
 247              fill)
 248     {
 249         plotxy p0;
 250         plotxy p1;
 251         p0.x=lastx;
 252         p0.y=lasty;
 253         p1.x=firstx;
 254         p1.y=firsty;
 255         if(log) printf("fix: %f,%f -> %f,%f\n",p0.x,p0.y,p1.x,p1.y);
 256         line(tag, p0, p1, m);
 257     }
 258 }
 259
 260 static inline int colorcompare(RGBA*a,RGBA*b)
 261 {
 262
 263     if(a->r!=b->r ||
 264        a->g!=b->g ||
 265        a->b!=b->b ||
 266        a->a!=b->a) {
 267         return 0;
 268     }
 269     return 1;
 270 }
 271
 272 static const int CHARDATAMAX = 1024;
 273 struct chardata {
 274     int charid;
 275     int fontid;
 276     int x;
 277     int y;
 278     int size;
 279     RGBA color;
 280 } chardata[CHARDATAMAX];
 281 int chardatapos = 0;
 282
 283 static void putcharacters(TAG*tag)
 284 {
 285     int t;
 286     SWFFONT font;
 287     RGBA color;
 288     color.r = chardata[0].color.r^255;
 289     color.g = 0;
 290     color.b = 0;
 291     color.a = 0;
 292     int lastfontid;
 293     int lastx;
 294     int lasty;
 295     int lastsize;
 296     int charids[128];
 297     int charadvance[128];
 298     int charstorepos;
 299     int pass;
 300     int glyphbits=1; //TODO: can this be zero?
 301     int advancebits=1;
 302
 303     if(tag->id != ST_DEFINETEXT &&
 304         tag->id != ST_DEFINETEXT2) {
 305         logf("<error> internal error: putcharacters needs an text tag, not %d\n",tag->id);
 306         exit(1);
 307     }
 308     if(!chardatapos) {
 309         logf("<warning> putcharacters called with zero characters");
 310     }
 311
 312     for(pass = 0; pass < 2; pass++)
 313     {
 314         charstorepos = 0;
 315         lastfontid = -1;
 316         lastx = CHARMIDX;
 317         lasty = CHARMIDY;
 318         lastsize = -1;
 319
 320         if(pass==1)
 321         {
 322             advancebits++; // add sign bit
 323             swf_SetU8(tag, glyphbits);
 324             swf_SetU8(tag, advancebits);
 325         }
 326
 327         for(t=0;t<=chardatapos;t++)
 328         {
 329             if(lastfontid != chardata[t].fontid ||
 330                     lastx!=chardata[t].x ||
 331                     lasty!=chardata[t].y ||
 332                     !colorcompare(&color, &chardata[t].color) ||
 333                     charstorepos==127 ||
 334                     lastsize != chardata[t].size ||
 335                     t == chardatapos)
 336             {
 337                 if(charstorepos && pass==0)
 338                 {
 339                     int s;
 340                     for(s=0;s<charstorepos;s++)
 341                     {
 342                         while(charids[s]>=(1<<glyphbits))
 343                             glyphbits++;
 344                         while(charadvance[s]>=(1<<advancebits))
 345                             advancebits++;
 346                     }
 347                 }
 348                 if(charstorepos && pass==1)
 349                 {
 350                     tag->writeBit = 0; // Q&D
 351                     swf_SetBits(tag, 0, 1); // GLYPH Record
 352                     swf_SetBits(tag, charstorepos, 7); // number of glyphs
 353                     int s;
 354                     for(s=0;s<charstorepos;s++)
 355                     {
 356                         swf_SetBits(tag, charids[s], glyphbits);
 357                         swf_SetBits(tag, charadvance[s], advancebits);
 358                     }
 359                 }
 360                 charstorepos = 0;
 361
 362                 if(pass == 1 && t<chardatapos)
 363                 {
 364                     RGBA*newcolor=0;
 365                     SWFFONT*newfont=0;
 366                     int newx = 0;
 367                     int newy = 0;
 368                     if(lastx != chardata[t].x ||
 369                        lasty != chardata[t].y)
 370                     {
 371                         newx=chardata[t].x;
 372                         newy=chardata[t].y;
 373                     }
 374                     if(!colorcompare(&color, &chardata[t].color))
 375                     {
 376                         color = chardata[t].color;
 377                         newcolor = &color;
 378                     }
 379                     font.id = chardata[t].fontid;
 380                     if(lastfontid != chardata[t].fontid || lastsize != chardata[t].size)
 381                         newfont = &font;
 382
 383                     tag->writeBit = 0; // Q&D
 384                     swf_TextSetInfoRecord(tag, newfont, chardata[t].size, newcolor, newx,newy);
 385                 }
 386
 387                 lastfontid = chardata[t].fontid;
 388                 lastx = chardata[t].x;
 389                 lasty = chardata[t].y;
 390                 lastsize = chardata[t].size;
 391             }
 392
 393             if(t==chardatapos)
 394                     break;
 395
 396             int advance;
 397             int nextt = t==chardatapos-1?t:t+1;
 398             int rel = chardata[nextt].x-chardata[t].x;
 399             if(rel>=0 && (rel<(1<<(advancebits-1)) || pass==0)) {
 400                advance = rel;
 401                lastx=chardata[nextt].x;
 402             }
 403             else {
 404                advance = 0;
 405                lastx=chardata[t].x;
 406             }
 407             charids[charstorepos] = chardata[t].charid;
 408             charadvance[charstorepos] = advance;
 409             charstorepos ++;
 410         }
 411     }
 412     chardatapos = 0;
 413 }
 414
 415 static void putcharacter(struct swfoutput*obj, int fontid, int charid,
 416                     int x,int y, int size)
 417 {
 418     if(chardatapos == CHARDATAMAX)
 419     {
 420         endtext();
 421         starttext(obj);
 422     }
 423     chardata[chardatapos].fontid = fontid;
 424     chardata[chardatapos].charid = charid;
 425     chardata[chardatapos].x = x;
 426     chardata[chardatapos].y = y;
 427     chardata[chardatapos].color = obj->fillrgb;
 428     chardata[chardatapos].size = size;
 429     chardatapos++;
 430 }
 431
 432
 433 /* process a character. */
 434 static void drawchar(struct swfoutput*obj, SWFFont*font, char*character, int charnr, swfmatrix*m)
 435 {
 436     int usefonts=1;
 437     if(m->m12!=0 || m->m21!=0)
 438         usefonts=0;
 439     if(m->m11 != m->m22)
 440         usefonts=0;
 441
 442     if(usefonts && ! drawonlyshapes)
 443     {
 444         int charid = font->getSWFCharID(character, charnr);
 445         if(shapeid>=0)
 446             endshape();
 447         if(textid<0)
 448             starttext(obj);
 449         putcharacter(obj, font->swfid, charid,(int)(m->m13*20),(int)(m->m23*20),
 450                 (int)(m->m11*20/2+0.5)); //where does the /2 come from?
 451     }
 452     else
 453     {
 454         T1_OUTLINE*outline = font->getOutline(character);
 455         char* charname = character;
 456
 457         if(!outline) {
 458          logf("<warning> Didn't find %s in current charset (%s)",
 459                  FIXNULL(character),FIXNULL(font->getName()));
 460          return;
 461         }
 462
 463         swfmatrix m2=*m;
 464         m2.m11/=100;
 465         m2.m21/=100;
 466         m2.m12/=100;
 467         m2.m22/=100;
 468
 469         if(textid>=0)
 470             endtext();
 471         if(shapeid<0)
 472             startshape(obj);
 473
 474         if(!lastwasfill) {
 475          swf_ShapeSetStyle(tag,shape,0x8000,fillstyleid,0);
 476          fillstylechanged = 1;
 477         }
 478         lastwasfill = 1;
 479
 480         int lf = fill;
 481         fill = 1;
 482         drawpath(tag, outline, &m2, 0);
 483         fill = lf;
 484     }
 485 }
 486
 487 /* draw a curved polygon. */
 488 void swfoutput_drawpath(swfoutput*output, T1_OUTLINE*outline,
 489                             struct swfmatrix*m)
 490 {
 491     if(textid>=0)
 492         endtext();
 493
 494     /* Multiple polygons in one shape don't overlap correctly,
 495        so we better start a new shape here if the polygon is filled
 496      */
 497     if(shapeid>=0 && fill && !ignoredraworder) {
 498         endshape();
 499     }
 500
 501     if(shapeid<0)
 502         startshape(output);
 503
 504     if(lastwasfill && !fill)
 505     {
 506      swf_ShapeSetStyle(tag,shape,linestyleid,0x8000,0);
 507      fillstylechanged = 1;
 508      lastwasfill = 0;
 509     }
 510     if(!lastwasfill && fill)
 511     {
 512      swf_ShapeSetStyle(tag,shape,0x8000,fillstyleid,0);
 513      fillstylechanged = 1;
 514      lastwasfill = 1;
 515     }
 516
 517     drawpath(tag, outline,m, 0);
 518 }
 519
 520 /* SWFFont: copy all t1 font outlines to a local
 521    array. */
 522 SWFFont::SWFFont(char*name, int id, char*filename)
 523 {
 524     if(!T1_GetFontName(id))
 525         T1_LoadFont(id);
 526
 527     this->name = strdup(T1_GetFontFileName(id));
 528     this->fontid = strdup(name);
 529     this->t1id = id;
 530
 531     char**a= T1_GetAllCharNames(id);
 532     int t, outlinepos=0;
 533     char*map[256];
 534
 535     t=0;
 536     while(a[t])
 537         t++;
 538     this->charnum = t;
 539
 540     if(!charnum)
 541         return;
 542     logf("<verbose> Font %s(%d): Storing %d outlines.\n", FIXNULL(name), id, charnum);
 543
 544     this->standardtablesize = 256;
 545     if(this->charnum < this->standardtablesize)
 546         this->standardtablesize = this->charnum;
 547     this->standardtable = (char**)malloc(standardtablesize*sizeof(char*));
 548
 549     for(t = 0; t < this->standardtablesize; t++) {
 550         char*name = T1_GetCharName(id,t);
 551         if(!name)
 552             name = "";
 553         standardtable[t] = strdup(name);
 554     }
 555
 556     outline = (T1_OUTLINE**)malloc(charnum*sizeof(T1_OUTLINE*));
 557     charname = (char**)malloc(charnum*sizeof(char*));
 558     width = (int*)malloc(charnum*sizeof(int));
 559     memset(width, 0, charnum*sizeof(int));
 560     memset(charname, 0, charnum*sizeof(char*));
 561     used = (char*)malloc(charnum*sizeof(char));
 562     char2swfcharid = (U16*)malloc(charnum*2);
 563     swfcharid2char = (U16*)malloc(charnum*2);
 564     swfcharpos = 0;
 565
 566     memset(used,0,charnum*sizeof(char));
 567
 568     this->swfid = ++currentswfid;
 569
 570     t=0;
 571     while(*a)
 572     {
 573         map[t] = *a;
 574         a++;
 575         t++;
 576         if(t==256 || !*a) {
 577             int s;
 578             for(s=t;s<256;s++)
 579                 map[s] = ".notdef";
 580
 581             int ret = T1_ReencodeFont(id, map);
 582             if(ret) {
 583              T1_DeleteFont(id);
 584              T1_LoadFont(id);
 585              int ret = T1_ReencodeFont(id, map);
 586              if(ret)
 587                fprintf(stderr,"Can't reencode font: (%s) ret:%d\n",filename, ret);
 588             }
 589
 590             // parsecharacters
 591             for(s=0;s<t;s++)
 592             {
 593                 char* name = T1_GetCharName(id, s);
 594                 if(!name) name = "";
 595                 this->outline[outlinepos] = T1_CopyOutline(T1_GetCharOutline(id, s, 100.0, 0));
 596                 this->width[outlinepos] = T1_GetCharWidth(id, s);
 597                 this->charname[outlinepos] = strdup(name);
 598                 outlinepos++;
 599             }
 600             t=0;
 601         }
 602     }
 603 }
 604
 605 /* free all tables, write out definefont tags */
 606 SWFFont::~SWFFont()
 607 {
 608     int t,usednum=0;
 609     int*ptr;
 610
 611     if(storeallcharacters)
 612     {
 613         int t;
 614         for(t=0;t<this->charnum;t++)
 615         {
 616             if(this->charname[t])
 617               getSWFCharID(this->charname[t], -1);
 618         }
 619     }
 620
 621     ptr = (int*)malloc(swfcharpos*sizeof(int));
 622
 623     for(t=0;t<charnum;t++)
 624         if(used[t]) usednum++;
 625
 626     if(usednum && !drawonlyshapes)
 627     {
 628         logf("<verbose> Font %s has %d used characters",FIXNULL(fontid), usednum);
 629         TAG*ftag = swf_InsertTag(swf.firstTag,ST_DEFINEFONT);
 630         swf_SetU16(ftag, this->swfid);
 631         int initpos = swf_GetTagLen(ftag);
 632         swfmatrix m;
 633         m.m11 = m.m22 = 1;
 634         m.m21 = m.m12 = 0;
 635         m.m13 = CHARMIDX;
 636         m.m23 = CHARMIDY;
 637
 638         for(t=0;t<swfcharpos;t++)
 639         {
 640             ptr[t] = swf_GetTagLen(ftag);
 641             swf_SetU16(ftag, 0x1234);
 642         }
 643         for(t=0;t<swfcharpos;t++)
 644         {
 645             *(U16*)&ftag->data[ptr[t]] =
 646                 SWAP16(swf_GetTagLen(ftag)-initpos);
 647
 648             swflastx=0;
 649             swflasty=0;
 650             swf_SetU8(ftag,0x10); //1 fill bits, 0 linestyle bits
 651             SHAPE s;
 652             s.bits.fill = 1;
 653             s.bits.line = 0;
 654             swf_ShapeSetStyle(ftag,&s,0,1,0);
 655             fillstylechanged = 1;
 656             int lastfill = fill;
 657             fill = 1;
 658             storefont = 1;
 659             drawpath(ftag, outline[swfcharid2char[t]],&m, 0);
 660             storefont = 0;
 661             fill = lastfill;
 662             swf_ShapeSetEnd(ftag);
 663         }
 664         ftag = swf_InsertTag(ftag,ST_DEFINEFONTINFO);
 665         swf_SetU16(ftag, this->swfid);
 666         if(this->fontid) {
 667             swf_SetU8(ftag, strlen(this->fontid));
 668             swf_SetBlock(ftag, (U8*)this->fontid, strlen(this->fontid));
 669         } else {
 670             swf_SetU8(ftag, 0);
 671         }
 672         swf_SetU8(ftag, 0); //flags
 673         for(t=0;t<swfcharpos;t++)
 674         {
 675             int s;
 676             char * name = this->charname[this->swfcharid2char[t]];
 677             for(s=0;s<256;s++) {
 678                 if(standardEncodingNames[s] &&
 679                         !strcmp(name,standardEncodingNames[s]))
 680                     break;
 681             }
 682             swf_SetU8(ftag, (U8)s);
 683         }
 684     }
 685
 686     free(ptr);
 687     free(outline);
 688     for(t=0;t<charnum;t++)
 689         free(charname[t]);
 690     for(t=0;t<standardtablesize;t++)
 691         if(standardtable[t]) {
 692             free(standardtable[t]);
 693         }
 694     free(standardtable);
 695     free(charname);
 696     free(width);
 697     free(used);
 698     free(swfcharid2char);
 699     free(char2swfcharid);
 700 }
 701
 702 T1_OUTLINE*SWFFont::getOutline(char*name)
 703 {
 704     int t;
 705     for(t=0;t<this->charnum;t++) {
 706         if(!strcmp(this->charname[t],name)) {
 707             if(!used[t])
 708             {
 709                 swfcharid2char[swfcharpos] = t;
 710                 char2swfcharid[t] = swfcharpos;
 711                 swfcharpos++;
 712                 used[t] = 1;
 713             }
 714             return outline[t];
 715         }
 716     }
 717     return 0;
 718 }
 719
 720 int SWFFont::getWidth(char*name)
 721 {
 722     int t;
 723     for(t=0;t<this->charnum;t++) {
 724         if(!strcmp(this->charname[t],name)) {
 725             return this->width[t];
 726         }
 727     }
 728     return 0;
 729 }
 730
 731 int SWFFont::getSWFCharID(char*name, int charnr)
 732 {
 733     int t;
 734     for(t=0;t<this->charnum;t++) {
 735         if(!strcmp(this->charname[t],name)) {
 736             if(!used[t])
 737             {
 738                 swfcharid2char[swfcharpos] = t;
 739                 char2swfcharid[t] = swfcharpos++;
 740                 used[t] = 1;
 741             }
 742             return char2swfcharid[t];
 743         }
 744     }
 745     if(this->standardtable && charnr>=0 && charnr < this->standardtablesize) {
 746         return getSWFCharID(this->standardtable[charnr], -1);
 747     }
 748     logf("<warning> Didn't find character '%s' in font '%s'", FIXNULL(name), this->name);
 749     return 0;
 750 }
 751
 752 char*SWFFont::getName()
 753 {
 754     return this->name;
 755 }
 756
 757 struct fontlist_t
 758 {
 759     SWFFont * font;
 760     fontlist_t*next;
 761 } *fontlist = 0;
 762
 763 /* set's the t1 font index of the font to use for swfoutput_drawchar(). */
 764 void swfoutput_setfont(struct swfoutput*obj, char*fontid, int t1id, char*filename)
 765 {
 766     fontlist_t*last=0,*iterator;
 767     if(obj->font && !strcmp(obj->font->fontid,fontid))
 768         return;
 769
 770     iterator = fontlist;
 771     while(iterator) {
 772         if(!strcmp(iterator->font->fontid,fontid))
 773             break;
 774         last = iterator;
 775         iterator = iterator->next;
 776     }
 777     if(iterator)
 778     {
 779         obj->font = iterator->font;
 780         return ;
 781     }
 782
 783     if(t1id<0) {
 784         logf("<error> internal error: t1id:%d, fontid:%s\n", t1id,FIXNULL(fontid));
 785     }
 786
 787     SWFFont*font = new SWFFont(fontid, t1id, filename);
 788     iterator = new fontlist_t;
 789     iterator->font = font;
 790     iterator->next = 0;
 791
 792     if(last)
 793         last->next = iterator;
 794     else
 795         fontlist = iterator;
 796     obj->font = font;
 797 }
 798
 799 int swfoutput_queryfont(struct swfoutput*obj, char*fontid)
 800 {
 801     fontlist_t *iterator = fontlist;
 802     while(iterator) {
 803         if(!strcmp(iterator->font->fontid,fontid))
 804             return 1;
 805         iterator = iterator->next;
 806     }
 807     return 0;
 808 }
 809
 810 /* set's the matrix which is to be applied to characters drawn by
 811    swfoutput_drawchar() */
 812 void swfoutput_setfontmatrix(struct swfoutput*obj,double m11,double m12,
 813                                                   double m21,double m22)
 814 {
 815     if(obj->fontm11 == m11 &&
 816        obj->fontm12 == m12 &&
 817        obj->fontm21 == m21 &&
 818        obj->fontm22 == m22)
 819         return;
 820 //    if(textid>=0)
 821 //      endtext();
 822     obj->fontm11 = m11;
 823     obj->fontm12 = m12;
 824     obj->fontm21 = m21;
 825     obj->fontm22 = m22;
 826 }
 827
 828 /* draws a character at x,y. */
 829 void swfoutput_drawchar(struct swfoutput* obj,double x,double y,char*character, int charnr)
 830 {
 831     swfmatrix m;
 832     m.m11 = obj->fontm11;
 833     m.m12 = obj->fontm12;
 834     m.m21 = obj->fontm21;
 835     m.m22 = obj->fontm22;
 836     m.m13 = x;
 837     m.m23 = y;
 838     drawchar(obj, obj->font, character, charnr, &m);
 839 }
 840
 841 /* initialize the swf writer */
 842 void swfoutput_init(struct swfoutput* obj, char*_filename, int _sizex, int _sizey)
 843 {
 844   GLYPH *glyph;
 845   RGBA rgb;
 846   SRECT r;
 847   memset(obj, 0, sizeof(struct swfoutput));
 848   filename = _filename;
 849   sizex = _sizex;
 850   sizey = _sizey;
 851
 852   logf("<verbose> initializing swf output for size %d*%d\n", sizex,sizey);
 853
 854   obj->font = 0;
 855
 856   memset(&swf,0x00,sizeof(SWF));
 857
 858   swf.fileVersion    = 4;
 859   swf.frameRate      = 0x0040; // 1 frame per 4 seconds
 860   swf.movieSize.xmax = 20*sizex;
 861   swf.movieSize.ymax = 20*sizey;
 862
 863   swf.firstTag = swf_InsertTag(NULL,ST_SETBACKGROUNDCOLOR);
 864   tag = swf.firstTag;
 865   rgb.r = 0xff;
 866   rgb.g = 0xff;
 867   rgb.b = 0xff;
 868   swf_SetRGB(tag,&rgb);
 869   if(flag_protected)  // good practice! /r
 870     tag = swf_InsertTag(tag, ST_PROTECT);
 871   depth = 1;
 872   startdepth = depth;
 873 }
 874
 875 void swfoutput_setprotected() //write PROTECT tag
 876 {
 877   flag_protected = 1;
 878 }
 879
 880 static void startshape(struct swfoutput*obj)
 881 {
 882   RGBA rgb;
 883   SRECT r;
 884
 885   if(textid>=0)
 886       endtext();
 887
 888   tag = swf_InsertTag(tag,ST_DEFINESHAPE);
 889
 890   swf_ShapeNew(&shape);
 891   linestyleid = swf_ShapeAddLineStyle(shape,obj->linewidth,&obj->strokergb);
 892   rgb.r = obj->fillrgb.r;
 893   rgb.g = obj->fillrgb.g;
 894   rgb.b = obj->fillrgb.b;
 895   fillstyleid = swf_ShapeAddSolidFillStyle(shape,&obj->fillrgb);
 896
 897   shapeid = ++currentswfid;
 898   swf_SetU16(tag,shapeid);  // ID
 899
 900   r.xmin = 0;
 901   r.ymin = 0;
 902   r.xmax = 20*sizex;
 903   r.ymax = 20*sizey;
 904
 905   swf_SetRect(tag,&r);
 906
 907   swf_SetShapeStyles(tag,shape);
 908   swf_ShapeCountBits(shape,NULL,NULL);
 909   swf_SetShapeBits(tag,shape);
 910
 911   swf_ShapeSetAll(tag,shape,/*x*/0,/*y*/0,linestyleid,0,0);
 912   swflastx=swflasty=0;
 913   lastwasfill = 0;
 914 }
 915
 916 static void starttext(struct swfoutput*obj)
 917 {
 918   SRECT r;
 919   MATRIX m;
 920   if(shapeid>=0)
 921       endshape();
 922   tag = swf_InsertTag(tag,ST_DEFINETEXT);
 923   textid = ++currentswfid;
 924   swf_SetU16(tag, textid);
 925
 926   r.xmin = 0;
 927   r.ymin = 0;
 928   r.xmax = 20*sizex;
 929   r.ymax = 20*sizey;
 930
 931   swf_SetRect(tag,&r);
 932
 933   m.sx = 65536;
 934   m.sy = 65536;
 935   m.r0 = 0;
 936   m.r1 = 0;
 937   m.tx = 0;
 938   m.ty = 0;
 939
 940   swf_SetMatrix(tag,&m);
 941   swflastx=swflasty=0;
 942 }
 943
 944 static void endshape()
 945 {
 946     if(shapeid<0)
 947         return;
 948     swf_ShapeSetEnd(tag);
 949     tag = swf_InsertTag(tag,ST_PLACEOBJECT2);
 950     swf_ObjectPlace(tag,shapeid,/*depth*/depth++,NULL,NULL,NULL);
 951     shapeid = -1;
 952 }
 953
 954 static void endtext()
 955 {
 956     if(textid<0)
 957         return;
 958     putcharacters(tag);
 959     swf_SetU8(tag,0);
 960     tag = swf_InsertTag(tag,ST_PLACEOBJECT2);
 961     swf_ObjectPlace(tag,textid,/*depth*/depth++,NULL,NULL,NULL);
 962     textid = -1;
 963 }
 964
 965 static void endpage(struct swfoutput*obj)
 966 {
 967     if(shapeid>=0)
 968       endshape();
 969     if(textid>=0)
 970       endtext();
 971     while(clippos)
 972         swfoutput_endclip(obj);
 973
 974     if(insertstoptag) {
 975         ActionTAG*atag=0;
 976         atag = action_Stop(atag);
 977         atag = action_End(atag);
 978         tag = swf_InsertTag(tag,ST_DOACTION);
 979         swf_ActionSet(tag,atag);
 980     }
 981     tag = swf_InsertTag(tag,ST_SHOWFRAME);
 982 }
 983
 984 void swfoutput_newpage(struct swfoutput*obj)
 985 {
 986     endpage(obj);
 987
 988     for(depth--;depth>=startdepth;depth--) {
 989         tag = swf_InsertTag(tag,ST_REMOVEOBJECT2);
 990         swf_SetU16(tag,depth);
 991     }
 992
 993     depth = 1;
 994     startdepth = depth;
 995 }
 996
 997 /* "destroy" like in (oo-terminology) "destructor". Perform cleaning
 998    up, complete the swf, and write it out. */
 999 void swfoutput_destroy(struct swfoutput* obj)
1000 {
1001     endpage(obj);
1002     fontlist_t *tmp,*iterator = fontlist;
1003     while(iterator) {
1004         delete iterator->font;
1005         iterator->font = 0;
1006         tmp = iterator;
1007         iterator = iterator->next;
1008         delete tmp;
1009     }
1010
1011     T1_CloseLib();
1012     if(!filename)
1013         return;
1014     if(filename)
1015      fi = open(filename, O_CREAT|O_TRUNC|O_WRONLY, 0777);
1016     else
1017      fi = 1; // stdout
1018
1019     if(fi<=0) {
1020      logf("<fatal> Could not create \"%s\". ", FIXNULL(filename));
1021      exit(1);
1022     }
1023
1024     tag = swf_InsertTag(tag,ST_END);
1025
1026     if(enablezlib) {
1027       if FAILED(swf_WriteSWC(fi,&swf))
1028        logf("<error> WriteSWC() failed.\n");
1029     } else {
1030       if FAILED(swf_WriteSWF(fi,&swf))
1031        logf("<error> WriteSWF() failed.\n");
1032     }
1033
1034     if(filename)
1035      close(fi);
1036     logf("<notice> SWF written\n");
1037 }
1038
1039 void swfoutput_setdrawmode(swfoutput* obj, int mode)
1040 {
1041     drawmode = mode;
1042     if(mode == DRAWMODE_FILL)
1043      fill = 1;
1044     else if(mode == DRAWMODE_EOFILL)
1045      fill = 1;
1046     else if(mode == DRAWMODE_STROKE)
1047      fill = 0;
1048     else if(mode == DRAWMODE_CLIP)
1049      fill = 1;
1050     else if(mode == DRAWMODE_EOCLIP)
1051      fill = 1;
1052 }
1053
1054 void swfoutput_setfillcolor(swfoutput* obj, u8 r, u8 g, u8 b, u8 a)
1055 {
1056     if(obj->fillrgb.r == r &&
1057        obj->fillrgb.g == g &&
1058        obj->fillrgb.b == b &&
1059        obj->fillrgb.a == a) return;
1060     if(shapeid>=0)
1061      endshape();
1062
1063     obj->fillrgb.r = r;
1064     obj->fillrgb.g = g;
1065     obj->fillrgb.b = b;
1066     obj->fillrgb.a = a;
1067 }
1068
1069 void swfoutput_setstrokecolor(swfoutput* obj, u8 r, u8 g, u8 b, u8 a)
1070 {
1071     if(obj->strokergb.r == r &&
1072        obj->strokergb.g == g &&
1073        obj->strokergb.b == b &&
1074        obj->strokergb.a == a) return;
1075
1076     if(shapeid>=0)
1077      endshape();
1078     obj->strokergb.r = r;
1079     obj->strokergb.g = g;
1080     obj->strokergb.b = b;
1081     obj->strokergb.a = a;
1082 }
1083
1084 void swfoutput_setlinewidth(struct swfoutput*obj, double linewidth)
1085 {
1086     if(obj->linewidth == (u16)(linewidth*20))
1087         return;
1088
1089     if(shapeid>=0)
1090      endshape();
1091     obj->linewidth = (u16)(linewidth*20);
1092 }
1093
1094
1095 void swfoutput_startclip(swfoutput*obj, T1_OUTLINE*outline, struct swfmatrix*m)
1096 {
1097     if(textid>=0)
1098      endtext();
1099     if(shapeid>=0)
1100      endshape();
1101
1102     if(clippos >= 127)
1103     {
1104         logf("<warning> Too many clip levels.");
1105         clippos --;
1106     }
1107
1108     startshape(obj);
1109     int olddrawmode = drawmode;
1110     swfoutput_setdrawmode(obj, DRAWMODE_CLIP);
1111     swfoutput_drawpath(obj, outline, m);
1112     swf_ShapeSetEnd(tag);
1113     swfoutput_setdrawmode(obj, olddrawmode);
1114
1115     tag = swf_InsertTag(tag,ST_PLACEOBJECT2);
1116     cliptags[clippos] = tag;
1117     clipshapes[clippos] = shapeid;
1118     clipdepths[clippos] = depth++;
1119     clippos++;
1120     shapeid = -1;
1121 }
1122
1123 void swfoutput_endclip(swfoutput*obj)
1124 {
1125     if(textid>=0)
1126      endtext();
1127     if(shapeid>=0)
1128      endshape();
1129
1130     if(!clippos) {
1131         logf("<error> Invalid end of clipping region");
1132         return;
1133     }
1134     clippos--;
1135     swf_ObjectPlaceClip(cliptags[clippos],clipshapes[clippos],clipdepths[clippos],NULL,NULL,NULL,depth++);
1136 }
1137
1138 static void drawlink(struct swfoutput*obj, ActionTAG*,ActionTAG*, swfcoord*points, char mouseover);
1139
1140 void swfoutput_linktourl(struct swfoutput*obj, char*url, swfcoord*points)
1141 {
1142     ActionTAG* actions;
1143
1144     if(shapeid>=0)
1145      endshape();
1146     if(textid>=0)
1147      endtext();
1148
1149     if(opennewwindow)
1150       actions = action_GetUrl(0, url, "_parent");
1151     else
1152       actions = action_GetUrl(0, url, "_this");
1153     actions = action_End(actions);
1154
1155     drawlink(obj, actions, 0, points,0);
1156 }
1157 void swfoutput_linktopage(struct swfoutput*obj, int page, swfcoord*points)
1158 {
1159     ActionTAG* actions;
1160
1161     if(shapeid>=0)
1162      endshape();
1163     if(textid>=0)
1164      endtext();
1165
1166       actions = action_GotoFrame(0, page);
1167       actions = action_End(actions);
1168
1169     drawlink(obj, actions, 0, points,0);
1170 }
1171 void swfoutput_namedlink(struct swfoutput*obj, char*name, swfcoord*points)
1172 {
1173     ActionTAG *actions1,*actions2;
1174
1175     if(shapeid>=0)
1176      endshape();
1177     if(textid>=0)
1178      endtext();
1179
1180       actions1 = action_PushString(0, "/:subtitle");
1181       actions1 = action_PushString(actions1, name);
1182       actions1 = action_SetVariable(actions1);
1183       actions1 = action_End(actions1);
1184
1185       actions2 = action_PushString(0, "/:subtitle");
1186       actions2 = action_PushString(actions2, "");
1187       actions2 = action_SetVariable(actions2);
1188       actions2 = action_End(actions2);
1189
1190     drawlink(obj, actions1, actions2, points,1);
1191
1192     swf_ActionFree(actions1);
1193     swf_ActionFree(actions2);
1194 }
1195
1196 static void drawlink(struct swfoutput*obj, ActionTAG*actions1, ActionTAG*actions2, swfcoord*points, char mouseover)
1197 {
1198     RGBA rgb;
1199     SRECT r;
1200     int lsid=0;
1201     int fsid;
1202     struct plotxy p1,p2,p3,p4;
1203     int myshapeid;
1204     int myshapeid2;
1205     double xmin,ymin;
1206     double xmax=xmin=points[0].x,ymax=ymin=points[0].y;
1207     double posx = 0;
1208     double posy = 0;
1209     int t;
1210     int buttonid = ++currentswfid;
1211     for(t=1;t<4;t++)
1212     {
1213         if(points[t].x>xmax) xmax=points[t].x;
1214         if(points[t].y>ymax) ymax=points[t].y;
1215         if(points[t].x<xmin) xmin=points[t].x;
1216         if(points[t].y<ymin) ymin=points[t].y;
1217     }
1218
1219     p1.x=points[0].x; p1.y=points[0].y; p2.x=points[1].x; p2.y=points[1].y;
1220     p3.x=points[2].x; p3.y=points[2].y; p4.x=points[3].x; p4.y=points[3].y;
1221
1222     /* the following code subtracts the upper left edge from all coordinates,
1223        and set's posx,posy so that ST_PLACEOBJECT is used with a matrix.
1224        Necessary for preprocessing with swfcombine. */
1225     posx = xmin; posy = ymin;
1226     p1.x-=posx;p2.x-=posx;p3.x-=posx;p4.x-=posx;
1227     p1.y-=posy;p2.y-=posy;p3.y-=posy;p4.y-=posy;
1228     xmin -= posx; ymin -= posy;
1229     xmax -= posx; ymax -= posy;
1230
1231     /* shape */
1232     myshapeid = ++currentswfid;
1233     tag = swf_InsertTag(tag,ST_DEFINESHAPE3);
1234     swf_ShapeNew(&shape);
1235     rgb.r = rgb.b = rgb.a = rgb.g = 0;
1236     fsid = swf_ShapeAddSolidFillStyle(shape,&rgb);
1237     swf_SetU16(tag, myshapeid);
1238     r.xmin = (int)(xmin*20);
1239     r.ymin = (int)(ymin*20);
1240     r.xmax = (int)(xmax*20);
1241     r.ymax = (int)(ymax*20);
1242     swf_SetRect(tag,&r);
1243     swf_SetShapeStyles(tag,shape);
1244     swf_ShapeCountBits(shape,NULL,NULL);
1245     swf_SetShapeBits(tag,shape);
1246     swf_ShapeSetAll(tag,shape,/*x*/0,/*y*/0,0,fsid,0);
1247     swflastx = swflasty = 0;
1248     moveto(tag, p1);
1249     lineto(tag, p2);
1250     lineto(tag, p3);
1251     lineto(tag, p4);
1252     lineto(tag, p1);
1253     swf_ShapeSetEnd(tag);
1254
1255     /* shape2 */
1256     myshapeid2 = ++currentswfid;
1257     tag = swf_InsertTag(tag,ST_DEFINESHAPE3);
1258     swf_ShapeNew(&shape);
1259     rgb.r = rgb.b = rgb.a = rgb.g = 255;
1260     rgb.a = 40;
1261     fsid = swf_ShapeAddSolidFillStyle(shape,&rgb);
1262     swf_SetU16(tag, myshapeid2);
1263     r.xmin = (int)(xmin*20);
1264     r.ymin = (int)(ymin*20);
1265     r.xmax = (int)(xmax*20);
1266     r.ymax = (int)(ymax*20);
1267     swf_SetRect(tag,&r);
1268     swf_SetShapeStyles(tag,shape);
1269     swf_ShapeCountBits(shape,NULL,NULL);
1270     swf_SetShapeBits(tag,shape);
1271     swf_ShapeSetAll(tag,shape,/*x*/0,/*y*/0,0,fsid,0);
1272     swflastx = swflasty = 0;
1273     moveto(tag, p1);
1274     lineto(tag, p2);
1275     lineto(tag, p3);
1276     lineto(tag, p4);
1277     lineto(tag, p1);
1278     swf_ShapeSetEnd(tag);
1279
1280     if(!mouseover)
1281     {
1282         tag = swf_InsertTag(tag,ST_DEFINEBUTTON);
1283         swf_SetU16(tag,buttonid); //id
1284         swf_ButtonSetFlags(tag, 0); //menu=no
1285         swf_ButtonSetRecord(tag,0x01,myshapeid,depth,0,0);
1286         swf_ButtonSetRecord(tag,0x02,myshapeid2,depth,0,0);
1287         swf_ButtonSetRecord(tag,0x04,myshapeid2,depth,0,0);
1288         swf_ButtonSetRecord(tag,0x08,myshapeid,depth,0,0);
1289         swf_SetU8(tag,0);
1290         swf_ActionSet(tag,actions1);
1291         swf_SetU8(tag,0);
1292     }
1293     else
1294     {
1295         tag = swf_InsertTag(tag,ST_DEFINEBUTTON2);
1296         swf_SetU16(tag,buttonid); //id
1297         swf_ButtonSetFlags(tag, 0); //menu=no
1298         swf_ButtonSetRecord(tag,0x01,myshapeid,depth,0,0);
1299         swf_ButtonSetRecord(tag,0x02,myshapeid2,depth,0,0);
1300         swf_ButtonSetRecord(tag,0x04,myshapeid2,depth,0,0);
1301         swf_ButtonSetRecord(tag,0x08,myshapeid,depth,0,0);
1302         swf_SetU8(tag,0); // end of button records
1303         swf_ButtonSetCondition(tag, BC_IDLE_OVERUP);
1304         swf_ActionSet(tag,actions1);
1305         if(actions2) {
1306             swf_ButtonSetCondition(tag, BC_OVERUP_IDLE);
1307             swf_ActionSet(tag,actions2);
1308             swf_SetU8(tag,0);
1309             swf_ButtonPostProcess(tag, 2);
1310         } else {
1311             swf_SetU8(tag,0);
1312             swf_ButtonPostProcess(tag, 1);
1313         }
1314     }
1315
1316     tag = swf_InsertTag(tag,ST_PLACEOBJECT2);
1317
1318     if(posx!=0 || posy!=0) {
1319         MATRIX m;
1320         swf_GetMatrix(0,&m);
1321         m.tx = (int)(posx*20);
1322         m.ty = (int)(posy*20);
1323         swf_ObjectPlace(tag, buttonid, depth++,&m,0,0);
1324     }
1325     else {
1326         swf_ObjectPlace(tag, buttonid, depth++,0,0,0);
1327     }
1328 }
1329
1330 static void drawimage(struct swfoutput*obj, int bitid, int sizex,int sizey,
1331         double x1,double y1,
1332         double x2,double y2,
1333         double x3,double y3,
1334         double x4,double y4)
1335 {
1336     RGBA rgb;
1337     SRECT r;
1338     int lsid=0;
1339     int fsid;
1340     struct plotxy p1,p2,p3,p4;
1341     int myshapeid;
1342     double xmax=x1,ymax=y1,xmin=x1,ymin=y1;
1343     if(x2>xmax) xmax=x2;
1344     if(y2>ymax) ymax=y2;
1345     if(x2<xmin) xmin=x2;
1346     if(y2<ymin) ymin=y2;
1347     if(x3>xmax) xmax=x3;
1348     if(y3>ymax) ymax=y3;
1349     if(x3<xmin) xmin=x3;
1350     if(y3<ymin) ymin=y3;
1351     if(x4>xmax) xmax=x4;
1352     if(y4>ymax) ymax=y4;
1353     if(x4<xmin) xmin=x4;
1354     if(y4<ymin) ymin=y4;
1355     p1.x=x1; p1.y=y1;
1356     p2.x=x2; p2.y=y2;
1357     p3.x=x3; p3.y=y3;
1358     p4.x=x4; p4.y=y4;
1359
1360     {p1.x = (int)(p1.x*20)/20.0;
1361      p1.y = (int)(p1.y*20)/20.0;
1362      p2.x = (int)(p2.x*20)/20.0;
1363      p2.y = (int)(p2.y*20)/20.0;
1364      p3.x = (int)(p3.x*20)/20.0;
1365      p3.y = (int)(p3.y*20)/20.0;
1366      p4.x = (int)(p4.x*20)/20.0;
1367      p4.y = (int)(p4.y*20)/20.0;}
1368
1369     MATRIX m;
1370     m.sx = (int)(65536*20*(p4.x-p1.x)/sizex);
1371     m.r1 = -(int)(65536*20*(p4.y-p1.y)/sizex);
1372     m.r0 = (int)(65536*20*(p1.x-p2.x)/sizey);
1373     m.sy = -(int)(65536*20*(p1.y-p2.y)/sizey);
1374
1375     m.tx = (int)(p1.x*20);
1376     m.ty = (int)(p1.y*20);
1377
1378     /* shape */
1379     myshapeid = ++currentswfid;
1380     tag = swf_InsertTag(tag,ST_DEFINESHAPE);
1381     swf_ShapeNew(&shape);
1382     //lsid = ShapeAddLineStyle(shape,obj->linewidth,&obj->strokergb);
1383     //fsid = ShapeAddSolidFillStyle(shape,&obj->fillrgb);
1384     fsid = swf_ShapeAddBitmapFillStyle(shape,&m,bitid,1);
1385     swf_SetU16(tag, myshapeid);
1386     r.xmin = (int)(xmin*20);
1387     r.ymin = (int)(ymin*20);
1388     r.xmax = (int)(xmax*20);
1389     r.ymax = (int)(ymax*20);
1390     swf_SetRect(tag,&r);
1391     swf_SetShapeStyles(tag,shape);
1392     swf_ShapeCountBits(shape,NULL,NULL);
1393     swf_SetShapeBits(tag,shape);
1394     swf_ShapeSetAll(tag,shape,/*x*/0,/*y*/0,lsid,fsid,0);
1395     swflastx = swflasty = 0;
1396     moveto(tag, p1);
1397     lineto(tag, p2);
1398     lineto(tag, p3);
1399     lineto(tag, p4);
1400     lineto(tag, p1);
1401     /*
1402     ShapeMoveTo  (tag, shape, (int)(x1*20),(int)(y1*20));
1403     ShapeSetLine (tag, shape, (int)(x1*20);
1404     ShapeSetLine (tag, shape, x*20,0);
1405     ShapeSetLine (tag, shape, 0,-y*20);
1406     ShapeSetLine (tag, shape, -x*20,0);*/
1407     swf_ShapeSetEnd(tag);
1408
1409     /* instance */
1410     tag = swf_InsertTag(tag,ST_PLACEOBJECT2);
1411     swf_ObjectPlace(tag,myshapeid,/*depth*/depth++,NULL,NULL,NULL);
1412 }
1413
1414 int swfoutput_drawimagejpeg_old(struct swfoutput*obj, char*filename, int sizex,int sizey,
1415         double x1,double y1,
1416         double x2,double y2,
1417         double x3,double y3,
1418         double x4,double y4)
1419 {
1420     TAG*oldtag;
1421     if(shapeid>=0)
1422      endshape();
1423     if(textid>=0)
1424      endtext();
1425
1426     int bitid = ++currentswfid;
1427     oldtag = tag;
1428     tag = swf_InsertTag(tag,ST_DEFINEBITSJPEG2);
1429     swf_SetU16(tag, bitid);
1430     if(swf_SetJPEGBits(tag, filename, jpegquality)<0) {
1431         swf_DeleteTag(tag);
1432         tag = oldtag;
1433         return -1;
1434     }
1435
1436     drawimage(obj, bitid, sizex, sizey, x1,y1,x2,y2,x3,y3,x4,y4);
1437     return bitid;
1438 }
1439
1440 int swfoutput_drawimagejpeg(struct swfoutput*obj, RGBA*mem, int sizex,int sizey,
1441         double x1,double y1,
1442         double x2,double y2,
1443         double x3,double y3,
1444         double x4,double y4)
1445 {
1446     TAG*oldtag;
1447     JPEGBITS*jpeg;
1448
1449     if(shapeid>=0)
1450      endshape();
1451     if(textid>=0)
1452      endtext();
1453
1454     int bitid = ++currentswfid;
1455     oldtag = tag;
1456     tag = swf_InsertTag(tag,ST_DEFINEBITSJPEG2);
1457     swf_SetU16(tag, bitid);
1458     swf_SetJPEGBits2(tag,sizex,sizey,mem,jpegquality);
1459     drawimage(obj, bitid, sizex, sizey, x1,y1,x2,y2,x3,y3,x4,y4);
1460     return bitid;
1461 }
1462
1463 int swfoutput_drawimagelossless(struct swfoutput*obj, RGBA*mem, int sizex,int sizey,
1464         double x1,double y1,
1465         double x2,double y2,
1466         double x3,double y3,
1467         double x4,double y4)
1468 {
1469     TAG*oldtag;
1470     if(shapeid>=0)
1471      endshape();
1472     if(textid>=0)
1473      endtext();
1474
1475     int bitid = ++currentswfid;
1476     oldtag = tag;
1477     tag = swf_InsertTag(tag,ST_DEFINEBITSLOSSLESS);
1478     swf_SetU16(tag, bitid);
1479     if(swf_SetLosslessBits(tag,sizex,sizey,mem, BMF_32BIT)<0) {
1480         swf_DeleteTag(tag);
1481         tag = oldtag;
1482         return -1;
1483     }
1484
1485     drawimage(obj, bitid, sizex, sizey, x1,y1,x2,y2,x3,y3,x4,y4);
1486     return bitid;
1487 }
1488
1489 int swfoutput_drawimagelosslessN(struct swfoutput*obj, U8*mem, RGBA*pal, int sizex,int sizey,
1490         double x1,double y1,
1491         double x2,double y2,
1492         double x3,double y3,
1493         double x4,double y4, int n)
1494 {
1495     TAG*oldtag;
1496     U8*mem2 = 0;
1497     if(shapeid>=0)
1498      endshape();
1499     if(textid>=0)
1500      endtext();
1501
1502     if(sizex&3)
1503     {
1504         /* SWF expects scanlines to be 4 byte aligned */
1505         int x,y;
1506         U8*ptr;
1507         mem2 = (U8*)malloc(BYTES_PER_SCANLINE(sizex)*sizey);
1508         ptr = mem2;
1509         for(y=0;y<sizey;y++)
1510         {
1511             for(x=0;x<sizex;x++)
1512                 *ptr++ = mem[y*sizex+x];
1513             ptr+= BYTES_PER_SCANLINE(sizex)-sizex;
1514         }
1515         mem = mem2;
1516     }
1517
1518     int bitid = ++currentswfid;
1519     oldtag = tag;
1520     tag = swf_InsertTag(tag,ST_DEFINEBITSLOSSLESS2);
1521     swf_SetU16(tag, bitid);
1522     if(swf_SetLosslessBitsIndexed(tag,sizex,sizey,mem, pal, n)<0) {
1523         swf_DeleteTag(tag);
1524         tag = oldtag;
1525         return -1;
1526     }
1527     if(mem2)
1528         free(mem2);
1529
1530     drawimage(obj, bitid, sizex, sizey, x1,y1,x2,y2,x3,y3,x4,y4);
1531     return bitid;
1532 }
1533
1534 void swfoutput_drawimageagain(struct swfoutput*obj, int id, int sizex,int sizey,
1535         double x1,double y1,
1536         double x2,double y2,
1537         double x3,double y3,
1538         double x4,double y4)
1539 {
1540     if(id<0) return;
1541     if(shapeid>=0)
1542      endshape();
1543     if(textid>=0)
1544      endtext();
1545
1546     drawimage(obj, id, sizex, sizey, x1,y1,x2,y2,x3,y3,x4,y4);
1547 }
1548