Return to sendbitmap.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / blitblt

Annotation of researchv9/jtools/src/blitblt/sendbitmap.c, revision 1.1

1.1     ! root        1: #include <jerq.h>
        !             2: #include <stdio.h>
        !             3: 
        !             4: #ifdef SUNTOOLS
        !             5: #undef F_STORE
        !             6: #define        F_STORE (PIX_DONTCLIP|PIX_SRC)
        !             7: #endif SUNTOOLS
        !             8: 
        !             9: #define SHORTSIZE      16
        !            10: #define SHORT          short
        !            11: 
        !            12: #define sendword(w)    (sendch(w&255),sendch((w>>8)&255))
        !            13: 
        !            14: SHORT buffer[2048/SHORTSIZE], raster[2048/SHORTSIZE];  /* Room to spare */
        !            15: 
        !            16: static int ctype, count; static SHORT *p1, *endraster;
        !            17: FILE *filep, *popen();
        !            18: 
        !            19: sendbitmap(bp,r,filnam)
        !            20: Bitmap *bp; Rectangle r; char *filnam;
        !            21: {
        !            22:        register i; int nrasters, rastwid; Rectangle rrast;
        !            23:        int pflag = 0;
        !            24:        Bitmap *bbuffer;
        !            25: 
        !            26:        if (filnam[0] != '|')
        !            27:                filep=fopen(filnam, "w");
        !            28:        else
        !            29:                filep=popen(filnam+2, "w"), pflag = 1;
        !            30:        if (!filep) {
        !            31:                pflag = 0;
        !            32:                return 1;
        !            33:        }
        !            34: 
        !            35:        nrasters = r.corner.y-r.origin.y;
        !            36:        i        = r.corner.x-r.origin.x;
        !            37:        rastwid  =(i+SHORTSIZE-1)/SHORTSIZE;
        !            38:        bbuffer = balloc(Rect(0,0,rastwid*SHORTSIZE+32,1));
        !            39:        endraster= raster+rastwid-1;
        !            40:        sendword(0);
        !            41:        sendword(r.origin.x - Jfscreen.rect.origin.x);
        !            42:        sendword(r.origin.y - Jfscreen.rect.origin.y);
        !            43:        sendword(r.corner.x - Jfscreen.rect.origin.x);
        !            44:        sendword(r.corner.y - Jfscreen.rect.origin.y);
        !            45: 
        !            46:        rectf(bbuffer,bbuffer->rect,F_CLR);
        !            47:        for (i=0; i<rastwid; i++) raster[i] = 0;
        !            48:        rrast=r;
        !            49:        rectf(bp,r,F_XOR);
        !            50: 
        !            51:        for (; rrast.origin.y<r.corner.y; rrast.origin.y++) {
        !            52:                rrast.corner.y = rrast.origin.y+1;
        !            53:                rectf(bp,rrast,F_XOR);
        !            54:                bitblt(bp,rrast,bbuffer,Pt(0,0),F_STORE);
        !            55:                getrast(bbuffer,buffer);
        !            56:                for (i=0; i<rastwid; i++) raster[i] ^= buffer[i];
        !            57:                sendrast();
        !            58:                for (i=0; i<rastwid; i++) raster[i]  = buffer[i];
        !            59:        }
        !            60: 
        !            61:        bfree(bbuffer);
        !            62:        if (!pflag)
        !            63:                fclose(filep);
        !            64:        else
        !            65:                pclose(filep);
        !            66:        return 0;
        !            67: }
        !            68: 
        !            69: static sendrast()
        !            70: {
        !            71:        SHORT *p2;
        !            72: 
        !            73:        p1=p2=raster;
        !            74:        do {
        !            75:                if (p1 >= p2) {
        !            76:                        p2=p1+1; count=2;
        !            77:                        ctype=(*p1 == *p2);
        !            78: 
        !            79:                } else if ((*p2 == *(p2+1)) == ctype) {
        !            80:                        if (++count >= 127) {
        !            81:                                sendbits();
        !            82:                                p1=p2+2;
        !            83:                        } else p2++;
        !            84: 
        !            85:                } else if (ctype) {
        !            86:                        sendbits();
        !            87:                        p1=p2+1;
        !            88:                        ctype=0;
        !            89: 
        !            90:                } else {
        !            91:                        count--; sendbits();
        !            92:                        p1=p2;
        !            93:                        ctype=1;
        !            94:                }
        !            95:        } while (p2<endraster);
        !            96: 
        !            97:        if (p1 > endraster) return;
        !            98:        if (p2 > endraster) count--;
        !            99:        sendbits();
        !           100: }
        !           101: 
        !           102: static sendbits()
        !           103: {
        !           104:        int c;
        !           105:        c=count; if (ctype) { c += 128; count=1; }
        !           106:        sendch(c);
        !           107:        sendnch(sizeof(SHORT)*count,(char *)p1);
        !           108: }
        !           109: 
        !           110: sendch(c)
        !           111: int c;
        !           112: {
        !           113:        putc(c, filep);
        !           114: }
        !           115: 
        !           116: sendnch(n,str)
        !           117: register int n; register char *str;
        !           118: {
        !           119:        while (n-- > 0)
        !           120:                putc(*str++, filep);
        !           121: }

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