diff options
Diffstat (limited to 'TOOLS/subfont-c/subfont.c')
-rw-r--r-- | TOOLS/subfont-c/subfont.c | 1040 |
1 files changed, 0 insertions, 1040 deletions
diff --git a/TOOLS/subfont-c/subfont.c b/TOOLS/subfont-c/subfont.c deleted file mode 100644 index 4a69bb611d..0000000000 --- a/TOOLS/subfont-c/subfont.c +++ /dev/null @@ -1,1040 +0,0 @@ -/* - * 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 "libavutil/common.h" -#include "mpbswap.h" -#include "osdep/timer.h" - -#ifndef DEBUG -#define DEBUG 0 -#endif - - -//// default values -char *encoding = "iso-8859-1"; /* target encoding */ -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) */ -float ppem = 22; /* font size in pixels */ - -double radius = 2; /* blur radius */ -double thickness = 1.5; /* outline thickness */ - -char* font_desc = "font.desc"; -//char* font_desc = "/dev/stdout"; - -char *outdir = "."; - -//// constants -int const colors = 256; -int const maxcolor = 255; -unsigned const base = 256; -unsigned const first_char = 33; -#define max_charset_size 60000 -//int const max_charset_size = 256; -unsigned charset_size = 0; - -//// -char *command; -char *encoding_name; -char *font_path; -//char *font_metrics; -int append_mode = 0; -int unicode_desc = 0; - -unsigned char *bbuffer, *abuffer; -int width, height; -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' */ -iconv_t cd; // iconv conversion descriptor - - - -#define eprintf(...) fprintf(stderr, ##__VA_ARGS__) -#define ERROR(msg, ...) eprintf("%s: error: " msg "\n", command, ##__VA_ARGS__),exit(1) -#define WARNING(msg, ...) eprintf("%s: warning: " msg "\n", command, ##__VA_ARGS__) - -#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 - - - -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]; -} - - -void write_header(FILE *f) { - static unsigned char header[800] = "mhwanh"; - int i; - header[7] = 4; - if (width < 0x10000) { // are two bytes enough for the width? - header[8] = width>>8; header[9] = (unsigned char)width; - } else { // store width using 4 bytes at the end of the header - header[8] = header[9] = 0; - header[28] = (width >> 030) & 0xFF; - header[29] = (width >> 020) & 0xFF; - header[30] = (width >> 010) & 0xFF; - header[31] = (width ) & 0xFF; - } - header[10] = height>>8; header[11] = (unsigned char)height; - header[12] = colors>>8; header[13] = (unsigned char)colors; - for (i = 32; i<800; ++i) header[i] = (i-32)/3; - fwrite(header, 1, 800, f); -} - - -void write_bitmap(void *buffer, char type) { - FILE *f; - int const max_name = 128; - char name[max_name]; - - snprintf(name, max_name, "%s/%s-%c.raw", outdir, encoding_name, type); - f = fopen(name, "wb"); - if (f==NULL) ERROR("fopen failed."); - write_header(f); - fwrite(buffer, 1, width*height, f); - fclose(f); -} - - -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 */ -{ - int const max_name = 128; - char name[max_name]; - - snprintf(name, max_name, "%s/%s", outdir, font_desc); - f = fopen(name, append_mode ? "a":"w"); -} - if (f==NULL) ERROR("fopen failed."); - - - /* print font.desc header */ - if (append_mode) { - fprintf(f, "\n\n# "); - } else { - fprintf(f, "# This file was generated with subfont for MPlayer.\n" - "# Subfont by Artur Zaprzala <zybi@fanthom.irc.pl>.\n\n"); - fprintf(f, "[info]\n"); - } - - fprintf(f, "name 'Subtitle font for %s %s, \"%s%s%s\" face, size: %.1f pixels, blur: %.1f, outline: %.1f'\n", - encoding_name, - unicode_desc ? "charset, Unicode encoding":"encoding", - face->family_name ? face->family_name : font_path, - face->style_name ? " ":"", face->style_name ? face->style_name:"", - ppem, radius, thickness); - - if (!append_mode) { -#ifdef NEW_DESC - fprintf(f, "descversion 2\n"); -#else - fprintf(f, "descversion 1\n"); -#endif - fprintf(f, "spacewidth %i\n", 2*padding + space_advance); -#ifndef NEW_DESC - fprintf(f, "charspace %i\n", -2*padding); -#endif - fprintf(f, "height %li\n", f266ToInt(face->size->metrics.height)); -#ifdef NEW_DESC - fprintf(f, "ascender %i\n", f266CeilToInt(face->size->metrics.ascender)); - fprintf(f, "descender %i\n", f266FloorToInt(face->size->metrics.descender)); -#endif - } - fprintf(f, "\n[files]\n"); - fprintf(f, "alpha %s-a.raw\n", encoding_name); - fprintf(f, "bitmap %s-b.raw\n", encoding_name); - fprintf(f, "\n[characters]\n"); - - - // 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%02lx|U+%04lX|%c not found.", code, character, - code<' '||code>255 ? '.':(char)code); - continue; - } - } - - // load glyph - error = FT_Load_Glyph(face, glyph_index, load_flags); - if (error) { - WARNING("FT_Load_Glyph 0x%02x (char 0x%02lx|U+%04lX) 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%02lx|U+%04lX) 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%02lx|U+%04lX) 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%04lx %i %i;\tU+%04lX|%c\n", unicode_desc ? character:code, - pen_x, // bitmap start - pen_xa-1, // bitmap end - character, code<' '||code>255 ? '.':(char)code); -#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 */ -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; -} - - -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 -void outline( - unsigned char *s, - unsigned char *t, - int width, - int height, - unsigned char *m, - int r, - int mwidth, - int msize) { - - int x, y; -#if 1 - for (y = 0; y<height; y++) { - for (x = 0; x<width; x++) { - const int src= s[x]; - if(src==0) continue; -#if 0 - if(src==255 && x>0 && y>0 && x+1<width && y+1<height - && s[x-1]==255 && s[x+1]==255 && s[x-width]==255 && s[x+width]==255){ - t[x + y*width]=255; - }else -#endif - { - const int x1=(x<r) ? r-x : 0; - const int y1=(y<r) ? r-y : 0; - const int x2=(x+r>=width ) ? r+width -x : 2*r+1; - const int y2=(y+r>=height) ? r+height-y : 2*r+1; - register unsigned char *dstp= t + (y1+y-r)* width + x-r; - //register int *mp = m + y1 *mwidth; - register unsigned char *mp= m + msize*src + y1*mwidth; - int my; - - for(my= y1; my<y2; my++){ -// unsigned char *dstp= t + (my+y-r)* width + x-r; -// int *mp = m + my *mwidth; - register int mx; - for(mx= x1; mx<x2; mx++){ -// const int tmp= (src*mp[mx] + 128)>>8; -// if(dstp[mx] < tmp) dstp[mx]= tmp; - if(dstp[mx] < mp[mx]) dstp[mx]= mp[mx]; - } - dstp+=width; - mp+=mwidth; - } - } - } - s+= width; - } -#else - for (y = 0; y<height; ++y) { - for (x = 0; x<width; ++x, ++s, ++t) { - //if(s[0]>=192) printf("%d\n",s[0]); - if(s[0]!=255){ - 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; - } - } -// if(!max) *t = 0; else - *t = (max + base/2) / base; - } else - *t = 255; - } - } -#endif -} - - -// 1 pixel outline -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 -void blur( - unsigned char *buffer, - unsigned short *tmp2, - int width, - int height, - int *m, - int *m2, - int r, - int mwidth, - unsigned volume) { - - int x, y; - -#if 1 - unsigned char *s = buffer; - unsigned short *t = tmp2+1; - for(y=0; y<height; y++){ - memset(t-1, 0, (width+1)*sizeof(short)); -// for(x=0; x<width+1; x++) -// t[x]= 128; - - for(x=0; x<r; x++){ - const int src= s[x]; - if(src){ - register unsigned short *dstp= t + x-r; - int mx; - unsigned *m3= m2 + src*mwidth; - for(mx=r-x; mx<mwidth; mx++){ - dstp[mx]+= m3[mx]; - } - } - } - for(; x<width-r; x++){ - const int src= s[x]; - if(src){ - register unsigned short *dstp= t + x-r; - int mx; - unsigned *m3= m2 + src*mwidth; - for(mx=0; mx<mwidth; mx++){ - dstp[mx]+= m3[mx]; - } - } - } - for(; x<width; x++){ - const int src= s[x]; - if(src){ - register unsigned short *dstp= t + x-r; - int mx; - const int x2= r+width -x; - const int off= src*mwidth; - unsigned *m3= m2 + src*mwidth; - for(mx=0; mx<x2; mx++){ - dstp[mx]+= m3[mx]; - } - } - } - s+= width; - t+= width + 1; - } - - t = tmp2; - for(x=0; x<width; x++){ - for(y=0; y<r; y++){ - unsigned short *srcp= t + y*(width+1) + 1; - int src= *srcp; - if(src){ - register unsigned short *dstp= srcp - 1 + width+1; - const int src2= (src + 128)>>8; - unsigned *m3= m2 + src2*mwidth; - - int mx; - *srcp= 128; - for(mx=r-1; mx<mwidth; mx++){ - *dstp += m3[mx]; - dstp+= width+1; - } - } - } - for(; y<height-r; y++){ - unsigned short *srcp= t + y*(width+1) + 1; - int src= *srcp; - if(src){ - register unsigned short *dstp= srcp - 1 - r*(width+1); - const int src2= (src + 128)>>8; - unsigned *m3= m2 + src2*mwidth; - - int mx; - *srcp= 128; - for(mx=0; mx<mwidth; mx++){ - *dstp += m3[mx]; - dstp+= width+1; - } - } - } - for(; y<height; y++){ - unsigned short *srcp= t + y*(width+1) + 1; - int src= *srcp; - if(src){ - const int y2=r+height-y; - register unsigned short *dstp= srcp - 1 - r*(width+1); - const int src2= (src + 128)>>8; - unsigned *m3= m2 + src2*mwidth; - - int mx; - *srcp= 128; - for(mx=0; mx<y2; mx++){ - *dstp += m3[mx]; - dstp+= width+1; - } - } - } - t++; - } - - t = tmp2; - s = buffer; - for(y=0; y<height; y++){ - for(x=0; x<width; x++){ - s[x]= t[x]>>8; - } - s+= width; - t+= width + 1; - } -#else - unsigned char *tmp = (unsigned char*)tmp2; - unsigned char *s = buffer - r; - unsigned char *t = tmp; - - int *m_end=m+256*mwidth; - - for (y = 0; y<height; ++y) { - for (x = 0; x<width; ++x, ++s, ++t) { - unsigned sum = 65536/2; - int x1 = (x<r) ? r-x:0; - int x2 = (x+r>=width) ? (r+width-x):mwidth; - unsigned* mp = m + 256*x1; - int mx; - - for (mx = x1; mx<x2; ++mx, mp+=256) sum+= mp[s[mx]]; - *t = sum>>16; - } - } - - tmp -= r*width; - for (x = 0; x<width; ++x, ++tmp, ++buffer) { - int y1max=(r<height)?r:height; - int y2min=height-r; - if(y2min<y1max) y2min=y1max; - s = tmp; - t = buffer; -#if 0 - for (y = 0; y<height; ++y, s+= width, t+= width) { - unsigned sum = 65536/2; - int y1 = (y<r) ? r-y:0; - int y2 = (y+r>=height) ? (r+height-y):mwidth; - register unsigned *mp = m + 256*y1; - register unsigned char *smy = s + y1*width; - int my; - for (my = y1; my<y2; ++my, smy+= width, mp+=256) - sum+= mp[*smy]; - *t = sum>>16; - } -#else - // pass 1: 0..r - for (y = 0; y<y1max; ++y, s+= width, t+= width) { - unsigned sum = 65536/2; - int y1 = r-y; - int my = y1; - int y2 = (y+r>=height) ? (r+height-y):mwidth; - unsigned char *smy = s + y1*width; - unsigned* mp = m + 256*y1; - for (; my<y2; ++my, smy+= width, mp+=256) sum+=mp[*smy]; - *t = sum>>16; - } - // pass 2: r..(height-r) - for (; y<y2min; ++y, s+= width, t+= width) { - unsigned sum = 65536/2; - unsigned char *smy = s; - unsigned* mp = m; -// int my=0; -// for (; my<mwidth; ++my, smy+=width, mp+=256) sum+=mp[*smy]; - for (; mp<m_end; smy+=width, mp+=256) sum+=mp[*smy]; - *t = sum>>16; - } - // pass 3: (height-r)..height - for (; y<height; ++y, s+= width, t+= width) { - unsigned sum = 65536/2; - int y2 = r+height-y; - unsigned char *smy = s; - unsigned* mp = m; - int my=0; - for (; my<y2; ++my, smy+= width, mp+=256) sum+=mp[*smy]; - *t = sum>>16; - } -#endif - } -#endif -} - - -// Gaussian matrix -// Maybe for future use. -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; -} - - -void alpha() { - unsigned int ttime; - 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 - int const o_size = o_w * o_w; - double const A = log(1.0/base)/(radius*radius*2); - double volume_factor=0.0; - double volume_diff; - - 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 *gt = (unsigned*)malloc(256 * g_w * sizeof(unsigned)); - unsigned *gt2 = (unsigned*)malloc(256 * g_w * sizeof(unsigned)); - unsigned *om = (unsigned*)malloc(o_w*o_w * sizeof(unsigned)); - unsigned char *omt = malloc(o_size*256); - unsigned char *omtp = omt; - unsigned short *tmp = malloc((width+1)*height*sizeof(short)); - - if (g==NULL || gt==NULL || gt2==NULL || om==NULL || omt==NULL) ERROR("malloc failed."); - - // gaussian curve with volume = 256 - for (volume_diff=10000000; volume_diff>0.0000001; volume_diff*=0.5){ - volume_factor+= volume_diff; - volume=0; - for (i = 0; i<g_w; ++i) { - g[i] = (unsigned)(exp(A * (i-g_r)*(i-g_r)) * volume_factor + .5); - volume+= g[i]; - } - if(volume>256) volume_factor-= volume_diff; - } - volume=0; - for (i = 0; i<g_w; ++i) { - g[i] = (unsigned)(exp(A * (i-g_r)*(i-g_r)) * volume_factor + .5); - volume+= g[i]; - if (DEBUG) eprintf("%3i ", g[i]); - } - - //volume *= volume; - if (DEBUG) eprintf("\n"); - - // gauss table: - for(mx=0;mx<g_w;mx++){ - for(i=0;i<256;i++){ - gt[256*mx+i] = (i*g[mx]*65536+(volume/2))/volume; - gt2[mx+i*g_w] = i*g[mx]; - } - } - - /* 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"); - - // outline table: - for(i=0;i<256;i++){ - for(mx=0;mx<o_size;mx++) *(omtp++) = (i*om[mx] + (base/2))/base; - } - - ttime=GetTimer(); - if(thickness==1.0) - outline1(bbuffer, abuffer, width, height); // FAST solid 1 pixel outline - else - outline(bbuffer, abuffer, width, height, omt, o_r, o_w, o_size); // solid outline - //outline(bbuffer, abuffer, width, height, gm, g_r, g_w); // Gaussian outline - ttime=GetTimer()-ttime; - printf("outline: %7d us\n",ttime); - - ttime=GetTimer(); -// blur(abuffer, bbuffer, width, height, g, g_r, g_w, volume); - blur(abuffer, tmp, width, height, gt, gt2, g_r, g_w, volume); - ttime=GetTimer()-ttime; - printf("gauss: %7d us\n",ttime); - - free(g); - free(om); -} - - -void usage() { - printf("Usage: %s [--outdir dir] [--append] [--unicode] [--blur b] [--outline o] encoding ppem font\n", command); - printf("\n" - " Program creates 3 files: font.desc, <encoding>-a.raw, <encoding>-b.raw.\n" - "\n" - " --outdir output directory to place files.\n" - " --append append results to existing font.desc, suppress info header.\n" - " --unicode use Unicode in font.desc. This will work with -utf8 option of mplayer.\n" - " --blur b specify blur radius, float.\n" - " --outline o specify outline thickness, float.\n" - " encoding must be an 8 bit encoding, like iso-8859-2, or path to custom encoding file (see README).\n" - " To list encodings available on your system use iconv --list.\n" - " ppem Font size in pixels (default 24), float.\n" - " font Font file path. Any format supported by the freetype library (*.ttf, *.pfb, ...).\n" - ); - exit(1); -} - - -void parse_args(int argc, char **argv) { - int i, a = 0; - double d; - - command = strrchr(argv[a], '/'); - if (command==NULL) command = argv[a]; - else ++command; - ++a; --argc; - - if (argc>=1 && strcmp(argv[a], "--outdir")==0) { - ++a; --argc; - if (argc==0) usage(); - - outdir = strdup(argv[a]); - ++a; --argc; - } - - if (argc>=1 && strcmp(argv[a], "--append")==0) { - append_mode = 1; - ++a; --argc; - } - - if (argc>=1 && strcmp(argv[a], "--unicode")==0) { - unicode_desc = 1; - ++a; --argc; - } - - if (argc>=1 && strcmp(argv[a], "--blur")==0) { - ++a; --argc; - if (argc==0) usage(); - - d = atof(argv[a]); - if (d>=0 && d<20) radius = d; - else WARNING("using default blur radius."); - ++a; --argc; - } - - if (argc>=1 && strcmp(argv[a], "--outline")==0) { - ++a; --argc; - if (argc==0) usage(); - - d = atof(argv[a]); - if (d>=0 && d<20) thickness = d; - else WARNING("using default outline thickness."); - ++a; --argc; - } - - if (argc<3) usage(); - - // encoding - if (argv[a][0]!=0) - encoding = argv[a]; - encoding_name = strrchr(encoding, '/'); - if (!encoding_name) encoding_name=encoding; - else ++encoding_name; - ++a; --argc; - - // ppem - d = atof(argv[a]); - if (d>2.) ppem = d; - ++a; --argc; - - // font - font_path = argv[a]; - ++a; --argc; -} - - -int main(int argc, char **argv) { - unsigned int ttime; - parse_args(argc, argv); - - padding = ceil(radius) + ceil(thickness); - - ttime=GetTimer(); - prepare_charset(); - ttime=GetTimer()-ttime; - printf("charset: %7d us\n",ttime); - - ttime=GetTimer(); - render(); - ttime=GetTimer()-ttime; - printf("render: %7d us\n",ttime); - - write_bitmap(bbuffer, 'b'); - - abuffer = (unsigned char*)malloc(width*height); - if (abuffer==NULL) ERROR("malloc failed."); - memset(abuffer, 0, width*height); - alpha(); - write_bitmap(abuffer, 'a'); - - free(bbuffer); - free(abuffer); - -// fflush(stderr); - return 0; -} |