_motifglx.C

Ir a la documentación de este archivo.

//===========================================================================
//= _motifglx.C                                       Desde octubre de 1998 =
//=-------------------------------------------------------------------------=
//= Definicion de elementos especificos a MOTIF                             =
//=-------------------------------------------------------------------------=
//= ADVERTENCIA: ESTE SOFTWARE NO ESTA CONCEBIDO NI DISENNADO PARA EL USO   =
//= EN EQUIPO DE CONTROL EN LINEA EN ENTORNOS PELIGROSOS QUE REQUIERAN UN   =
//= DESEMPENNO LIBRE DE FALLAS, COMO LA OPERACION DE PLANTAS NUCLEARES,     = 
//= SISTEMAS DE NAVEGACION O COMUNICACION EN AVIONES, TRAFICO AEREO,        =
//= EQUIPO MEDICO DEL CUAL DEPENDAN VIDAS HUMANAS O SISTEMAS DE ARMAMENTO,  =
//= EN LOS CUALES UNA FALLA EN EL SOFTWARE PUEDA IMPLICAR DIRECTAMENTE LA   =
//= MUERTE, DANNOS PERSONALES O DANNOS FISICOS Y/O AMBIENTALES GRAVES       =
//= ("ACTIVIDADES DE ALGO RIESGO").                                         =
//=-------------------------------------------------------------------------=
//= Autor original: Oscar J. Chavarro G.  A.K.A. JEDILINK. Copyright (c),   =
//= 1997 - 2003, oscarchavarro@hotmail.com                                  =
//= AQUYNZA es software libre, y se rige bajo los terminos de la licencia   =
//= LGPL de GNU (http://www.gnu.org). Para mayor informacion respecto a la  =
//= licencia de uso, consulte el archivo ./doc/LICENCIA en la distribucion. =
//===========================================================================

#include "framework/gui/_motifglx.h"
#include "framework/gui/_motifcb.h"
#include "jed_gl.h"
#include <stdio.h>
#include <stdlib.h>

#ifdef MOTIF_ENABLED

//===========================================================================
//= Variables globales                                                      =
//===========================================================================

#ifdef GL_ENABLED

static int CONFIGURACION_glx_buffer_doble[] = {
    GLX_DOUBLEBUFFER, GLX_RGBA, GLX_DEPTH_SIZE, 16,
    GLX_RED_SIZE, 1, GLX_GREEN_SIZE, 1, GLX_BLUE_SIZE, 1,
    None
};
static int *CONFIGURACION_glx_buffer_simple=&CONFIGURACION_glx_buffer_doble[1];
#endif

#ifdef GL_ENABLED
  GLXContext glx_context;
#endif

#ifdef GLX_ALTERNATIVO_NONONO
GLint alloc_color(Widget w, Colormap cmap, int red, int green, int blue);
void translate_pixels(Widget to, Widget from, ...);  // ?
#endif

#ifdef GLX_ALTERNATIVO_NONONO
static GLint Black, Red, Green, Blue;
#endif

//===========================================================================
//= Funciones de creacion y configuracion de contextos GLX                  =
//===========================================================================

#ifdef GLX_ALTERNATIVO_NONONO
GLint
alloc_color(Widget w, Colormap cmap, int red, int green, int blue)
{ 
    XColor xcolor;

    xcolor.red = red;
    xcolor.green = green;
    xcolor.blue = blue;
    xcolor.flags = DoRed | DoGreen | DoBlue;
    if ( !XAllocColor(XtDisplay (w), cmap, &xcolor) ) {
        printf ("Couldn't allocate color!\n");
        exit (1);
    }
    return xcolor.pixel;
}

void
translate_pixels (Widget to, Widget from, ...)
{
  va_list ap;
  char *name;
  Colormap from_cmap, to_cmap;
  XColor xcolor;

  XtVaGetValues (from, XtNcolormap, &from_cmap, NULL);
  XtVaGetValues (to, XtNcolormap, &to_cmap, NULL);

  va_start (ap, from);
  for (name = va_arg (ap, char *); name != NULL; name = va_arg (ap, char *))
    {
      XtVaGetValues (from, name, &xcolor.pixel, NULL);
      XQueryColor (XtDisplay (from), from_cmap, &xcolor);
      if (!XAllocColor (XtDisplay (to), to_cmap, &xcolor))
        XtAppWarning (XtWidgetToApplicationContext (to),
                      "Couldn't allocate color!\n");
      else
        XtVaSetValues (from, name, xcolor.pixel, NULL);
    }
  va_end (ap);
}
#endif

//===========================================================================
//= Funciones de integracion Motif/OpenGL (o lesstiff/Mesa): GLw/GLX        =
//===========================================================================

void
arranque_GLX(Widget padre)
{
#ifdef GL_ENABLED
    Boolean rgba, doublebuffer, cmap_installed;
    XVisualInfo *vi;
    Display *Display_x;

    XtVaGetValues(padre,
        GLwNrgba, &rgba, 
        GLwNinstallColormap, &cmap_installed,
        GLwNdoublebuffer, &doublebuffer,
        GLwNvisualInfo, &vi, NULL);

    //-- Preparativos --
    Display_x = XtDisplay(padre);

    vi = glXChooseVisual(Display_x, 
        DefaultScreen(Display_x), CONFIGURACION_glx_buffer_doble);
    if ( !vi ) {
        vi = glXChooseVisual(Display_x, 
            DefaultScreen(Display_x), CONFIGURACION_glx_buffer_simple);
        if ( !vi ) {
            fprintf(stderr,
            "ERROR: el servidor X no soporta el modo de video solicitado!.");
            fflush(stderr);
            exit(1);
        }
    }

    //-- create a visual context --
    glx_context = glXCreateContext(Display_x, vi, None, GL_TRUE);

    if ( !glx_context ) {
        fprintf(stderr, 
            "<MOTIF> - ERROR: "
            "No se puede crear un contexto de visualizacion OpenGL.");
        fflush(stderr);
        exit(0);
    }

    GLwDrawingAreaMakeCurrent(padre, glx_context);

    //- Capturar la atencion del cursor y del usuario! ---------------------
    XWarpPointer(XtDisplay(padre), None, XtWindow (padre),0, 0, 0, 0, 0, 0);

  #ifdef GLX_ALTERNATIVO_NONONO
    if ( rgba ) {
        Black = Red = Green = Blue = 0;

        if ( cmap_installed ) {
           /* In RGBA mode, the Mesa widgets will have their own color map.
              Adjust the colors of the other widgets so that--even if the rest
              of the screen has wrong colors--all application widgets have the
              right colors.  */
            translate_pixels (padre, form, XtNbackground, XtNborder, NULL);
            translate_pixels (padre, menubar,
                            XmNbackground, XmNforeground, XmNborderColor, 
                            XmNarmColor, XmNbottomShadowColor, 
                            XmNtopShadowColor, NULL);

          /* Finally warp the pointer into the mesa widget, to make sure that
             the user sees the right colors at the beginning.  */
          XWarpPointer (XtDisplay (padre), None, XtWindow (padre),
                        0, 0, 0, 0, 0, 0);
        }
      }
      else {
        /* Allocate a few colors for use in color index mode.  */
        Colormap cmap;
        cmap = DefaultColormap(
            XtDisplay(toplevel), DefaultScreen (XtDisplay (toplevel)));
        Black = alloc_color (toplevel, cmap, 0x0000, 0x0000, 0x0000);
        Red   = alloc_color (toplevel, cmap, 0xffff, 0x0000, 0x0000);
        Green = alloc_color (toplevel, cmap, 0x0000, 0xffff, 0x0000);
        Blue  = alloc_color (toplevel, cmap, 0x0000, 0x0000, 0xffff);
    }
  #endif
    
    static BOOLEAN ya = FALSE;
    if ( !ya ) {
        motif_starttimer_callback(padre); ya = TRUE;
    }
#endif
}

#endif // MOTIF_ENABLED

//===========================================================================
//= EOF                                                                     =
//===========================================================================

---

Este archivo HTML ha sido generado automáticamente a partir del código fuente AQUYNZA. NO LO EDITE. Para mayor información contacte al autor.