Sweden-Number/tools/sfnt2fnt.c

384 lines
11 KiB
C

/*
* sfnttofnt. Bitmap only ttf to Window fnt file converter
*
* Copyright 2004 Huw Davies
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "config.h"
#include <assert.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#ifdef HAVE_FREETYPE
#ifdef HAVE_FT2BUILD_H
#include <ft2build.h>
#endif
#include FT_FREETYPE_H
#include FT_SFNT_NAMES_H
#include FT_TRUETYPE_TABLES_H
#include "wine/unicode.h"
#include "wine/wingdi16.h"
#include "wingdi.h"
#include "pshpack1.h"
typedef struct
{
WORD dfVersion;
DWORD dfSize;
char dfCopyright[60];
} FNT_HEADER;
typedef struct {
WORD width;
DWORD offset;
} CHAR_TABLE_ENTRY;
#include "poppack.h"
void usage(char **argv)
{
fprintf(stderr, "%s foo.ttf ppem enc dpi def_char avg_width\n", argv[0]);
return;
}
int lookup_charset(int enc)
{
/* FIXME: make winelib app and use TranslateCharsetInfo */
switch(enc) {
case 1250:
return EE_CHARSET;
case 1251:
return RUSSIAN_CHARSET;
case 1252:
return ANSI_CHARSET;
case 1253:
return GREEK_CHARSET;
case 1254:
return TURKISH_CHARSET;
case 1255:
return HEBREW_CHARSET;
case 1256:
return ARABIC_CHARSET;
case 1257:
return BALTIC_CHARSET;
case 1258:
return VIETNAMESE_CHARSET;
case 437:
case 737:
case 775:
case 850:
case 852:
case 855:
case 857:
case 860:
case 861:
case 862:
case 863:
case 864:
case 865:
case 866:
case 869:
return OEM_CHARSET;
case 874:
return THAI_CHARSET;
case 932:
return SHIFTJIS_CHARSET;
case 936:
return GB2312_CHARSET;
case 949:
return HANGUL_CHARSET;
case 950:
return CHINESEBIG5_CHARSET;
}
fprintf(stderr, "Unknown encoding %d - using OEM_CHARSET\n", enc);
return OEM_CHARSET;
}
static void fill_fontinfo(FT_Face face, int enc, FILE *fp, int dpi, unsigned char def_char, int avg_width)
{
int ascent, il, ppem, descent, width_bytes = 0, space_size, max_width = 0;
FNT_HEADER hdr;
FONTINFO16 fi;
BYTE left_byte, right_byte, byte;
DWORD start;
CHAR_TABLE_ENTRY *dfCharTable;
int i, x, y, x_off, x_end, first_char;
FT_Int gi;
int num_names;
const union cptable *cptable;
FT_SfntName sfntname;
TT_OS2 *os2;
cptable = wine_cp_get_table(enc);
if(!cptable) {
fprintf(stderr, "Can't find codepage %d\n", enc);
exit(0);
}
if(cptable->info.char_size != 1) {
fprintf(stderr, "Can't cope with double byte codepages\n");
exit(0);
}
ppem = face->size->metrics.y_ppem;
start = sizeof(FNT_HEADER) + sizeof(FONTINFO16);
if(FT_Load_Char(face, 0xc5, FT_LOAD_DEFAULT)) {
fprintf(stderr, "Can't find Aring\n");
exit(0);
}
ascent = face->glyph->metrics.height >> 6;
descent = ppem - ascent;
if(FT_Load_Char(face, 'M', FT_LOAD_DEFAULT)) {
fprintf(stderr, "Can't find M\n");
exit(0);
}
il = ascent - (face->glyph->metrics.height >> 6);
/* Hack: Courier has no internal leading, so we do likewise */
if(!strcmp(face->family_name, "Wine Courier"))
il = 0;
first_char = FT_Get_First_Char(face, &gi);
if(first_char == 0xd) /* fontforge's first glyph is 0xd, we'll catch this and skip it */
first_char = 32; /* FT_Get_Next_Char for some reason returns too high
number in this case */
dfCharTable = malloc((255 + 3) * sizeof(*dfCharTable));
memset(dfCharTable, 0, (255 + 3) * sizeof(*dfCharTable));
memset(&fi, 0, sizeof(fi));
fi.dfFirstChar = first_char;
fi.dfLastChar = 0xff;
start += ((unsigned char)fi.dfLastChar - (unsigned char)fi.dfFirstChar + 3 ) * sizeof(*dfCharTable);
num_names = FT_Get_Sfnt_Name_Count(face);
for(i = 0; i <num_names; i++) {
FT_Get_Sfnt_Name(face, i, &sfntname);
if(sfntname.platform_id == 1 && sfntname.encoding_id == 0 &&
sfntname.language_id == 0 && sfntname.name_id == 0) {
size_t len = min( sfntname.string_len, sizeof(hdr.dfCopyright)-1 );
memcpy(hdr.dfCopyright, sfntname.string, len);
hdr.dfCopyright[len] = 0;
}
}
os2 = FT_Get_Sfnt_Table(face, ft_sfnt_os2);
for(i = first_char; i < 0x100; i++) {
gi = FT_Get_Char_Index(face, cptable->sbcs.cp2uni[i]);
if(gi == 0)
fprintf(stderr, "Missing glyph for char %04x\n", cptable->sbcs.cp2uni[i]);
if(FT_Load_Char(face, cptable->sbcs.cp2uni[i], FT_LOAD_DEFAULT)) {
fprintf(stderr, "error loading char %d - bad news!\n", i);
continue;
}
dfCharTable[i].width = face->glyph->metrics.horiAdvance >> 6;
dfCharTable[i].offset = start + (width_bytes * ppem);
width_bytes += ((face->glyph->metrics.horiAdvance >> 6) + 7) >> 3;
if(max_width < (face->glyph->metrics.horiAdvance >> 6))
max_width = face->glyph->metrics.horiAdvance >> 6;
}
/* space */
space_size = (ppem + 3) / 4;
dfCharTable[i].width = space_size;
dfCharTable[i].offset = start + (width_bytes * ppem);
width_bytes += (space_size + 7) >> 3;
/* sentinel */
dfCharTable[++i].width = 0;
dfCharTable[i].offset = start + (width_bytes * ppem);
fi.dfType = 0;
fi.dfPoints = ((ppem - il) * 72 + dpi/2) / dpi;
fi.dfVertRes = dpi;
fi.dfHorizRes = dpi;
fi.dfAscent = ascent;
fi.dfInternalLeading = il;
fi.dfExternalLeading = 0;
fi.dfItalic = (face->style_flags & FT_STYLE_FLAG_ITALIC) ? 1 : 0;
fi.dfUnderline = 0;
fi.dfStrikeOut = 0;
fi.dfWeight = os2->usWeightClass;
fi.dfCharSet = lookup_charset(enc);
fi.dfPixWidth = (face->face_flags & FT_FACE_FLAG_FIXED_WIDTH) ?
avg_width : 0;
fi.dfPixHeight = ppem;
fi.dfPitchAndFamily = FT_IS_FIXED_WIDTH(face) ? 0 : TMPF_FIXED_PITCH;
switch(os2->panose[PAN_FAMILYTYPE_INDEX]) {
case PAN_FAMILY_SCRIPT:
fi.dfPitchAndFamily |= FF_SCRIPT;
break;
case PAN_FAMILY_DECORATIVE:
case PAN_FAMILY_PICTORIAL:
fi.dfPitchAndFamily |= FF_DECORATIVE;
break;
case PAN_FAMILY_TEXT_DISPLAY:
if(fi.dfPitchAndFamily == 0) /* fixed */
fi.dfPitchAndFamily = FF_MODERN;
else {
switch(os2->panose[PAN_SERIFSTYLE_INDEX]) {
case PAN_SERIF_NORMAL_SANS:
case PAN_SERIF_OBTUSE_SANS:
case PAN_SERIF_PERP_SANS:
fi.dfPitchAndFamily |= FF_SWISS;
break;
default:
fi.dfPitchAndFamily |= FF_ROMAN;
}
}
break;
default:
fi.dfPitchAndFamily |= FF_DONTCARE;
}
fi.dfAvgWidth = avg_width;
fi.dfMaxWidth = max_width;
fi.dfDefaultChar = def_char - fi.dfFirstChar;
fi.dfBreakChar = ' ' - fi.dfFirstChar;
fi.dfWidthBytes = (width_bytes + 1) & ~1;
fi.dfFace = start + fi.dfWidthBytes * ppem;
fi.dfBitsOffset = start;
fi.dfFlags = 0x10; /* DFF_1COLOR */
fi.dfFlags |= FT_IS_FIXED_WIDTH(face) ? 1 : 2; /* DFF_FIXED : DFF_PROPORTIONAL */
hdr.dfVersion = 0x300;
hdr.dfSize = start + fi.dfWidthBytes * ppem + strlen(face->family_name) + 1;
fwrite(&hdr, sizeof(hdr), 1, fp);
fwrite(&fi, sizeof(fi), 1, fp);
fwrite(dfCharTable + fi.dfFirstChar, sizeof(*dfCharTable), ((unsigned char)fi.dfLastChar - (unsigned char)fi.dfFirstChar) + 3, fp);
for(i = first_char; i < 0x100; i++) {
if(FT_Load_Char(face, cptable->sbcs.cp2uni[i], FT_LOAD_DEFAULT)) {
continue;
}
assert(dfCharTable[i].width == face->glyph->metrics.horiAdvance >> 6);
for(x = 0; x < ((dfCharTable[i].width + 7) / 8); x++) {
for(y = 0; y < ppem; y++) {
if(y < ascent - face->glyph->bitmap_top ||
y >= face->glyph->bitmap.rows + ascent - face->glyph->bitmap_top) {
fputc('\0', fp);
continue;
}
x_off = face->glyph->bitmap_left / 8;
x_end = (face->glyph->bitmap_left + face->glyph->bitmap.width - 1) / 8;
if(x < x_off || x > x_end) {
fputc('\0', fp);
continue;
}
if(x == x_off)
left_byte = 0;
else
left_byte = face->glyph->bitmap.buffer[(y - (ascent - face->glyph->bitmap_top)) * face->glyph->bitmap.pitch + x - x_off - 1];
/* On the last non-trival output byte (x == x_end) have we got one or two input bytes */
if(x == x_end && (face->glyph->bitmap_left % 8 != 0) && ((face->glyph->bitmap.width % 8 == 0) || (x != (((face->glyph->bitmap.width) & ~0x7) + face->glyph->bitmap_left) / 8)))
right_byte = 0;
else
right_byte = face->glyph->bitmap.buffer[(y - (ascent - face->glyph->bitmap_top)) * face->glyph->bitmap.pitch + x - x_off];
byte = (left_byte << (8 - (face->glyph->bitmap_left & 7))) & 0xff;
byte |= ((right_byte >> (face->glyph->bitmap_left & 7)) & 0xff);
fputc(byte, fp);
}
}
}
for(x = 0; x < (space_size + 7) / 8; x++) {
for(y = 0; y < ppem; y++)
fputc('\0', fp);
}
if(width_bytes & 1) {
for(y = 0; y < ppem; y++)
fputc('\0', fp);
}
fprintf(fp, "%s", face->family_name);
fputc('\0', fp);
}
int main(int argc, char **argv)
{
int ppem, enc;
FT_Face face;
FT_Library lib;
int dpi, avg_width;
unsigned int def_char;
FILE *fp;
char output[256];
char name[256];
char *cp;
if(argc != 7) {
usage(argv);
exit(0);
}
ppem = atoi(argv[2]);
enc = atoi(argv[3]);
dpi = atoi(argv[4]);
def_char = atoi(argv[5]);
avg_width = atoi(argv[6]);
if(FT_Init_FreeType(&lib)) {
fprintf(stderr, "ft init failure\n");
exit(0);
}
if(FT_New_Face(lib, argv[1], 0, &face)) {
fprintf(stderr, "Can't open face\n");
usage(argv);
exit(0);
}
if(FT_Set_Pixel_Sizes(face, ppem, ppem)) {
fprintf(stderr, "Can't set size\n");
usage(argv);
exit(0);
}
strcpy(name, face->family_name);
/* FIXME: should add a -o option instead */
for(cp = name; *cp; cp++)
{
if(*cp == ' ') *cp = '_';
else if (*cp >= 'A' && *cp <= 'Z') *cp += 'a' - 'A';
}
sprintf(output, "%s-%d-%d-%d.fnt", name, enc, dpi, ppem);
fp = fopen(output, "w");
fill_fontinfo(face, enc, fp, dpi, def_char, avg_width);
fclose(fp);
exit(0);
}
#else /* HAVE_FREETYPE */
int main(int argc, char **argv)
{
fprintf( stderr, "%s needs to be built with Freetype support\n", argv[0] );
exit(1);
}
#endif /* HAVE_FREETYPE */