libass/ass_font.c

   1 // -*- c-basic-offset: 8; indent-tabs-mode: t -*-
   2 // vim:ts=8:sw=8:noet:ai:
   3 /*
   4   Copyright (C) 2006 Evgeniy Stepanov <eugeni.stepanov@gmail.com>
   5
   6   This program is free software; you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation; either version 2 of the License, or
   9   (at your option) any later version.
  10
  11   This program is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with this program; if not, write to the Free Software
  18   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
  19 */
  20
  21 #include "config.h"
  22
  23 #include <inttypes.h>
  24 #include <ft2build.h>
  25 #include FT_FREETYPE_H
  26 #include FT_SYNTHESIS_H
  27 #include FT_GLYPH_H
  28
  29 #include "ass.h"
  30 #include "ass_library.h"
  31 #include "ass_font.h"
  32 #include "ass_bitmap.h"
  33 #include "ass_cache.h"
  34 #include "ass_fontconfig.h"
  35 #include "mputils.h"
  36
  37 /**
  38  * Select Microfost Unicode CharMap, if the font has one.
  39  * Otherwise, let FreeType decide.
  40  */
  41 static void charmap_magic(FT_Face face)
  42 {
  43         int i;
  44         for (i = 0; i < face->num_charmaps; ++i) {
  45                 FT_CharMap cmap = face->charmaps[i];
  46                 unsigned pid = cmap->platform_id;
  47                 unsigned eid = cmap->encoding_id;
  48                 if (pid == 3 /*microsoft*/ && (eid == 1 /*unicode bmp*/ || eid == 10 /*full unicode*/)) {
  49                         FT_Set_Charmap(face, cmap);
  50                         break;
  51                 }
  52         }
  53 }
  54
  55 static int find_font(ass_library_t* library, char* name)
  56 {
  57         int i;
  58         for (i = 0; i < library->num_fontdata; ++i)
  59                 if (strcasecmp(name, library->fontdata[i].name) == 0)
  60                         return i;
  61         return -1;
  62 }
  63
  64 ass_font_t* ass_font_new(ass_library_t* library, FT_Library ftlibrary, void* fc_priv, ass_font_desc_t* desc)
  65 {
  66         char* path;
  67         int index;
  68         FT_Face face;
  69         int error;
  70         ass_font_t* font;
  71         int mem_idx;
  72
  73         font = ass_font_cache_find(desc);
  74         if (font)
  75                 return font;
  76
  77         path = fontconfig_select(fc_priv, desc->family, desc->bold, desc->italic, &index);
  78
  79         mem_idx = find_font(library, path);
  80         if (mem_idx >= 0) {
  81                 error = FT_New_Memory_Face(ftlibrary, library->fontdata[mem_idx].data,
  82                                            library->fontdata[mem_idx].size, 0, &face);
  83                 if (error) {
  84                         mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_ErrorOpeningMemoryFont, path);
  85                         return 0;
  86                 }
  87         } else {
  88         error = FT_New_Face(ftlibrary, path, index, &face);
  89         if (error) {
  90                 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_ErrorOpeningFont, path, index);
  91                 return 0;
  92         }
  93         }
  94
  95         charmap_magic(face);
  96
  97         font = calloc(1, sizeof(ass_font_t));
  98         font->ftlibrary = ftlibrary;
  99         font->path = strdup(path);
 100         font->index = index;
 101         font->face = face;
 102         font->desc.family = strdup(desc->family);
 103         font->desc.bold = desc->bold;
 104         font->desc.italic = desc->italic;
 105
 106         font->m.xx = font->m.yy = (FT_Fixed)0x10000L;
 107         font->m.xy = font->m.yy = 0;
 108         font->v.x = font->v.y = 0;
 109         font->size = 0;
 110
 111 #ifdef HAVE_FONTCONFIG
 112         font->charset = FcCharSetCreate();
 113 #endif
 114
 115         ass_font_cache_add(font);
 116
 117         return font;
 118 }
 119
 120 void ass_font_set_transform(ass_font_t* font, FT_Matrix* m, FT_Vector* v)
 121 {
 122         if (font->m.xx != m->xx ||
 123             font->m.xy != m->xy ||
 124             font->m.yx != m->yx ||
 125             font->m.yy != m->yy ||
 126             font->v.x != v->x ||
 127             font->v.y != v->y
 128             ) {
 129                 font->m.xx = m->xx;
 130                 font->m.xy = m->xy;
 131                 font->m.yx = m->yx;
 132                 font->m.yy = m->yy;
 133                 font->v.x = v->x;
 134                 font->v.y = v->y;
 135                 FT_Set_Transform(font->face, &font->m, &font->v);
 136         }
 137 }
 138
 139 void ass_font_set_size(ass_font_t* font, int size)
 140 {
 141         if (font->size != size) {
 142                 font->size = size;
 143                 FT_Set_Pixel_Sizes(font->face, 0, size);
 144         }
 145 }
 146
 147 #ifdef HAVE_FONTCONFIG
 148 static void ass_font_reselect(void* fontconfig_priv, ass_font_t* font)
 149 {
 150         char* path;
 151         int index;
 152         FT_Face face;
 153         int error;
 154
 155         path = fontconfig_select_with_charset(fontconfig_priv, font->desc.family, font->desc.bold,
 156                                               font->desc.italic, &index, font->charset);
 157         if (strcasecmp(path, font->path) == 0 && index == font->index) {
 158                 free(path);
 159                 return;
 160         }
 161
 162         error = FT_New_Face(font->ftlibrary, path, index, &face);
 163         if (error) {
 164                 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_ErrorOpeningFont, path, index);
 165                 return;
 166         }
 167         charmap_magic(face);
 168
 169         if (font->face) FT_Done_Face(font->face);
 170         free(font->path);
 171
 172         font->face = face;
 173         font->path = strdup(path);
 174         font->index = index;
 175
 176         FT_Set_Transform(font->face, &font->m, &font->v);
 177         FT_Set_Pixel_Sizes(font->face, 0, font->size);
 178 }
 179 #endif
 180
 181 FT_Glyph ass_font_get_glyph(void* fontconfig_priv, ass_font_t* font, uint32_t ch)
 182 {
 183         int error;
 184         int index;
 185         FT_Glyph glyph;
 186
 187         if (ch < 0x20)
 188                 return 0;
 189
 190         index = FT_Get_Char_Index(font->face, ch);
 191 #ifdef HAVE_FONTCONFIG
 192         FcCharSetAddChar(font->charset, ch);
 193         if (index == 0) {
 194                 mp_msg(MSGT_ASS, MSGL_INFO, MSGTR_LIBASS_GlyphNotFoundReselectingFont,
 195                        ch, font->desc.family, font->desc.bold, font->desc.italic);
 196                 ass_font_reselect(fontconfig_priv, font);
 197                 index = FT_Get_Char_Index(font->face, ch);
 198                 if (index == 0) {
 199                         mp_msg(MSGT_ASS, MSGL_ERR, MSGTR_LIBASS_GlyphNotFound,
 200                                ch, font->desc.family, font->desc.bold, font->desc.italic);
 201                 }
 202         }
 203 #endif
 204
 205         error = FT_Load_Glyph(font->face, index, FT_LOAD_NO_BITMAP );
 206         if (error) {
 207                 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_ErrorLoadingGlyph);
 208                 return 0;
 209         }
 210
 211 #if (FREETYPE_MAJOR > 2) || \
 212     ((FREETYPE_MAJOR == 2) && (FREETYPE_MINOR >= 2)) || \
 213     ((FREETYPE_MAJOR == 2) && (FREETYPE_MINOR == 1) && (FREETYPE_PATCH >= 10))
 214 // FreeType >= 2.1.10 required
 215         if (!(font->face->style_flags & FT_STYLE_FLAG_ITALIC) &&
 216                         (font->desc.italic > 55)) {
 217                 FT_GlyphSlot_Oblique(font->face->glyph);
 218         }
 219 #endif
 220         error = FT_Get_Glyph(font->face->glyph, &glyph);
 221         if (error) {
 222                 mp_msg(MSGT_ASS, MSGL_WARN, MSGTR_LIBASS_ErrorLoadingGlyph);
 223                 return 0;
 224         }
 225
 226         return glyph;
 227 }
 228
 229 void ass_font_free(ass_font_t* font)
 230 {
 231         if (font->face) FT_Done_Face(font->face);
 232         if (font->path) free(font->path);
 233         if (font->desc.family) free(font->desc.family);
 234 #ifdef HAVE_FONTCONFIG
 235         if (font->charset) FcCharSetDestroy(font->charset);
 236 #endif
 237         free(font);
 238 }