openX.c

Go to the documentation of this file.

 
#include "openX.h"
 
 
#ifndef DISABLE_X11
 
 
openX  disp_image(WSGraph gd, int lc, int hc, int cflg) 
{
    int  i, j, sl, sh;
    char *image;
    int  nc = COLOR_NUM;
    int  width, height, dpth, dpb;
    int  tmp, col;
    unsigned short int* pnt;
 
    sWord *imagewk;
    XImage  *ximg;
    Visual  *visl;
    Pixmap  pmap;
    openX   xid;
 
    width   = gd.xs;
    height  = gd.ys;
    imagewk = gd.gp;
 
    xid = displayOpen(gd.xs, gd.ys, cflg);
 
    sl = sh = 1; 
    if (hc<=0) sh = -1;
    if (lc<0) {
        sl = -1;
        lc = SINTMAX;
    }
    if (sl<0 || sh<0) {
        for(i=0; i<width*height; i++){
            tmp = *(imagewk + i);
            if (sl<0) lc = Min(lc, tmp); 
            if (sh<0) hc = Max(hc, tmp); 
        }
    }
    hc = Max(hc, lc+2);
  
    visl = DefaultVisual(xid.display, xid.screen);
    dpth = DefaultDepth (xid.display, xid.screen);
    dpb  = dpth/8;
    if (dpb==3 && COLOR_DEPTH>=32) dpb = 4;
 
    image = (char*)malloc(width*height*dpb);
    if (image!=NULL) memset(image, 0, width*height*dpb);
 
    for(i=0; i<width*height; i++){
        tmp = *(imagewk + i);
        if (tmp>hc) tmp = hc;  
        if (tmp<lc) tmp = lc;
        if (cflg==MONOC) tmp = (int)((double)(tmp-lc)*(nc-1)/(double)(hc-lc));
        else             tmp = (int)(nc-(double)(tmp-lc)*(nc-1)/(double)(hc-lc)-1);
 
        col = xid.color_index[tmp];
        if (dpb>=3) {
            for (j=0; j<dpb; j++) image[dpb*i+j] = col;     // 24,32bit
        }
        else {                                              // 16bit
            pnt = (unsigned short int*)&(image[dpb*i]);
            *pnt = col;
        }
    }
 
    pmap = XCreatePixmap(xid.display, xid.window, width, height, dpth);
    ximg = XCreateImage(xid.display,visl,dpth,ZPixmap,0,(char*)image,width,height,8,0);
    XPutImage(xid.display, pmap, xid.gc, ximg, 0, 0, 0, 0, width, height);
    XSetWindowBackgroundPixmap(xid.display, xid.window, pmap);
    XMapWindow  (xid.display, xid.window);
    XClearWindow(xid.display, xid.window);
    XFlush(xid.display);
 
    xid.id = 1;
    return xid;
}
 
 
void  displayClose(openX xid)
{
    if (xid.id >= 0) {
        free(xid.color_index);
        XFreeGC(xid.display, xid.gc);
        XDestroyWindow(xid.display, xid.window);
        XCloseDisplay(xid.display);
        xid.id = -1;
    }
}
 
 
openX  displayOpen(int xs, int ys, int cflg)
{
    Window     root_window;
    XSizeHints hint;
    XColor     color;
    Colormap   cmap;
    XSetWindowAttributes at;
    openX xid;
 
    int  ir, ig, ib;
    unsigned long foreground, background;
    unsigned short values[] = {0x0, 0x4444, 0x8888, 0xcccc, 0xffff};
 
    hint.x = 0;
    hint.y = 0;
    hint.width  = xs;
    hint.height = ys;
    hint.flags  = PPosition|PSize;
 
    xid.display = XOpenDisplay(NULL);
    root_window = DefaultRootWindow(xid.display);
 
    xid.screen  = DefaultScreen(xid.display);
    foreground  = WhitePixel(xid.display, xid.screen);
    background  = BlackPixel(xid.display, xid.screen);
 
    xid.window  = XCreateSimpleWindow(xid.display, root_window, hint.x, hint.y, 
              hint.width, hint.height, 5, foreground, background);
    XSetStandardProperties(xid.display,xid.window,"openX","openX",None,NULL,0,&hint);
 
    xid.gc = XCreateGC(xid.display, xid.window, 0, 0);
    XSetBackground(xid.display, xid.gc, background);
    XSetForeground(xid.display, xid.gc, foreground);
 
    at.backing_store = WhenMapped;
    at.bit_gravity = CenterGravity;
    XChangeWindowAttributes(xid.display, xid.window, CWBackingStore, &at);
    XChangeWindowAttributes(xid.display, xid.window, CWBitGravity,   &at);
 
    XSelectInput(xid.display, xid.window, ButtonPressMask|KeyPressMask|ExposureMask);
    XMapRaised(xid.display, xid.window);
 
    cmap = DefaultColormap(xid.display, xid.screen);
    xid.color_index = (long unsigned int*)malloc(COLOR_NUM*sizeof(long));
    if (xid.color_index!=NULL) memset(xid.color_index, 0, COLOR_NUM*sizeof(long));
 
    for (ir = 0; ir < 5; ir++) {
        for (ig = 0; ig < 5; ig++) {
            for (ib = 0; ib < 5; ib++) {
                if (cflg==MONOC) {  // MONO 
                    color.red = (int)((ir+5.*ig+ib*25.)/(double)COLOR_NUM*65532.);
                    color.green = color.blue = color.red;
                }
                else {
                    color.red   = values[ir];
                    color.green = values[ig];
                    color.blue  = values[ib];
                }
                XAllocColor(xid.display, cmap, &color);
                xid.color_index[ir+5*ig+25*ib] = color.pixel;
            }
        }
    }
 
    xid.id = 0;
    set_color(xid, 0.0, 0.0, 0.0);
    return xid;
}
 
 
void  set_color(openX xid, double r, double g, double b)
{
    int ir, ig, ib;
 
    r = Max(0.0, Min(r, 1.0));
    g = Max(0.0, Min(g, 1.0));
    b = Max(0.0, Min(b, 1.0));
 
    ir = (int)(4*r + 0.5);
    ig = (int)(4*g + 0.5);
    ib = (int)(4*b + 0.5);
 
    XSetForeground(xid.display, xid.gc, xid.color_index[ir+5*ig+25*ib]);
}
 
 
#endif  // DISABLE_X11