src/gtk/glcanvas.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        src/gtk/glcanvas.cpp
// Purpose:     wxGLCanvas, for using OpenGL/Mesa with wxWidgets and GTK
// Author:      Robert Roebling
// Modified by:
// Created:     17/08/98
// RCS-ID:      $Id$
// Copyright:   (c) Robert Roebling
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#if wxUSE_GLCANVAS

#include "wx/glcanvas.h"

#include "wx/frame.h"
#include "wx/colour.h"
#include "wx/module.h"
#include "wx/app.h"

extern "C"
{
#include "gtk/gtk.h"
#include "gdk/gdk.h"
#include "gdk/gdkx.h"
}

#include "wx/gtk/win_gtk.h"

// DLL options compatibility check:
#include "wx/build.h"
WX_CHECK_BUILD_OPTIONS("wxGL")


//---------------------------------------------------------------------------
// static variables
//---------------------------------------------------------------------------
int wxGLCanvas::m_glxVersion = 0;

//---------------------------------------------------------------------------
// global data
//---------------------------------------------------------------------------

XVisualInfo *g_vi = (XVisualInfo*) NULL;
//-----------------------------------------------------------------------------
// idle system
//-----------------------------------------------------------------------------

extern void wxapp_install_idle_handler();
extern bool g_isIdle;

//---------------------------------------------------------------------------
// wxGLContext
//---------------------------------------------------------------------------

IMPLEMENT_CLASS(wxGLContext,wxObject)

wxGLContext::wxGLContext( bool WXUNUSED(isRGB), wxWindow *win, const wxPalette& WXUNUSED(palette) )
{
    m_window = win;
    m_widget = win->m_wxwindow;

    wxGLCanvas *gc = (wxGLCanvas*) win;

    if (wxGLCanvas::GetGLXVersion() >= 13)
    {
        // GLX >= 1.3
        GLXFBConfig *fbc = gc->m_fbc;
        wxCHECK_RET( fbc, _T("invalid GLXFBConfig for OpenGl") );
        m_glContext = glXCreateNewContext( GDK_DISPLAY(), fbc[0], GLX_RGBA_TYPE, None, GL_TRUE );
    }
    else
    {
        // GLX <= 1.2
        XVisualInfo *vi = (XVisualInfo *) gc->m_vi;
        wxCHECK_RET( vi, _T("invalid visual for OpenGl") );
        m_glContext = glXCreateContext( GDK_DISPLAY(), vi, None, GL_TRUE );
    }

    wxCHECK_RET( m_glContext, _T("Couldn't create OpenGl context") );
}

wxGLContext::wxGLContext(
               bool WXUNUSED(isRGB), wxWindow *win,
               const wxPalette& WXUNUSED(palette),
               const wxGLContext *other        /* for sharing display lists */
)
{
    m_window = win;
    m_widget = win->m_wxwindow;

    wxGLCanvas *gc = (wxGLCanvas*) win;

    if (wxGLCanvas::GetGLXVersion() >= 13)
    {
        // GLX >= 1.3
        GLXFBConfig *fbc = gc->m_fbc;
        wxCHECK_RET( fbc, _T("invalid GLXFBConfig for OpenGl") );
        m_glContext = glXCreateNewContext( GDK_DISPLAY(), fbc[0], GLX_RGBA_TYPE,
                                           other ? other->m_glContext : None,
                                           GL_TRUE );
    }
    else
    {
        // GLX <= 1.2
        XVisualInfo *vi = (XVisualInfo *) gc->m_vi;
        wxCHECK_RET( vi, _T("invalid visual for OpenGl") );
        m_glContext = glXCreateContext( GDK_DISPLAY(), vi,
                                        other ? other->m_glContext : None,
                                        GL_TRUE );
    }

    if ( !m_glContext )
    {
        wxFAIL_MSG( _T("Couldn't create OpenGl context") );
    }
}

wxGLContext::~wxGLContext()
{
    if (!m_glContext) return;

    if (m_glContext == glXGetCurrentContext())
    {
        if (wxGLCanvas::GetGLXVersion() >= 13)
            // GLX >= 1.3
            glXMakeContextCurrent( GDK_DISPLAY(), None, None, NULL);
        else
            // GLX <= 1.2
            glXMakeCurrent( GDK_DISPLAY(), None, NULL);
    }

    glXDestroyContext( GDK_DISPLAY(), m_glContext );
}

void wxGLContext::SwapBuffers()
{
    if (m_glContext)
    {
        GdkWindow *window = GTK_PIZZA(m_widget)->bin_window;
        glXSwapBuffers( GDK_DISPLAY(), GDK_WINDOW_XWINDOW( window ) );
    }
}

void wxGLContext::SetCurrent()
{
    if (m_glContext)
    {
        GdkWindow *window = GTK_PIZZA(m_widget)->bin_window;

        if (wxGLCanvas::GetGLXVersion() >= 13)
            // GLX >= 1.3
            glXMakeContextCurrent( GDK_DISPLAY(), GDK_WINDOW_XWINDOW(window),
                                   GDK_WINDOW_XWINDOW(window), m_glContext );
        else
            // GLX <= 1.2
            glXMakeCurrent( GDK_DISPLAY(), GDK_WINDOW_XWINDOW(window), m_glContext );
    }
}

void wxGLContext::SetColour(const wxChar *colour)
{
    wxColour col = wxTheColourDatabase->Find(colour);
    if (col.Ok())
    {
        float r = (float)(col.Red()/256.0);
        float g = (float)(col.Green()/256.0);
        float b = (float)(col.Blue()/256.0);
        glColor3f( r, g, b);
    }
}

void wxGLContext::SetupPixelFormat()
{
}

void wxGLContext::SetupPalette( const wxPalette& WXUNUSED(palette) )
{
}

wxPalette wxGLContext::CreateDefaultPalette()
{
    return wxNullPalette;
}

//-----------------------------------------------------------------------------
// "realize" from m_wxwindow
//-----------------------------------------------------------------------------

extern "C" {
static gint
gtk_glwindow_realized_callback( GtkWidget *WXUNUSED(widget), wxGLCanvas *win )
{
    if ( !win->m_glContext )
    {
        wxGLContext *share = win->m_sharedContext;
        if ( !share && win->m_sharedContextOf )
            share = win->m_sharedContextOf->GetContext();

        win->m_glContext = new wxGLContext( TRUE, win, wxNullPalette, share );
    }

    return FALSE;
}
}

//-----------------------------------------------------------------------------
// "map" from m_wxwindow
//-----------------------------------------------------------------------------

extern "C" {
static gint
gtk_glwindow_map_callback( GtkWidget * WXUNUSED(widget), wxGLCanvas *win )
{
    if (win->m_glContext/* && win->m_exposed*/)
    {
        wxPaintEvent event( win->GetId() );
        event.SetEventObject( win );
        win->GetEventHandler()->ProcessEvent( event );

        win->m_exposed = FALSE;
        win->GetUpdateRegion().Clear();
    }

    return FALSE;
}
}

//-----------------------------------------------------------------------------
// "expose_event" of m_wxwindow
//-----------------------------------------------------------------------------

extern "C" {
static void
gtk_glwindow_expose_callback( GtkWidget *WXUNUSED(widget), GdkEventExpose *gdk_event, wxGLCanvas *win )
{
    if (g_isIdle)
        wxapp_install_idle_handler();

    win->m_exposed = TRUE;

    win->GetUpdateRegion().Union( gdk_event->area.x,
                                  gdk_event->area.y,
                                  gdk_event->area.width,
                                  gdk_event->area.height );
}
}

//-----------------------------------------------------------------------------
// "size_allocate" of m_wxwindow
//-----------------------------------------------------------------------------

extern "C" {
static void
gtk_glcanvas_size_callback( GtkWidget *WXUNUSED(widget), GtkAllocation* alloc, wxGLCanvas *win )
{
    if (g_isIdle)
        wxapp_install_idle_handler();

    if (!win->m_hasVMT)
        return;

    wxSizeEvent event( wxSize(win->m_width,win->m_height), win->GetId() );
    event.SetEventObject( win );
    win->GetEventHandler()->ProcessEvent( event );
}
}

//---------------------------------------------------------------------------
// wxGlCanvas
//---------------------------------------------------------------------------

IMPLEMENT_CLASS(wxGLCanvas, wxWindow)

BEGIN_EVENT_TABLE(wxGLCanvas, wxWindow)
    EVT_SIZE(wxGLCanvas::OnSize)
END_EVENT_TABLE()

wxGLCanvas::wxGLCanvas( wxWindow *parent, wxWindowID id,
                        const wxPoint& pos, const wxSize& size,
                        long style, const wxString& name,
                        int *attribList,
                        const wxPalette& palette )
{
    Create( parent, NULL, NULL, id, pos, size, style, name, attribList, palette );
}

wxGLCanvas::wxGLCanvas( wxWindow *parent,
                        const wxGLContext *shared,
                        wxWindowID id,
                        const wxPoint& pos, const wxSize& size,
                        long style, const wxString& name,
                        int *attribList,
                        const wxPalette& palette )
{
    Create( parent, shared, NULL, id, pos, size, style, name, attribList, palette );
}

wxGLCanvas::wxGLCanvas( wxWindow *parent,
                        const wxGLCanvas *shared,
                        wxWindowID id,
                        const wxPoint& pos, const wxSize& size,
                        long style, const wxString& name,
                        int *attribList,
                        const wxPalette& palette )
{
    Create( parent, NULL, shared, id, pos, size, style, name, attribList, palette );
}

bool wxGLCanvas::Create( wxWindow *parent,
                         const wxGLContext *shared,
                         const wxGLCanvas *shared_context_of,
                         wxWindowID id,
                         const wxPoint& pos, const wxSize& size,
                         long style, const wxString& name,
                         int *attribList,
                         const wxPalette& palette)
{
    m_sharedContext = (wxGLContext*)shared;  // const_cast
    m_sharedContextOf = (wxGLCanvas*)shared_context_of;  // const_cast
    m_glContext = (wxGLContext*) NULL;

    m_exposed = FALSE;
    m_noExpose = TRUE;
    m_nativeSizeEvent = TRUE;
    m_fbc = NULL;
    m_vi = NULL;

    // to be sure the glx version is known
    wxGLCanvas::QueryGLXVersion();

    if (wxGLCanvas::GetGLXVersion() >= 13)
    {
        // GLX >= 1.3 uses a GLXFBConfig
        GLXFBConfig * fbc = NULL;
        if (wxTheApp->m_glFBCInfo != NULL)
        {
            fbc = (GLXFBConfig *) wxTheApp->m_glFBCInfo;
            m_canFreeFBC = FALSE; // owned by wxTheApp - don't free upon destruction
        }
        else
        {
            fbc = (GLXFBConfig *) wxGLCanvas::ChooseGLFBC(attribList);
            m_canFreeFBC = TRUE;
        }
        m_fbc = fbc;  // save for later use
        wxCHECK_MSG( m_fbc, FALSE, _T("required FBConfig couldn't be found") );
    }

    XVisualInfo *vi = NULL;
    if (wxTheApp->m_glVisualInfo != NULL)
    {
        vi = (XVisualInfo *)wxTheApp->m_glVisualInfo;
        m_canFreeVi = FALSE; // owned by wxTheApp - don't free upon destruction
    }
    else
    {
        if (wxGLCanvas::GetGLXVersion() >= 13)
        // GLX >= 1.3
            vi = glXGetVisualFromFBConfig(GDK_DISPLAY(), m_fbc[0]);
        else
            // GLX <= 1.2
            vi = (XVisualInfo *) ChooseGLVisual(attribList);

        m_canFreeVi = TRUE;
    }

    m_vi = vi;  // save for later use

    wxCHECK_MSG( m_vi, FALSE, _T("required visual couldn't be found") );
    GdkVisual *visual;
    GdkColormap *colormap;

    // MR: This needs a fix for lower gtk+ versions too. Might need to rethink logic (FIXME)
#if defined(__WXGTK20__) && GTK_CHECK_VERSION(2,2,0)
    if (!gtk_check_version(2,2,0))
    {
        wxWindow::Create( parent, id, pos, size, style, name );

        m_glWidget = m_wxwindow;

        GdkScreen *screen = gtk_widget_get_screen( m_glWidget );
        colormap = gdk_screen_get_default_colormap(screen);
        visual = gdk_colormap_get_visual(colormap);

        if (GDK_VISUAL_XVISUAL(visual)->visualid != vi->visualid)
        {
            visual = gdk_x11_screen_lookup_visual( screen, vi->visualid );
            colormap = gdk_colormap_new(visual, FALSE);
        }

        gtk_widget_set_colormap( m_glWidget, colormap );
    }
    else
#endif
    {
        visual = gdkx_visual_get( vi->visualid );
        colormap = gdk_colormap_new( visual, TRUE );

        gtk_widget_push_colormap( colormap );
        gtk_widget_push_visual( visual );

        wxWindow::Create( parent, id, pos, size, style, name );
        m_glWidget = m_wxwindow;
    }

    gtk_widget_set_double_buffered( m_glWidget, FALSE );

    gtk_pizza_set_clear( GTK_PIZZA(m_wxwindow), FALSE );

    g_signal_connect (m_wxwindow, "realize",
                      G_CALLBACK (gtk_glwindow_realized_callback),
                      this);
    g_signal_connect (m_wxwindow, "map",
                      G_CALLBACK (gtk_glwindow_map_callback),
                      this);
    g_signal_connect (m_wxwindow, "expose_event",
                      G_CALLBACK (gtk_glwindow_expose_callback),
                      this);
    g_signal_connect (m_widget, "size_allocate",
                      G_CALLBACK (gtk_glcanvas_size_callback),
                      this);

    if (gtk_check_version(2,2,0) != NULL)
    {
        gtk_widget_pop_visual();
        gtk_widget_pop_colormap();
    }

    // if our parent window is already visible, we had been realized before we
    // connected to the "realize" signal and hence our m_glContext hasn't been
    // initialized yet and we have to do it now
    if (GTK_WIDGET_REALIZED(m_wxwindow))
        gtk_glwindow_realized_callback( m_wxwindow, this );

    if (GTK_WIDGET_MAPPED(m_wxwindow))
        gtk_glwindow_map_callback( m_wxwindow, this );

    return TRUE;
}

wxGLCanvas::~wxGLCanvas()
{
    GLXFBConfig * fbc = (GLXFBConfig *) m_fbc;
    if (fbc && m_canFreeFBC)
        XFree( fbc );

    XVisualInfo *vi = (XVisualInfo *) m_vi;
    if (vi && m_canFreeVi)
        XFree( vi );

    delete m_glContext;
}

void* wxGLCanvas::ChooseGLVisual(int *attribList)
{
    int data[512];
    GetGLAttribListFromWX( attribList, data );
    attribList = (int*) data;

    Display *dpy = GDK_DISPLAY();

    return glXChooseVisual( dpy, DefaultScreen(dpy), attribList );
}

void* wxGLCanvas::ChooseGLFBC(int *attribList)
{
    int data[512];
    GetGLAttribListFromWX( attribList, data );
    attribList = (int*) data;

    int returned;
    return glXChooseFBConfig( GDK_DISPLAY(), DefaultScreen(GDK_DISPLAY()),
                              attribList, &returned );
}


void wxGLCanvas::GetGLAttribListFromWX(int *wx_attribList, int *gl_attribList )
{
    if (!wx_attribList)
    {
        if (wxGLCanvas::GetGLXVersion() >= 13)
        // leave GLX >= 1.3 choose the default attributes
            gl_attribList[0] = 0;
        else
        {
            int i = 0;
            // default settings if attriblist = 0
            gl_attribList[i++] = GLX_RGBA;
            gl_attribList[i++] = GLX_DOUBLEBUFFER;
            gl_attribList[i++] = GLX_DEPTH_SIZE;   gl_attribList[i++] = 1;
            gl_attribList[i++] = GLX_RED_SIZE;     gl_attribList[i++] = 1;
            gl_attribList[i++] = GLX_GREEN_SIZE;   gl_attribList[i++] = 1;
            gl_attribList[i++] = GLX_BLUE_SIZE;    gl_attribList[i++] = 1;
            gl_attribList[i++] = GLX_ALPHA_SIZE;   gl_attribList[i++] = 0;
            gl_attribList[i++] = None;
        }
    }
    else
    {
        int arg=0, p=0;
        while( (wx_attribList[arg]!=0) && (p<510) )
        {
            switch( wx_attribList[arg++] )
            {
                case WX_GL_RGBA:
                    if (wxGLCanvas::GetGLXVersion() <= 12)
                        // for GLX >= 1.3, GLX_RGBA is useless (setting this flags will crash on most opengl implm)
                        gl_attribList[p++] = GLX_RGBA;
                    break;
                case WX_GL_BUFFER_SIZE:
                    gl_attribList[p++] = GLX_BUFFER_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_LEVEL:
                    gl_attribList[p++] = GLX_LEVEL;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_DOUBLEBUFFER:
                    if (wxGLCanvas::GetGLXVersion() <= 12)
                        gl_attribList[p++] = GLX_DOUBLEBUFFER;
                    else
                        // for GLX >= 1.3, GLX_DOUBLEBUFFER format is different (1 <=> True)
                        // it seems this flag is useless for some hardware opengl implementation.
                        // but for Mesa 6.2.1, this flag is used so don't ignore it.
                        gl_attribList[p++] = GLX_DOUBLEBUFFER;
                    gl_attribList[p++] = 1;
                    break;
                case WX_GL_STEREO:
                    gl_attribList[p++] = GLX_STEREO;
                    break;
                case WX_GL_AUX_BUFFERS:
                    gl_attribList[p++] = GLX_AUX_BUFFERS;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_MIN_RED:
                    gl_attribList[p++] = GLX_RED_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_MIN_GREEN:
                    gl_attribList[p++] = GLX_GREEN_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_MIN_BLUE:
                    gl_attribList[p++] = GLX_BLUE_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_MIN_ALPHA:
                    gl_attribList[p++] = GLX_ALPHA_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_DEPTH_SIZE:
                    gl_attribList[p++] = GLX_DEPTH_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_STENCIL_SIZE:
                    gl_attribList[p++] = GLX_STENCIL_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_MIN_ACCUM_RED:
                    gl_attribList[p++] = GLX_ACCUM_RED_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_MIN_ACCUM_GREEN:
                    gl_attribList[p++] = GLX_ACCUM_GREEN_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_MIN_ACCUM_BLUE:
                    gl_attribList[p++] = GLX_ACCUM_BLUE_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                case WX_GL_MIN_ACCUM_ALPHA:
                    gl_attribList[p++] = GLX_ACCUM_ALPHA_SIZE;
                    gl_attribList[p++] = wx_attribList[arg++];
                    break;
                default:
                    break;
            }
        }

        gl_attribList[p] = 0;
    }
}

void wxGLCanvas::QueryGLXVersion()
{
    if (m_glxVersion == 0)
    {
        // check the GLX version
        int glxMajorVer, glxMinorVer;
        bool ok = glXQueryVersion(GDK_DISPLAY(), &glxMajorVer, &glxMinorVer);
        wxASSERT_MSG( ok, _T("GLX version not found") );
        if (!ok)
            m_glxVersion = 10; // 1.0 by default
        else
            m_glxVersion = glxMajorVer*10 + glxMinorVer;
    }
}

int wxGLCanvas::GetGLXVersion()
{
    wxASSERT_MSG( m_glxVersion>0, _T("GLX version has not been initialized with wxGLCanvas::QueryGLXVersion()") );
    return m_glxVersion;
}


void wxGLCanvas::SwapBuffers()
{
    if (m_glContext)
        m_glContext->SwapBuffers();
}

void wxGLCanvas::OnSize(wxSizeEvent& WXUNUSED(event))
{
}

void wxGLCanvas::SetCurrent()
{
    if (m_glContext)
        m_glContext->SetCurrent();
}

void wxGLCanvas::SetColour( const wxChar *colour )
{
    if (m_glContext)
        m_glContext->SetColour( colour );
}

void wxGLCanvas::OnInternalIdle()
{
    if (m_glContext && m_exposed)
    {
        wxPaintEvent event( GetId() );
        event.SetEventObject( this );
        GetEventHandler()->ProcessEvent( event );

        m_exposed = FALSE;
        GetUpdateRegion().Clear();
    }

    wxWindow::OnInternalIdle();
}


//---------------------------------------------------------------------------
// wxGLApp
//---------------------------------------------------------------------------

IMPLEMENT_CLASS(wxGLApp, wxApp)

wxGLApp::~wxGLApp()
{
    if (m_glFBCInfo)
        XFree(m_glFBCInfo);
    if (m_glVisualInfo)
        XFree(m_glVisualInfo);
}

bool wxGLApp::InitGLVisual(int *attribList)
{
    wxGLCanvas::QueryGLXVersion();

    if (wxGLCanvas::GetGLXVersion() >= 13)
    {
        // GLX >= 1.3
        if (m_glFBCInfo)
            XFree(m_glFBCInfo);
        m_glFBCInfo = wxGLCanvas::ChooseGLFBC(attribList);

        if (m_glFBCInfo)
        {
            if (m_glVisualInfo)
                XFree(m_glVisualInfo);
            m_glVisualInfo = glXGetVisualFromFBConfig(GDK_DISPLAY(), ((GLXFBConfig *)m_glFBCInfo)[0]);
        }
        return (m_glFBCInfo != NULL) && (m_glVisualInfo != NULL);
    }
    else
    {
        // GLX <= 1.2
        if (m_glVisualInfo)
            XFree(m_glVisualInfo);
        m_glVisualInfo = wxGLCanvas::ChooseGLVisual(attribList);
        return m_glVisualInfo != NULL;
    }
}

#endif
    // wxUSE_GLCANVAS
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: src/gtk/glcanvas.cpp
	3	// Purpose: wxGLCanvas, for using OpenGL/Mesa with wxWidgets and GTK
	4	// Author: Robert Roebling
	5	// Modified by:
	6	// Created: 17/08/98
	7	// RCS-ID: $Id$
	8	// Copyright: (c) Robert Roebling
	9	// Licence: wxWindows licence
	10	/////////////////////////////////////////////////////////////////////////////
	11
	12	// For compilers that support precompilation, includes "wx.h".
	13	#include "wx/wxprec.h"
	14
	15	#if wxUSE_GLCANVAS
	16
	17	#include "wx/glcanvas.h"
	18
	19	#include "wx/frame.h"
	20	#include "wx/colour.h"
	21	#include "wx/module.h"
	22	#include "wx/app.h"
	23
	24	extern "C"
	25	{
	26	#include "gtk/gtk.h"
	27	#include "gdk/gdk.h"
	28	#include "gdk/gdkx.h"
	29	}
	30
	31	#include "wx/gtk/win_gtk.h"
	32
	33	// DLL options compatibility check:
	34	#include "wx/build.h"
	35	WX_CHECK_BUILD_OPTIONS("wxGL")
	36
	37
	38	//---------------------------------------------------------------------------
	39	// static variables
	40	//---------------------------------------------------------------------------
	41	int wxGLCanvas::m_glxVersion = 0;
	42
	43	//---------------------------------------------------------------------------
	44	// global data
	45	//---------------------------------------------------------------------------
	46
	47	XVisualInfo g_vi = (XVisualInfo) NULL;
	48	//-----------------------------------------------------------------------------
	49	// idle system
	50	//-----------------------------------------------------------------------------
	51
	52	extern void wxapp_install_idle_handler();
	53	extern bool g_isIdle;
	54
	55	//---------------------------------------------------------------------------
	56	// wxGLContext
	57	//---------------------------------------------------------------------------
	58
	59	IMPLEMENT_CLASS(wxGLContext,wxObject)
	60
	61	wxGLContext::wxGLContext( bool WXUNUSED(isRGB), wxWindow *win, const wxPalette& WXUNUSED(palette) )
	62	{
	63	m_window = win;
	64	m_widget = win->m_wxwindow;
	65
	66	wxGLCanvas gc = (wxGLCanvas) win;
	67
	68	if (wxGLCanvas::GetGLXVersion() >= 13)
	69	{
	70	// GLX >= 1.3
	71	GLXFBConfig *fbc = gc->m_fbc;
	72	wxCHECK_RET( fbc, _T("invalid GLXFBConfig for OpenGl") );
	73	m_glContext = glXCreateNewContext( GDK_DISPLAY(), fbc[0], GLX_RGBA_TYPE, None, GL_TRUE );
	74	}
	75	else
	76	{
	77	// GLX <= 1.2
	78	XVisualInfo vi = (XVisualInfo ) gc->m_vi;
	79	wxCHECK_RET( vi, _T("invalid visual for OpenGl") );
	80	m_glContext = glXCreateContext( GDK_DISPLAY(), vi, None, GL_TRUE );
	81	}
	82
	83	wxCHECK_RET( m_glContext, _T("Couldn't create OpenGl context") );
	84	}
	85
	86	wxGLContext::wxGLContext(
	87	bool WXUNUSED(isRGB), wxWindow *win,
	88	const wxPalette& WXUNUSED(palette),
	89	const wxGLContext other / for sharing display lists */
	90	)
	91	{
	92	m_window = win;
	93	m_widget = win->m_wxwindow;
	94
	95	wxGLCanvas gc = (wxGLCanvas) win;
	96
	97	if (wxGLCanvas::GetGLXVersion() >= 13)
	98	{
	99	// GLX >= 1.3
	100	GLXFBConfig *fbc = gc->m_fbc;
	101	wxCHECK_RET( fbc, _T("invalid GLXFBConfig for OpenGl") );
	102	m_glContext = glXCreateNewContext( GDK_DISPLAY(), fbc[0], GLX_RGBA_TYPE,
	103	other ? other->m_glContext : None,
	104	GL_TRUE );
	105	}
	106	else
	107	{
	108	// GLX <= 1.2
	109	XVisualInfo vi = (XVisualInfo ) gc->m_vi;
	110	wxCHECK_RET( vi, _T("invalid visual for OpenGl") );
	111	m_glContext = glXCreateContext( GDK_DISPLAY(), vi,
	112	other ? other->m_glContext : None,
	113	GL_TRUE );
	114	}
	115
	116	if ( !m_glContext )
	117	{
	118	wxFAIL_MSG( _T("Couldn't create OpenGl context") );
	119	}
	120	}
	121
	122	wxGLContext::~wxGLContext()
	123	{
	124	if (!m_glContext) return;
	125
	126	if (m_glContext == glXGetCurrentContext())
	127	{
	128	if (wxGLCanvas::GetGLXVersion() >= 13)
	129	// GLX >= 1.3
	130	glXMakeContextCurrent( GDK_DISPLAY(), None, None, NULL);
	131	else
	132	// GLX <= 1.2
	133	glXMakeCurrent( GDK_DISPLAY(), None, NULL);
	134	}
	135
	136	glXDestroyContext( GDK_DISPLAY(), m_glContext );
	137	}
	138
	139	void wxGLContext::SwapBuffers()
	140	{
	141	if (m_glContext)
	142	{
	143	GdkWindow *window = GTK_PIZZA(m_widget)->bin_window;
	144	glXSwapBuffers( GDK_DISPLAY(), GDK_WINDOW_XWINDOW( window ) );
	145	}
	146	}
	147
	148	void wxGLContext::SetCurrent()
	149	{
	150	if (m_glContext)
	151	{
	152	GdkWindow *window = GTK_PIZZA(m_widget)->bin_window;
	153
	154	if (wxGLCanvas::GetGLXVersion() >= 13)
	155	// GLX >= 1.3
	156	glXMakeContextCurrent( GDK_DISPLAY(), GDK_WINDOW_XWINDOW(window),
	157	GDK_WINDOW_XWINDOW(window), m_glContext );
	158	else
	159	// GLX <= 1.2
	160	glXMakeCurrent( GDK_DISPLAY(), GDK_WINDOW_XWINDOW(window), m_glContext );
	161	}
	162	}
	163
	164	void wxGLContext::SetColour(const wxChar *colour)
	165	{
	166	wxColour col = wxTheColourDatabase->Find(colour);
	167	if (col.Ok())
	168	{
	169	float r = (float)(col.Red()/256.0);
	170	float g = (float)(col.Green()/256.0);
	171	float b = (float)(col.Blue()/256.0);
	172	glColor3f( r, g, b);
	173	}
	174	}
	175
	176	void wxGLContext::SetupPixelFormat()
	177	{
	178	}
	179
	180	void wxGLContext::SetupPalette( const wxPalette& WXUNUSED(palette) )
	181	{
	182	}
	183
	184	wxPalette wxGLContext::CreateDefaultPalette()
	185	{
	186	return wxNullPalette;
	187	}
	188
	189	//-----------------------------------------------------------------------------
	190	// "realize" from m_wxwindow
	191	//-----------------------------------------------------------------------------
	192
	193	extern "C" {
	194	static gint
	195	gtk_glwindow_realized_callback( GtkWidget WXUNUSED(widget), wxGLCanvas win )
	196	{
	197	if ( !win->m_glContext )
	198	{
	199	wxGLContext *share = win->m_sharedContext;
	200	if ( !share && win->m_sharedContextOf )
	201	share = win->m_sharedContextOf->GetContext();
	202
	203	win->m_glContext = new wxGLContext( TRUE, win, wxNullPalette, share );
	204	}
	205
	206	return FALSE;
	207	}
	208	}
	209
	210	//-----------------------------------------------------------------------------
	211	// "map" from m_wxwindow
	212	//-----------------------------------------------------------------------------
	213
	214	extern "C" {
	215	static gint
	216	gtk_glwindow_map_callback( GtkWidget * WXUNUSED(widget), wxGLCanvas *win )
	217	{
	218	if (win->m_glContext/* && win->m_exposed*/)
	219	{
	220	wxPaintEvent event( win->GetId() );
	221	event.SetEventObject( win );
	222	win->GetEventHandler()->ProcessEvent( event );
	223
	224	win->m_exposed = FALSE;
	225	win->GetUpdateRegion().Clear();
	226	}
	227
	228	return FALSE;
	229	}
	230	}
	231
	232	//-----------------------------------------------------------------------------
	233	// "expose_event" of m_wxwindow
	234	//-----------------------------------------------------------------------------
	235
	236	extern "C" {
	237	static void
	238	gtk_glwindow_expose_callback( GtkWidget WXUNUSED(widget), GdkEventExpose gdk_event, wxGLCanvas *win )
	239	{
	240	if (g_isIdle)
	241	wxapp_install_idle_handler();
	242
	243	win->m_exposed = TRUE;
	244
	245	win->GetUpdateRegion().Union( gdk_event->area.x,
	246	gdk_event->area.y,
	247	gdk_event->area.width,
	248	gdk_event->area.height );
	249	}
	250	}
	251
	252	//-----------------------------------------------------------------------------
	253	// "size_allocate" of m_wxwindow
	254	//-----------------------------------------------------------------------------
	255
	256	extern "C" {
	257	static void
	258	gtk_glcanvas_size_callback( GtkWidget WXUNUSED(widget), GtkAllocation alloc, wxGLCanvas *win )
	259	{
	260	if (g_isIdle)
	261	wxapp_install_idle_handler();
	262
	263	if (!win->m_hasVMT)
	264	return;
	265
	266	wxSizeEvent event( wxSize(win->m_width,win->m_height), win->GetId() );
	267	event.SetEventObject( win );
	268	win->GetEventHandler()->ProcessEvent( event );
	269	}
	270	}
	271
	272	//---------------------------------------------------------------------------
	273	// wxGlCanvas
	274	//---------------------------------------------------------------------------
	275
	276	IMPLEMENT_CLASS(wxGLCanvas, wxWindow)
	277
	278	BEGIN_EVENT_TABLE(wxGLCanvas, wxWindow)
	279	EVT_SIZE(wxGLCanvas::OnSize)
	280	END_EVENT_TABLE()
	281
	282	wxGLCanvas::wxGLCanvas( wxWindow *parent, wxWindowID id,
	283	const wxPoint& pos, const wxSize& size,
	284	long style, const wxString& name,
	285	int *attribList,
	286	const wxPalette& palette )
	287	{
	288	Create( parent, NULL, NULL, id, pos, size, style, name, attribList, palette );
	289	}
	290
	291	wxGLCanvas::wxGLCanvas( wxWindow *parent,
	292	const wxGLContext *shared,
	293	wxWindowID id,
	294	const wxPoint& pos, const wxSize& size,
	295	long style, const wxString& name,
	296	int *attribList,
	297	const wxPalette& palette )
	298	{
	299	Create( parent, shared, NULL, id, pos, size, style, name, attribList, palette );
	300	}
	301
	302	wxGLCanvas::wxGLCanvas( wxWindow *parent,
	303	const wxGLCanvas *shared,
	304	wxWindowID id,
	305	const wxPoint& pos, const wxSize& size,
	306	long style, const wxString& name,
	307	int *attribList,
	308	const wxPalette& palette )
	309	{
	310	Create( parent, NULL, shared, id, pos, size, style, name, attribList, palette );
	311	}
	312
	313	bool wxGLCanvas::Create( wxWindow *parent,
	314	const wxGLContext *shared,
	315	const wxGLCanvas *shared_context_of,
	316	wxWindowID id,
	317	const wxPoint& pos, const wxSize& size,
	318	long style, const wxString& name,
	319	int *attribList,
	320	const wxPalette& palette)
	321	{
	322	m_sharedContext = (wxGLContext*)shared; // const_cast
	323	m_sharedContextOf = (wxGLCanvas*)shared_context_of; // const_cast
	324	m_glContext = (wxGLContext*) NULL;
	325
	326	m_exposed = FALSE;
	327	m_noExpose = TRUE;
	328	m_nativeSizeEvent = TRUE;
	329	m_fbc = NULL;
	330	m_vi = NULL;
	331
	332	// to be sure the glx version is known
	333	wxGLCanvas::QueryGLXVersion();
	334
	335	if (wxGLCanvas::GetGLXVersion() >= 13)
	336	{
	337	// GLX >= 1.3 uses a GLXFBConfig
	338	GLXFBConfig * fbc = NULL;
	339	if (wxTheApp->m_glFBCInfo != NULL)
	340	{
	341	fbc = (GLXFBConfig *) wxTheApp->m_glFBCInfo;
	342	m_canFreeFBC = FALSE; // owned by wxTheApp - don't free upon destruction
	343	}
	344	else
	345	{
	346	fbc = (GLXFBConfig *) wxGLCanvas::ChooseGLFBC(attribList);
	347	m_canFreeFBC = TRUE;
	348	}
	349	m_fbc = fbc; // save for later use
	350	wxCHECK_MSG( m_fbc, FALSE, _T("required FBConfig couldn't be found") );
	351	}
	352
	353	XVisualInfo *vi = NULL;
	354	if (wxTheApp->m_glVisualInfo != NULL)
	355	{
	356	vi = (XVisualInfo *)wxTheApp->m_glVisualInfo;
	357	m_canFreeVi = FALSE; // owned by wxTheApp - don't free upon destruction
	358	}
	359	else
	360	{
	361	if (wxGLCanvas::GetGLXVersion() >= 13)
	362	// GLX >= 1.3
	363	vi = glXGetVisualFromFBConfig(GDK_DISPLAY(), m_fbc[0]);
	364	else
	365	// GLX <= 1.2
	366	vi = (XVisualInfo *) ChooseGLVisual(attribList);
	367
	368	m_canFreeVi = TRUE;
	369	}
	370
	371	m_vi = vi; // save for later use
	372
	373	wxCHECK_MSG( m_vi, FALSE, _T("required visual couldn't be found") );
	374	GdkVisual *visual;
	375	GdkColormap *colormap;
	376
	377	// MR: This needs a fix for lower gtk+ versions too. Might need to rethink logic (FIXME)
	378	#if defined(__WXGTK20__) && GTK_CHECK_VERSION(2,2,0)
	379	if (!gtk_check_version(2,2,0))
	380	{
	381	wxWindow::Create( parent, id, pos, size, style, name );
	382
	383	m_glWidget = m_wxwindow;
	384
	385	GdkScreen *screen = gtk_widget_get_screen( m_glWidget );
	386	colormap = gdk_screen_get_default_colormap(screen);
	387	visual = gdk_colormap_get_visual(colormap);
	388
	389	if (GDK_VISUAL_XVISUAL(visual)->visualid != vi->visualid)
	390	{
	391	visual = gdk_x11_screen_lookup_visual( screen, vi->visualid );
	392	colormap = gdk_colormap_new(visual, FALSE);
	393	}
	394
	395	gtk_widget_set_colormap( m_glWidget, colormap );
	396	}
	397	else
	398	#endif
	399	{
	400	visual = gdkx_visual_get( vi->visualid );
	401	colormap = gdk_colormap_new( visual, TRUE );
	402
	403	gtk_widget_push_colormap( colormap );
	404	gtk_widget_push_visual( visual );
	405
	406	wxWindow::Create( parent, id, pos, size, style, name );
	407	m_glWidget = m_wxwindow;
	408	}
	409
	410	gtk_widget_set_double_buffered( m_glWidget, FALSE );
	411
	412	gtk_pizza_set_clear( GTK_PIZZA(m_wxwindow), FALSE );
	413
	414	g_signal_connect (m_wxwindow, "realize",
	415	G_CALLBACK (gtk_glwindow_realized_callback),
	416	this);
	417	g_signal_connect (m_wxwindow, "map",
	418	G_CALLBACK (gtk_glwindow_map_callback),
	419	this);
	420	g_signal_connect (m_wxwindow, "expose_event",
	421	G_CALLBACK (gtk_glwindow_expose_callback),
	422	this);
	423	g_signal_connect (m_widget, "size_allocate",
	424	G_CALLBACK (gtk_glcanvas_size_callback),
	425	this);
	426
	427	if (gtk_check_version(2,2,0) != NULL)
	428	{
	429	gtk_widget_pop_visual();
	430	gtk_widget_pop_colormap();
	431	}
	432
	433	// if our parent window is already visible, we had been realized before we
	434	// connected to the "realize" signal and hence our m_glContext hasn't been
	435	// initialized yet and we have to do it now
	436	if (GTK_WIDGET_REALIZED(m_wxwindow))
	437	gtk_glwindow_realized_callback( m_wxwindow, this );
	438
	439	if (GTK_WIDGET_MAPPED(m_wxwindow))
	440	gtk_glwindow_map_callback( m_wxwindow, this );
	441
	442	return TRUE;
	443	}
	444
	445	wxGLCanvas::~wxGLCanvas()
	446	{
	447	GLXFBConfig * fbc = (GLXFBConfig *) m_fbc;
	448	if (fbc && m_canFreeFBC)
	449	XFree( fbc );
	450
	451	XVisualInfo vi = (XVisualInfo ) m_vi;
	452	if (vi && m_canFreeVi)
	453	XFree( vi );
	454
	455	delete m_glContext;
	456	}
	457
	458	void* wxGLCanvas::ChooseGLVisual(int *attribList)
	459	{
	460	int data[512];
	461	GetGLAttribListFromWX( attribList, data );
	462	attribList = (int*) data;
	463
	464	Display *dpy = GDK_DISPLAY();
	465
	466	return glXChooseVisual( dpy, DefaultScreen(dpy), attribList );
	467	}
	468
	469	void* wxGLCanvas::ChooseGLFBC(int *attribList)
	470	{
	471	int data[512];
	472	GetGLAttribListFromWX( attribList, data );
	473	attribList = (int*) data;
	474
	475	int returned;
	476	return glXChooseFBConfig( GDK_DISPLAY(), DefaultScreen(GDK_DISPLAY()),
	477	attribList, &returned );
	478	}
	479
	480
	481	void wxGLCanvas::GetGLAttribListFromWX(int wx_attribList, int gl_attribList )
	482	{
	483	if (!wx_attribList)
	484	{
	485	if (wxGLCanvas::GetGLXVersion() >= 13)
	486	// leave GLX >= 1.3 choose the default attributes
	487	gl_attribList[0] = 0;
	488	else
	489	{
	490	int i = 0;
	491	// default settings if attriblist = 0
	492	gl_attribList[i++] = GLX_RGBA;
	493	gl_attribList[i++] = GLX_DOUBLEBUFFER;
	494	gl_attribList[i++] = GLX_DEPTH_SIZE; gl_attribList[i++] = 1;
	495	gl_attribList[i++] = GLX_RED_SIZE; gl_attribList[i++] = 1;
	496	gl_attribList[i++] = GLX_GREEN_SIZE; gl_attribList[i++] = 1;
	497	gl_attribList[i++] = GLX_BLUE_SIZE; gl_attribList[i++] = 1;
	498	gl_attribList[i++] = GLX_ALPHA_SIZE; gl_attribList[i++] = 0;
	499	gl_attribList[i++] = None;
	500	}
	501	}
	502	else
	503	{
	504	int arg=0, p=0;
	505	while( (wx_attribList[arg]!=0) && (p<510) )
	506	{
	507	switch( wx_attribList[arg++] )
	508	{
	509	case WX_GL_RGBA:
	510	if (wxGLCanvas::GetGLXVersion() <= 12)
	511	// for GLX >= 1.3, GLX_RGBA is useless (setting this flags will crash on most opengl implm)
	512	gl_attribList[p++] = GLX_RGBA;
	513	break;
	514	case WX_GL_BUFFER_SIZE:
	515	gl_attribList[p++] = GLX_BUFFER_SIZE;
	516	gl_attribList[p++] = wx_attribList[arg++];
	517	break;
	518	case WX_GL_LEVEL:
	519	gl_attribList[p++] = GLX_LEVEL;
	520	gl_attribList[p++] = wx_attribList[arg++];
	521	break;
	522	case WX_GL_DOUBLEBUFFER:
	523	if (wxGLCanvas::GetGLXVersion() <= 12)
	524	gl_attribList[p++] = GLX_DOUBLEBUFFER;
	525	else
	526	// for GLX >= 1.3, GLX_DOUBLEBUFFER format is different (1 <=> True)
	527	// it seems this flag is useless for some hardware opengl implementation.
	528	// but for Mesa 6.2.1, this flag is used so don't ignore it.
	529	gl_attribList[p++] = GLX_DOUBLEBUFFER;
	530	gl_attribList[p++] = 1;
	531	break;
	532	case WX_GL_STEREO:
	533	gl_attribList[p++] = GLX_STEREO;
	534	break;
	535	case WX_GL_AUX_BUFFERS:
	536	gl_attribList[p++] = GLX_AUX_BUFFERS;
	537	gl_attribList[p++] = wx_attribList[arg++];
	538	break;
	539	case WX_GL_MIN_RED:
	540	gl_attribList[p++] = GLX_RED_SIZE;
	541	gl_attribList[p++] = wx_attribList[arg++];
	542	break;
	543	case WX_GL_MIN_GREEN:
	544	gl_attribList[p++] = GLX_GREEN_SIZE;
	545	gl_attribList[p++] = wx_attribList[arg++];
	546	break;
	547	case WX_GL_MIN_BLUE:
	548	gl_attribList[p++] = GLX_BLUE_SIZE;
	549	gl_attribList[p++] = wx_attribList[arg++];
	550	break;
	551	case WX_GL_MIN_ALPHA:
	552	gl_attribList[p++] = GLX_ALPHA_SIZE;
	553	gl_attribList[p++] = wx_attribList[arg++];
	554	break;
	555	case WX_GL_DEPTH_SIZE:
	556	gl_attribList[p++] = GLX_DEPTH_SIZE;
	557	gl_attribList[p++] = wx_attribList[arg++];
	558	break;
	559	case WX_GL_STENCIL_SIZE:
	560	gl_attribList[p++] = GLX_STENCIL_SIZE;
	561	gl_attribList[p++] = wx_attribList[arg++];
	562	break;
	563	case WX_GL_MIN_ACCUM_RED:
	564	gl_attribList[p++] = GLX_ACCUM_RED_SIZE;
	565	gl_attribList[p++] = wx_attribList[arg++];
	566	break;
	567	case WX_GL_MIN_ACCUM_GREEN:
	568	gl_attribList[p++] = GLX_ACCUM_GREEN_SIZE;
	569	gl_attribList[p++] = wx_attribList[arg++];
	570	break;
	571	case WX_GL_MIN_ACCUM_BLUE:
	572	gl_attribList[p++] = GLX_ACCUM_BLUE_SIZE;
	573	gl_attribList[p++] = wx_attribList[arg++];
	574	break;
	575	case WX_GL_MIN_ACCUM_ALPHA:
	576	gl_attribList[p++] = GLX_ACCUM_ALPHA_SIZE;
	577	gl_attribList[p++] = wx_attribList[arg++];
	578	break;
	579	default:
	580	break;
	581	}
	582	}
	583
	584	gl_attribList[p] = 0;
	585	}
	586	}
	587
	588	void wxGLCanvas::QueryGLXVersion()
	589	{
	590	if (m_glxVersion == 0)
	591	{
	592	// check the GLX version
	593	int glxMajorVer, glxMinorVer;
	594	bool ok = glXQueryVersion(GDK_DISPLAY(), &glxMajorVer, &glxMinorVer);
	595	wxASSERT_MSG( ok, _T("GLX version not found") );
	596	if (!ok)
	597	m_glxVersion = 10; // 1.0 by default
	598	else
	599	m_glxVersion = glxMajorVer*10 + glxMinorVer;
	600	}
	601	}
	602
	603	int wxGLCanvas::GetGLXVersion()
	604	{
	605	wxASSERT_MSG( m_glxVersion>0, _T("GLX version has not been initialized with wxGLCanvas::QueryGLXVersion()") );
	606	return m_glxVersion;
	607	}
	608
	609
	610	void wxGLCanvas::SwapBuffers()
	611	{
	612	if (m_glContext)
	613	m_glContext->SwapBuffers();
	614	}
	615
	616	void wxGLCanvas::OnSize(wxSizeEvent& WXUNUSED(event))
	617	{
	618	}
	619
	620	void wxGLCanvas::SetCurrent()
	621	{
	622	if (m_glContext)
	623	m_glContext->SetCurrent();
	624	}
	625
	626	void wxGLCanvas::SetColour( const wxChar *colour )
	627	{
	628	if (m_glContext)
	629	m_glContext->SetColour( colour );
	630	}
	631
	632	void wxGLCanvas::OnInternalIdle()
	633	{
	634	if (m_glContext && m_exposed)
	635	{
	636	wxPaintEvent event( GetId() );
	637	event.SetEventObject( this );
	638	GetEventHandler()->ProcessEvent( event );
	639
	640	m_exposed = FALSE;
	641	GetUpdateRegion().Clear();
	642	}
	643
	644	wxWindow::OnInternalIdle();
	645	}
	646
	647
	648
	649	//---------------------------------------------------------------------------
	650	// wxGLApp
	651	//---------------------------------------------------------------------------
	652
	653	IMPLEMENT_CLASS(wxGLApp, wxApp)
	654
	655	wxGLApp::~wxGLApp()
	656	{
	657	if (m_glFBCInfo)
	658	XFree(m_glFBCInfo);
	659	if (m_glVisualInfo)
	660	XFree(m_glVisualInfo);
	661	}
	662
	663	bool wxGLApp::InitGLVisual(int *attribList)
	664	{
	665	wxGLCanvas::QueryGLXVersion();
	666
	667	if (wxGLCanvas::GetGLXVersion() >= 13)
	668	{
	669	// GLX >= 1.3
	670	if (m_glFBCInfo)
	671	XFree(m_glFBCInfo);
	672	m_glFBCInfo = wxGLCanvas::ChooseGLFBC(attribList);
	673
	674	if (m_glFBCInfo)
	675	{
	676	if (m_glVisualInfo)
	677	XFree(m_glVisualInfo);
	678	m_glVisualInfo = glXGetVisualFromFBConfig(GDK_DISPLAY(), ((GLXFBConfig *)m_glFBCInfo)[0]);
	679	}
	680	return (m_glFBCInfo != NULL) && (m_glVisualInfo != NULL);
	681	}
	682	else
	683	{
	684	// GLX <= 1.2
	685	if (m_glVisualInfo)
	686	XFree(m_glVisualInfo);
	687	m_glVisualInfo = wxGLCanvas::ChooseGLVisual(attribList);
	688	return m_glVisualInfo != NULL;
	689	}
	690	}
	691
	692	#endif
	693	// wxUSE_GLCANVAS