/*單個漢字庫字摸提取程序，tc2.0編譯*/
#include "stdio.h"
#include "dos.h"
#include "process.h"
#include "string.h"


void main(void) {
    long int num_bytes,qm,wm;
    unsigned char d,i,j,k,a[132],b[132];
    unsigned char * data;
    unsigned char * hz;
    static unsigned  char dd[103];
    FILE *fp;

    if ((fp=fopen("hzk16f","rb"))==NULL) {
        printf("can't open hzk16\n");
        exit(1);
    }
    clrscr();
    while (1) {

        data=(unsigned char *) malloc(33);
        printf("please input:\n");
        scanf("%s",dd); /*輸入一個漢字*/

        qm=* dd;        /*通過區位碼計算其在hzk16f文件中的偏移地址*/
        qm=qm-161;
        if (qm>87) exit(0);
        wm=* (dd+1);
        wm=wm-161;
        if (wm>94) exit(0);
        num_bytes=((long)qm*94+wm)*32;
        fseek(fp,num_bytes,SEEK_SET);
        fgets(data,33,fp);
        for (i=0;i<32;i++) b[i]=* data++;
        for (i=0;i<32;i+=2) a[i/2]=b[i];
        for (i=0;i<32;i+=2) a[i/2+16]=b[i+1];
        for (i=8;i<16;i++) b[i]=a[i];
        for (i=8;i<16;i++) a[i]=a[i+8];
        for (i=8;i<16;i++) a[i+8]=b[i];

        /*轉換，hzf16f在電腦的儲存格式是以行為字節計算的，一般的lcd都采用以列為字節計算*/
        for (k=0;k<32;k+=8) {
            for (j=0;j<8;j++) {
        		d=0;
                for (i=0;i<8;i++) {
                    if (a[i+k]>=0x80) {
                    	switch (i) {
                        case 0:d+=1;break;
                        case 1:d+=2;break;
                        case 2:d+=4;break;
                        case 3:d+=8;break;
                        case 4:d+=0x10;break;
                        case 5:d+=0x20;break;
                        case 6:d+=0x40;break;
                        case 7:d+=0x80;break;
        				}
        			}
        		}
                for (i=0;i<8;i++) a[i+k]<<=1;
                b[j+k]=d;
    		}
    	}
        clrscr();
        printf("/*%s:*/\n",dd);     /*輸出0x00格式的16進制數*/
        for (k=0;k<32;k+=8) {
            for (j=0;j<8;j++) printf("0x%x,",b[j+k]);
            printf("\n");
    	}
        getch();
    }
}