added comment.
[swftools.git] / lib / modules / swffont.c
1 /* swffont.c
2
3    Functions for loading external fonts.
4
5    Extension module for the rfxswf library.
6    Part of the swftools package.
7
8    Copyright (c) 2003, 2004 Matthias Kramm
9  
10    This program is free software; you can redistribute it and/or modify
11    it under the terms of the GNU General Public License as published by
12    the Free Software Foundation; either version 2 of the License, or
13    (at your option) any later version.
14
15    This program is distributed in the hope that it will be useful,
16    but WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18    GNU General Public License for more details.
19
20    You should have received a copy of the GNU General Public License
21    along with this program; if not, write to the Free Software
22    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
23
24 #ifdef HAVE_FREETYPE
25
26 #include <freetype/freetype.h>
27 #include <freetype/ftglyph.h>
28 #include <freetype/ftsnames.h>
29 #include <freetype/ttnameid.h>
30 #include <freetype/ftoutln.h>
31
32 #define FT_SCALE 1
33 #define FT_SUBPIXELS 64
34
35 static int ft_move_to(FT_Vector* _to, void* user) 
36 {
37     drawer_t* draw = (drawer_t*)user;
38     FPOINT to;
39     to.x = _to->x*FT_SCALE/(float)FT_SUBPIXELS;
40     to.y = -_to->y*FT_SCALE/(float)FT_SUBPIXELS;
41     draw->moveTo(draw, &to);
42     return 0;
43 }
44 static int ft_line_to(FT_Vector* _to, void* user) 
45 {
46     drawer_t* draw = (drawer_t*)user;
47     FPOINT to;
48     to.x = _to->x*FT_SCALE/(float)FT_SUBPIXELS;
49     to.y = -_to->y*FT_SCALE/(float)FT_SUBPIXELS;
50     draw->lineTo(draw, &to);
51     return 0;
52 }
53 static int ft_cubic_to(FT_Vector* _c1, FT_Vector* _c2, FT_Vector* _to, void* user)
54 {
55     drawer_t* draw = (drawer_t*)user;
56     FPOINT c1,c2,to;
57     to.x = _to->x*FT_SCALE/(float)FT_SUBPIXELS;
58     to.y = -_to->y*FT_SCALE/(float)FT_SUBPIXELS;
59     c1.x = _c1->x*FT_SCALE/(float)FT_SUBPIXELS;
60     c1.y = -_c1->y*FT_SCALE/(float)FT_SUBPIXELS;
61     c2.x = _c2->x*FT_SCALE/(float)FT_SUBPIXELS;
62     c2.y = -_c2->y*FT_SCALE/(float)FT_SUBPIXELS;
63     draw_cubicTo(draw, &c1, &c2, &to);
64     return 0;
65 }
66 static int ft_conic_to(FT_Vector* _c, FT_Vector* _to, void* user) 
67 {
68     drawer_t* draw = (drawer_t*)user;
69     FPOINT c,to;
70     to.x = _to->x*FT_SCALE/(float)FT_SUBPIXELS;
71     to.y = -_to->y*FT_SCALE/(float)FT_SUBPIXELS;
72     c.x = _c->x*FT_SCALE/(float)FT_SUBPIXELS;
73     c.y = -_c->y*FT_SCALE/(float)FT_SUBPIXELS;
74     draw_conicTo(draw, &c, &to);
75     return 0;
76 }
77 static FT_Outline_Funcs outline_functions =
78 {
79   ft_move_to,
80   ft_line_to,
81   ft_conic_to,
82   ft_cubic_to,
83   0,0
84 };
85
86 static FT_Library ftlibrary = 0;
87
88 SWFFONT* swf_LoadTrueTypeFont(char*filename)
89 {
90     FT_Face face;
91     FT_Error error;
92     const char* name = 0;
93     FT_ULong charcode;
94     FT_UInt gindex;
95     SWFFONT* font;
96     int t;
97     int skipunused = 1;
98     int*glyph2glyph;
99    
100     if(ftlibrary == 0) {
101         if(FT_Init_FreeType(&ftlibrary)) {
102             fprintf(stderr, "Couldn't init freetype library!\n");
103             exit(1);
104         }
105     }
106     error = FT_New_Face(ftlibrary, filename, 0, &face);
107     if(error) {
108         fprintf(stderr, "Couldn't load file %s- not a TTF file?\n", filename);
109         return 0;
110     }
111     if(face->num_glyphs <= 0)
112         return 0;
113
114     font = malloc(sizeof(SWFFONT));
115     memset(font, 0, sizeof(SWFFONT));
116     font->id = -1;
117     font->version = 2;
118     font->layout = malloc(sizeof(SWFLAYOUT));
119     memset(font->layout, 0, sizeof(SWFLAYOUT));
120     font->layout->bounds = malloc(face->num_glyphs*sizeof(SRECT));
121     font->style =  ((face->style_flags&FT_STYLE_FLAG_ITALIC)?FONT_STYLE_ITALIC:0)
122                   |((face->style_flags&FT_STYLE_FLAG_BOLD)?FONT_STYLE_BOLD:0);
123     font->encoding = FONT_ENCODING_UNICODE;
124     font->glyph2ascii = malloc(face->num_glyphs*sizeof(U16));
125     memset(font->glyph2ascii, 0, face->num_glyphs*sizeof(U16));
126     font->maxascii = 0;
127     font->glyph = malloc(face->num_glyphs*sizeof(SWFGLYPH));
128     memset(font->glyph, 0, face->num_glyphs*sizeof(SWFGLYPH));
129     if(FT_HAS_GLYPH_NAMES(face)) {
130         font->glyphnames = malloc(face->num_glyphs*sizeof(char*));
131         memset(font->glyphnames,0,face->num_glyphs*sizeof(char*));
132     }
133
134     font->layout->ascent = face->ascender*20/FT_SUBPIXELS; //face->bbox.xMin;
135     font->layout->descent = abs(face->descender)*20/FT_SUBPIXELS; //face->bbox.xMax;
136     font->layout->leading = abs(face->bbox.yMin - face->bbox.yMax); //-face->bbox.xMin*20/FT_SUBPIXELS;
137     font->layout->kerningcount = 0;
138     
139     name = FT_Get_Postscript_Name(face);
140     if(name && *name)
141         font->name = (U8*)strdup(name);
142
143 /*    // Map Glyphs to Unicode, version 1 (quick and dirty):
144     int t;
145     for(t=0;t<65536;t++) {
146         int index = FT_Get_Char_Index(face, t);
147         if(index>=0 && index<face->num_glyphs) {
148             if(font->glyph2ascii[index]<0)
149                 font->glyph2ascii[index] = t;
150         }
151     }*/
152     
153     // Map Glyphs to Unicode, version 2 (much nicer):
154     // (The third way would be the AGL algorithm, as proposed
155     //  by Werner Lemberg on freetype@freetype.org)
156
157     charcode = FT_Get_First_Char(face, &gindex);
158     while(gindex != 0)
159     {
160         if(gindex >= 0 && gindex<face->num_glyphs) {
161             if(!font->glyph2ascii[gindex]) {
162                 font->glyph2ascii[gindex] = charcode;
163                 if(charcode + 1 > font->maxascii) {
164                     font->maxascii = charcode + 1;
165                 }
166             }
167         }
168         charcode = FT_Get_Next_Char(face, charcode, &gindex);
169     }
170     
171     font->ascii2glyph = malloc(font->maxascii*sizeof(int));
172     
173     for(t=0;t<font->maxascii;t++) {
174         int g = FT_Get_Char_Index(face, t);
175         if(!g || g>=face->num_glyphs)
176             g = -1;
177         font->ascii2glyph[t] = g;
178         if(g>=0) {
179             if(!font->glyph2ascii[g]) {
180                 font->glyph2ascii[g] = t;
181             }
182         }
183     }
184
185     font->numchars = 0;
186
187     glyph2glyph = (int*)malloc(face->num_glyphs*sizeof(int));
188
189     for(t=0; t < face->num_glyphs; t++) {
190         FT_Glyph glyph;
191         FT_BBox bbox;
192         FT_Matrix matrix;
193         char name[128];
194         drawer_t draw;
195         int ret;
196         char hasname = 0;
197         name[0]=0;
198         if(FT_HAS_GLYPH_NAMES(face)) {
199             error = FT_Get_Glyph_Name(face, t, name, 127);
200             if(!error && name[0] && !strstr(name, "notdef")) {
201                 font->glyphnames[font->numchars] = strdup(name);
202                 hasname = 1;
203             }
204         }
205         if(!font->glyph2ascii[t] && !hasname && skipunused) {
206             continue;
207         }
208         error = FT_Load_Glyph(face, t, FT_LOAD_NO_BITMAP|FT_LOAD_NO_SCALE);
209         if(error) return 0;
210         error = FT_Get_Glyph(face->glyph, &glyph);
211         if(error) return 0;
212
213         FT_Glyph_Get_CBox(glyph, ft_glyph_bbox_unscaled, &bbox);
214         bbox.yMin = -bbox.yMin;
215         bbox.yMax = -bbox.yMax;
216         if(bbox.xMax < bbox.xMin) {
217             // swap
218             bbox.xMax ^= bbox.xMin;
219             bbox.xMin ^= bbox.xMax;
220             bbox.xMax ^= bbox.xMin;
221         }
222         if(bbox.yMax < bbox.yMin) {
223             // swap
224             bbox.yMax ^= bbox.yMin;
225             bbox.yMin ^= bbox.yMax;
226             bbox.yMax ^= bbox.yMin;
227         }
228
229         swf_Shape01DrawerInit(&draw, 0);
230
231         //error = FT_Outline_Decompose(&face->glyph->outline, &outline_functions, &draw);
232         error = FT_Outline_Decompose(&face->glyph->outline, &outline_functions, &draw);
233         if(error) return 0;
234
235         draw.finish(&draw);
236
237 #if 0
238         if(bbox.xMin > 0) {
239             font->glyph[font->numchars].advance = (bbox.xMax*FT_SCALE)/FT_SUBPIXELS;
240         } else {
241             font->glyph[font->numchars].advance = ((bbox.xMax - bbox.xMin)*FT_SCALE)/FT_SUBPIXELS;
242         }
243 #else
244         font->glyph[font->numchars].advance = glyph->advance.x*20/65536;
245 #endif
246         
247         font->glyph[font->numchars].shape = swf_ShapeDrawerToShape(&draw);
248         
249         font->layout->bounds[font->numchars].xmin = (bbox.xMin*FT_SCALE*20)/FT_SUBPIXELS;
250         font->layout->bounds[font->numchars].ymin = (bbox.yMin*FT_SCALE*20)/FT_SUBPIXELS;
251         font->layout->bounds[font->numchars].xmax = (bbox.xMax*FT_SCALE*20)/FT_SUBPIXELS;
252         font->layout->bounds[font->numchars].ymax = (bbox.yMax*FT_SCALE*20)/FT_SUBPIXELS;
253
254         draw.dealloc(&draw);
255
256         FT_Done_Glyph(glyph);
257         font->glyph2ascii[font->numchars] = font->glyph2ascii[t];
258         glyph2glyph[t] = font->numchars;
259         font->numchars++;
260     }
261     /* notice: if skipunused is true, font->glyph2ascii, font->glyphnames and font->layout->bounds will 
262                have more memory allocated than just font->numchars, but only the first font->numchars 
263                are used/valid */
264
265     for(t=0;t<font->maxascii;t++) {
266         if(font->ascii2glyph[t]>=0) {
267             font->ascii2glyph[t] = glyph2glyph[font->ascii2glyph[t]];
268         }
269     }
270     free(glyph2glyph);
271
272     FT_Done_Face(face);
273     FT_Done_FreeType(ftlibrary);ftlibrary=0;
274
275     return font;
276 }
277 #else  //HAVE_FREETYPE
278
279 SWFFONT* swf_LoadTrueTypeFont(char*filename)
280 {
281     fprintf(stderr, "Warning: no freetype library- not able to load %s\n", filename);
282     return 0;
283 }
284
285 #endif
286
287 #ifdef HAVE_T1LIB
288
289 #include <t1lib.h>
290
291 static int t1lib_initialized = 0;
292
293 SWFFONT* swf_LoadT1Font(char*filename)
294 {
295     SWFFONT * font;
296     int nr;
297     float angle,underline;
298     char*fontname,*fullname,*familyname;
299     BBox bbox;
300     int s,num;
301     char*encoding[256];
302     char**charnames;
303     char**charname;
304     int c;
305
306     if(!t1lib_initialized) {
307         T1_SetBitmapPad(16);
308         if ((T1_InitLib(NO_LOGFILE)==NULL)){
309             fprintf(stderr, "Initialization of t1lib failed\n");
310             return 0;
311         }
312         t1lib_initialized = 1;
313     }
314     nr = T1_AddFont(filename);
315     T1_LoadFont(nr);
316
317     num = T1_SetDefaultEncoding(encoding);
318     for(;num<256;num++) encoding[num] = 0;
319
320     charnames = T1_GetAllCharNames(nr);
321
322     angle = T1_GetItalicAngle(nr);
323     fontname = T1_GetFontName(nr);
324     fullname = T1_GetFullName(nr);
325     familyname = T1_GetFamilyName(nr);
326     underline = T1_GetUnderlinePosition(nr);
327     bbox = T1_GetFontBBox(nr);
328
329     font = (SWFFONT*)malloc(sizeof(SWFFONT));
330     memset(font, 0, sizeof(SWFFONT));
331
332     font->version = 2;
333     if(fontname) 
334         font->name = (U8*)strdup(fontname);
335     else 
336         font->name = 0;
337     font->layout = (SWFLAYOUT*)malloc(sizeof(SWFLAYOUT));
338     memset(font->layout, 0, sizeof(SWFLAYOUT));
339
340     num = 0;
341     charname = charnames;
342     while(*charname) {
343         charname++;
344         num++;
345     }
346
347     font->maxascii = num;
348     font->numchars = num;
349     
350     font->style = (/*bold*/0?FONT_STYLE_BOLD:0) + (angle>0.05?FONT_STYLE_ITALIC:0);
351
352     font->glyph = (SWFGLYPH*)malloc(num*sizeof(SWFGLYPH));
353     memset(font->glyph, 0, num*sizeof(SWFGLYPH));
354     font->glyph2ascii = (U16*)malloc(num*sizeof(U16));
355     memset(font->glyph2ascii, 0, num*sizeof(U16));
356     font->ascii2glyph = (int*)malloc(font->maxascii*sizeof(int));
357     memset(font->ascii2glyph, -1, font->maxascii*sizeof(int));
358     font->layout->ascent = (U16)(underline - bbox.lly);
359     font->layout->descent = (U16)(bbox.ury - underline);
360     font->layout->leading = (U16)(font->layout->ascent - 
361                              font->layout->descent -
362                              (bbox.lly - bbox.ury));
363     font->layout->bounds = (SRECT*)malloc(sizeof(SRECT)*num);
364     memset(font->layout->bounds, 0, sizeof(SRECT)*num);
365     font->layout->kerningcount = 0;
366     font->layout->kerning = 0;
367     font->glyphnames = malloc(num*sizeof(char*));
368     memset(font->glyphnames, 0, num*sizeof(char*));
369   
370     num = 0;
371
372     charname = charnames;
373     for(c=0;c<font->numchars;c++) {
374         drawer_t draw;
375         SRECT bbox;
376         T1_OUTLINE * outline;
377         FPOINT pos,last;
378         int firstx;
379         
380         outline = T1_GetCharOutline(nr, c, 100.0, 0);
381         firstx = outline->dest.x/0xffff;
382
383         pos.x = 0;
384         pos.y = 0;
385         last = pos;
386         
387         font->glyphnames[c] = strdup(*charname);
388
389         if(c<font->maxascii)
390             font->ascii2glyph[c] = c;
391         font->glyph2ascii[c] = c;
392         
393         swf_Shape01DrawerInit(&draw, 0);
394
395         while(outline) {
396             pos.x += (outline->dest.x/(float)0xffff);
397             pos.y += (outline->dest.y/(float)0xffff);
398
399             if(outline->type == T1_PATHTYPE_MOVE) {
400                 draw.moveTo(&draw,&pos);
401             } else if(outline->type == T1_PATHTYPE_LINE) {
402                 draw.lineTo(&draw,&pos);
403             } else if(outline->type == T1_PATHTYPE_BEZIER) {
404                 T1_BEZIERSEGMENT*o2 = (T1_BEZIERSEGMENT*)outline;
405                 FPOINT b,c;
406                 b.x = o2->B.x/(float)0xffff+last.x;
407                 b.y = o2->B.y/(float)0xffff+last.y;
408                 c.x = o2->C.x/(float)0xffff+last.x;
409                 c.y = o2->C.y/(float)0xffff+last.y;
410                 draw_cubicTo(&draw,&b,&c,&pos);
411             } else {
412                 fprintf(stderr, "loadT1Font: unknown outline type:%d\n", outline->type);
413             }
414             last = pos;
415             outline = outline->link;
416         }
417         
418         draw.finish(&draw);
419
420         font->glyph[c].shape = swf_ShapeDrawerToShape(&draw);
421         bbox = swf_ShapeDrawerGetBBox(&draw);
422         draw.dealloc(&draw);
423             
424         font->layout->bounds[c] = bbox;
425         font->glyph[c].advance = bbox.xmax;
426         if(!font->glyph[c].advance) {
427             font->glyph[c].advance = firstx;
428         }
429         charname++;
430     }
431     return font;
432 }
433
434 #else
435
436 SWFFONT* swf_LoadT1Font(char*filename)
437 {
438     fprintf(stderr, "Warning: no t1lib- not able to load %s\n", filename);
439     return 0;
440 }
441
442 #endif
443
444 static int isSWF(const char*filename)
445 {
446     FILE*fi = fopen(filename, "rb");
447     char a[8];
448     if(!fi) {
449         perror(filename);
450         return -1;
451     }
452     memset(a, 0, sizeof(a));
453     fread(a, 4, 1, fi);
454     fclose(fi);
455
456     if(!strncmp(a, "FWS", 3) || !strncmp(a, "CWS", 3)) {
457         return 1;
458     }
459     return 0;
460 }
461
462 SWFFONT* swf_LoadFont(char*filename)
463 {
464     int is_swf = isSWF(filename);
465     if(is_swf<0)
466         return 0;
467     if(is_swf) {
468         return swf_ReadFont(filename);
469     }
470 #if defined(HAVE_FREETYPE)
471     return swf_LoadTrueTypeFont(filename);
472 #elif defined(HAVE_T1LIB)
473     return swf_LoadT1Font(filename);
474 #else
475     fprintf(stderr, "Error: Neither T1lib nor FreeType support compiled in. Could not load %s\n", filename);
476     return 0;
477 #endif
478 }
479