China DOS Union

/***** From http://www.moon-soft.com/program/doc/docelite1257.htm ****/



/* Asking about the UCDOS vector font algorithm */

/* Reading and displaying vector Chinese characters */

#include <stdio.h>



#include <graphics.h>



#define HZNUM (0xf7 - 0xaf) * (0xfe - 0xa0) /* All Chinese characters except the first 16 areas */

#define HZKSIZE 128 /* Size of Chinese characters */

#define START_X 0

#define START_Y 0

#define VIEW_H 256 /* Height of displayed Chinese characters */

#define VIEW_W 256 /* Width of displayed Chinese characters */

FILE * fp;

struct hz_struct {

  unsigned long shift; /* Offset */

  unsigned int size; /* Size */

}

HZ_Index; /* Chinese character index */

unsigned char buf;

unsigned char dotbuf;

main() {

  long ioffset;

  int i, j;

  char ch;

  int gdriver = DETECT;

  int gmode;

  if ((fp = fopen("hzksly1j", "rb")) == NULL) {

    printf("cano't open the HZlib!");

    exit(1);

  }

  fread(HZ_Index, sizeof(struct hz_struct), HZNUM, fp);

  //if (registerbgidriver(EGAVGA_driver) < 0)

  exit(1);

  initgraph( & gdriver, & gmode, "");

  cleardevice();

  setcolor(LIGHTGRAY);

  for (i = 0; i < HZNUM; i++) {

    Disp_HZ(HZ_Index.size, HZ_Index.shift);

    rectangle(START_X, START_Y, START_X + 256, START_Y + 256);

    ch = getch();

    cleardevice();

    if (ch == 'q')

      break;

  }

  closegraph();

  fclose(fp);

}



/* Display Chinese character */

Disp_HZ(int length, long posi) {

  int i, j, k;

  int x0, y0, x1, y1;

  int hzsize;

  union utype {

    unsigned short size;

    unsigned char str;

  }

  BH;

  if ((fseek(fp, posi, 0)) != 0) {

    printf("seek\"clib\"error!\n");

    exit(0);

  }

  memset(buf, 0, 1024);

  fread(buf, length, 1, fp);

  hzsize = decode(buf, length);

  k = 0;

  for (i = 0; i < hzsize; i++) {

    BH.str = dotbuf;

    BH.str = dotbuf;

    if (BH.size == 0)

      break; /* Each Chinese character ends with 0 */

    x0 = START_X + (dotbuf * VIEW_W) / HZKSIZE;

    y0 = START_Y + (dotbuf * VIEW_H) / HZKSIZE;

    //x0 = START_X + dotbuf;

    //y0 = START_Y + dotbuf;

    moveto(x0, y0);

    for (j = 0; j < BH.size - 1; j++) {

      x1 = START_X + (dotbuf * VIEW_W) / HZKSIZE;

      y1 = START_Y + (dotbuf * VIEW_W) / HZKSIZE;

      //x1 = START_X + dotbuf;

      //y1 = START_Y + dotbuf;

      lineto(x1, y1);

    }

    lineto(x0, y0);

  }

}



/*

 * Restore Chinese character glyphs

 */

decode(p, length)

unsigned char * p;

int length; {

  int k;

  int i, count, lposi, xsum, ysum;

  unsigned char b60;

  char dxfh, dyfh;

  char x0, dx, dy;

  lposi = 0;

  k = 2;

  while ((p - buf) <= length) {

    b60 = * p & 0xc0;

    switch (b60) {

    case 0xc0:

      if (k != 2) {

        dotbuf = (k - lposi - 2) / 2;

        dotbuf = 0;

        lposi = k++;

        k++;

      }

      x0 = ( * p & 0x3f) << 1;

      dx = ( * (p + 1) >> 7) & 0x01;

      dx = dx + x0;

      p++;

      dy = * p++ & 0x7f;

      dotbuf = xsum = dx;

      dotbuf = ysum = dy;

      break;

    case 0x80:

      dxfh = dyfh = 1;

      switch ( * p & 0x30) {

      case 0x00:

        if ( * p & 0x08)

          dxfh = -1;

        dx = * p & 0x07;

        p++;

        if ( * p & 0x80)

          dyfh = -1;

        dy = * p & 0x7f;

        break;

      case 0x10:

        if ( * p & 0x08)

          dyfh = -1;

        dy = * p & 0x07;

        p++;

        if ( * p & 0x80)

          dxfh = -1;

        dx = * p & 0x7f;

        break;

      case 0x20:

      case 0x30:

        p++;

        if ( * p & 0x80)

          dxfh = -1;

        dx = * p & 0x7f;

        p++;

        if ( * p & 0x80)

          dyfh = -1;

        dy = * p & 0x7f;

        break;

      }

      p++;

      xsum += dx * dxfh;

      ysum += dy * dyfh;

      dotbuf = xsum;

      dotbuf = ysum;

      break;

    case 0x40:

      dxfh = * p & 0x30;

      if (dxfh == 0) {

        dxfh = 1;

        dyfh = 1;

      } else if (dxfh == 0x10) {

        dxfh = -1;

        dyfh = 1;

      } else if (dxfh == 0x20) {

        dxfh = -1;

        dyfh = -1;

      } else if (dxfh == 0x30) {

        dxfh = 1;

        dyfh = -1;

      }

      count = * p++ & 0x0f;

      for (i = 0; i < count; i++) {

        dx = * p >> 4;

        dy = * p & 0x0f;

        xsum += dxfh * dx;

        ysum += dyfh * dy;

        dotbuf = xsum;

        dotbuf = ysum;

        p++;

      }

      break;

    case 00:

      count = * p++ & 0x3f;

      for (i = 0; i < count; i++) {

        if ( * p & 0x80)

          dxfh = -1;

        else

          dxfh = 1;

        if ( * p & 0x08)

          dyfh = -1;

        else

          dyfh = 1;

        dx = ( * p & 0x70) >> 4;

        dy = ( * p & 0x07);

        xsum += dx * dxfh;

        ysum += dy * dyfh;

        dotbuf = xsum;

        dotbuf = ysum;

        p++;

      }

    }

  }

  dotbuf = 0;

  dotbuf = 0;

  dotbuf = (k - lposi - 2 - 2) / 2;

  dotbuf = 0;

  return k;

}