// font generator for WFBFont by linshier

#include <stdlib.h>
#include <iconv.h>
#include <ft2build.h>
#include FT_FREETYPE_H 

FT_Library m_library;
iconv_t ic;

// gb2312 to unicode
unsigned short to_unicode(char * szStr) 
{ 
  static wchar_t target[3]; 
#if 0
  if((MultiByteToWideChar(CP_ACP, 0, szStr, 2, target, 3)) != 0) 
    return (unsigned short)target[0]; 
#else
  char *inp = szStr;
  char *outp = (char *)target;
  unsigned char *op = (char *)target;
  int inlen = strlen(szStr), outlen = 6;
  if (iconv(ic,(char **)&inp, &inlen, (char **)&outp, &outlen) != -1) 
    return (unsigned short)target[0]; 
  else
    return 0;
#endif
} 

unsigned char islot[5][16 * 16 / 2]; 
unsigned char pspicons[5] = {0xA1, 0xf7, 0xf0, 0xc1, 0xf5};

int render_icon12(const char * szFilename) 
{
  FT_Face face; 
  unsigned char i, j, y; 

  if (FT_New_Face(m_library, szFilename, 0, &face) != 0) 
    return -1; 

  if (FT_Set_Char_Size(face, 0, 20 * 64, 72, 0) != 0) { 
    FT_Done_Face(face); 
    return -1; 
  } 

  for (j = 0; j < 5; j ++) { 
    unsigned char s[3] = {(unsigned char)0xa1, pspicons[j], 0}; 
    unsigned short code = to_unicode((char *)s);
    memset(islot[j], 0, 12 * 12 / 2); 
    if (code && FT_Load_Char(face, code, FT_LOAD_RENDER) == 0) {
      if (face->glyph->bitmap.buffer != NULL && face->glyph->bitmap_top > 0) { 
        if (j == 0) continue;
        unsigned char left = 1;
        for (y = 0; y < face->glyph->bitmap.rows; y++) {
          unsigned char h = 1 + y;
          unsigned char l = face->glyph->bitmap.pitch;
          unsigned char u = 0;
            for (u = 0; u < l; u++)
              islot[j][(h * 12 + left + u) / 2]
              |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + u]
              & 0xF0) >> 4 * (1 - (left + u) & 1);
        }
      }
    }
  } 

  FT_Done_Face(face); 
  return 0; 
}

int render_icon16(const char * szFilename) 
{
  FT_Face face; 
  unsigned char i, j, y; 

  if (FT_New_Face(m_library, szFilename, 0, &face) != 0) 
    return -1; 

  if (FT_Set_Char_Size(face, 0, 30 * 64, 72, 0) != 0) { 
    FT_Done_Face(face); 
    return -1; 
  } 
  for (j = 0; j < 5; j ++) 
  { 
    unsigned char s[3] = {(unsigned char)0xa1, pspicons[j], 0}; 
    unsigned short code = to_unicode((char *)s);
    memset(islot[j], 0, 16 * 16 / 2); 
    if (code && FT_Load_Char(face, code, FT_LOAD_RENDER) == 0) {
      if (face->glyph->bitmap.buffer != NULL && face->glyph->bitmap_top > 0) { 
        if (j == 0) continue;
        unsigned char left = 1;
        for (y = 0; y < face->glyph->bitmap.rows; y++) {
          unsigned char h = 2 + y;
          unsigned char l = face->glyph->bitmap.pitch;
          unsigned char u = 0;
            for (u = 0; u < l; u++)
              islot[j][(h * 16 + left + u) / 2]
              |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + u]
              & 0xF0) >> 4 * (1 - (left + u) & 1);
        }
      }
    }
  } 

  FT_Done_Face(face); 
  return 0; 
}

int render_cn12(const char * szFilename, const char * szOutputname) 
{ 
  unsigned char zslot[12 * 12 / 2]; 
  FT_Face face; 
  FILE * fp; 
  unsigned char i, j, y; 
  int ctr = 0;

  if (FT_New_Face(m_library, szFilename, 0, &face) != 0) 
    return -1; 
 
  if (FT_Set_Char_Size(face, 0, 12 * 64, 72, 0) != 0 || (fp = fopen(szOutputname,"w")) == NULL) { 
    FT_Done_Face(face); 
    return -1; 
  } 
#if 0
  // GBK encoding
  for (i = 0x81; i < 0xFF; i ++) { 
    for (j = 0x40; j < 0xFF; j ++) { 
#else
  // GB2312 encoding
  for (i = 0xA1; i < 0xF8; i ++) { 
    for (j = 0xA1; j < 0xFF; j ++) { 
#endif
      unsigned char s[3] = {(unsigned char)i, (unsigned char)j, 0}; 
      unsigned short code = to_unicode((char *)s);
      memset(zslot, 0, 12 * 12 / 2); 
      if (code && FT_Load_Char(face, code, FT_LOAD_RENDER) == 0) {
        if (face->glyph->bitmap.buffer != NULL && face->glyph->bitmap_top > 0) { 
          unsigned char left = face->glyph->bitmap_left > 0 ? face->glyph->bitmap_left : 0;
          for (y = 0; y < face->glyph->bitmap.rows && y < 12 && y - face->glyph->bitmap_top < 2; y++) {
                  unsigned char h = 12 - 2 - face->glyph->bitmap_top + y;
            unsigned char l = left + face->glyph->bitmap.pitch > 12 ? 
                12 - left : face->glyph->bitmap.pitch;
            unsigned char u = 0;
            if (face->glyph->bitmap_top < 12 - 2) {
              for (u = 0; u < l; u++)
                zslot[(h * 12 + left + u) / 2]
                |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + u]
                & 0xF0) >> 4 * (1 - (left + u) & 1);
            }
            else {
              for (u = 0; u < l; u++)
                zslot[(y * 12 + left + u) / 2]
                |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + u]
                & 0xF0) >> 4 * (1 - (left + u) & 1);
            }
          }
        }
      }
      if (i == 0xA1) {
        switch (j) {
        case 0xA1: memcpy(zslot, islot[0], 12 * 12 / 2); break;
        case 0xF7: memcpy(zslot, islot[1], 12 * 12 / 2); break;
        case 0xF0: memcpy(zslot, islot[2], 12 * 12 / 2); break;
        case 0xC1: memcpy(zslot, islot[3], 12 * 12 / 2); break;
        case 0xF5: memcpy(zslot, islot[4], 12 * 12 / 2); break;
        }
      }
      fwrite(zslot, sizeof(unsigned char), 12 * 12 / 2, fp);
    } 
  } 
  fclose(fp);
  FT_Done_Face(face); 
 
  return 0; 
} 

int render_cn16(const char * szFilename, const char * szOutputname) 
{ 
  unsigned char zslot[16 * 16 / 2]; 
  FT_Face face; 
  FILE * fp; 
  unsigned char i, j, y; 
  int ctr = 0;

  if (FT_New_Face(m_library, szFilename, 0, &face) != 0) 
    return -1; 

  if (FT_Set_Char_Size(face, 0, 16 * 64, 72, 0) != 0 || (fp = fopen(szOutputname,"w")) == NULL) { 
    FT_Done_Face(face); 
    return -1; 
  } 

#if 0
  // GBK encoding
  for (i = 0x81; i < 0xFF; i ++) { 
    for (j = 0x40; j < 0xFF; j ++) { 
#else
  // GB2312 encoding
  for (i = 0xA1; i < 0xF8; i ++) { 
    for (j = 0xA1; j < 0xFF; j ++) { 
#endif
      unsigned char s[3] = {(unsigned char)i, (unsigned char)j, 0}; 
      unsigned short code = to_unicode((char *)s);
      memset(zslot, 0, 16 * 16 / 2); 
      if (code && FT_Load_Char(face, code, FT_LOAD_RENDER) == 0) {
        if (face->glyph->bitmap.buffer != NULL && face->glyph->bitmap_top > 0) { 
          unsigned char left = face->glyph->bitmap_left > 0 ? face->glyph->bitmap_left : 0;
          for (y = 0; y < face->glyph->bitmap.rows && y < 16 && y - face->glyph->bitmap_top < 2; y++) {
                  unsigned char h = 16 - 2 - face->glyph->bitmap_top + y;
            unsigned char l = left + face->glyph->bitmap.pitch > 16 ? 
                16 - left : face->glyph->bitmap.pitch;
            unsigned char u = 0;
            if (face->glyph->bitmap_top < 16 - 2) {
              for (u = 0; u < l; u++)
                zslot[(h * 16 + left + u) / 2]
                |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + u]
                & 0xF0) >> 4 * (1 - (left + u) & 1);
            }
            else {
              for (u = 0; u < l; u++)
                zslot[(y * 16 + left + u) / 2]
                |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + u]
                & 0xF0) >> 4 * (1 - (left + u) & 1);
            }
          }
        }
      }
      if (i == 0xA1) {
        switch (j) {
        case 0xA1: memcpy(zslot, islot[0], 16 * 16 / 2); break;
        case 0xF7: memcpy(zslot, islot[1], 16 * 16 / 2); break;
        case 0xF0: memcpy(zslot, islot[2], 16 * 16 / 2); break;
        case 0xC1: memcpy(zslot, islot[3], 16 * 16 / 2); break;
        case 0xF5: memcpy(zslot, islot[4], 16 * 16 / 2); break;
        }
      }
      fwrite(zslot, sizeof(unsigned char), 16 * 16 / 2, fp);
    } 
  } 
  fclose(fp);
#if 0
  if ((fp = fopen("fallback.gbk.3","w")) == NULL) { 
    FT_Done_Face(face); 
    return -1; 
  } 
  for (i = 0x81; i < 0xA1; i ++) { 
    for (j = 0x40; j < 0xFF; j ++) { 
      unsigned char s[3] = {(unsigned char)i, (unsigned char)j, 0}; 
      unsigned short code = to_unicode((char *)s);
      memset(zslot, 0, 16 * 16 / 4); 
      if (code && FT_Load_Char(face, code, FT_LOAD_RENDER) == 0) {
        if (face->glyph->bitmap.buffer != NULL && face->glyph->bitmap_top > 0) { 
          unsigned char left = face->glyph->bitmap_left > 0 ? face->glyph->bitmap_left : 0;
          for (y = 0; y < face->glyph->bitmap.rows && y < 16 && y - face->glyph->bitmap_top < 2; y++) {
                  unsigned char h = 16 - 2 - face->glyph->bitmap_top + y;
            unsigned char l = left + face->glyph->bitmap.pitch > 16 ? 
                16 - left : face->glyph->bitmap.pitch;
            unsigned char u = 0;
            if (face->glyph->bitmap_top < 16 - 2) {
              for (u = 0; u < l; u++)
                zslot[(h * 16 + left + u) / 4]
                |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + u]
                & 0xC0) >> 2 * (3 - (left + u) & 3);
            }
            else {
              for (u = 0; u < l; u++)
                zslot[(y * 16 + left + u) / 4]
                |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + u]
                & 0xC0) >> 2 * (3 - (left + u) & 3);
            }
          }
        }
      }
      fwrite(zslot, sizeof(unsigned char), 16 * 16 / 4, fp);
    } 
  } 
  fclose(fp);
#endif
  FT_Done_Face(face); 
 
  return 0; 
} 

int render_en12(const char * szFilename, const char * szOutputname) 
{ 
  unsigned char zslot[12 * 6 / 2]; 
  FT_Face face; 
  FILE * fp; 
  unsigned char i, j, y; 
  int ctr = 0;

  if (FT_New_Face(m_library, szFilename, 0, &face) != 0) 
    return -1; 
 
  if (FT_Set_Char_Size(face, 0, 11 * 64, 72, 0) != 0 || (fp = fopen(szOutputname,"w")) == NULL) { 
    FT_Done_Face(face); 
    return -1; 
  } 
  for (i = 0x00; i < 0x7F; i ++) { 
    unsigned short code = i;
    memset(zslot, 0, 12 * 6 / 2); 
    if (code > 0x20 && FT_Load_Char(face, code, FT_LOAD_RENDER) == 0) {
      if (face->glyph->bitmap.buffer != NULL && face->glyph->bitmap_top > 0) { 
        for (y = 0; y < face->glyph->bitmap.rows && y < 12 && y - face->glyph->bitmap_top < 2; y++) {
          unsigned char h = 12 - 2 - face->glyph->bitmap_top + y;
          unsigned char u = 0;
          unsigned char left = face->glyph->bitmap.pitch > 6 ? 1 : 0;
          for (u = 0; u < left + face->glyph->bitmap.pitch; u++)
            zslot[(h * 6 + u) / 2]
              |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + left + u]
                  & 0xF0) >> 4 * (1 - u & 1);
        }
      }
    }
    fwrite(zslot, sizeof(unsigned char), 12 * 6 / 2, fp);
  } 

  fclose(fp);
  FT_Done_Face(face); 
 
  return 0; 
} 

int render_en16(const char * szFilename, const char * szOutputname) 
{ 
  unsigned char zslot[16 * 8 / 2]; 
  FT_Face face; 
  FILE * fp; 
  unsigned char i, j, y; 
  int ctr = 0;

  if (FT_New_Face(m_library, szFilename, 0, &face) != 0) 
    return -1; 
 
  if (FT_Set_Char_Size(face, 0, 14 * 64, 72, 0) != 0 || (fp = fopen(szOutputname,"w")) == NULL) { 
    FT_Done_Face(face); 
    return -1; 
  } 
  for (i = 0x00; i < 0x7F; i ++) { 
    unsigned short code = i;
    memset(zslot, 0, 16 * 8 / 2); 
    if (code > 0x20 && FT_Load_Char(face, code, FT_LOAD_RENDER) == 0) {
      if (face->glyph->bitmap.buffer != NULL && face->glyph->bitmap_top > 0) { 
        for (y = 0; y < face->glyph->bitmap.rows && y < 16 && y - face->glyph->bitmap_top < 2; y++) {
          unsigned char h = 15 - 2 - face->glyph->bitmap_top + y;
          unsigned char u = 0;
          unsigned char left = face->glyph->bitmap.pitch > 8 ? 1 : 0;
          for (u = 0; u < left + face->glyph->bitmap.pitch; u++)
            zslot[(h * 8 + u) / 2]
              |= (face->glyph->bitmap.buffer[y * face->glyph->bitmap.pitch + left + u]
                  & 0xF0) >> 4 * (1 - u & 1);
        }
      }
    }
    fwrite(zslot, sizeof(unsigned char), 16 * 8 / 2, fp);
  } 

  fclose(fp);
  FT_Done_Face(face); 
 
  return 0; 
} 

int main()
{
  if (FT_Init_FreeType(&m_library) != 0) {
    printf("Error initializing freetype library!\n"); 
    return 1;
  }
  ic = iconv_open("unicode", "gb2312");
  if (ic == 0) printf("Error initializing iconv!\n");

  render_icon12("fallback.ttf"); 
  render_cn12("fallback.ttf", "simon.gbk"); 
  render_en12("mono.ttf", "simon.asc"); 
  render_cn12("gkai00mp.ttf", "smallface.gbk"); 
  render_en12("gkai00mp.ttf", "smallface.asc"); 

  render_icon16("fallback.ttf"); 
  render_cn16("fallback.ttf", "f3.gbk"); 
  render_en16("mono.ttf", "f3.asc"); 
  render_cn16("gkai00mp.ttf", "magic.gbk"); 
  render_en16("gkai00mp.ttf", "magic.asc"); 

  iconv_close(ic);
  FT_Done_FreeType(m_library);
  printf("done\n");
  return 0;
}