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