Gabriele Cosmo
532 lines
17 KiB
C
532 lines
17 KiB
C
/*
|
|
#define DEBUG
|
|
*/
|
|
|
|
/*this*/
|
|
#include "OpenGLAreaP.h"
|
|
|
|
#include <X11/StringDefs.h>
|
|
|
|
#include <GL/glx.h>
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#ifdef __cplusplus
|
|
extern "C"{
|
|
#endif
|
|
static void InitializeClass(void);
|
|
static void InitializeWidget(Widget, Widget,ArgList,Cardinal*);
|
|
static void RealizeWidget(Widget, XtValueMask*, XSetWindowAttributes*);
|
|
static void DestroyWidget(Widget);
|
|
static void ChangeWidgetSize(Widget);
|
|
static void DrawWidget(Widget, XEvent*, Region);
|
|
static Boolean SetValues(Widget,Widget,Widget,ArgList,Cardinal *);
|
|
|
|
static void EventHandler(Widget,XtPointer,XEvent*,Boolean*);
|
|
static int MakeCurrent(Widget);
|
|
static void XWidgetInstallColormap(Widget);
|
|
static void XWidgetUninstallColormap(Widget);
|
|
static Widget XWidgetGetShell(Widget);
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#define athis ((OpenGLAreaWidget)This)->openGLArea
|
|
#define acur ((OpenGLAreaWidget)a_current)->openGLArea
|
|
#define CWarn printf
|
|
#define CWarnF printf
|
|
|
|
static XtResource resources [] = {
|
|
{XoNdoubleBufferOn,"DoubleBufferOn",XtRBoolean,sizeof(Boolean),
|
|
XtOffset(OpenGLAreaWidget,openGLArea.doubleBufferOn),XtRImmediate,(XtPointer)True},
|
|
{XoNpaintCallback,XtCCallback,XtRCallback,sizeof(XtCallbackList),
|
|
XtOffset(OpenGLAreaWidget,openGLArea.paintCallback),XtRImmediate,(XtPointer)NULL},
|
|
{XoNeventCallback,XtCCallback,XtRCallback,sizeof(XtCallbackList),
|
|
XtOffset(OpenGLAreaWidget,openGLArea.eventCallback),XtRImmediate,(XtPointer)NULL}
|
|
};
|
|
|
|
OpenGLAreaClassRec openGLAreaClassRec = {
|
|
/* Core Class Part */
|
|
{
|
|
(WidgetClass) &compositeClassRec, /* pointer to superclass ClassRec */
|
|
"OpenGLArea", /* widget resource class name */
|
|
sizeof(OpenGLAreaRec), /* size in bytes of widget record */
|
|
InitializeClass, /* class_initialize */
|
|
NULL, /* dynamic initialization */
|
|
FALSE, /* has class been initialized? */
|
|
InitializeWidget, /* initialize */
|
|
NULL, /* notify that initialize called */
|
|
RealizeWidget, /* XCreateWindow for widget */
|
|
NULL, /* widget semantics name to proc mapWidget*/
|
|
0, /* number of entries in actions */
|
|
resources, /* resources for subclass fields */
|
|
XtNumber(resources), /* number of entries in resources */
|
|
NULLQUARK, /* resource class quarkified */
|
|
TRUE, /* compress MotionNotify for widget */
|
|
TRUE, /* compress Expose events for widget*/
|
|
TRUE, /* compress enter and leave events */
|
|
TRUE, /* select for VisibilityNotify */
|
|
DestroyWidget, /* free data for subclass pointers */
|
|
ChangeWidgetSize, /* geom manager changed widget size */
|
|
DrawWidget, /* rediplay window */
|
|
SetValues, /* set subclass resource values */
|
|
NULL, /* notify that SetValues called */
|
|
XtInheritSetValuesAlmost, /* SetValues got "Almost" geo reply*/
|
|
NULL, /* notify that get_values called */
|
|
XtInheritAcceptFocus, /* assign input focus to widget */
|
|
XtVersion, /* version of intrinsics used */
|
|
NULL, /* list of callback offsets */
|
|
XtInheritTranslations, /* translations */
|
|
XtInheritQueryGeometry, /* return preferred geometry */
|
|
XtInheritDisplayAccelerator, /* display your accelerator */
|
|
NULL /* pointer to extension record */
|
|
},
|
|
/* Composite Class Part */
|
|
{
|
|
XtInheritGeometryManager, /* geometry manager for children */
|
|
XtInheritChangeManaged, /* change managed state of child */
|
|
XtInheritInsertChild, /* physically add child to parent */
|
|
XtInheritDeleteChild, /* physically remove child */
|
|
NULL /* pointer to extension record */
|
|
},
|
|
/* OpenGLArea */
|
|
{
|
|
NULL
|
|
}
|
|
|
|
};
|
|
|
|
WidgetClass openGLAreaWidgetClass = (WidgetClass) &openGLAreaClassRec;
|
|
|
|
static void InitializeClass(void) {}
|
|
|
|
static void InitializeWidget(Widget a_request,Widget This,ArgList a_args,Cardinal* a_argn) {
|
|
if(a_request->core.width<=0) This->core.width = 100;
|
|
if(a_request->core.height<=0) This->core.height = 100;
|
|
|
|
#ifdef DEBUG
|
|
printf ("debug : OpenGLArea : InitializeWidget : %s\n",XtName(This));
|
|
#endif
|
|
|
|
athis.visual = CopyFromParent;
|
|
athis.installColormap = False;
|
|
athis.glContext = NULL;
|
|
|
|
{Display* display;
|
|
Screen* screen;
|
|
int iscreen;
|
|
XVisualInfo* vinfo;
|
|
display = XtDisplay(This);
|
|
screen = XtScreen(This);
|
|
iscreen = XScreenNumberOfScreen(screen);
|
|
|
|
{int error,event;
|
|
if(glXQueryExtension(display,&error,&event)==0) {
|
|
CWarn ("X server does not have OpenGL extensions.\n");
|
|
}}
|
|
|
|
if(athis.doubleBufferOn==True) {
|
|
int atbs[] = {
|
|
GLX_RGBA,
|
|
GLX_RED_SIZE, 1,
|
|
GLX_GREEN_SIZE, 1,
|
|
GLX_BLUE_SIZE, 1,
|
|
GLX_ALPHA_SIZE, 1,
|
|
GLX_DEPTH_SIZE, 1,
|
|
GLX_DOUBLEBUFFER,
|
|
None
|
|
};
|
|
vinfo = glXChooseVisual (display,iscreen,atbs);
|
|
if(vinfo==NULL) { /*GLX_ALPHA_SIZE : problem with Xming. Try without it.*/
|
|
int atbs[] = {
|
|
GLX_RGBA,
|
|
GLX_RED_SIZE, 1,
|
|
GLX_GREEN_SIZE, 1,
|
|
GLX_BLUE_SIZE, 1,
|
|
GLX_DEPTH_SIZE, 1,
|
|
GLX_DOUBLEBUFFER,
|
|
None
|
|
};
|
|
vinfo = glXChooseVisual (display,iscreen,atbs);
|
|
}
|
|
} else {
|
|
int atbs[] = {
|
|
GLX_RGBA,
|
|
GLX_RED_SIZE, 1,
|
|
GLX_GREEN_SIZE, 1,
|
|
GLX_BLUE_SIZE, 1,
|
|
GLX_ALPHA_SIZE, 1,
|
|
GLX_DEPTH_SIZE, 1,
|
|
None
|
|
};
|
|
vinfo = glXChooseVisual (display,iscreen,atbs);
|
|
if(vinfo==NULL) { /*GLX_ALPHA_SIZE : problem with Xming. Try without it.*/
|
|
int atbs[] = {
|
|
GLX_RGBA,
|
|
GLX_RED_SIZE, 1,
|
|
GLX_GREEN_SIZE, 1,
|
|
GLX_BLUE_SIZE, 1,
|
|
GLX_DEPTH_SIZE, 1,
|
|
None
|
|
};
|
|
vinfo = glXChooseVisual (display,iscreen,atbs);
|
|
}
|
|
}
|
|
|
|
if(vinfo==NULL) {
|
|
CWarn ("Can't choose a visual.\n");
|
|
} else {
|
|
This->core.depth = vinfo->depth;
|
|
athis.visual = vinfo->visual;
|
|
if( (vinfo->depth ==DefaultDepth (display,iscreen)) &&
|
|
(vinfo->visual==DefaultVisual(display,iscreen)) ) {
|
|
This->core.colormap = XDefaultColormap (display,iscreen);
|
|
athis.installColormap = False;
|
|
} else {
|
|
This->core.colormap =
|
|
XCreateColormap (display,XRootWindow(display,iscreen),vinfo->visual, AllocNone);
|
|
athis.installColormap = True;
|
|
}
|
|
if(This->core.colormap==0L) {
|
|
CWarn ("Can't get/create a X colormap.\n");
|
|
}
|
|
athis.glContext = glXCreateContext (display,vinfo,NULL,GL_FALSE);
|
|
if(athis.glContext==NULL) {
|
|
CWarn ("Can't create a GLX context.\n");
|
|
}
|
|
XFree(vinfo);
|
|
}}
|
|
|
|
XtAddEventHandler(This,ButtonPressMask|ButtonReleaseMask|ButtonMotionMask,0,EventHandler,NULL);
|
|
|
|
#ifdef DEBUG
|
|
printf("debug : OpenGLArea : InitializeWidget : end\n");
|
|
#endif
|
|
|
|
/*avoid C++ warnings*/
|
|
a_request = NULL;
|
|
a_args = NULL;
|
|
a_argn = 0;
|
|
}
|
|
|
|
static void RealizeWidget(Widget This,XtValueMask* a_mask,XSetWindowAttributes* a_watbs) {
|
|
#ifdef DEBUG
|
|
printf("debug : OpenGLArea : RealizeWidget : %s\n",XtName(This));
|
|
#endif
|
|
|
|
/*Have to create window ourselves due to OpenGL that compells it's visual.*/
|
|
/*In principle colormap is correctly set in a_watbs.*/
|
|
|
|
XtCreateWindow(This,(unsigned int)InputOutput,athis.visual,*a_mask,a_watbs);
|
|
|
|
/* Call the Realize procedure (XtInheritRealize) */
|
|
if(openGLAreaWidgetClass->core_class.superclass->core_class.realize!=NULL)
|
|
(openGLAreaWidgetClass->core_class.superclass->core_class.realize)(This, a_mask, a_watbs);
|
|
|
|
/*If window is delete, all seems ok.*/
|
|
if(athis.installColormap==True) XWidgetInstallColormap(This);
|
|
|
|
/*MakeCurrent(This);*/
|
|
|
|
#ifdef DEBUG
|
|
printf("debug : OpenGLArea : RealizeWidget : end\n");
|
|
#endif
|
|
}
|
|
|
|
static void DestroyWidget(Widget This) {
|
|
if(athis.installColormap==True) {
|
|
XWidgetUninstallColormap (This);
|
|
athis.installColormap = False;
|
|
XFreeColormap(XtDisplay(This),This->core.colormap);
|
|
}
|
|
if(athis.glContext!=NULL) {
|
|
glXMakeCurrent(XtDisplay(This),None,NULL);
|
|
glXDestroyContext(XtDisplay(This),athis.glContext);
|
|
athis.glContext = NULL;
|
|
}
|
|
}
|
|
|
|
#define IFMOD(a_field) if(athis.a_field != acur.a_field)
|
|
static Boolean SetValues(Widget a_current,Widget a_request,Widget This,ArgList a_args,Cardinal* a_argn) {
|
|
IFMOD(doubleBufferOn) {
|
|
/* Can't change buffering here if X window is created.
|
|
With OpenGL, buffering fix parameter of the X window.
|
|
Buffering must be choosen before the execution of the
|
|
Realize method that create the window. */
|
|
if(XtIsRealized(This) && (athis.installColormap==True)) {
|
|
CWarn("Can't change buffering after \"realization\" of the widget.\n");
|
|
athis.doubleBufferOn = acur.doubleBufferOn;
|
|
}
|
|
}
|
|
/*avoid C++ warnings*/
|
|
a_request = NULL;
|
|
a_args = NULL;
|
|
a_argn = 0;
|
|
return False;
|
|
}
|
|
|
|
static void ChangeWidgetSize(Widget This) {
|
|
#ifdef DEBUG
|
|
printf("debug : OpenGLArea : ChangeWidgetSize : %s\n",XtName(This));
|
|
#endif
|
|
|
|
/* Call the Resize procedure (XtInheritResize) */
|
|
if(openGLAreaWidgetClass->core_class.superclass->core_class.resize!=NULL)
|
|
(openGLAreaWidgetClass->core_class.superclass->core_class.resize)(This);
|
|
|
|
#ifdef DEBUG
|
|
printf("debug : OpenGLArea : ChangeWidgetSize : end\n");
|
|
#endif
|
|
}
|
|
|
|
static void DrawWidget(Widget This,XEvent* a_event,Region a_region) {
|
|
#ifdef DEBUG
|
|
printf("debug : OpenGLArea : DrawWidget : %s\n",XtName(This));
|
|
#endif
|
|
|
|
if(openGLAreaWidgetClass->core_class.superclass->core_class.expose!=NULL)
|
|
(openGLAreaWidgetClass->core_class.superclass->core_class.expose)(This,a_event,a_region);
|
|
|
|
if(MakeCurrent(This)==1) {
|
|
#ifdef DEBUG
|
|
printf("debug : OpenGLArea : DrawWidget : %s : MakeCurrent ok : call paintCallback...\n",XtName(This));
|
|
#endif
|
|
XoAnyCallbackStruct value;
|
|
value.reason = XoCR_PAINT;
|
|
value.event = a_event;
|
|
XtCallCallbacks(This,XoNpaintCallback,(XtPointer)&value);
|
|
glXSwapBuffers(XtDisplay(This),XtWindow(This));
|
|
glXMakeCurrent(XtDisplay(This),None,NULL);
|
|
}
|
|
|
|
#ifdef DEBUG
|
|
printf("debug : OpenGLArea : DrawWidget : end\n");
|
|
#endif
|
|
|
|
/*avoid C++ warnings*/
|
|
a_event = NULL;
|
|
a_region = NULL;
|
|
}
|
|
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
/*------------------------------------------------------------------------*/
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
void OpenGLAreaPaint(Widget This) {
|
|
if(!XtIsRealized(This)) return;
|
|
if(MakeCurrent(This)==1) {
|
|
XoAnyCallbackStruct value;
|
|
value.reason = XoCR_PAINT;
|
|
value.event = 0;
|
|
XtCallCallbacks(This,XoNpaintCallback,(XtPointer)&value);
|
|
glXSwapBuffers(XtDisplay(This),XtWindow(This));
|
|
glXMakeCurrent(XtDisplay(This),None,NULL);
|
|
}
|
|
}
|
|
|
|
#ifdef TOOLS_XT_OPENGLAREA_HAS_GL2PS
|
|
|
|
#include <tools/c_gl2ps.h>
|
|
|
|
int OpenGLAreaWrite_gl2ps(Widget This,const char* aFileName,const char* opts) {
|
|
FILE* file;
|
|
int options;
|
|
int sort;
|
|
inlib_GLint vp[4];
|
|
int bufsize = 0;
|
|
static inlib_gl2ps_gl_funcs_t s_OpenGL_funcs = {
|
|
glIsEnabled,
|
|
glBegin,
|
|
glEnd,
|
|
glGetFloatv,
|
|
glVertex3f,
|
|
glGetBooleanv,
|
|
glGetIntegerv,
|
|
glRenderMode,
|
|
glFeedbackBuffer,
|
|
glPassThrough
|
|
};
|
|
|
|
file = fopen(aFileName,"w");
|
|
if(!file) return 1;
|
|
|
|
inlib_c_gl2ps_set_gl_funcs(&s_OpenGL_funcs);
|
|
|
|
options = TOOLS_GL2PS_OCCLUSION_CULL
|
|
| TOOLS_GL2PS_BEST_ROOT
|
|
| TOOLS_GL2PS_SILENT
|
|
| TOOLS_GL2PS_DRAW_BACKGROUND;
|
|
sort = TOOLS_GL2PS_BSP_SORT;
|
|
//sort = TOOLS_GL2PS_SIMPLE_SORT;
|
|
|
|
vp[0] = 0;
|
|
vp[1] = 0;
|
|
vp[2] = This->core.width;
|
|
vp[3] = This->core.height;
|
|
|
|
inlib_c_gl2psBeginPage("title","exlib_Xt_OpenGLArea",
|
|
vp,TOOLS_GL2PS_EPS,sort,options,
|
|
TOOLS_GL_RGBA,0, NULL,0,0,0,bufsize,
|
|
file,aFileName);
|
|
|
|
{XoAnyCallbackStruct value;
|
|
value.reason = XoCR_PAINT;
|
|
value.event = 0;
|
|
XtCallCallbacks(This,XoNpaintCallback,(XtPointer)&value);}
|
|
|
|
inlib_c_gl2psEndPage();
|
|
|
|
inlib_c_gl2ps_reset_gl_funcs();
|
|
|
|
fclose(file);
|
|
|
|
return 0;
|
|
}
|
|
|
|
#else
|
|
#ifdef __cplusplus
|
|
int OpenGLAreaWrite_gl2ps(Widget,const char*,const char*) {return 1;}
|
|
#else
|
|
int OpenGLAreaWrite_gl2ps(Widget w,const char* f,const char* o) {return 1;}
|
|
#endif
|
|
#endif
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
/*------------------------------------------------------------------------*/
|
|
/*------------------------------------------------------------------------*/
|
|
/*------------------------------------------------------------------------*/
|
|
static int MakeCurrent(Widget This) {
|
|
if(This==NULL) return 0;
|
|
if(!XtIsRealized(This)) return 0;
|
|
if(athis.glContext==NULL) return 0;
|
|
return (int)glXMakeCurrent(XtDisplay(This),XtWindow(This),athis.glContext);
|
|
}
|
|
|
|
static void EventHandler(Widget This,XtPointer a_tag,XEvent* a_event ,Boolean* a_continue) {
|
|
XoAnyCallbackStruct value;
|
|
value.reason = XoCR_EVENT;
|
|
value.event = a_event;
|
|
XtCallCallbacks(This,XoNeventCallback,(XtPointer)&value);
|
|
a_tag = NULL;
|
|
a_continue = NULL;
|
|
}
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
/*------------------------------------------------------------------------*/
|
|
/*------------------------------------------------------------------------*/
|
|
static void XWidgetInstallColormap(Widget This) {
|
|
/*
|
|
From Mesa/widgets/GLwDrawingArea.c/post_colormap routine.
|
|
Could use also XtSetWMColormapWindows.
|
|
*/
|
|
Display* display;
|
|
XWindowAttributes watbs;
|
|
Widget shell;
|
|
Window* ws = NULL;
|
|
int wn = 0,found,count;
|
|
Window wshell,wthis;
|
|
Colormap cmapthis;
|
|
/*.........................................................................*/
|
|
if(This==NULL) return;
|
|
if( !XtIsWidget(This) || !XtIsRealized(This) ) return;
|
|
shell = XWidgetGetShell (This);
|
|
if(shell==NULL) return;
|
|
display = XtDisplay (This);
|
|
wthis = XtWindow (This);
|
|
wshell = XtWindow (shell);
|
|
XGetWMColormapWindows (display,wshell, &ws, &wn);
|
|
/* Check if colormap of this is a colormap of a Window in list.*/
|
|
XGetWindowAttributes (display,wthis,&watbs);
|
|
cmapthis = watbs.colormap;
|
|
found = -1;
|
|
for(count=0;count<wn;count++) {
|
|
Colormap cmap;
|
|
XGetWindowAttributes (display,ws[count],&watbs);
|
|
cmap = watbs.colormap;
|
|
if(cmap==cmapthis) {
|
|
XFree (ws);
|
|
return; /*done*/
|
|
}
|
|
if(ws[count]==wshell) {
|
|
found = count;
|
|
}
|
|
}
|
|
/*Have to add window of this in list.*/
|
|
if(wn==0) {
|
|
if(ws!=NULL) XFree(ws);
|
|
ws = (Window*)malloc ( 2 * sizeof(Window));
|
|
} else {
|
|
ws = (Window*)realloc (ws,(wn + 2) * sizeof(Window));
|
|
}
|
|
if(ws==NULL) return;
|
|
if(found==-1) {
|
|
/*Window of shell not in list.*/
|
|
ws[wn] = wthis; wn++;
|
|
ws[wn] = wshell;wn++;
|
|
} else {
|
|
ws[found] = wthis;
|
|
ws[wn] = wshell; wn++; /*Shell must be last.*/
|
|
}
|
|
if (XSetWMColormapWindows(display,wshell, ws, wn)==0) {
|
|
CWarnF ("XWidgetInstallColormap: can't install colormap of %s in %s.\n",XtName(This),XtName(shell));
|
|
}
|
|
XFree (ws);
|
|
}
|
|
|
|
static void XWidgetUninstallColormap(Widget This) {
|
|
int count;
|
|
Widget shell;
|
|
Display* display;
|
|
Window wthis,wshell;
|
|
Window* ws = NULL;
|
|
int wn = 0;
|
|
Window* nws = NULL;
|
|
int nwn = 0;
|
|
/*.........................................................................*/
|
|
if(This==NULL) return;
|
|
if( !XtIsWidget(This) || !XtIsRealized(This) ) return;
|
|
shell = XWidgetGetShell (This);
|
|
if(shell==NULL) return;
|
|
display = XtDisplay (This);
|
|
wthis = XtWindow (This);
|
|
wshell = XtWindow (shell);
|
|
XGetWMColormapWindows (display,wshell, &ws, &wn);
|
|
if( (wn==0) || (ws==NULL) ) return;
|
|
nws = (Window*)malloc ( wn * sizeof(Window));
|
|
if(nws==NULL) {
|
|
XFree (ws);
|
|
return;
|
|
}
|
|
nwn = 0;
|
|
for(count=0;count<wn;count++) {
|
|
if(ws[count]!=wthis) {
|
|
nws[nwn] = ws[count];
|
|
nwn++;
|
|
}
|
|
}
|
|
if(wn!=nwn) {
|
|
if (XSetWMColormapWindows(display,wshell, nws, nwn)==0) {
|
|
CWarnF("XWidgetUninstallColormap: can't install colormap of %s in %s.\n",XtName(This),XtName(shell));
|
|
}
|
|
}
|
|
XFree (ws);
|
|
XFree (nws);
|
|
}
|
|
|
|
Widget XWidgetGetShell(Widget This) {
|
|
Widget widget;
|
|
if(This==NULL) return NULL;
|
|
widget = This;
|
|
while(1) {
|
|
if(widget==NULL) return NULL;
|
|
if(XtIsShell(widget)) return widget;
|
|
widget = XtParent(widget);
|
|
}
|
|
}
|
|
|
|
/*
|
|
exlib_build_use Xt inlib
|
|
*/
|