db4eab75ee56f413cc1c5c63510fd38e61da8c3d
[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 USE_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;
93     FT_ULong charcode;
94     FT_UInt gindex;
95     SWFFONT* font;
96     int t;
97    
98     if(ftlibrary == 0) {
99         if(FT_Init_FreeType(&ftlibrary)) {
100             fprintf(stderr, "Couldn't init freetype library!\n");
101             exit(1);
102         }
103     }
104     error = FT_New_Face(ftlibrary, filename, 0, &face);
105     if(error) {
106         fprintf(stderr, "Couldn't load file %s- not a TTF file?\n", filename);
107         return 0;
108     }
109     if(face->num_glyphs <= 0)
110         return 0;
111
112     font = malloc(sizeof(SWFFONT));
113     memset(font, 0, sizeof(SWFFONT));
114     font->id = -1;
115     font->version = 2;
116     font->layout = malloc(sizeof(SWFLAYOUT));
117     memset(font->layout, 0, sizeof(SWFLAYOUT));
118     font->layout->bounds = malloc(face->num_glyphs*sizeof(SRECT));
119     font->numchars = face->num_glyphs;
120     font->style =  ((face->style_flags&FT_STYLE_FLAG_ITALIC)?FONT_STYLE_ITALIC:0)
121                   |((face->style_flags&FT_STYLE_FLAG_BOLD)?FONT_STYLE_BOLD:0);
122     font->encoding = FONT_ENCODING_UNICODE;
123     font->glyph2ascii = malloc(face->num_glyphs*sizeof(U16));
124     memset(font->glyph2ascii, 0, face->num_glyphs*sizeof(U16));
125     font->maxascii = 0;
126     memset(font->ascii2glyph, -1, font->maxascii*sizeof(int));
127     font->glyph = malloc(face->num_glyphs*sizeof(SWFGLYPH));
128     memset(font->glyph, 0, face->num_glyphs*sizeof(U16));
129     if(FT_HAS_GLYPH_NAMES(face)) {
130         font->glyphnames = malloc(face->num_glyphs*sizeof(char*));
131     }
132
133     font->layout->ascent = face->ascender; //face->bbox.xMin;
134     font->layout->descent = face->descender; //face->bbox.xMax;
135     font->layout->leading = -face->bbox.xMin;
136     font->layout->kerningcount = 0;
137     
138     if(name && *name)
139         font->name = (U8*)strdup(FT_Get_Postscript_Name(face));
140
141 /*    // Map Glyphs to Unicode, version 1 (quick and dirty):
142     int t;
143     for(t=0;t<65536;t++) {
144         int index = FT_Get_Char_Index(face, t);
145         if(index>=0 && index<face->num_glyphs) {
146             if(font->glyph2ascii[index]<0)
147                 font->glyph2ascii[index] = t;
148         }
149     }*/
150     
151     // Map Glyphs to Unicode, version 2 (much nicer):
152     // (The third way would be the AGL algorithm, as proposed
153     //  by Werner Lemberg on freetype@freetype.org)
154
155     charcode = FT_Get_First_Char(face, &gindex);
156     while(gindex != 0)
157     {
158         if(gindex >= 0 && gindex<face->num_glyphs) {
159             if(!font->glyph2ascii[gindex]) {
160                 font->glyph2ascii[gindex] = charcode;
161                 if(charcode + 1 > font->maxascii) {
162                     font->maxascii = charcode + 1;
163                 }
164             }
165         }
166         charcode = FT_Get_Next_Char(face, charcode, &gindex);
167     }
168     
169     font->ascii2glyph = malloc(font->maxascii*sizeof(int));
170     
171     for(t=0;t<font->maxascii;t++) {
172         font->ascii2glyph[t] = FT_Get_Char_Index(face, t);
173         if(!font->ascii2glyph[t])
174             font->ascii2glyph[t] = -1;
175     }
176
177     for(t=0; t < face->num_glyphs; t++) {
178         FT_Glyph glyph;
179         FT_BBox bbox;
180         FT_Matrix matrix;
181         char name[128];
182         drawer_t draw;
183         int ret;
184         name[0]=0;
185         if(FT_HAS_GLYPH_NAMES(face)) {
186             error = FT_Get_Glyph_Name(face, t, name, 127);
187             if(!error) 
188                 font->glyphnames[t] = strdup(name);
189         }
190         error = FT_Load_Glyph(face, t, FT_LOAD_NO_BITMAP|FT_LOAD_NO_SCALE);
191         if(error) return 0;
192         error = FT_Get_Glyph(face->glyph, &glyph);
193         if(error) return 0;
194
195         FT_Glyph_Get_CBox(glyph, ft_glyph_bbox_unscaled, &bbox);
196         bbox.yMin = -bbox.yMin;
197         bbox.yMax = -bbox.yMax;
198         if(bbox.xMax < bbox.xMin) {
199             // swap
200             bbox.xMax ^= bbox.xMin;
201             bbox.xMin ^= bbox.xMax;
202             bbox.xMax ^= bbox.xMin;
203         }
204         if(bbox.yMax < bbox.yMin) {
205             // swap
206             bbox.yMax ^= bbox.yMin;
207             bbox.yMin ^= bbox.yMax;
208             bbox.yMax ^= bbox.yMin;
209         }
210
211         swf_Shape01DrawerInit(&draw, 0);
212
213         //error = FT_Outline_Decompose(&face->glyph->outline, &outline_functions, &draw);
214         error = FT_Outline_Decompose(&face->glyph->outline, &outline_functions, &draw);
215         if(error) return 0;
216
217         draw.finish(&draw);
218
219 #if 0
220         if(bbox.xMin > 0) {
221             font->glyph[t].advance = (bbox.xMax*FT_SCALE)/FT_SUBPIXELS;
222         } else {
223             font->glyph[t].advance = ((bbox.xMax - bbox.xMin)*FT_SCALE)/FT_SUBPIXELS;
224         }
225 #else
226         font->glyph[t].advance = glyph->advance.x/65536;
227 #endif
228         
229         font->glyph[t].shape = swf_ShapeDrawerToShape(&draw);
230         
231         font->layout->bounds[t].xmin = (bbox.xMin*FT_SCALE*20)/FT_SUBPIXELS;
232         font->layout->bounds[t].ymin = (bbox.yMin*FT_SCALE*20)/FT_SUBPIXELS;
233         font->layout->bounds[t].xmax = (bbox.xMax*FT_SCALE*20)/FT_SUBPIXELS;
234         font->layout->bounds[t].ymax = (bbox.yMax*FT_SCALE*20)/FT_SUBPIXELS;
235
236         draw.dealloc(&draw);
237
238         FT_Done_Glyph(glyph);
239     }
240
241     FT_Done_Face(face);
242     FT_Done_FreeType(ftlibrary);ftlibrary=0;
243
244     return font;
245 }
246 #else  //USE_FREETYPE
247
248 SWFFONT* swf_LoadTrueTypeFont(char*filename)
249 {
250     fprintf(stderr, "Warning: no freetype library- not able to load %s\n", filename);
251     return 0;
252 }
253
254 #endif
255
256 #ifdef HAVE_T1LIB
257
258 #include <t1lib.h>
259
260 SWFFONT* swf_LoadT1Font(char*filename)
261 {
262     SWFFONT * font;
263     int nr;
264     float angle,underline;
265     char*fontname,*fullname,*familyname;
266     BBox bbox;
267     int s,num;
268     char*encoding[256];
269     char**charnames;
270     char*charname;
271
272     T1_SetBitmapPad( 16);
273     if ((T1_InitLib(NO_LOGFILE)==NULL)){
274         fprintf(stderr, "Initialization of t1lib failed\n");
275         return 0;
276     }
277     nr = T1_AddFont(filename);
278     T1_LoadFont(nr);
279
280     num = T1_SetDefaultEncoding(encoding);
281     for(;num<256;num++) encoding[num] = 0;
282
283     charnames = T1_GetAllCharNames(nr);
284
285     angle = T1_GetItalicAngle(nr);
286     fontname = T1_GetFontName(nr);
287     fullname = T1_GetFullName(nr);
288     familyname = T1_GetFamilyName(nr);
289     underline = T1_GetUnderlinePosition(nr);
290     bbox = T1_GetFontBBox(nr);
291
292     font = (SWFFONT*)malloc(sizeof(SWFFONT));
293     memset(font, 0, sizeof(SWFFONT));
294
295     font->version = 2;
296     font->name = (U8*)strdup(fontname);
297     font->layout = (SWFLAYOUT*)malloc(sizeof(SWFLAYOUT));
298     memset(font->layout, 0, sizeof(SWFLAYOUT));
299
300     num = 0;
301     charname = charnames[0];
302     while(*charname) {
303         charname++;
304         num++;
305     }
306
307     font->maxascii = 256;
308     font->numchars = num;
309     
310     font->style = (/*bold*/0?FONT_STYLE_BOLD:0) + (angle>0.05?FONT_STYLE_ITALIC:0);
311
312     font->glyph = (SWFGLYPH*)malloc(num*sizeof(SWFGLYPH));
313     memset(font->glyph, 0, num*sizeof(SWFGLYPH));
314     font->glyph2ascii = (U16*)malloc(num*sizeof(U16));
315     memset(font->glyph2ascii, 0, num*sizeof(U16));
316     font->ascii2glyph = (int*)malloc(font->maxascii*sizeof(int));
317     memset(font->ascii2glyph, -1, font->maxascii*sizeof(int));
318     font->layout->ascent = (U16)(underline - bbox.lly);
319     font->layout->descent = (U16)(bbox.ury - underline);
320     font->layout->leading = (U16)(font->layout->ascent - 
321                              font->layout->descent -
322                              (bbox.lly - bbox.ury));
323     font->layout->bounds = (SRECT*)malloc(sizeof(SRECT)*num);
324     memset(font->layout->bounds, 0, sizeof(SRECT)*num);
325     font->layout->kerningcount = 0;
326     font->layout->kerning = 0;
327   
328     num = 0;
329     
330     charname = charnames[0];
331     while(*charname) {
332         int c;
333         T1_OUTLINE * outline = T1_GetCharOutline(nr, c, 100.0, 0);
334         int firstx = outline->dest.x/0xffff;
335
336         font->ascii2glyph[s] = num;
337         font->glyph2ascii[num] = s;
338             
339         /* fix bounding box */
340         SHAPE2*shape2;
341         SRECT bbox;
342         shape2 = swf_ShapeToShape2(font->glyph[s].shape);
343         if(!shape2) { fprintf(stderr, "Shape parse error\n");exit(1);}
344         bbox = swf_GetShapeBoundingBox(shape2);
345         swf_Shape2Free(shape2);
346         font->layout->bounds[num] = bbox;
347         //font->glyph[num].advance = (int)(width/6.4); // 128/20
348         font->glyph[num].advance = bbox.xmax/20;
349         if(!font->glyph[num].advance) {
350             font->glyph[num].advance = firstx;
351         }
352     }
353     return font;
354 }
355
356 #else
357
358 SWFFONT* swf_LoadT1Font(char*filename)
359 {
360     fprintf(stderr, "Warning: no t1lib- not able to load %s\n", filename);
361     return 0;
362 }
363
364 #endif
365