"

COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

XWorkstation subclass:#GLXWorkstation

       instanceVariableNames:'activeWindow'

       classVariableNames:   ''

       poolDictionaries:''

       category:'Interface-Graphics'

!

GLXWorkstation comment:'

COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

'!

!GLXWorkstation class methodsFor:'documentation'!

copyright

"

COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

version

"

"

!

documentation

"

    this class was originally written as a demo on how an interface to

    a c graphics library could be implemented. In the mean time, it has become

    quite complete ...

    It provides an interface to either a real GL (on SGI workstations)

    or a simulated VGL (i.e. GL-light; low nicotine).

    The GL simulation is derived from the PD vogl library, with slight

    modifictions to support multiple GL views.

    Most of the hard work was done by Jeff (thanks indeed) ...

    Some notes:

    I do not really know what most of these functions do - for more

    detail, see the GL man pages (on SGI) or the doc provided with VGL.

    The interface offered here provides a very very low level (i.e one-to-one)

    interface to GL functions. More high-level stuff is required, to make

    3D drawing be more object-oriented. 

    (see a bit of this in 'clients/IRIS-specials')

    Some functions are duplicated, Jeff and I developed those in parallel -

    for now, both will remain - finally they will be merged and duplicates removed ...

    (examples are makeobj and makeObject).

    Also, in a hurry to implement all those methods, many do no or only

    limited argument checking - make certain, that you pass the correct

    arguments.

    There might be some confusion in the v3[sifd] functions: basically they

    all do the same, and could be mapped onto one st-method (such as vertex3).

    However, the C-functions expect different argument types - I dont know if

    one or another of these functions suffers from any performance penalties.

    Therefore, I leave the direct 1-to-1 mapping; GL experts might know more

    about this (I use v3f in all of my code).

    written june 93 by claus

    VGL stuff dec 93

    many many additions jan 94 by Jeff McAffer <jeff@is.s.u-tokyo.ac.jp>

    Since this is a demo (consider it a free add-on goody) there is 

    *** NO WARRANTY ** for this.

    Notice: this should be rewritten to use the openGL library functions

    (actually, to not loose the VGL interface, another OpenGLWorkstation

     class should be written)

"

! !

!GLXWorkstation primitiveDefinitions!

%{

/*

 * on SGI, this class is compiled with -DGLX, while

 * for simulation (using vogl), this is compiled with -DVGL

 */

/*

 * define this to enable:

 *    blendcolor getgconfig getmultisample leftbuffer rightbuffer monobuffer

 *    msalpha msmask mspattern mssize multisample stereobuffer

 *    t3s t3i t3f t3d t4s t4i t4f t4d tlutbind zbsize

 *

 * these are not available on all gl's

 */

/* #define FULL_GLX */

/*

 * this is stupid, GLX defines String, which is also defined here ...

 */

# define String GLX_String

#ifdef GLX

# include <gl/glws.h>

# include <gl/sphere.h>

#else

# undef memset

# include <vogl.h>

# undef move

# include <X11/Xlib.h>

#endif

#ifndef NULL

# define NULL (char *)0         /* sigh */

#endif

typedef enum {

    GLXcolorIndexSingleBuffer,

    GLXcolorIndexDoubleBuffer,

    GLXrgbSingleBuffer,

    GLXrgbDoubleBuffer

} GLXWindowType;

/*

extern Window GLXCreateWindow();

*/

#ifdef THISCONTEXT_IN_REGISTER

  extern OBJ __thisContext__;

# define ENTERGLX       __thisContext__ = __thisContext

# define LEAVEGLX       __thisContext = __thisContext__; __thisContext__ = 0;

#else

# define ENTERGLX    /* nothing */

# define LEAVEGLX     /* nothing */

#endif

#undef String

/*

 * some defines - tired of typing ...

 * most of these macros/functions extract values from smalltalk objects and

 * put/pack them into corresponding c variables.

 *

 */

#if defined(hpux) && defined(POSITIVE_ADDRESSES)

# define MKDPY(o)       (Display *)((int)(o) & ~TAG_INT)

# define MKWIN(o)       (Window)((int)(o) & ~TAG_INT)

#else

# define MKDPY(o)       (Display *)(_intVal(o))

# define MKWIN(o)       (Window)(_intVal(o))

#endif

#define myDpy MKDPY(_INST(displayId))

/*

 * set the GLXWindow for followup drawing

 */

#define SETWIN(aGLXWindowId)                             \

    if (_INST(activeWindow) != aGLXWindowId) {           \

	if (! __isSmallInteger(aGLXWindowId)) {          \

	    RETURN (false);                              \

	}                                                \

	if (GLXwinset(myDpy, MKWIN(aGLXWindowId)) < 0) { \

	    RETURN (false);                              \

	}                                                \

	_INST(activeWindow) = aGLXWindowId;              \

    }

#define _MKBOOLEAN(b)   ((b==FALSE) ? false : true)

#define _booleanVal(b)  ((b==false) ? (Boolean)FALSE : (Boolean)TRUE)

#define _coordVal(c)                             \

    ((__isFloat(c)) ? (Coord)(_floatVal(c))      \

		    : (Coord)(_intVal(c)))

#define _icoordVal(c)      ((Icoord)(_intVal(c)))

#define _scoordVal(c)      ((Scoord)(_intVal(c)))

#define _screencoordVal(c) ((Screencoord)(_intVal(c)))

#define _colorindexVal(c)  ((Colorindex)(_intVal(c)))

#define _linestyleVal(l)   ((Linestyle)(_intVal(l)))

#define _shortVal(l)       ((short)(_intVal(l)))

#define _longVal(l)        ((long)(_intVal(l)))

#define _deviceVal(l)      ((Device)(_intVal(l)))

#define _tagVal(l)         ((Tag)(_intVal(l)))

#define _objectVal(l)      ((Object)(_intVal(l)))

#define _offsetVal(l)      ((Offset)(_intVal(l)))

#define _rgbVal(l)         ((RGBvalue)(_intVal(l)))

#define _angleVal(c)       ((Angle)(_intVal(c)))

/*

 * check for and fetch a boolean from ST-arg into C-dst

 * ST-object must be true or false. Return wth false if invalid.

 */

#define _BOOLEAN_(arg, dst)             \

    if (arg==true)                      \

	dst = (Boolean)TRUE;            \

    else if (arg==false)                \

	dst = (Boolean)FALSE;           \

    else { RETURN(false); }

/*

 * check for and fetch a coord from ST-arg into C-dst

 * ST-object must be Float, SmallInteger or Fraction.

 * Return wth false if invalid.

 */

#define _COORD_(arg, dst)               \

    if (__isFloat(arg))                 \

	dst = (Coord)(_floatVal(arg));  \

    else if (__isSmallInteger(arg))     \

	dst = (Coord)(_intVal(arg));    \

    else if (__isFraction(arg)          \

	  && __isSmallInteger(_FractionInstPtr(arg)->f_numerator)       \

	  && __isSmallInteger(_FractionInstPtr(arg)->f_denominator)) {  \

	float n, d;                                                     \

									\

	n = (float)(_intVal(_FractionInstPtr(arg)->f_numerator));       \

	d = (float)(_intVal(_FractionInstPtr(arg)->f_denominator));     \

	dst = (Coord)(n / d);                                           \

    } else { RETURN(false); }

/*

 * check for and fetch an icoord from ST-arg into C-dst

 * ST-object must be SmallInteger. Return wth false if invalid. 

 */

#define _ICOORD_(arg, dst)              \

    if (__isSmallInteger(arg))          \

      dst = (Icoord)(_intVal(arg));     \

    else { RETURN(false); }

/*

 * check for and fetch an scoord from ST-arg into C-dst

 * ST-object must be SmallInteger. Return wth false if invalid. 

 */

#define _SCOORD_(arg, dst)              \

    if (__isSmallInteger(arg))          \

      dst = (Scoord)(_intVal(arg));     \

    else { RETURN(false); }

#define _SCREENCOORD_(arg, dst)          \

    if (__isSmallInteger(arg))           \

      dst = (Screencoord)(_intVal(arg)); \

    else { RETURN(false); }

#define _COLORINDEX_(arg, dst)           \

    if (__isSmallInteger(arg))           \

      dst = (Colorindex)(_intVal(arg));  \

    else { RETURN(false); }

#define _ANGLE_(arg, dst)               \

    if (__isSmallInteger(arg))          \

	dst = (Angle)(_intVal(arg));    \

    else { RETURN(false); }

#define _FLOAT_(arg, dst)               \

    if (__isFloat(arg))                 \

	dst = (float)(_floatVal(arg));  \

    else if (__isSmallInteger(arg))     \

	dst = (float)(_intVal(arg));    \

    else if (__isFraction(arg)          \

	  && __isSmallInteger(_FractionInstPtr(arg)->f_numerator)       \

	  && __isSmallInteger(_FractionInstPtr(arg)->f_denominator)) {  \

	float n, d;                                                     \

									\

	n = (float)(_intVal(_FractionInstPtr(arg)->f_numerator));       \

	d = (float)(_intVal(_FractionInstPtr(arg)->f_denominator));     \

	dst = (float)(n / d);                                           \

    } else { RETURN(false); }

#define _INT_(arg, dst)                 \

    if (__isSmallInteger(arg))          \

	dst = (int)(_intVal(arg));      \

    else { RETURN(false); }

#define _indexedArea(object)            \

    (((char *) (_InstPtr(object)))      \

	+ OHDR_SIZE                     \

	+ (_intVal(_ClassInstPtr(__qClass(object))->c_ninstvars)) * sizeof(OBJ))

%}

! !

!GLXWorkstation primitiveFunctions!

%{

/* 

 * begin moved from GLXsupport.c

 */

/*

 * GLXsupport.c:

 *

 *   This file provides a helper function "GLXCreateWindow", which does

 * all the necessary magic to create an X window suitable for GL drawing 

 * to take place within.   see the definition of GLXCreateWindow for a 

 * description of how to call it.

 *

 * claus: I really had no time to look into all this,

 * this file has been just copied from a 4Dgifts demo ..

 * (will need more than a day to show more ...)

 */

#if defined(GLX) || defined(VGL)

#include        <X11/Xlib.h>

#include        <X11/Xutil.h>

#ifndef VGL

# include        <gl/glws.h>  

#endif

#include        <signal.h>

#include        <setjmp.h>

#include        "stcIntern.h"

/*

 * glxhelper.h:

 *

 *   List of drawing modes supported by GLXCreateWindow (in glxhelper.c).

 * More than this are possible with mixed model, but this is just an 

 * example.  You can either expand this list (and the corresponding code in 

 * GLXCreateWindow) or call the mixed model calls yourself, using 

 * GLXCreateWindow as an example.

 */

static char *typeToName[] = {

    "color index single buffer",

    "color index double buffer",

    "rgb single buffer",

    "rgb double buffer",

};

#ifndef VGL

/*

 * Dorky little helper function used to build up a GLXconfig array.

 */

static void set_entry (GLXconfig* ptr, int b, int m, int a)

{

    ptr->buffer = b;

    ptr->mode = m;

    ptr->arg = a;

}

#endif /* VGL */

static JMP_BUF errorReturn;

static void

glAbort() {

    longjmp(errorReturn, 1);

}

/*

 * GLXCreateWindow(dpy, parent, x, y, w, h, boderWidth, type)

 *

 * Return value is the X window id of the newly created window.

 *

 * Arguments are:

 *      dpy             The X "Display*" returned by XOpenDisplay

 *      parent          The parent of the newly created window,

 *                      a typical value for this is

 *                      RootWindow(dpy, DefaultScreen(dpy))

 *      x,y             The location of the window to be created,

 *                      y coordinate is measured from the top down.

 *      w,h             size of the new window

 *      borderWidth     the X border size for this window, should probably

 *                      be zero.

 *      type            the GLXWindowType (see glxhelper.h) desribing the

 *                      typer of GL drawing to be done in this window

 */

static Window 

GLXCreateWindow(dpy, parent, x, y, w, h, borderWidth, type)

    Display* dpy;

    Window parent;

    GLXWindowType type;

{

#ifdef VGL

    Visual visual;

#else

    GLXconfig params[50];

    GLXconfig* next;

    GLXconfig* retconfig;

    Colormap cmap = DefaultColormap(dpy, DefaultScreen(dpy));

    XVisualInfo *vis;

#endif

    XVisualInfo template;

    XColor white;

    XSetWindowAttributes cwa;

    XWindowAttributes   pwa;

    int scr, i, nret;

    Window win;

    extern __XErrorHandler__();

#ifdef IRIX5

    SIG_PF oldSig;

#else

    void *oldSig;

#endif

    if (setjmp(errorReturn)) {

	printf("hard error in GL - return\n");

	signal(SIGSEGV, oldSig);

	return 0;

    }

    __CONT__

#ifdef VGL

    /*

     * I know what VGL supports; its somewhat unclean to hard code it here

     */

    switch (type) {

      case GLXcolorIndexSingleBuffer:

      case GLXcolorIndexDoubleBuffer:

	break;

      case GLXrgbSingleBuffer:

      case GLXrgbDoubleBuffer:

	printf("Sorry, VGL can't support %s type of windows\n", typeToName[type]);

	return 0;

    }

    scr = DefaultScreen(dpy);

    visual.visualid = CopyFromParent;

    cwa.border_pixel = 0;  /* Even if we don't use it, it must be something */

    if (w <= 0) {

	printf("VGL: bad width: %d\n", w);

	w = 1;

    }

    if (h <= 0) {

	printf("VGL: bad height: %d\n", h);

	h = 1;

    }

    win = XCreateWindow(dpy, parent, x, y, w, h,

			     borderWidth, DisplayPlanes(dpy, scr), 

			     InputOutput, &visual,

			     CWBorderPixel, &cwa);

    /*

     * on iris, seg-violations occur in te GL, if too many

     * views are created ... just to make certain, we catch those

     * in GL too.

     */

    oldSig = signal(SIGSEGV, glAbort);

    i = GLXlink(dpy, win);

    signal(SIGSEGV, oldSig);

    if (i < 0) {

	printf("GLXlink returned %d\n", i);

	return 0;

    }

#else /* not VGL */

    /*

     * This builds an array in "params" that describes for GLXgetconfig(3G)

     * the type of GL drawing that will be done.

     */

    next = params;

    switch (type) {

      case GLXcolorIndexSingleBuffer:

	set_entry(next++, GLX_NORMAL, GLX_RGB, FALSE);

	set_entry(next++, GLX_NORMAL, GLX_DOUBLE, FALSE);

	break;

      case GLXcolorIndexDoubleBuffer:

	set_entry(next++, GLX_NORMAL, GLX_RGB, FALSE);

	set_entry(next++, GLX_NORMAL, GLX_DOUBLE, TRUE);

	break;

      case GLXrgbSingleBuffer:

	set_entry(next++, GLX_NORMAL, GLX_RGB, TRUE);

	set_entry(next++, GLX_NORMAL, GLX_DOUBLE, FALSE);

	break;

      case GLXrgbDoubleBuffer:

	set_entry(next++, GLX_NORMAL, GLX_RGB, TRUE);

	set_entry(next++, GLX_NORMAL, GLX_DOUBLE, TRUE);

	break;

    }

    set_entry(next, 0, 0, 0); /* The input to GLXgetconfig is null terminated */