Return to getpoint.c CVS log

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

Annotation of researchv9/jtools/src/sunlib/getpoint.c, revision 1.1

1.1     ! root        1: #include "jerq.h"
        !             2: 
        !             3: /*
        !             4:  * Read back the value of a pixel
        !             5:  */
        !             6: getpoint(b,p)
        !             7: Bitmap *b;
        !             8: Point p;
        !             9: {
        !            10:        int bit;
        !            11: #ifdef X11
        !            12:        XImage *im;
        !            13: 
        !            14:        if(b->flag & BI_OFFSCREEN)
        !            15:                p = sub(p, b->rect.origin);
        !            16:        im = XGetImage(dpy, b->dr, p.x,  p.y, 1, 1, 1, XYPixmap);
        !            17:        bit = (*im->data != 0);
        !            18:        XDestroyImage(im);
        !            19: #endif X11
        !            20: #ifdef SUNTOOLS
        !            21:        if(b->flag & BI_OFFSCREEN) {
        !            22:                p = sub(p, b->rect.origin);
        !            23:                bit = (pr_get((Pixrect *)b->dr, p.x, p.y) != 0);
        !            24:        } else
        !            25:                bit = (pw_get((Pixwin *)b->dr, p.x, p.y) != 0);
        !            26: #endif SUNTOOLS
        !            27:        return (bit);
        !            28: }

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