0029138: Visualization - D3DHost_FrameBuffer should provide software fallback when...
[occt.git] / src / OpenGl / OpenGl_Window.cxx
index 43e8245..73891f2 100644 (file)
 
 #include <OpenGl_GlCore12.hxx>
 
-#include <InterfaceGraphic.hxx>
-
-#include <OpenGl_Window.hxx>
-
 #include <OpenGl_Context.hxx>
+#include <OpenGl_GraphicDriver.hxx>
+#include <OpenGl_Window.hxx>
 
 #include <Aspect_GraphicDeviceDefinitionError.hxx>
+#include <Graphic3d_TransformUtils.hxx>
 #include <TCollection_AsciiString.hxx>
 #include <TCollection_ExtendedString.hxx>
+#include <Graphic3d_GraphicDriver.hxx>
+
+#include <memory>
+
+IMPLEMENT_STANDARD_RTTIEXT(OpenGl_Window,Standard_Transient)
+
+#if defined(HAVE_EGL)
+  #include <EGL/egl.h>
+#endif
 
-IMPLEMENT_STANDARD_HANDLE(OpenGl_Window,MMgt_TShared)
-IMPLEMENT_STANDARD_RTTIEXT(OpenGl_Window,MMgt_TShared)
 
 #if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
 
 namespace
 {
-  static const TEL_COLOUR THE_DEFAULT_BG_COLOR = { { 0.F, 0.F, 0.F, 1.F } };
 
-#if defined(_WIN32)
+#if defined(HAVE_EGL)
+  //
+#elif defined(_WIN32)
 
   // WGL_ARB_pixel_format
 #ifndef WGL_NUMBER_PIXEL_FORMATS_ARB
@@ -114,9 +121,37 @@ namespace
     return DefWindowProcW (theWin, theMsg, theParamW, theParamL);
   }
 #else
-  static Bool WaitForNotify (Display* theDisp, XEvent* theEv, char* theArg)
+
+  // GLX_ARB_create_context
+#ifndef GLX_CONTEXT_MAJOR_VERSION_ARB
+  #define GLX_CONTEXT_DEBUG_BIT_ARB         0x00000001
+  #define GLX_CONTEXT_FORWARD_COMPATIBLE_BIT_ARB 0x00000002
+  #define GLX_CONTEXT_MAJOR_VERSION_ARB     0x2091
+  #define GLX_CONTEXT_MINOR_VERSION_ARB     0x2092
+  #define GLX_CONTEXT_FLAGS_ARB             0x2094
+
+  // GLX_ARB_create_context_profile
+  #define GLX_CONTEXT_CORE_PROFILE_BIT_ARB  0x00000001
+  #define GLX_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB 0x00000002
+  #define GLX_CONTEXT_PROFILE_MASK_ARB      0x9126
+#endif
+
+  //! Dummy XError handler which just skips errors
+  static int xErrorDummyHandler (Display*     /*theDisplay*/,
+                                 XErrorEvent* /*theErrorEvent*/)
   {
-    return (theEv->type == MapNotify) && (theEv->xmap.window == (Window )theArg);
+    return 0;
+  }
+
+  //! Auxiliary method to format list.
+  static void addMsgToList (TCollection_ExtendedString&       theList,
+                            const TCollection_ExtendedString& theMsg)
+  {
+    if (!theList.IsEmpty())
+    {
+      theList += ", ";
+    }
+    theList += theMsg;
   }
 #endif
 
@@ -126,24 +161,65 @@ namespace
 // function : OpenGl_Window
 // purpose  :
 // =======================================================================
-OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplayConnection,
-                              const CALL_DEF_WINDOW&        theCWindow,
+OpenGl_Window::OpenGl_Window (const Handle(OpenGl_GraphicDriver)& theDriver,
+                              const Handle(Aspect_Window)&  thePlatformWindow,
                               Aspect_RenderingContext       theGContext,
                               const Handle(OpenGl_Caps)&    theCaps,
                               const Handle(OpenGl_Context)& theShareCtx)
 : myGlContext (new OpenGl_Context (theCaps)),
   myOwnGContext (theGContext == 0),
-  myWidth ((Standard_Integer )theCWindow.dx),
-  myHeight ((Standard_Integer )theCWindow.dy),
-  myBgColor (THE_DEFAULT_BG_COLOR)
+  myPlatformWindow (thePlatformWindow),
+  mySwapInterval (theCaps->swapInterval)
 {
-  myBgColor.rgb[0] = theCWindow.Background.r;
-  myBgColor.rgb[1] = theCWindow.Background.g;
-  myBgColor.rgb[2] = theCWindow.Background.b;
+  myPlatformWindow->Size (myWidth, myHeight);
+
+  Standard_Boolean isCoreProfile = Standard_False;
 
-#if defined(_WIN32)
-  (void )theDisplayConnection;
-  HWND  aWindow   = (HWND )theCWindow.XWindow;
+#if defined(HAVE_EGL)
+  EGLDisplay anEglDisplay = (EGLDisplay )theDriver->getRawGlDisplay();
+  EGLContext anEglContext = (EGLContext )theDriver->getRawGlContext();
+  EGLConfig  anEglConfig  = (EGLConfig  )theDriver->getRawGlConfig();
+  if (anEglDisplay == EGL_NO_DISPLAY
+   || anEglContext == EGL_NO_CONTEXT
+   || anEglConfig == NULL)
+  {
+    throw Aspect_GraphicDeviceDefinitionError("OpenGl_Window, EGL does not provide compatible configurations!");
+    return;
+  }
+
+  EGLSurface anEglSurf = EGL_NO_SURFACE;
+  if (theGContext == (EGLContext )EGL_NO_CONTEXT)
+  {
+    // create new surface
+    anEglSurf = eglCreateWindowSurface (anEglDisplay,
+                                        anEglConfig,
+                                        (EGLNativeWindowType )myPlatformWindow->NativeHandle(),
+                                        NULL);
+    if (anEglSurf == EGL_NO_SURFACE)
+    {
+      throw Aspect_GraphicDeviceDefinitionError("OpenGl_Window, EGL is unable to create surface for window!");
+      return;
+    }
+  }
+  else if (theGContext != anEglContext)
+  {
+    throw Aspect_GraphicDeviceDefinitionError("OpenGl_Window, EGL is used in unsupported combination!");
+    return;
+  }
+  else
+  {
+    anEglSurf = eglGetCurrentSurface(EGL_DRAW);
+    if (anEglSurf == EGL_NO_SURFACE)
+    {
+      throw Aspect_GraphicDeviceDefinitionError("OpenGl_Window, EGL is unable to retrieve current surface!");
+      return;
+    }
+  }
+
+  myGlContext->Init ((Aspect_Drawable )anEglSurf, (Aspect_Display )anEglDisplay, (Aspect_RenderingContext )anEglContext, isCoreProfile);
+#elif defined(_WIN32)
+  (void )theDriver;
+  HWND  aWindow   = (HWND )myPlatformWindow->NativeHandle();
   HDC   aWindowDC = GetDC (aWindow);
   HGLRC aGContext = (HGLRC )theGContext;
 
@@ -165,14 +241,15 @@ OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplay
   int aPixelFrmtId = ChoosePixelFormat (aWindowDC, &aPixelFrmt);
 
   // in case of failure try without stereo if any
+  const Standard_Boolean hasStereo = aPixelFrmtId != 0 && theCaps->contextStereo;
   if (aPixelFrmtId == 0 && theCaps->contextStereo)
   {
     TCollection_ExtendedString aMsg ("OpenGl_Window::CreateWindow: "
                                      "ChoosePixelFormat is unable to find stereo supported pixel format. "
                                      "Choosing similar non stereo format.");
-    myGlContext->PushMessage (GL_DEBUG_SOURCE_APPLICATION_ARB,
-                              GL_DEBUG_TYPE_OTHER_ARB,
-                              0, GL_DEBUG_SEVERITY_HIGH_ARB, aMsg);
+    myGlContext->PushMessage (GL_DEBUG_SOURCE_APPLICATION,
+                              GL_DEBUG_TYPE_OTHER,
+                              0, GL_DEBUG_SEVERITY_HIGH, aMsg);
 
     aPixelFrmt.dwFlags &= ~PFD_STEREO;
     aPixelFrmtId = ChoosePixelFormat (aWindowDC, &aPixelFrmt);
@@ -184,7 +261,7 @@ OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplay
 
     TCollection_AsciiString aMsg ("OpenGl_Window::CreateWindow: ChoosePixelFormat failed. Error code: ");
     aMsg += (int )GetLastError();
-    Aspect_GraphicDeviceDefinitionError::Raise (aMsg.ToCString());
+    throw Aspect_GraphicDeviceDefinitionError(aMsg.ToCString());
     return;
   }
 
@@ -203,7 +280,7 @@ OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplay
     HWND  aWinTmp     = NULL;
     HDC   aDevCtxTmp  = NULL;
     HGLRC aRendCtxTmp = NULL;
-    if ((!theCaps->contextDebug && !theCaps->contextNoAccel)
+    if ((!theCaps->contextDebug && !theCaps->contextNoAccel && theCaps->contextCompatible)
      || RegisterClassW (&aClass) == 0)
     {
       aClass.lpszClassName = NULL;
@@ -263,7 +340,7 @@ OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplay
         WGL_DRAW_TO_WINDOW_ARB, GL_TRUE,
         WGL_SUPPORT_OPENGL_ARB, GL_TRUE,
         WGL_DOUBLE_BUFFER_ARB,  GL_TRUE,
-        WGL_STEREO_ARB,         theCaps->contextStereo ? GL_TRUE : GL_FALSE,
+        WGL_STEREO_ARB,         hasStereo ? GL_TRUE : GL_FALSE,
         WGL_PIXEL_TYPE_ARB,     WGL_TYPE_RGBA_ARB,
         //WGL_SAMPLE_BUFFERS_ARB, 1,
         //WGL_SAMPLES_ARB,        8,
@@ -284,25 +361,63 @@ OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplay
 
       TCollection_AsciiString aMsg("OpenGl_Window::CreateWindow: SetPixelFormat failed. Error code: ");
       aMsg += (int )GetLastError();
-      Aspect_GraphicDeviceDefinitionError::Raise (aMsg.ToCString());
+      throw Aspect_GraphicDeviceDefinitionError(aMsg.ToCString());
       return;
     }
 
     // create GL context with extra options
     if (aCreateCtxProc != NULL)
     {
-      // Beware! NVIDIA drivers reject context creation when WGL_CONTEXT_PROFILE_MASK_ARB are specified
-      // but not WGL_CONTEXT_MAJOR_VERSION_ARB/WGL_CONTEXT_MINOR_VERSION_ARB.
-      int aCtxAttribs[] =
+      if (!theCaps->contextCompatible)
       {
-        //WGL_CONTEXT_MAJOR_VERSION_ARB, 3,
-        //WGL_CONTEXT_MINOR_VERSION_ARB, 2,
-        //WGL_CONTEXT_PROFILE_MASK_ARB,  WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB, //WGL_CONTEXT_CORE_PROFILE_BIT_ARB,
-        WGL_CONTEXT_FLAGS_ARB,         theCaps->contextDebug ? WGL_CONTEXT_DEBUG_BIT_ARB : 0,
-        0, 0
-      };
+        int aCoreCtxAttribs[] =
+        {
+          WGL_CONTEXT_MAJOR_VERSION_ARB, 3,
+          WGL_CONTEXT_MINOR_VERSION_ARB, 2,
+          WGL_CONTEXT_PROFILE_MASK_ARB,  WGL_CONTEXT_CORE_PROFILE_BIT_ARB,
+          WGL_CONTEXT_FLAGS_ARB,         theCaps->contextDebug ? WGL_CONTEXT_DEBUG_BIT_ARB : 0,
+          0, 0
+        };
+
+        // Try to create the core profile of highest OpenGL version supported by OCCT
+        // (this will be done automatically by some drivers when requesting 3.2,
+        //  but some will not (e.g. AMD Catalyst) since WGL_ARB_create_context_profile specification allows both implementations).
+        for (int aLowVer4 = 5; aLowVer4 >= 0 && aGContext == NULL; --aLowVer4)
+        {
+          aCoreCtxAttribs[1] = 4;
+          aCoreCtxAttribs[3] = aLowVer4;
+          aGContext = aCreateCtxProc (aWindowDC, aSlaveCtx, aCoreCtxAttribs);
+        }
+        for (int aLowVer3 = 3; aLowVer3 >= 2 && aGContext == NULL; --aLowVer3)
+        {
+          aCoreCtxAttribs[1] = 3;
+          aCoreCtxAttribs[3] = aLowVer3;
+          aGContext = aCreateCtxProc (aWindowDC, aSlaveCtx, aCoreCtxAttribs);
+        }
+        isCoreProfile = aGContext != NULL;
+      }
+
+      if (aGContext == NULL)
+      {
+        int aCtxAttribs[] =
+        {
+          // Beware! NVIDIA drivers reject context creation when WGL_CONTEXT_PROFILE_MASK_ARB are specified
+          // but not WGL_CONTEXT_MAJOR_VERSION_ARB/WGL_CONTEXT_MINOR_VERSION_ARB.
+          //WGL_CONTEXT_PROFILE_MASK_ARB,  WGL_CONTEXT_COMPATIBILITY_PROFILE_BIT_ARB,
+          WGL_CONTEXT_FLAGS_ARB,         theCaps->contextDebug ? WGL_CONTEXT_DEBUG_BIT_ARB : 0,
+          0, 0
+        };
+        isCoreProfile = Standard_False;
+        aGContext = aCreateCtxProc (aWindowDC, aSlaveCtx, aCtxAttribs);
+
+        if (aGContext != NULL
+        && !theCaps->contextCompatible)
+        {
+          TCollection_ExtendedString aMsg("OpenGl_Window::CreateWindow: core profile creation failed.");
+          myGlContext->PushMessage (GL_DEBUG_SOURCE_APPLICATION, GL_DEBUG_TYPE_PORTABILITY, 0, GL_DEBUG_SEVERITY_LOW, aMsg);
+        }
+      }
 
-      aGContext = aCreateCtxProc (aWindowDC, aSlaveCtx, aCtxAttribs);
       if (aGContext != NULL)
       {
         aSlaveCtx = NULL;
@@ -337,7 +452,7 @@ OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplay
 
       TCollection_AsciiString aMsg ("OpenGl_Window::CreateWindow: wglCreateContext failed. Error code: ");
       aMsg += (int )GetLastError();
-      Aspect_GraphicDeviceDefinitionError::Raise (aMsg.ToCString());
+      throw Aspect_GraphicDeviceDefinitionError(aMsg.ToCString());
       return;
     }
   }
@@ -347,188 +462,143 @@ OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplay
   {
     TCollection_AsciiString aMsg ("OpenGl_Window::CreateWindow: wglShareLists failed. Error code: ");
     aMsg += (int )GetLastError();
-    Aspect_GraphicDeviceDefinitionError::Raise (aMsg.ToCString());
+    throw Aspect_GraphicDeviceDefinitionError(aMsg.ToCString());
     return;
   }
 
-  myGlContext->Init ((Aspect_Handle )aWindow, (Aspect_Handle )aWindowDC, (Aspect_RenderingContext )aGContext);
+  myGlContext->Init ((Aspect_Handle )aWindow, (Aspect_Handle )aWindowDC, (Aspect_RenderingContext )aGContext, isCoreProfile);
 #else
-  Window aParent = (Window )theCWindow.XWindow;
-  Window aWindow = 0;
-
-  Display*   aDisp     = theDisplayConnection->GetDisplay();
+  Window     aWindow   = (Window )myPlatformWindow->NativeHandle();
+  Display*   aDisp     = theDriver->GetDisplayConnection()->GetDisplay();
   GLXContext aGContext = (GLXContext )theGContext;
-
-  XWindowAttributes wattr;
-  XGetWindowAttributes (aDisp, aParent, &wattr);
-  const int scr = DefaultScreen (aDisp);
-
-  XVisualInfo* aVis = NULL;
+  GLXContext aSlaveCtx = !theShareCtx.IsNull() ? (GLXContext )theShareCtx->myGContext : NULL;
+
+  XWindowAttributes aWinAttribs;
+  XGetWindowAttributes (aDisp, aWindow, &aWinAttribs);
+  XVisualInfo aVisInfo;
+  aVisInfo.visualid = aWinAttribs.visual->visualid;
+  aVisInfo.screen   = DefaultScreen (aDisp);
+  int aNbItems;
+  std::unique_ptr<XVisualInfo, int(*)(void*)> aVis (XGetVisualInfo (aDisp, VisualIDMask | VisualScreenMask, &aVisInfo, &aNbItems), &XFree);
+  int isGl = 0;
+  if (aVis.get() == NULL)
   {
-    unsigned long aVisInfoMask = VisualIDMask | VisualScreenMask;
-    XVisualInfo aVisInfo;
-    aVisInfo.visualid = wattr.visual->visualid;
-    aVisInfo.screen   = scr;
-    int aNbItems;
-    aVis = XGetVisualInfo (aDisp, aVisInfoMask, &aVisInfo, &aNbItems);
+    throw Aspect_GraphicDeviceDefinitionError("OpenGl_Window::CreateWindow: XGetVisualInfo is unable to choose needed configuration in existing OpenGL context. ");
+    return;
   }
-
-  if (!myOwnGContext)
+  else if (glXGetConfig (aDisp, aVis.get(), GLX_USE_GL, &isGl) != 0 || !isGl)
   {
-    if (aVis != NULL)
-    {
-      Aspect_GraphicDeviceDefinitionError::Raise ("OpenGl_Window::CreateWindow: XGetVisualInfo failed.");
-      return;
-    }
-
-    aWindow = aParent;
+    throw Aspect_GraphicDeviceDefinitionError("OpenGl_Window::CreateWindow: window Visual does not support GL rendering!");
+    return;
   }
-  else
+
+  // create new context
+  GLXFBConfig anFBConfig = myPlatformWindow->NativeFBConfig();
+  const char* aGlxExts   = glXQueryExtensionsString (aDisp, aVisInfo.screen);
+  if (myOwnGContext
+   && anFBConfig != NULL
+   && OpenGl_Context::CheckExtension (aGlxExts, "GLX_ARB_create_context_profile"))
   {
-  #if defined(__linux) || defined(Linux) || defined(__APPLE__)
-    if (aVis != NULL)
+    // Replace default XError handler to ignore errors.
+    // Warning - this is global for all threads!
+    typedef int (*xerrorhandler_t)(Display* , XErrorEvent* );
+    xerrorhandler_t anOldHandler = XSetErrorHandler(xErrorDummyHandler);
+
+    typedef GLXContext (*glXCreateContextAttribsARB_t)(Display* dpy, GLXFBConfig config,
+                                                       GLXContext share_context, Bool direct,
+                                                       const int* attrib_list);
+    glXCreateContextAttribsARB_t aCreateCtxProc = (glXCreateContextAttribsARB_t )glXGetProcAddress((const GLubyte* )"glXCreateContextAttribsARB");
+    if (!theCaps->contextCompatible)
     {
-      // check Visual for OpenGl context's parameters compability
-      int isGl = 0, isDoubleBuffer = 0, isRGBA = 0, isStereo = 0;
-      int aDepthSize = 0, aStencilSize = 0;
-
-      if (glXGetConfig (aDisp, aVis, GLX_USE_GL, &isGl) != 0)
-        isGl = 0;
-
-      if (glXGetConfig (aDisp, aVis, GLX_RGBA, &isRGBA) != 0)
-        isRGBA = 0;
-
-      if (glXGetConfig (aDisp, aVis, GLX_DOUBLEBUFFER, &isDoubleBuffer) != 0)
-        isDoubleBuffer = 0;
-
-      if (glXGetConfig (aDisp, aVis, GLX_STEREO, &isStereo) != 0)
-        isStereo = 0;
-
-      if (glXGetConfig (aDisp, aVis, GLX_DEPTH_SIZE, &aDepthSize) != 0)
-        aDepthSize = 0;
-
-      if (glXGetConfig (aDisp, aVis, GLX_STENCIL_SIZE, &aStencilSize) != 0)
-        aStencilSize = 0;
+      int aCoreCtxAttribs[] =
+      {
+        GLX_CONTEXT_MAJOR_VERSION_ARB, 3,
+        GLX_CONTEXT_MINOR_VERSION_ARB, 2,
+        GLX_CONTEXT_PROFILE_MASK_ARB,  GLX_CONTEXT_CORE_PROFILE_BIT_ARB,
+        GLX_CONTEXT_FLAGS_ARB,         theCaps->contextDebug ? GLX_CONTEXT_DEBUG_BIT_ARB : 0,
+        0, 0
+      };
 
-      if (!isGl || !aDepthSize || !isRGBA  || !aStencilSize ||
-          (isDoubleBuffer ? 1 : 0) != 1 ||
-          (isStereo       ? 1 : 0) != (theCaps->contextStereo ? 1 : 0))
+      // try to create the core profile of highest OpenGL version supported by OCCT
+      for (int aLowVer4 = 5; aLowVer4 >= 0 && aGContext == NULL; --aLowVer4)
+      {
+        aCoreCtxAttribs[1] = 4;
+        aCoreCtxAttribs[3] = aLowVer4;
+        aGContext = aCreateCtxProc (aDisp, anFBConfig, aSlaveCtx, True, aCoreCtxAttribs);
+      }
+      for (int aLowVer3 = 3; aLowVer3 >= 2 && aGContext == NULL; --aLowVer3)
       {
-        XFree (aVis);
-        aVis = NULL;
+        aCoreCtxAttribs[1] = 3;
+        aCoreCtxAttribs[3] = aLowVer3;
+        aGContext = aCreateCtxProc (aDisp, anFBConfig, aSlaveCtx, True, aCoreCtxAttribs);
       }
+      isCoreProfile = aGContext != NULL;
     }
-  #endif
 
-    if (aVis == NULL)
+    if (aGContext == NULL)
     {
-      int anIter = 0;
-      int anAttribs[13];
-      anAttribs[anIter++] = GLX_RGBA;
-
-      anAttribs[anIter++] = GLX_DEPTH_SIZE;
-      anAttribs[anIter++] = 1;
-
-      anAttribs[anIter++] = GLX_STENCIL_SIZE;
-      anAttribs[anIter++] = 1;
-
-      anAttribs[anIter++] = GLX_RED_SIZE;
-      anAttribs[anIter++] = (wattr.depth <= 8) ? 0 : 1;
-
-      anAttribs[anIter++] = GLX_GREEN_SIZE;
-      anAttribs[anIter++] = (wattr.depth <= 8) ? 0 : 1;
-
-      anAttribs[anIter++] = GLX_BLUE_SIZE;
-      anAttribs[anIter++] = (wattr.depth <= 8) ? 0 : 1;
-
-      anAttribs[anIter++] = GLX_DOUBLEBUFFER;
-
-      // warning: this flag may be set to None, so it need to be last in anAttribs
-      Standard_Integer aStereoFlagPos = anIter;
-      if (theCaps->contextStereo)
-        anAttribs[anIter++] = GLX_STEREO;
-
-      anAttribs[anIter++] = None;
-
-      aVis = glXChooseVisual (aDisp, scr, anAttribs);
-
-      // in case of failure try without stereo if any
-      if (aVis == NULL && theCaps->contextStereo)
+      int aCtxAttribs[] =
       {
-        TCollection_ExtendedString aMsg ("OpenGl_Window::CreateWindow: "
-                                         "glXChooseVisual is unable to find stereo supported pixel format. "
-                                         "Choosing similar non stereo format.");
-        myGlContext->PushMessage (GL_DEBUG_SOURCE_APPLICATION_ARB,
-                                  GL_DEBUG_TYPE_OTHER_ARB,
-                                  0, GL_DEBUG_SEVERITY_HIGH_ARB, aMsg);
-
-        anAttribs[aStereoFlagPos] = None;
-        aVis = glXChooseVisual (aDisp, scr, anAttribs);
-      }
+        GLX_CONTEXT_FLAGS_ARB, theCaps->contextDebug ? GLX_CONTEXT_DEBUG_BIT_ARB : 0,
+        0, 0
+      };
+      isCoreProfile = Standard_False;
+      aGContext = aCreateCtxProc (aDisp, anFBConfig, aSlaveCtx, True, aCtxAttribs);
 
-      if (aVis == NULL)
+      if (aGContext != NULL
+      && !theCaps->contextCompatible)
       {
-        Aspect_GraphicDeviceDefinitionError::Raise ("OpenGl_Window::CreateWindow: glXChooseVisual failed.");
-        return;
+        TCollection_ExtendedString aMsg("OpenGl_Window::CreateWindow: core profile creation failed.");
+        myGlContext->PushMessage (GL_DEBUG_SOURCE_APPLICATION, GL_DEBUG_TYPE_PORTABILITY, 0, GL_DEBUG_SEVERITY_LOW, aMsg);
       }
     }
+    XSetErrorHandler(anOldHandler);
+  }
 
-    if (!theShareCtx.IsNull())
-    {
-      // ctx est une copie du previous
-      aGContext = glXCreateContext (aDisp, aVis, (GLXContext )theShareCtx->myGContext, GL_TRUE);
-    }
-    else
-    {
-      aGContext = glXCreateContext (aDisp, aVis, NULL, GL_TRUE);
-    }
-
-    if (!aGContext)
+  if (myOwnGContext
+   && aGContext == NULL)
+  {
+    aGContext = glXCreateContext (aDisp, aVis.get(), aSlaveCtx, GL_TRUE);
+    if (aGContext == NULL)
     {
-      Aspect_GraphicDeviceDefinitionError::Raise ("OpenGl_Window::CreateWindow: glXCreateContext failed.");
+      throw Aspect_GraphicDeviceDefinitionError("OpenGl_Window::CreateWindow: glXCreateContext failed.");
       return;
     }
+  }
 
-    Colormap cmap = XCreateColormap (aDisp, aParent, aVis->visual, AllocNone);
-
-    XColor color;
-    color.red   = (unsigned short) (myBgColor.rgb[0] * 0xFFFF);
-    color.green = (unsigned short) (myBgColor.rgb[1] * 0xFFFF);
-    color.blue  = (unsigned short) (myBgColor.rgb[2] * 0xFFFF);
-    color.flags = DoRed | DoGreen | DoBlue;
-    XAllocColor (aDisp, cmap, &color);
-
-    XSetWindowAttributes cwa;
-    cwa.colormap         = cmap;
-    cwa.event_mask       = StructureNotifyMask;
-    cwa.border_pixel     = color.pixel;
-    cwa.background_pixel = color.pixel;
-
-    if (aVis->visualid == wattr.visual->visualid)
-    {
-      aWindow = aParent;
-    }
-    else
-    {
-      unsigned long mask = CWBackPixel | CWColormap | CWBorderPixel | CWEventMask;
-      aWindow = XCreateWindow (aDisp, aParent, 0, 0, myWidth, myHeight, 0/*bw*/, aVis->depth, InputOutput, aVis->visual, mask, &cwa);
-    }
-
-    XSetWindowBackground (aDisp, aWindow, cwa.background_pixel);
-    XClearWindow (aDisp, aWindow);
-
-    if (aWindow != aParent)
-    {
-      XEvent anEvent;
-      XMapWindow (aDisp, aWindow);
-      XIfEvent (aDisp, &anEvent, WaitForNotify, (char* )aWindow);
-    }
+  // check Visual for OpenGl context's parameters compatibility
+  TCollection_ExtendedString aList;
+  int isDoubleBuffer = 0, isRGBA = 0, isStereo = 0;
+  int aDepthSize = 0, aStencilSize = 0;
+  glXGetConfig (aDisp, aVis.get(), GLX_RGBA,         &isRGBA);
+  glXGetConfig (aDisp, aVis.get(), GLX_DOUBLEBUFFER, &isDoubleBuffer);
+  glXGetConfig (aDisp, aVis.get(), GLX_STEREO,       &isStereo);
+  glXGetConfig (aDisp, aVis.get(), GLX_DEPTH_SIZE,   &aDepthSize);
+  glXGetConfig (aDisp, aVis.get(), GLX_STENCIL_SIZE, &aStencilSize);
+  if (aDepthSize < 1)      addMsgToList (aList, "no depth buffer");
+  if (aStencilSize < 1)    addMsgToList (aList, "no stencil buffer");
+  if (isRGBA == 0)         addMsgToList (aList, "no RGBA color buffer");
+  if (isDoubleBuffer == 0) addMsgToList (aList, "no Double Buffer");
+  if (theCaps->contextStereo && isStereo == 0)
+  {
+    addMsgToList (aList, "no Quad Buffer");
+  }
+  else if (!theCaps->contextStereo && isStereo == 1)
+  {
+    addMsgToList (aList, "extra Quad Buffer");
+  }
+  if (!aList.IsEmpty())
+  {
+    TCollection_ExtendedString aMsg = TCollection_ExtendedString ("OpenGl_Window::CreateWindow: window Visual is incomplete: ") + aList;
+    myGlContext->PushMessage (GL_DEBUG_SOURCE_APPLICATION,
+                              GL_DEBUG_TYPE_OTHER,
+                              0, GL_DEBUG_SEVERITY_MEDIUM, aMsg);
   }
 
-  myGlContext->Init ((Aspect_Drawable )aWindow, (Aspect_Display )aDisp, (Aspect_RenderingContext )aGContext);
+  myGlContext->Init ((Aspect_Drawable )aWindow, (Aspect_Display )aDisp, (Aspect_RenderingContext )aGContext, isCoreProfile);
 #endif
   myGlContext->Share (theShareCtx);
-
+  myGlContext->SetSwapInterval (mySwapInterval);
   Init();
 }
 
@@ -538,7 +608,8 @@ OpenGl_Window::OpenGl_Window (const Handle(Aspect_DisplayConnection)& theDisplay
 // =======================================================================
 OpenGl_Window::~OpenGl_Window()
 {
-  if (!myOwnGContext)
+  if (!myOwnGContext
+   ||  myGlContext.IsNull())
   {
     myGlContext.Nullify();
     return;
@@ -547,7 +618,13 @@ OpenGl_Window::~OpenGl_Window()
   // release "GL" context if it is owned by window
   // Mesa implementation can fail to destroy GL context if it set for current thread.
   // It should be safer to unset thread GL context before its destruction.
-#if defined(_WIN32)
+#if defined(HAVE_EGL)
+  if ((EGLSurface )myGlContext->myWindow != EGL_NO_SURFACE)
+  {
+    eglDestroySurface ((EGLDisplay )myGlContext->myDisplay,
+                       (EGLSurface )myGlContext->myWindow);
+  }
+#elif defined(_WIN32)
   HWND  aWindow          = (HWND  )myGlContext->myWindow;
   HDC   aWindowDC        = (HDC   )myGlContext->myWindowDC;
   HGLRC aWindowGContext  = (HGLRC )myGlContext->myGContext;
@@ -601,22 +678,26 @@ Standard_Boolean OpenGl_Window::Activate()
 // function : Resize
 // purpose  : call_subr_resize
 // =======================================================================
-void OpenGl_Window::Resize (const CALL_DEF_WINDOW& theCWindow)
+void OpenGl_Window::Resize()
 {
-#if !defined(_WIN32)
+#if !defined(_WIN32) && !defined(HAVE_EGL)
   Display* aDisp = (Display* )myGlContext->myDisplay;
   if (aDisp == NULL)
     return;
 #endif
 
+  Standard_Integer aWidth  = 0;
+  Standard_Integer aHeight = 0;
+  myPlatformWindow->Size (aWidth, aHeight);
+
   // If the size is not changed - do nothing
-  if ((myWidth == theCWindow.dx) && (myHeight == theCWindow.dy))
+  if ((myWidth == aWidth) && (myHeight == aHeight))
     return;
 
-  myWidth  = (Standard_Integer )theCWindow.dx;
-  myHeight = (Standard_Integer )theCWindow.dy;
+  myWidth  = aWidth;
+  myHeight = aHeight;
 
-#if !defined(_WIN32)
+#if !defined(_WIN32) && !defined(HAVE_EGL)
   XResizeWindow (aDisp, myGlContext->myWindow, (unsigned int )myWidth, (unsigned int )myHeight);
   XSync (aDisp, False);
 #endif
@@ -624,46 +705,6 @@ void OpenGl_Window::Resize (const CALL_DEF_WINDOW& theCWindow)
   Init();
 }
 
-#endif // !__APPLE__
-
-// =======================================================================
-// function : ReadDepths
-// purpose  : TelReadDepths
-// =======================================================================
-void OpenGl_Window::ReadDepths (const Standard_Integer theX,     const Standard_Integer theY,
-                                const Standard_Integer theWidth, const Standard_Integer theHeight,
-                                float* theDepths)
-{
-  if (theDepths == NULL || !Activate())
-    return;
-
-  glMatrixMode (GL_PROJECTION);
-  glLoadIdentity();
-  gluOrtho2D (0.0, (GLdouble )myWidth, 0.0, (GLdouble )myHeight);
-  glMatrixMode (GL_MODELVIEW);
-  glLoadIdentity();
-
-  glRasterPos2i (theX, theY);
-  DisableFeatures();
-  glReadPixels (theX, theY, theWidth, theHeight, GL_DEPTH_COMPONENT, GL_FLOAT, theDepths);
-  EnableFeatures();
-}
-
-// =======================================================================
-// function : SetBackgroundColor
-// purpose  : call_subr_set_background
-// =======================================================================
-void OpenGl_Window::SetBackgroundColor (const Standard_ShortReal theR,
-                                        const Standard_ShortReal theG,
-                                        const Standard_ShortReal theB)
-{
-  myBgColor.rgb[0] = theR;
-  myBgColor.rgb[1] = theG;
-  myBgColor.rgb[2] = theB;
-}
-
-#if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
-
 // =======================================================================
 // function : Init
 // purpose  :
@@ -673,11 +714,14 @@ void OpenGl_Window::Init()
   if (!Activate())
     return;
 
-#if defined(_WIN32)
-  RECT cr;
-  GetClientRect ((HWND )myGlContext->myWindow, &cr);
-  myWidth  = cr.right - cr.left;
-  myHeight = cr.bottom - cr.top;
+#if defined(HAVE_EGL)
+  if (!myPlatformWindow->IsVirtual())
+  {
+    eglQuerySurface ((EGLDisplay )myGlContext->myDisplay, (EGLSurface )myGlContext->myWindow, EGL_WIDTH,  &myWidth);
+    eglQuerySurface ((EGLDisplay )myGlContext->myDisplay, (EGLSurface )myGlContext->myWindow, EGL_HEIGHT, &myHeight);
+  }
+#elif defined(_WIN32)
+  //
 #else
   Window aRootWin;
   int aDummy;
@@ -690,106 +734,30 @@ void OpenGl_Window::Init()
   myHeight = aNewHeight;
 #endif
 
-  glMatrixMode (GL_MODELVIEW);
-  glViewport (0, 0, myWidth, myHeight);
-
+  glDisable (GL_DITHER);
   glDisable (GL_SCISSOR_TEST);
-  glDrawBuffer (GL_BACK);
-}
-
-#endif // !__APPLE__
-
-// =======================================================================
-// function : EnableFeatures
-// purpose  :
-// =======================================================================
-void OpenGl_Window::EnableFeatures() const
-{
-  //
+  const Standard_Integer aViewport[4] = { 0, 0, myWidth, myHeight };
+  myGlContext->ResizeViewport (aViewport);
+#if !defined(GL_ES_VERSION_2_0)
+  myGlContext->SetDrawBuffer (GL_BACK);
+  if (myGlContext->core11 != NULL)
+  {
+    glMatrixMode (GL_MODELVIEW);
+  }
+#endif
 }
 
 // =======================================================================
-// function : DisableFeatures
+// function : SetSwapInterval
 // purpose  :
 // =======================================================================
-void OpenGl_Window::DisableFeatures() const
+void OpenGl_Window::SetSwapInterval()
 {
-  glPixelTransferi (GL_MAP_COLOR, GL_FALSE);
-
-  /*
-  * Disable stuff that's likely to slow down glDrawPixels.
-  * (Omit as much of this as possible, when you know in advance
-  * that the OpenGL state will already be set correctly.)
-  */
-  glDisable(GL_ALPHA_TEST);
-  glDisable(GL_BLEND);
-  glDisable(GL_DEPTH_TEST);
-  glDisable(GL_FOG);
-  glDisable(GL_LIGHTING);
-
-  glDisable(GL_LOGIC_OP);
-  glDisable(GL_STENCIL_TEST);
-  glDisable(GL_TEXTURE_1D);
-  glDisable(GL_TEXTURE_2D);
-  glPixelTransferi(GL_MAP_COLOR, GL_FALSE);
-  glPixelTransferi(GL_RED_SCALE, 1);
-  glPixelTransferi(GL_RED_BIAS, 0);
-  glPixelTransferi(GL_GREEN_SCALE, 1);
-  glPixelTransferi(GL_GREEN_BIAS, 0);
-  glPixelTransferi(GL_BLUE_SCALE, 1);
-  glPixelTransferi(GL_BLUE_BIAS, 0);
-  glPixelTransferi(GL_ALPHA_SCALE, 1);
-  glPixelTransferi(GL_ALPHA_BIAS, 0);
-
-  /*
-  * Disable extensions that could slow down glDrawPixels.
-  * (Actually, you should check for the presence of the proper
-  * extension before making these calls.  I've omitted that
-  * code for simplicity.)
-  */
-
-  if ((myGlContext->myGlVerMajor >= 1) && (myGlContext->myGlVerMinor >= 2))
+  if (mySwapInterval != myGlContext->caps->swapInterval)
   {
-#ifdef GL_EXT_convolution
-    if (myGlContext->CheckExtension ("GL_CONVOLUTION_1D_EXT"))
-      glDisable(GL_CONVOLUTION_1D_EXT);
-
-    if (myGlContext->CheckExtension ("GL_CONVOLUTION_2D_EXT"))
-      glDisable(GL_CONVOLUTION_2D_EXT);
-
-    if (myGlContext->CheckExtension ("GL_SEPARABLE_2D_EXT"))
-      glDisable(GL_SEPARABLE_2D_EXT);
-#endif
-
-#ifdef GL_EXT_histogram
-    if (myGlContext->CheckExtension ("GL_SEPARABLE_2D_EXT"))
-      glDisable(GL_HISTOGRAM_EXT);
-
-    if (myGlContext->CheckExtension ("GL_MINMAX_EXT"))
-      glDisable(GL_MINMAX_EXT);
-#endif
-
-#ifdef GL_EXT_texture3D
-    if (myGlContext->CheckExtension ("GL_TEXTURE_3D_EXT"))
-      glDisable(GL_TEXTURE_3D_EXT);
-#endif
+    mySwapInterval = myGlContext->caps->swapInterval;
+    myGlContext->SetSwapInterval (mySwapInterval);
   }
 }
 
-// =======================================================================
-// function : MakeFrontBufCurrent
-// purpose  : TelMakeFrontBufCurrent
-// =======================================================================
-void OpenGl_Window::MakeFrontBufCurrent() const
-{
-  glDrawBuffer (GL_FRONT);
-}
-
-// =======================================================================
-// function : MakeBackBufCurrent
-// purpose  : TelMakeBackBufCurrent
-// =======================================================================
-void OpenGl_Window::MakeBackBufCurrent() const
-{
-  glDrawBuffer (GL_BACK);
-}
+#endif // !__APPLE__