added prepare() to ruby gfx interface
[swftools.git] / lib / pdf / InfoOutputDev.cc
1 #include "config.h"
2 #include "Object.h"
3 #include "InfoOutputDev.h"
4 #include "SplashOutputDev.h"
5 #ifdef HAVE_POPPLER
6 #include <splash/SplashTypes.h>
7 #include <splash/SplashPath.h>
8 #include <splash/SplashFont.h>
9 #include <splash/SplashFontFile.h>
10 #else
11 #include "SplashTypes.h"
12 #include "SplashPath.h"
13 #include "SplashFont.h"
14 #include "SplashFontFile.h"
15 #endif
16 #include "GfxState.h"
17 #include "../log.h"
18 #include "../types.h"
19 #include "../q.h"
20 #include <math.h>
21 #include <assert.h>
22
23 int config_addspace = 1;
24 int config_fontquality = 10;
25 int config_bigchar = 0;
26
27 InfoOutputDev::InfoOutputDev(XRef*xref) 
28 {
29     num_links = 0;
30     num_jpeg_images = 0;
31     num_ppm_images = 0;
32     num_textfields = 0;
33     num_fonts = 0;
34     num_polygons= 0;
35     currentfont = 0;
36     currentglyph = 0;
37     id2font = new GHash(1);
38     SplashColor white = {255,255,255};
39     splash = new SplashOutputDev(splashModeRGB8,320,0,white,0,0);
40     splash->startDoc(xref);
41 }
42 InfoOutputDev::~InfoOutputDev() 
43 {
44     GHashIter*i;
45     id2font->startIter(&i);
46     GString*key;
47     FontInfo*fontinfo;
48     while(id2font->getNext(&i, &key, (void**)&fontinfo)) {
49         delete fontinfo;
50     }
51     id2font->killIter(&i);
52
53     delete id2font;id2font=0;
54     delete splash;splash=0;
55 }
56
57 void FontInfo::grow(int size)
58 {
59     if(size >= this->num_glyphs) {
60         this->glyphs = (GlyphInfo**)realloc(this->glyphs, sizeof(GlyphInfo*)*(size));
61         this->kerning = (dict_t**)realloc(this->kerning, sizeof(dict_t*)*(size));
62         memset(&this->glyphs[this->num_glyphs], 0, sizeof(SplashPath*)*((size)-this->num_glyphs));
63         memset(&this->kerning[this->num_glyphs], 0, sizeof(dict_t*)*((size)-this->num_glyphs));
64         this->num_glyphs = size;
65     }
66 }
67 FontInfo::FontInfo(char*id)
68 {
69     this->id = strdup(id);
70     this->seen = 0;
71     this->num_glyphs = 0;
72     this->glyphs = 0;
73     this->kerning = 0;
74     this->splash_font = 0;
75     this->lastchar = -1;
76     this->lastx = 0;
77     this->lasty = 0;
78     this->gfxfont = 0;
79     this->space_char = -1;
80 }
81 FontInfo::~FontInfo()
82 {
83     if(this->id) {free(this->id);this->id=0;}
84     this->font = 0;
85     int t;
86     for(t=0;t<num_glyphs;t++) {
87         if(glyphs[t]) {
88             delete glyphs[t]->path;glyphs[t]->path = 0;
89             delete glyphs[t];
90             glyphs[t]=0;
91         }
92     }
93     free(glyphs);glyphs=0;
94     if(this->gfxfont)
95         gfxfont_free(this->gfxfont);
96    
97     if(kerning) {
98         for(t=0;t<num_glyphs;t++) {
99             dict_t* d = kerning[t];
100             if(!d) continue;
101             DICT_ITERATE_ITEMS(d,void*,key,mtf_t*,m) {
102                 mtf_destroy(m);
103             }
104             dict_destroy(d);
105         }
106     }
107 }
108
109 static int findSpace(gfxfont_t*font)
110 {
111     int first_space = -1;
112     int t;
113     for(t=0;t<font->num_glyphs;t++) {
114         gfxglyph_t*g = &font->glyphs[t];
115         if(GLYPH_IS_SPACE(g)) {
116             if(g->unicode == 32) return t;
117             if(first_space<0)
118                 first_space = t;
119         }
120     }
121     if(font->num_glyphs>32 && GLYPH_IS_SPACE(&font->glyphs[32])) {
122         return 32;
123     }
124     return first_space;
125 }
126
127 static int addSpace(gfxfont_t*font)
128 {
129     font->num_glyphs++;
130     font->glyphs = (gfxglyph_t*)realloc(font->glyphs, sizeof(gfxglyph_t)*font->num_glyphs);
131     gfxglyph_t*g = &font->glyphs[font->num_glyphs-1];
132     memset(g, 0, sizeof(*g));
133     g->unicode = 32;
134     //g->advance = font->ascent;
135     g->advance = fabs(font->ascent - font->descent)*2 / 3;
136     if(font->max_unicode > 32)
137         font->unicode2glyph[32] = font->num_glyphs-1;
138 #if 0
139     g->line = gfxline_makerectangle(0, -font->ascent, g->advance, font->descent);
140 #endif
141     return font->num_glyphs-1;
142 }
143
144 static gfxfont_t* createGfxFont(FontInfo*src)
145 {
146     gfxfont_t*font = (gfxfont_t*)malloc(sizeof(gfxfont_t));
147     memset(font, 0, sizeof(gfxfont_t));
148
149     font->glyphs = (gfxglyph_t*)malloc(sizeof(gfxglyph_t)*src->num_glyphs);
150     memset(font->glyphs, 0, sizeof(gfxglyph_t)*src->num_glyphs);
151     font->id = 0;
152     int t;
153
154     double quality = (INTERNAL_FONT_SIZE * 200 / config_fontquality) / src->max_size;
155     double scale = 1;
156     //printf("%d glyphs\n", font->num_glyphs);
157     font->num_glyphs = 0;
158     font->ascent = fabs(src->ascender);
159     font->descent = fabs(src->descender);
160     
161     for(t=0;t<src->num_glyphs;t++) {
162         if(src->glyphs[t]) {
163             SplashPath*path = src->glyphs[t]->path;
164             int len = path?path->getLength():0;
165             //printf("glyph %d) %08x (%d line segments)\n", t, path, len);
166             gfxglyph_t*glyph = &font->glyphs[font->num_glyphs];
167             src->glyphs[t]->glyphid = font->num_glyphs;
168             glyph->unicode = src->glyphs[t]->unicode;
169             if(glyph->unicode >= font->max_unicode)
170                 font->max_unicode = glyph->unicode+1;
171             gfxdrawer_t drawer;
172             gfxdrawer_target_gfxline(&drawer);
173             int s;
174             int count = 0;
175             double xmax = 0;
176             for(s=0;s<len;s++) {
177                 Guchar f;
178                 double x, y;
179                 path->getPoint(s, &x, &y, &f);
180                 if(!s || x > xmax)
181                     xmax = x;
182                 if(f&splashPathFirst) {
183                     drawer.moveTo(&drawer, x*scale, y*scale);
184                 }
185                 if(f&splashPathCurve) {
186                     double x2,y2;
187                     path->getPoint(++s, &x2, &y2, &f);
188                     if(f&splashPathCurve) {
189                         double x3,y3;
190                         path->getPoint(++s, &x3, &y3, &f);
191                         gfxdraw_cubicTo(&drawer, x*scale, y*scale, x2*scale, y2*scale, x3*scale, y3*scale, quality);
192                     } else {
193                         drawer.splineTo(&drawer, x*scale, y*scale, x2*scale, y2*scale);
194                     }
195                 } else {
196                     drawer.lineTo(&drawer, x*scale, y*scale);
197                 }
198              //   printf("%f %f %s %s\n", x, y, (f&splashPathCurve)?"curve":"",
199              //                           (f&splashPathFirst)?"first":"",
200              //                           (f&splashPathLast)?"last":"");
201             }
202
203             glyph->line = (gfxline_t*)drawer.result(&drawer);
204             if(src->glyphs[t]->advance>0) {
205                 glyph->advance = src->glyphs[t]->advance;
206             } else {
207                 msg("<warning> Approximating advance value for glyph %d", t);
208                 glyph->advance = xmax*scale;
209             }
210             if(config_bigchar) {
211                 double max = src->glyphs[t]->advance_max;
212                 if(max>0 && max > glyph->advance) {
213                     glyph->advance = max;
214                 }
215             }
216
217             font->num_glyphs++;
218         }
219     }
220     font->unicode2glyph = (int*)malloc(sizeof(int)*font->max_unicode);
221     memset(font->unicode2glyph, -1, sizeof(int)*font->max_unicode);
222     for(t=0;t<font->num_glyphs;t++) {
223         if(font->glyphs[t].unicode>0 && font->glyphs[t].unicode<font->max_unicode) {
224             font->unicode2glyph[font->glyphs[t].unicode] = t;
225         }
226
227     }
228
229     int kerning_size = 0;
230     for(t=0;t<src->num_glyphs;t++) {
231         dict_t* d = src->kerning[t];
232         if(!d) continue;
233         DICT_ITERATE_ITEMS(d,void*,key,mtf_t*,m) {
234             if(m) {
235                 kerning_size++;
236             }
237         }
238     }
239     font->kerning_size = kerning_size;
240     font->kerning = (gfxkerning_t*)malloc(sizeof(gfxkerning_t)*kerning_size);
241     int pos = 0;
242     for(t=0;t<src->num_glyphs;t++) {
243         dict_t* d = src->kerning[t];
244         if(!d) continue;
245         DICT_ITERATE_ITEMS(d,void*,key,mtf_t*,m) {
246             if(m) {
247                 font->kerning[pos].c1 = src->glyphs[t]->glyphid;
248                 font->kerning[pos].c2 = src->glyphs[(int)(ptroff_t)key]->glyphid;
249                 font->kerning[pos].advance = (int)(ptroff_t)m->first->key;
250                 pos++;
251             }
252         }
253     }
254     //int advance = (int)(ptroff_t)m->first->key;
255
256     return font;
257 }
258
259 static float find_average_glyph_advance(gfxfont_t*f)
260 {
261     if(!f->num_glyphs)
262         return 0.0;
263
264     float*values = (float*)malloc(sizeof(float)*f->num_glyphs);
265     int t;
266     for(t=0;t<f->num_glyphs;t++) {
267         values[t] = f->glyphs[t].advance;
268     }
269     float m = medianf(values, f->num_glyphs);
270     free(values);
271     return m;
272 }
273
274 gfxfont_t* FontInfo::getGfxFont()
275 {
276     if(!this->gfxfont) {
277         this->gfxfont = createGfxFont(this);
278         this->gfxfont->id = strdup(this->id);
279         this->space_char = findSpace(this->gfxfont);
280         this->average_advance = find_average_glyph_advance(this->gfxfont);
281
282         if(this->space_char>=0) {
283             msg("<debug> Font %s has space char %d (unicode=%d)", 
284                     this->id, this->space_char, 
285                     this->gfxfont->glyphs[this->space_char].unicode);
286         } else if(config_addspace) {
287             this->space_char = addSpace(this->gfxfont);
288             msg("<debug> Appending space char to font %s, position %d", this->gfxfont->id, this->space_char);
289         }
290     }
291     return this->gfxfont;
292 }
293
294 GBool InfoOutputDev::upsideDown() {return gTrue;}
295 GBool InfoOutputDev::useDrawChar() {return gTrue;}
296 GBool InfoOutputDev::interpretType3Chars() {return gTrue;}
297 GBool InfoOutputDev::useTilingPatternFill() {return gTrue;}
298
299 void InfoOutputDev::startPage(int pageNum, GfxState *state, double crop_x1, double crop_y1, double crop_x2, double crop_y2)
300 {
301     double x1,y1,x2,y2;
302     state->transform(crop_x1,crop_y1,&x1,&y1);
303     state->transform(crop_x2,crop_y2,&x2,&y2);
304     if(x2<x1) {double x3=x1;x1=x2;x2=x3;}
305     if(y2<y1) {double y3=y1;y1=y2;y2=y3;}
306     this->x1 = (int)x1;
307     this->y1 = (int)y1;
308     this->x2 = (int)x2;
309     this->y2 = (int)y2;
310     msg("<verbose> Generating info structure for page %d", pageNum);
311 }
312 void InfoOutputDev::endPage()
313 {
314 }
315 void InfoOutputDev::drawLink(Link *link, Catalog *catalog) 
316 {
317     num_links++;
318 }
319    
320 /*  } else if(!strcmp(key,"fontquality")) {
321         this->config_fontquality = atof(value);
322         if(this->config_fontquality<=1)
323             this->config_fontquality=1;
324     } else if(!strcmp(key,"bigchar")) {
325         this->config_bigchar = atoi(value);
326     }
327  */
328
329 double InfoOutputDev::getMaximumFontSize(char*id)
330 {
331     FontInfo*info = (FontInfo*)id2font->lookup(id);
332     if(!info) {
333         msg("<error> Unknown font id: %s", id);
334         return 0.0;
335     }
336     return info->max_size;
337 }
338
339 char*getFontID(GfxFont*font)
340 {
341     Ref*ref = font->getID();
342     GString*gstr = font->getName();
343     char* fname = gstr==0?0:gstr->getCString();
344     char buf[128];
345     if(fname==0) {
346         if(font->getType() == fontType3) {
347             sprintf(buf, "t3font-%d-%d", ref->num, ref->gen);
348         } else {
349             sprintf(buf, "font-%d-%d", ref->num, ref->gen);
350         }
351     } else {
352         sprintf(buf, "%s-%d-%d", fname, ref->num, ref->gen);
353     }
354     return strdup(buf);
355 }
356
357 void InfoOutputDev::updateFont(GfxState *state) 
358 {
359     GfxFont*font = state->getFont();
360     if(!font) {
361         currentfont = 0;
362         return;
363     }
364     if(font->getType() == fontType3) {
365         currentfont = 0;
366         return;
367     }
368     char*id = getFontID(font);
369
370     if(currentfont)
371         currentfont->splash_font = 0;
372
373     currentfont = (FontInfo*)id2font->lookup(id);
374     if(!currentfont) {
375         currentfont = new FontInfo(id);
376         currentfont->font = font;
377         currentfont->max_size = 0;
378         GString* idStr = new GString(id);
379         id2font->add(idStr, (void*)currentfont);
380         num_fonts++;
381     }
382
383     state->setCTM(1.0,0,0,1.0,0,0);
384     splash->updateCTM(state, 0,0,0,0,0,0);
385     state->setTextMat(1.0,0,0,1.0,0,0);
386     state->setFont(font, 1024.0);
387     splash->doUpdateFont(state);
388     currentfont->splash_font = splash->getCurrentFont();
389     if(currentfont->splash_font) {
390         currentfont->ascender = currentfont->splash_font->ascender;
391         currentfont->descender = currentfont->splash_font->descender;
392     } else {
393         currentfont->ascender = currentfont->descender = 0;
394     }
395
396     free(id);
397 }
398
399 void InfoOutputDev::fill(GfxState *state)
400 {
401     num_polygons++;
402 }
403
404 void InfoOutputDev::eoFill(GfxState *state)
405 {
406     num_polygons++;
407 }
408
409 FontInfo* InfoOutputDev::getFont(char*id)
410 {
411     return (FontInfo*)id2font->lookup(id);
412 }
413
414 void InfoOutputDev::drawChar(GfxState *state, double x, double y,
415                       double dx, double dy,
416                       double originX, double originY,
417                       CharCode code, int nBytes, Unicode *u, int uLen)
418 {
419     double m11,m21,m12,m22;
420     state->getFontTransMat(&m11, &m12, &m21, &m22);
421     m11 *= state->getHorizScaling();
422     m21 *= state->getHorizScaling();
423     double lenx = sqrt(m11*m11 + m12*m12);
424     double leny = sqrt(m21*m21 + m22*m22);
425     double len = lenx>leny?lenx:leny;
426     if(!currentfont || !currentfont->splash_font) {
427         return; //error
428     }
429     if(currentfont && currentfont->max_size < len) {
430         currentfont->max_size = len;
431     }
432     
433     num_textfields++;
434
435     currentfont->grow(code+1);
436     GlyphInfo*g = currentfont->glyphs[code];
437     if(!g) {
438         g = currentfont->glyphs[code] = new GlyphInfo();
439         g->advance_max = 0;
440         currentfont->splash_font->last_advance = -1;
441         g->path = currentfont->splash_font->getGlyphPath(code);
442         g->advance = currentfont->splash_font->last_advance;
443         g->unicode = 0;
444     }
445     if(uLen && ((u[0]>=32 && u[0]<g->unicode) || !g->unicode)) {
446         g->unicode = u[0];
447     }
448     if(currentfont->lastchar>=0 && currentfont->lasty == y) {
449         double xshift = (x - currentfont->lastx);
450         if(xshift>=0 && xshift > g->advance_max) {
451             g->advance_max = xshift;
452         }
453         int advance = (int)xshift;
454         if(advance>=0 && advance<g->advance*4 && advance!=currentfont->lastadvance) {
455             int c1 = currentfont->lastchar;
456             int c2 = code;
457             dict_t*d = currentfont->kerning[c1];
458             if(!d) {
459                 d = currentfont->kerning[c1] = dict_new2(&int_type);
460             }
461             mtf_t*k = (mtf_t*)dict_lookup(d, (void*)(ptroff_t)c2);
462             if(!k) {
463                 k = mtf_new(&int_type);
464                 dict_put(d, (void*)(ptroff_t)c2, k);
465             }
466             mtf_increase(k, (void*)(ptroff_t)advance);
467         }
468     }
469
470     currentfont->lastx = x;
471     currentfont->lasty = y;
472     currentfont->lastchar = code;
473     currentfont->lastadvance = (int)(g->advance+0.5);
474 }
475
476 GBool InfoOutputDev::beginType3Char(GfxState *state, double x, double y, double dx, double dy, CharCode code, Unicode *u, int uLen)
477 {
478     GfxFont*font = state->getFont();
479     if(!font)
480         return gTrue;
481     if(font->getType() != fontType3)
482         return gTrue;
483
484     char*id = getFontID(font);
485     currentfont = (FontInfo*)id2font->lookup(id);
486     if(!currentfont) {
487         currentfont = new FontInfo(id);
488         currentfont->font = font;
489         GString* idStr = new GString(id);
490         id2font->add(idStr, (void*)currentfont);
491         num_fonts++;
492     }
493     currentfont = currentfont;
494     free(id);
495
496     currentfont->grow(code+1);
497     if(!currentfont->glyphs[code]) {
498         currentglyph = currentfont->glyphs[code] = new GlyphInfo();
499         currentglyph->unicode = uLen?u[0]:0;
500         currentglyph->path = new SplashPath();
501         currentglyph->x1=0;
502         currentglyph->y1=0;
503         currentglyph->x2=dx;
504         currentglyph->y2=dy;
505         return gFalse;
506     } else {
507         return gTrue;
508     }
509 }
510
511 void InfoOutputDev::type3D0(GfxState *state, double wx, double wy)
512 {
513     currentglyph->x1=0;
514     currentglyph->y1=0;
515     currentglyph->x2=wx;
516     currentglyph->y2=wy;
517 }
518
519 void InfoOutputDev::type3D1(GfxState *state, double wx, double wy, double llx, double lly, double urx, double ury)
520 {
521     currentglyph->x1=llx;
522     currentglyph->y1=lly;
523     currentglyph->x2=urx;
524     currentglyph->y2=ury;
525 }
526
527 void InfoOutputDev::endType3Char(GfxState *state)
528 {
529     double x1 = currentglyph->x1;
530     double y1 = currentglyph->y1;
531     double x2 = currentglyph->x2;
532     double y2 = currentglyph->y2;
533     currentglyph->path->moveTo(x1,y1);
534     currentglyph->path->lineTo(x2,y1);
535     currentglyph->path->lineTo(x2,y2);
536     currentglyph->path->lineTo(x1,y2);
537     currentglyph->path->close();
538 }
539
540 void InfoOutputDev::drawImageMask(GfxState *state, Object *ref, Stream *str,
541                            int width, int height, GBool invert,
542                            GBool inlineImg) 
543 {
544     if(str->getKind()==strDCT) num_jpeg_images++; else num_ppm_images++;
545
546     OutputDev::drawImageMask(state,ref,str,width,height,invert,inlineImg);
547 }
548 void InfoOutputDev::drawImage(GfxState *state, Object *ref, Stream *str,
549                        int width, int height, GfxImageColorMap *colorMap,
550                        int *maskColors, GBool inlineImg)
551 {
552     if(str->getKind()==strDCT) num_jpeg_images++; else num_ppm_images++;
553
554     OutputDev::drawImage(state,ref,str,width,height,colorMap,maskColors,inlineImg);
555 }
556 void InfoOutputDev::drawMaskedImage(GfxState *state, Object *ref, Stream *str,
557                                 int width, int height,
558                                 GfxImageColorMap *colorMap,
559                                 Stream *maskStr,
560                                 int maskWidth, int maskHeight,
561                                 GBool maskInvert) 
562 {
563     if(str->getKind()==strDCT) num_jpeg_images++; else num_ppm_images++;
564
565     OutputDev::drawMaskedImage(state,ref,str,width,height,colorMap,maskStr,maskWidth,maskHeight,maskInvert);
566 }
567
568 void InfoOutputDev::drawSoftMaskedImage(GfxState *state, Object *ref, Stream *str,
569                                     int width, int height,
570                                     GfxImageColorMap *colorMap,
571                                     Stream *maskStr,
572                                     int maskWidth, int maskHeight,
573                                     GfxImageColorMap *maskColorMap) 
574 {
575     if(str->getKind()==strDCT) num_jpeg_images++; else num_ppm_images++;
576
577     OutputDev::drawSoftMaskedImage(state,ref,str,width,height,colorMap,maskStr,maskWidth,maskHeight,maskColorMap);
578 }
579     
580 void InfoOutputDev::dumpfonts(gfxdevice_t*dev)
581 {
582     GHashIter*i;
583     GString*key;
584     FontInfo*font;
585     id2font->startIter(&i);
586     while(id2font->getNext(&i, &key, (void**)&font)) {
587         dev->addfont(dev, font->getGfxFont());
588     }
589 }