15c6c1daeSBarry Smith /* 25c6c1daeSBarry Smith Defines the internal data structures for the X-windows 35c6c1daeSBarry Smith implementation of the graphics functionality in PETSc. 45c6c1daeSBarry Smith */ 55c6c1daeSBarry Smith 65c6c1daeSBarry Smith #if !defined(_XIMPL_H) 75c6c1daeSBarry Smith #define _XIMPL_H 8af0996ceSBarry Smith #include <petsc/private/drawimpl.h> 95c6c1daeSBarry Smith 105c6c1daeSBarry Smith #include <X11/Xlib.h> 115c6c1daeSBarry Smith #include <X11/Xutil.h> 125c6c1daeSBarry Smith 135c6c1daeSBarry Smith typedef unsigned long PetscDrawXiPixVal; 145c6c1daeSBarry Smith 155c6c1daeSBarry Smith typedef struct { 165c6c1daeSBarry Smith GC set; 175c6c1daeSBarry Smith PetscDrawXiPixVal cur_pix; 185c6c1daeSBarry Smith } PetscDrawXiGC; 195c6c1daeSBarry Smith 205c6c1daeSBarry Smith typedef struct { 215c6c1daeSBarry Smith Font fnt; 225c6c1daeSBarry Smith int font_w,font_h; 235c6c1daeSBarry Smith int font_descent; 245c6c1daeSBarry Smith PetscDrawXiPixVal font_pix; 255c6c1daeSBarry Smith } PetscDrawXiFont; 265c6c1daeSBarry Smith 275c6c1daeSBarry Smith typedef struct { 28*f4e3882fSLisandro Dalcin Display *disp; /* Display */ 29*f4e3882fSLisandro Dalcin int screen; /* Screen of display */ 305c6c1daeSBarry Smith Visual *vis; /* Graphics visual */ 315c6c1daeSBarry Smith int depth; /* Depth of visual */ 32*f4e3882fSLisandro Dalcin PetscDrawXiGC gc; /* Graphics context */ 33*f4e3882fSLisandro Dalcin PetscDrawXiFont *font; /* Current font */ 34*f4e3882fSLisandro Dalcin Window win; /* Window */ 35*f4e3882fSLisandro Dalcin Drawable drw; /* Pixmap */ 36*f4e3882fSLisandro Dalcin Colormap cmap; /* Colormap */ 37*f4e3882fSLisandro Dalcin int cmapsize; /* Number of allocated colors */ 38*f4e3882fSLisandro Dalcin PetscDrawXiPixVal foreground; /* Foreground pixel */ 39*f4e3882fSLisandro Dalcin PetscDrawXiPixVal background; /* Background pixel */ 40*f4e3882fSLisandro Dalcin PetscDrawXiPixVal cmapping[256]; /* Map color -> pixel value */ 41*f4e3882fSLisandro Dalcin unsigned char cpalette[256][3]; /* Map color -> RGB value*/ 42*f4e3882fSLisandro Dalcin int x,y,w,h; /* Location and size window */ 435c6c1daeSBarry Smith } PetscDraw_X; 445c6c1daeSBarry Smith 455c6c1daeSBarry Smith #define PetscDrawXiDrawable(w) ((w)->drw ? (w)->drw : (w)->win) 465c6c1daeSBarry Smith 47*f4e3882fSLisandro Dalcin PETSC_STATIC_INLINE void PetscDrawXiSetPixVal(PetscDraw_X *W,PetscDrawXiPixVal pix) 48*f4e3882fSLisandro Dalcin { if (W->gc.cur_pix != pix) { XSetForeground(W->disp,W->gc.set,pix); W->gc.cur_pix = pix; } } 495c6c1daeSBarry Smith 50*f4e3882fSLisandro Dalcin #if defined(PETSC_USE_DEBUG) 51*f4e3882fSLisandro Dalcin #define PetscDrawXiValidColor(W,color) \ 52*f4e3882fSLisandro Dalcin do { if (PetscUnlikely((color)<0||(color)>=256)) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Color value %D out of range [0..255]",(PetscInt)(color)); } while (0) 53*f4e3882fSLisandro Dalcin #else 54*f4e3882fSLisandro Dalcin #define PetscDrawXiCheckColor(W,color) do {} while (0) 55*f4e3882fSLisandro Dalcin #endif 56*f4e3882fSLisandro Dalcin 57*f4e3882fSLisandro Dalcin #define PetscDrawXiSetColor(W,color) do { PetscDrawXiValidColor(W,color); PetscDrawXiSetPixVal(W,(W)->cmapping[(color)]); } while (0) 585c6c1daeSBarry Smith 5909440f25SLisandro Dalcin PETSC_INTERN PetscErrorCode PetscDrawXiInit(PetscDraw_X*,const char[]); 6009440f25SLisandro Dalcin PETSC_INTERN PetscErrorCode PetscDrawXiClose(PetscDraw_X*); 6109440f25SLisandro Dalcin PETSC_INTERN PetscErrorCode PetscDrawXiFontFixed(PetscDraw_X*,int,int,PetscDrawXiFont**); 6209440f25SLisandro Dalcin PETSC_INTERN PetscErrorCode PetscDrawXiColormap(PetscDraw_X*); 6309440f25SLisandro Dalcin PETSC_INTERN PetscErrorCode PetscDrawXiQuickWindow(PetscDraw_X*,char*,int,int,int,int); 6409440f25SLisandro Dalcin PETSC_INTERN PetscErrorCode PetscDrawXiQuickWindowFromWindow(PetscDraw_X*,Window); 6509440f25SLisandro Dalcin PETSC_INTERN PetscErrorCode PetscDrawXiQuickPixmap(PetscDraw_X*); 6609440f25SLisandro Dalcin 675c6c1daeSBarry Smith #endif 68