Return to ToBitmap.c CVS log

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

Annotation of researchv9/jtools/src/sunlib/ToBitmap.c, revision 1.1.1.1

1.1       root        1: #include <jerq.h>
                      2: 
                      3: Bitmap
                      4: ToBitmap(bits, bytewidth, ox, oy, cx, cy)
                      5: char *bits;
                      6: {
                      7:        Bitmap *bm;
                      8:        int dx, dy;
                      9: #ifdef X11
                     10:        XImage *im;
                     11: #endif X11
                     12: #ifdef SUNTOOLS
                     13:        int i, lbytes;
                     14:        char *to;
                     15: #endif SUNTOOLS
                     16: 
                     17:        dx = cx - ox;
                     18:        dy = cy - oy;
                     19:        bm = balloc(Rect(ox, oy, cx, cy));
                     20: #ifdef X11
                     21:        im = XCreateImage(dpy, XDefaultVisual(dpy, 0), 1,
                     22:                                  XYBitmap, 0, bits, dx, dy, 8, bytewidth);
                     23:        XSetForeground(dpy, gc, fgpix);
                     24:        XSetBackground(dpy, gc, bgpix);
                     25:        XSetFunction(dpy, gc, GXcopy);
                     26:        XPutImage(dpy, bm->dr, gc, im, 0, 0, 0, 0, dx, dy);
                     27:        im->data = (char *)0;
                     28:        XDestroyImage(im);
                     29: #endif X11
                     30: #ifdef SUNTOOLS
                     31:        lbytes = mpr_d((Pixrect *)bm->dr)->md_linebytes;
                     32:        to = (char *)mpr_d((Pixrect *)bm->dr)->md_image;
                     33:        for(i = 0; i < dy; i++) {
                     34:                bcopy(bits, to,lbytes);
                     35:                to += lbytes;
                     36:                bits += bytewidth;
                     37:        }
                     38: #endif SUNTOOLS
                     39:        return *bm;
                     40: }

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