#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#if 1

#define UNIT (1000/16)

#define ASCENT 800

#define DESCENT 200

#else

#define UNIT (1000/fontsize)

#define ASCENT ascent*UNIT

#define DESCENT descent*UNIT

#endif

char line[256];

char *fontname;

char *facename;

char *familyname;

char *charname;

int fontsize;

int fbbox;

int ascent;

int descent;

int fbbx[4];

int encoding;

int swidth;

int dwidth;

int bbx[4];

char bitmap[256][256];

int charcount = 0;

#define get1(buf,x) ((buf[x >> 3] >> ( 7 - (x & 7) ) ) & 1 )

void

emithead(void)

{

puts("SplineFontDB: 3.0");

puts("Weight: Medium");

puts("Version: 001.000");

puts("ItalicAngle: 0");

puts("UnderlinePosition: -100");

puts("UnderlineWidth: 50");

puts("LayerCount: 2");

puts("Layer: 0 0 \"Back\" 1");

puts("Layer: 1 0 \"Fore\" 0");

puts("OS2Version: 0");

puts("OS2_WeightWidthSlopeOnly: 0");

puts("OS2_UseTypoMetrics: 1");

puts("OS2TypoAscent: 0");

puts("OS2TypoAOffset: 1");

puts("OS2TypoDescent: 0");

puts("OS2TypoDOffset: 1");

puts("OS2TypoLinegap: 0");

puts("OS2WinAscent: 0");

puts("OS2WinAOffset: 1");

puts("OS2WinDescent: 0");

puts("OS2WinDOffset: 1");

puts("HheadAscent: 0");

puts("HheadAOffset: 1");

puts("HheadDescent: 0");

puts("HheadDOffset: 1");

puts("OS2Vendor: 'PfEd'");

// puts("DEI: 91125");

puts("GaspTable: 1 65535 0");

puts("Encoding: ISO8859-1");

puts("UnicodeInterp: none");

puts("NameList: Adobe Glyph List");

puts("AntiAlias: 1");

puts("FitToEm: 1");

puts("WinInfo: 0 29 15");

puts("OnlyBitmaps: 1");

puts("DisplaySize: -24");

if (facename[0] == '"')

facename++;

if (facename[strlen(facename)-1] == '"')

facename[strlen(facename)-1] = 0;

if (familyname[0] == '"')

familyname++;

if (familyname[strlen(familyname)-1] == '"')

familyname[strlen(familyname)-1] = 0;

printf("FontName: %s\n", fontname);

printf("FullName: %s\n", facename);

printf("FamilyName: %s\n", familyname);

printf("Ascent: %d\n", ASCENT);

printf("Descent: %d\n", DESCENT);

printf("BeginChars: 256 256\n");

}

int

unhex(int c)

{

if (c >= '0' && c <= '9')

return c - '0';

if (c >= 'a' && c <= 'f')

return c - 'a' + 10;

if (c >= 'A' && c <= 'F')

return c - 'A' + 10;

return 0;

}

void

unhexrow(char *raw, char *hex)

{

int a, b;

while (hex[0] && hex[1])

{

a = hex[0];

b = hex[1];

hex += 2;

*raw++ = unhex(a) * 16 + unhex(b);

}

*raw = 0;

}

void

readbitmap(void)

{

int y;

for (y = 0; y < bbx[1]; y++)

{

gets(line);

unhexrow(bitmap[y], line);

}

}

void

emitchar(void)

{

int x, y, c, row, col;

int p = 0;

printf("StartChar: %s\n", charname);

printf("Encoding: %d %d %d\n", encoding, encoding, ++charcount);

printf("Width: %d\n", dwidth * UNIT);

printf("Fore\n");

printf("SplineSet\n");

for (row=0; row<bbx[1]; row++)

{

for (col=0; col<bbx[0]; col++)

{

c = get1(bitmap[row], col);

if (c)

{

x = (bbx[2] + col) * UNIT;

y = (bbx[3] + bbx[1] - row - 1) * UNIT;

printf("%d %d m 1,%d,-1\n", x, y+UNIT, p++);

printf("%d %d l 1,%d,-1\n", x+UNIT, y+UNIT, p++);

printf("%d %d l 1,%d,-1\n", x+UNIT, y, p++);

printf("%d %d l 1,%d,-1\n", x, y, p++);

printf("%d %d l 1,%d,-1\n", x, y+UNIT, p-4);

}

// putchar(c ? '#' : '_');

}

// putchar('\n');

}

printf("EndSplineSet\n");

printf("EndChar\n");

}

int

main(int argc, char **argv)

{

while(gets(line))

{

if (strstr(line, "FONT ") == line)

fontname = strdup(line + 5);

if (strstr(line, "FACE_NAME ") == line)

facename = strdup(line + 10);

if (strstr(line, "FAMILY_NAME ") == line)

familyname = strdup(line + 12);

if (strstr(line, "PIXEL_SIZE ") == line)

sscanf(line, "%*s %d", &fontsize);

if (strstr(line, "FONTBOUNDINGBOX") == line)

sscanf(line, "%*s %d %d %d %d", fbbx+0, fbbx+1, fbbx+2, fbbx+3);

if (strstr(line, "FONT_ASCENT") == line)

sscanf(line, "%*s %d", &ascent);

if (strstr(line, "FONT_DESCENT") == line)

sscanf(line, "%*s %d", &descent);

if (strstr(line, "ENDPROPERTIES") == line)

emithead();

if (strstr(line, "STARTCHAR") == line)

charname = strdup(line + 10);

if (strstr(line, "ENCODING") == line)

encoding = atoi(line + 9);

if (strstr(line, "SWIDTH") == line)

swidth = atoi(line + 7);

if (strstr(line, "DWIDTH") == line)

dwidth = atoi(line + 7);

if (strstr(line, "BBX") == line)

sscanf(line + 4, "%d %d %d %d", bbx+0, bbx+1, bbx+2, bbx+3);

if (strstr(line, "BITMAP") == line)

readbitmap();

if (strstr(line, "ENDCHAR") == line)

emitchar();

}

}