1
0
mirror of https://github.com/mpv-player/mpv synced 2024-12-13 10:26:00 +00:00
mpv/libvo/ttf_load.c
arpi e55db72e97 .ttf font loader - based on TOOLS/subfont-c
git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@5380 b3059339-0415-0410-9bf9-f77b7e298cf2
2002-03-28 20:22:34 +00:00

715 lines
19 KiB
C

/*
* Renders antialiased fonts for mplayer using freetype library.
* Should work with TrueType, Type1 and any other font supported by libfreetype.
* Can generate font.desc for any encoding.
*
*
* Artur Zaprzala <zybi@fanthom.irc.pl>
*
*/
#include <stdio.h>
#include <stdlib.h>
#include <iconv.h>
#include <math.h>
#include <string.h>
#include <libgen.h>
#ifndef OLD_FREETYPE2
#include <ft2build.h>
#include FT_FREETYPE_H
#include FT_GLYPH_H
#else /* freetype 2.0.1 */
#include <freetype/freetype.h>
#include <freetype/ftglyph.h>
#endif
#include "../config.h"
#include "../mp_msg.h"
#include "../bswap.h"
#ifndef DEBUG
#define DEBUG 0
#endif
#include "font_load.h"
//// default values
static char *encoding = "iso-8859-1"; /* target encoding */
static char *charmap = "ucs-4"; /* font charmap encoding, I hope ucs-4 is always big endian */
/* gcc 2.1.3 doesn't support ucs-4le, but supports ucs-4 (==ucs-4be) */
static float ppem = 28; /* font size in pixels */
static double radius = 2; /* blur radius */
static double thickness = 2.5; /* outline thickness */
//char* font_desc = "font.desc";
//char* font_desc = "/dev/stdout";
//char *outdir = ".";
static font_desc_t *desc=NULL;
//// constants
static int const colors = 256;
static int const maxcolor = 255;
static unsigned const base = 256;
static unsigned const first_char = 33;
#define max_charset_size 60000
//int const max_charset_size = 256;
static unsigned charset_size = 0;
////
//static char *command;
//static char *encoding_name;
static char *font_path=NULL;
//char *font_metrics;
//static int append_mode = 0;
static int unicode_desc = 0;
static int font_id=0;
static unsigned char *bbuffer, *abuffer;
static int width, height;
static int padding;
static FT_ULong charset[max_charset_size]; /* characters we want to render; Unicode */
static FT_ULong charcodes[max_charset_size]; /* character codes in 'encoding' */
static iconv_t cd; // iconv conversion descriptor
#define eprintf(...) mp_msg(MSGT_CPLAYER,MSGL_INFO, __VA_ARGS__)
#define ERROR_(msg, ...) (mp_msg(MSGT_CPLAYER,MSGL_ERR,"[font_load] error: " msg "\n", __VA_ARGS__), exit(1))
#define WARNING_(msg, ...) mp_msg(MSGT_CPLAYER,MSGL_WARN,"[font_load] warning: " msg "\n", __VA_ARGS__)
#define ERROR(...) ERROR_(__VA_ARGS__, NULL)
#define WARNING(...) WARNING_(__VA_ARGS__, NULL)
#define f266ToInt(x) (((x)+32)>>6) // round fractional fixed point number to integer
// coordinates are in 26.6 pixels (i.e. 1/64th of pixels)
#define f266CeilToInt(x) (((x)+63)>>6) // ceiling
#define f266FloorToInt(x) ((x)>>6) // floor
#define f1616ToInt(x) (((x)+0x8000)>>16) // 16.16
#define floatTof266(x) ((int)((x)*(1<<6)+0.5))
#define ALIGN(x) (((x)+7)&~7) // 8 byte align
static void paste_bitmap(FT_Bitmap *bitmap, int x, int y) {
int drow = x+y*width;
int srow = 0;
int sp, dp, w, h;
if (bitmap->pixel_mode==ft_pixel_mode_mono)
for (h = bitmap->rows; h>0; --h, drow+=width, srow+=bitmap->pitch)
for (w = bitmap->width, sp=dp=0; w>0; --w, ++dp, ++sp)
bbuffer[drow+dp] = (bitmap->buffer[srow+sp/8] & (0x80>>(sp%8))) ? 255:0;
else
for (h = bitmap->rows; h>0; --h, drow+=width, srow+=bitmap->pitch)
for (w = bitmap->width, sp=dp=0; w>0; --w, ++dp, ++sp)
bbuffer[drow+dp] = bitmap->buffer[srow+sp];
}
static void render() {
FT_Library library;
FT_Face face;
FT_Error error;
FT_Glyph *glyphs;
FT_BitmapGlyph glyph;
//FILE *f;
int const load_flags = FT_LOAD_DEFAULT | FT_LOAD_NO_HINTING;
int pen_x = 0, pen_xa;
int ymin = INT_MAX, ymax = INT_MIN;
int i, uni_charmap = 1;
int baseline, space_advance = 20;
int glyphs_count = 0;
/* initialize freetype */
error = FT_Init_FreeType(&library);
if (error) ERROR("Init_FreeType failed.");
error = FT_New_Face(library, font_path, 0, &face);
if (error) ERROR("New_Face failed. Maybe the font path `%s' is wrong.", font_path);
/*
if (font_metrics) {
error = FT_Attach_File(face, font_metrics);
if (error) WARNING("FT_Attach_File failed.");
}
*/
#if 0
/************************************************************/
eprintf("Font encodings:\n");
for (i = 0; i<face->num_charmaps; ++i)
eprintf("'%.4s'\n", (char*)&face->charmaps[i]->encoding);
//error = FT_Select_Charmap(face, ft_encoding_unicode);
//error = FT_Select_Charmap(face, ft_encoding_adobe_standard);
//error = FT_Select_Charmap(face, ft_encoding_adobe_custom);
//error = FT_Set_Charmap(face, face->charmaps[1]);
//if (error) WARNING("FT_Select_Charmap failed.");
#endif
#if 0
/************************************************************/
if (FT_HAS_GLYPH_NAMES(face)) {
int const max_gname = 128;
char gname[max_gname];
for (i = 0; i<face->num_glyphs; ++i) {
FT_Get_Glyph_Name(face, i, gname, max_gname);
eprintf("%02x `%s'\n", i, gname);
}
}
#endif
if (face->charmap==NULL || face->charmap->encoding!=ft_encoding_unicode) {
WARNING("Unicode charmap not available for this font. Very bad!");
uni_charmap = 0;
error = FT_Set_Charmap(face, face->charmaps[0]);
if (error) WARNING("No charmaps! Strange.");
}
/* set size */
if (FT_IS_SCALABLE(face)) {
error = FT_Set_Char_Size(face, floatTof266(ppem), 0, 0, 0);
if (error) WARNING("FT_Set_Char_Size failed.");
} else {
int j = 0;
int jppem = face->available_sizes[0].height;
/* find closest size */
for (i = 0; i<face->num_fixed_sizes; ++i) {
if (fabs(face->available_sizes[i].height - ppem) < abs(face->available_sizes[i].height - jppem)) {
j = i;
jppem = face->available_sizes[i].height;
}
}
WARNING("Selected font is not scalable. Using ppem=%i.", face->available_sizes[j].height);
error = FT_Set_Pixel_Sizes(face, face->available_sizes[j].width, face->available_sizes[j].height);
if (error) WARNING("FT_Set_Pixel_Sizes failed.");
}
if (FT_IS_FIXED_WIDTH(face))
WARNING("Selected font is fixed-width.");
/* compute space advance */
error = FT_Load_Char(face, ' ', load_flags);
if (error) WARNING("spacewidth set to default.");
else space_advance = f266ToInt(face->glyph->advance.x);
/* create font.desc */
if(!font_id){ // first font
desc->spacewidth=2*padding + space_advance;
desc->charspace=-2*padding;
desc->height=f266ToInt(face->size->metrics.height);
// fprintf(f, "ascender %i\n", f266CeilToInt(face->size->metrics.ascender));
// fprintf(f, "descender %i\n", f266FloorToInt(face->size->metrics.descender));
}
// render glyphs, compute bitmap size and [characters] section
glyphs = (FT_Glyph*)malloc(charset_size*sizeof(FT_Glyph*));
for (i= 0; i<charset_size; ++i) {
FT_GlyphSlot slot;
FT_ULong character, code;
FT_UInt glyph_index;
FT_BBox bbox;
character = charset[i];
code = charcodes[i];
// get glyph index
if (character==0)
glyph_index = 0;
else {
glyph_index = FT_Get_Char_Index(face, uni_charmap ? character:code);
if (glyph_index==0) {
WARNING("Glyph for char 0x%02x|U+%04X|%c not found.", code, character,
code<' '||code>255 ? '.':code);
continue;
}
}
// load glyph
error = FT_Load_Glyph(face, glyph_index, load_flags);
if (error) {
WARNING("FT_Load_Glyph 0x%02x (char 0x%02x|U+%04X) failed.", glyph_index, code, character);
continue;
}
slot = face->glyph;
// render glyph
if (slot->format != ft_glyph_format_bitmap) {
error = FT_Render_Glyph(slot, ft_render_mode_normal);
if (error) {
WARNING("FT_Render_Glyph 0x%04x (char 0x%02x|U+%04X) failed.", glyph_index, code, character);
continue;
}
}
// extract glyph image
error = FT_Get_Glyph(slot, (FT_Glyph*)&glyph);
if (error) {
WARNING("FT_Get_Glyph 0x%04x (char 0x%02x|U+%04X) failed.", glyph_index, code, character);
continue;
}
glyphs[glyphs_count++] = (FT_Glyph)glyph;
#ifdef NEW_DESC
// max height
if (glyph->bitmap.rows > height) height = glyph->bitmap.rows;
// advance pen
pen_xa = pen_x + glyph->bitmap.width + 2*padding;
// font.desc
fprintf(f, "0x%04x %i %i %i %i %i %i;\tU+%04X|%c\n", unicode_desc ? character:code,
pen_x, // bitmap start
glyph->bitmap.width + 2*padding, // bitmap width
glyph->bitmap.rows + 2*padding, // bitmap height
glyph->left - padding, // left bearing
glyph->top + padding, // top bearing
f266ToInt(slot->advance.x), // advance
character, code<' '||code>255 ? '.':code);
#else
// max height
if (glyph->top > ymax) {
ymax = glyph->top;
//eprintf("%3i: ymax %i (%c)\n", code, ymax, code);
}
if (glyph->top - glyph->bitmap.rows < ymin) {
ymin = glyph->top - glyph->bitmap.rows;
//eprintf("%3i: ymin %i (%c)\n", code, ymin, code);
}
/* advance pen */
pen_xa = pen_x + f266ToInt(slot->advance.x) + 2*padding;
/* font.desc */
// fprintf(f, "0x%04x %i %i;\tU+%04X|%c\n", unicode_desc ? character:code,
// pen_x, // bitmap start
// pen_xa-1, // bitmap end
// character, code<' '||code>255 ? '.':code);
desc->start[unicode_desc ? character:code]=pen_x;
desc->width[unicode_desc ? character:code]=pen_xa-1-pen_x;
desc->font[unicode_desc ? character:code]=font_id;
#endif
pen_x = ALIGN(pen_xa);
}
width = pen_x;
pen_x = 0;
#ifdef NEW_DESC
if (height<=0) ERROR("Something went wrong. Use the source!");
height += 2*padding;
#else
if (ymax<=ymin) ERROR("Something went wrong. Use the source!");
height = ymax - ymin + 2*padding;
baseline = ymax + padding;
#endif
// end of font.desc
if (DEBUG) eprintf("bitmap size: %ix%i\n", width, height);
// fprintf(f, "# bitmap size: %ix%i\n", width, height);
// fclose(f);
bbuffer = (unsigned char*)malloc(width*height);
if (bbuffer==NULL) ERROR("malloc failed.");
memset(bbuffer, 0, width*height);
/* paste glyphs */
for (i= 0; i<glyphs_count; ++i) {
glyph = (FT_BitmapGlyph)glyphs[i];
#ifdef NEW_DESC
paste_bitmap(&glyph->bitmap,
pen_x + padding,
padding);
/* advance pen */
pen_x += glyph->bitmap.width + 2*padding;
#else
paste_bitmap(&glyph->bitmap,
pen_x + padding + glyph->left,
baseline - glyph->top);
/* advance pen */
pen_x += f1616ToInt(glyph->root.advance.x) + 2*padding;
#endif
pen_x = ALIGN(pen_x);
FT_Done_Glyph((FT_Glyph)glyph);
}
free(glyphs);
error = FT_Done_FreeType(library);
if (error) ERROR("FT_Done_FreeType failed.");
}
/* decode from 'encoding' to unicode */
static FT_ULong decode_char(char c) {
FT_ULong o;
char *inbuf = &c;
char *outbuf = (char*)&o;
int inbytesleft = 1;
int outbytesleft = sizeof(FT_ULong);
size_t count = iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft);
/* convert unicode BigEndian -> MachineEndian */
o = be2me_32(o);
// if (count==-1) o = 0; // not OK, at least my iconv() returns E2BIG for all
if (outbytesleft!=0) o = 0;
/* we don't want control characters */
if (o>=0x7f && o<0xa0) o = 0;
return o;
}
static void prepare_charset() {
FILE *f;
FT_ULong i;
f = fopen(encoding, "r"); // try to read custom encoding
if (f==NULL) {
int count = 0;
// check if ucs-4 is available
cd = iconv_open(charmap, charmap);
if (cd==(iconv_t)-1) ERROR("iconv doesn't know %s encoding. Use the source!", charmap);
iconv_close(cd);
cd = iconv_open(charmap, encoding);
if (cd==(iconv_t)-1) ERROR("Unsupported encoding `%s', use iconv --list to list character sets known on your system.", encoding);
charset_size = 256 - first_char;
for (i = 0; i<charset_size; ++i) {
charcodes[count] = i+first_char;
charset[count] = decode_char(i+first_char);
//eprintf("%04X U%04X\n", charcodes[count], charset[count]);
if (charset[count]!=0) ++count;
}
charcodes[count] = charset[count] = 0; ++count;
charset_size = count;
iconv_close(cd);
} else {
unsigned int character, code;
int count;
eprintf("Reading custom encoding from file '%s'.\n", encoding);
while ((count = fscanf(f, "%x%*[ \t]%x", &character, &code)) != EOF) {
if (charset_size==max_charset_size) {
WARNING("There is no place for more than %i characters. Use the source!", max_charset_size);
break;
}
if (count==0) ERROR("Unable to parse custom encoding file.");
if (character<32) continue; // skip control characters
charset[charset_size] = character;
charcodes[charset_size] = count==2 ? code : character;
++charset_size;
}
fclose(f);
// encoding = basename(encoding);
}
if (charset_size==0) ERROR("No characters to render!");
}
// general outline
static void outline(
unsigned char *s,
unsigned char *t,
int width,
int height,
int *m,
int r,
int mwidth) {
int x, y;
for (y = 0; y<height; ++y) {
for (x = 0; x<width; ++x, ++s, ++t) {
unsigned max = 0;
unsigned *mrow = m + r;
unsigned char *srow = s -r*width;
int x1=(x<r)?-x:-r;
int x2=(x+r>=width)?(width-x-1):r;
int my;
for (my = -r; my<=r; ++my, srow+= width, mrow+= mwidth) {
int mx;
if (y+my < 0) continue;
if (y+my >= height) break;
for (mx = x1; mx<=x2; ++mx) {
unsigned v = srow[mx] * mrow[mx];
if (v>max) max = v;
}
}
*t = (max + base/2) / base;
}
}
}
// 1 pixel outline
static void outline1(
unsigned char *s,
unsigned char *t,
int width,
int height) {
int x, y, mx, my;
for (x = 0; x<width; ++x, ++s, ++t) *t = *s;
for (y = 1; y<height-1; ++y) {
*t++ = *s++;
for (x = 1; x<width-1; ++x, ++s, ++t) {
unsigned v = (
s[-1-width]+
s[-1+width]+
s[+1-width]+
s[+1+width]
)/2 + (
s[-1]+
s[+1]+
s[-width]+
s[+width]+
s[0]
);
*t = v>maxcolor ? maxcolor : v;
}
*t++ = *s++;
}
for (x = 0; x<width; ++x, ++s, ++t) *t = *s;
}
// gaussian blur
static void blur(
unsigned char *buffer,
unsigned char *tmp,
int width,
int height,
int *m,
int r,
int mwidth,
unsigned volume) {
int x, y;
unsigned char *s = buffer - r;
unsigned char *t = tmp;
for (y = 0; y<height; ++y) {
for (x = 0; x<width; ++x, ++s, ++t) {
unsigned sum = 0;
int x1 = (x<r) ? r-x:0;
int x2 = (x+r>=width) ? (r+width-x):mwidth;
int mx;
for (mx = x1; mx<x2; ++mx)
sum+= s[mx] * m[mx];
*t = (sum + volume/2) / volume;
//*t = sum;
}
}
tmp -= r*width;
for (x = 0; x<width; ++x, ++tmp, ++buffer) {
s = tmp;
t = buffer;
for (y = 0; y<height; ++y, s+= width, t+= width) {
unsigned sum = 0;
int y1 = (y<r) ? r-y:0;
int y2 = (y+r>=height) ? (r+height-y):mwidth;
unsigned char *smy = s + y1*width;
int my;
for (my = y1; my<y2; ++my, smy+= width)
sum+= *smy * m[my];
*t = (sum + volume/2) / volume;
}
}
}
// Gaussian matrix
// Maybe for future use.
static unsigned gmatrix(unsigned *m, int r, int w, double const A) {
unsigned volume = 0; // volume under Gaussian area is exactly -pi*base/A
int mx, my;
for (my = 0; my<w; ++my) {
for (mx = 0; mx<w; ++mx) {
m[mx+my*w] = (unsigned)(exp(A * ((mx-r)*(mx-r)+(my-r)*(my-r))) * base + .5);
volume+= m[mx+my*w];
if (DEBUG) eprintf("%3i ", m[mx+my*w]);
}
if (DEBUG) eprintf("\n");
}
if (DEBUG) {
eprintf("A= %f\n", A);
eprintf("volume: %i; exact: %.0f; volume/exact: %.6f\n\n", volume, -M_PI*base/A, volume/(-M_PI*base/A));
}
return volume;
}
static void alpha() {
int const g_r = ceil(radius);
int const o_r = ceil(thickness);
int const g_w = 2*g_r+1; // matrix size
int const o_w = 2*o_r+1; // matrix size
double const A = log(1.0/base)/(radius*radius*2);
int mx, my, i;
unsigned volume = 0; // volume under Gaussian area is exactly -pi*base/A
unsigned *g = (unsigned*)malloc(g_w * sizeof(unsigned));
unsigned *om = (unsigned*)malloc(o_w*o_w * sizeof(unsigned));
if (g==NULL || om==NULL) ERROR("malloc failed.");
// gaussian curve
for (i = 0; i<g_w; ++i) {
g[i] = (unsigned)(exp(A * (i-g_r)*(i-g_r)) * base + .5);
volume+= g[i];
if (DEBUG) eprintf("%3i ", g[i]);
}
//volume *= volume;
if (DEBUG) eprintf("\n");
/* outline matrix */
for (my = 0; my<o_w; ++my) {
for (mx = 0; mx<o_w; ++mx) {
// antialiased circle would be perfect here, but this one is good enough
double d = thickness + 1 - sqrt((mx-o_r)*(mx-o_r)+(my-o_r)*(my-o_r));
om[mx+my*o_w] = d>=1 ? base : d<=0 ? 0 : (d*base + .5);
if (DEBUG) eprintf("%3i ", om[mx+my*o_w]);
}
if (DEBUG) eprintf("\n");
}
if (DEBUG) eprintf("\n");
if(thickness==1.0)
outline1(bbuffer, abuffer, width, height); // FAST solid 1 pixel outline
else
outline(bbuffer, abuffer, width, height, om, o_r, o_w); // solid outline
//outline(bbuffer, abuffer, width, height, gm, g_r, g_w); // Gaussian outline
blur(abuffer, bbuffer, width, height, g, g_r, g_w, volume);
free(g);
free(om);
}
font_desc_t* read_font_desc(char* fname,float factor,int verbose){
int i=font_id;
int j;
if(!font_id){
desc=malloc(sizeof(font_desc_t));if(!desc) return NULL;
memset(desc,0,sizeof(font_desc_t));
memset(desc->font,255,sizeof(short)*65536);
}
padding = ceil(radius) + ceil(thickness);
font_path=fname;
prepare_charset();
render();
desc->pic_b[font_id]=malloc(sizeof(raw_file));
desc->pic_b[font_id]->bmp=malloc(width*height);
memcpy(desc->pic_b[font_id]->bmp,bbuffer,width*height);
desc->pic_b[font_id]->pal=NULL;
desc->pic_b[font_id]->w=width;
desc->pic_b[font_id]->h=height;
desc->pic_b[font_id]->c=256;
// write_bitmap(bbuffer, 'b');
abuffer = (unsigned char*)malloc(width*height);
if (abuffer==NULL) ERROR("malloc failed.");
alpha();
// write_bitmap(abuffer, 'a');
desc->pic_a[font_id]=malloc(sizeof(raw_file));
desc->pic_a[font_id]->bmp=abuffer;
// desc->pic_a[font_id]->bmp=malloc(width*height);
// memcpy(desc->pic_a[font_id]->bmp,abuffer,width*height);
desc->pic_a[font_id]->pal=NULL;
desc->pic_a[font_id]->w=width;
desc->pic_a[font_id]->h=height;
desc->pic_a[font_id]->c=256;
free(bbuffer);
// free(abuffer);
//if(factor!=1.0f)
{
// re-sample alpha
int f=factor*256.0f;
int size=desc->pic_a[i]->w*desc->pic_a[i]->h;
int j;
if(verbose) printf("font: resampling alpha by factor %5.3f (%d) ",factor,f);fflush(stdout);
for(j=0;j<size;j++){
int x=desc->pic_a[i]->bmp[j]; // alpha
int y=desc->pic_b[i]->bmp[j]; // bitmap
#ifdef FAST_OSD
x=(x<(255-f))?0:1;
#else
x=255-((x*f)>>8); // scale
//if(x<0) x=0; else if(x>255) x=255;
//x^=255; // invert
if(x+y>255) x=255-y; // to avoid overflows
//x=0;
//x=((x*f*(255-y))>>16);
//x=((x*f*(255-y))>>16)+y;
//x=(x*f)>>8;if(x<y) x=y;
if(x<1) x=1; else
if(x>=252) x=0;
#endif
desc->pic_a[i]->bmp[j]=x;
// desc->pic_b[i]->bmp[j]=0; // hack
}
if(verbose) printf("DONE!\n");
}
if(!desc->height) desc->height=desc->pic_a[i]->h;
j='_';if(desc->font[j]<0) j='?';
for(i=0;i<512;i++)
if(desc->font[i]<0){
desc->start[i]=desc->start[j];
desc->width[i]=desc->width[j];
desc->font[i]=desc->font[j];
}
desc->font[' ']=-1;
desc->width[' ']=desc->spacewidth;
printf("Font %s loaded successfully!\n",fname);
++font_id;
// fflush(stderr);
return desc;
}