Return to btoc.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / pot

Annotation of researchv9/jerq/src/lib/pot/btoc.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: 
                      3: #define        CHARSIZE        /*((7*972)/368)*/ 9
                      4: 
                      5: #define OX     0
                      6: #define OY     0
                      7: 
                      8: struct Rectangle {
                      9:        short ox, oy;
                     10:        short cx, cy;
                     11: } rect;
                     12: 
                     13: char rasters[2][100] = { 0 };
                     14: 
                     15: main()
                     16: {
                     17:        register unsigned bit=0, byte, h, v;
                     18:        int nrasters, rastwid, i, nw, k, j;
                     19:        long t = time((long *)0);
                     20: 
                     21:        nrasters=getw(stdin);
                     22:        rastwid =getw(stdin);
                     23: 
                     24:        if (rastwid & 0x8000) {
                     25:                rastwid &= ~0x8000;
                     26:                rect.cx = OX + rastwid;
                     27:                rastwid = (rastwid + 15)/16;
                     28:        } else
                     29:                rect.cx = OX + rastwid*16;
                     30: 
                     31:        rect.ox = OX;
                     32:        rect.oy = OY; rect.cy = OY + nrasters;
                     33:        nw = (rect.cx-rect.ox+31)/32;
                     34:        nw *= 4;
                     35: 
                     36:        printf("static Word bits%d[%d] = {\n", t, nrasters*nw/4);
                     37: 
                     38:        for(i=0, v=rect.oy; v<rect.cy; i=1-i, v++) {
                     39:                readrast(i, rastwid, stdin);
                     40:                k = (nw/2+3)/4*4;
                     41:                for(j = 0; j < k; j++)
                     42:                        printf("%s%02x%s", (j%4==0)?"0x":"", rasters[i][j]&255,
                     43:                                (j%4==3)?", ":"");
                     44:                printf("\n");
                     45:                for(; j < nw; j++)
                     46:                        printf("%s%02x%s", (j%4==0)?"0x":"", rasters[i][j]&255,
                     47:                                (j%4==3)?", ":"");
                     48:                printf("\n");
                     49:        }
                     50:        printf("};\n");
                     51:        printf("Bitmap strike = {\n     bits%d,\n", t);
                     52:        printf("        %d,\n", nw/4);
                     53:        printf("        %d, %d, %d, %d,\n", rect.ox, rect.oy, rect.cx, rect.cy);
                     54:        printf("        0,\n};\n");
                     55:        exit(0);
                     56: }
                     57: 
                     58: readrast(n,nw,in)
                     59:        int n, nw; FILE *in;
                     60: {
                     61:        int count, ctype;
                     62:        int nb = nw*2;
                     63:        char *p1 = rasters[n];
                     64: 
                     65:        while (nw>0) {
                     66:                count=getc(in); count &= 255;
                     67:                ctype=count&128; count &= 127;
                     68:                nw -= count; count *= 2;
                     69: 
                     70:                if (ctype) {
                     71:                        fread(p1,2,1,in);
                     72:                        for (count-=2; count>0; count--) {
                     73:                                *(p1+2) = *p1;
                     74:                                p1 += 1;
                     75:                        }
                     76:                        p1 += 2;
                     77:                } else {
                     78:                        fread(p1,count,1,in);
                     79:                        p1 += count;
                     80:                }
                     81:        }
                     82:        while(nb--)
                     83:                rasters[n][nb] ^= rasters[1-n][nb];
                     84: }
                     85: 
                     86: getw(stream)
                     87: FILE *stream;
                     88: {
                     89:        register l, h;
                     90:        l=getc(stream); h=getc(stream); return (h&255)<<8 | (l&255);
                     91: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.