1 // Created on: 2012-01-26
2 // Created by: Kirill GAVRILOV
3 // Copyright (c) 2012-2014 OPEN CASCADE SAS
5 // This file is part of Open CASCADE Technology software library.
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
20 #include <OpenGl_Context.hxx>
22 #include <OpenGl_ArbTBO.hxx>
23 #include <OpenGl_ArbIns.hxx>
24 #include <OpenGl_ArbDbg.hxx>
25 #include <OpenGl_ArbFBO.hxx>
26 #include <OpenGl_ExtGS.hxx>
27 #include <OpenGl_ArbTexBindless.hxx>
28 #include <OpenGl_GlCore44.hxx>
29 #include <OpenGl_Sampler.hxx>
30 #include <OpenGl_ShaderManager.hxx>
32 #include <Message_Messenger.hxx>
34 #include <NCollection_Vector.hxx>
36 #include <Standard_ProgramError.hxx>
41 #pragma comment(lib, "libEGL.lib")
45 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
48 #include <GL/glx.h> // glXGetProcAddress()
51 IMPLEMENT_STANDARD_HANDLE (OpenGl_Context, Standard_Transient)
52 IMPLEMENT_STANDARD_RTTIEXT(OpenGl_Context, Standard_Transient)
56 static const Handle(OpenGl_Resource) NULL_GL_RESOURCE;
59 // =======================================================================
60 // function : OpenGl_Context
62 // =======================================================================
63 OpenGl_Context::OpenGl_Context (const Handle(OpenGl_Caps)& theCaps)
82 caps (!theCaps.IsNull() ? theCaps : new OpenGl_Caps()),
83 #if defined(GL_ES_VERSION_2_0)
84 hasHighp (Standard_False),
85 hasTexRGBA8(Standard_False),
87 hasHighp (Standard_True),
88 hasTexRGBA8(Standard_True),
90 arbNPTW (Standard_False),
91 arbTexRG (Standard_False),
92 arbTexBindless (NULL),
94 arbTboRGB32 (Standard_False),
100 extBgra(Standard_False),
101 extAnis(Standard_False),
102 extPDS (Standard_False),
103 atiMem (Standard_False),
104 nvxMem (Standard_False),
105 mySharedResources (new OpenGl_ResourcesMap()),
106 myDelayed (new OpenGl_DelayReleaseMap()),
107 myUnusedResources (new OpenGl_ResourcesStack()),
109 myGlLibHandle (NULL),
110 myFuncs (new OpenGl_GlFunctions()),
112 myTexClamp (GL_CLAMP_TO_EDGE),
117 myIsInitialized (Standard_False),
118 myIsStereoBuffers (Standard_False),
119 myIsGlNormalizeEnabled (Standard_False),
120 #if !defined(GL_ES_VERSION_2_0)
121 myRenderMode (GL_RENDER),
127 myIsGlDebugCtx (Standard_False)
129 // system-dependent fields
130 #if defined(HAVE_EGL)
131 myDisplay = (Aspect_Display )EGL_NO_DISPLAY;
132 myWindow = (Aspect_Drawable )EGL_NO_SURFACE;
133 myGContext = (Aspect_RenderingContext )EGL_NO_CONTEXT;
134 #elif defined(_WIN32)
138 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
139 // Vendors can not extend functionality on this system
140 // and developers are limited to OpenGL support provided by Mac OS X SDK.
141 // We retrieve function pointers from system library
142 // to generalize extensions support on all platforms.
143 // In this way we also reach binary compatibility benefit between OS releases
144 // if some newest functionality is optionally used.
145 // Notice that GL version / extension availability checks are required
146 // because function pointers may be available but not functionality itself
147 // (depends on renderer).
149 myGlLibHandle = dlopen ("/System/Library/Frameworks/OpenGL.framework/Versions/Current/OpenGL", RTLD_LAZY);
155 memset (myFuncs.operator->(), 0, sizeof(OpenGl_GlFunctions));
156 myShaderManager = new OpenGl_ShaderManager (this);
159 // =======================================================================
160 // function : ~OpenGl_Context
162 // =======================================================================
163 OpenGl_Context::~OpenGl_Context()
165 // release clean up queue
168 #if !defined(GL_ES_VERSION_2_0)
169 // release default VAO
170 if (myDefaultVao != 0
174 core32->glDeleteVertexArrays (1, &myDefaultVao);
179 // release shared resources if any
180 if (((const Handle(Standard_Transient)& )mySharedResources)->GetRefCount() <= 1)
182 myShaderManager.Nullify();
183 for (NCollection_DataMap<TCollection_AsciiString, Handle(OpenGl_Resource)>::Iterator anIter (*mySharedResources);
184 anIter.More(); anIter.Next())
186 anIter.Value()->Release (this);
189 // release delayed resources added during deletion of shared resources
190 while (!myUnusedResources->IsEmpty())
192 myUnusedResources->First()->Release (this);
193 myUnusedResources->RemoveFirst();
198 myShaderManager->SetContext (NULL);
200 mySharedResources.Nullify();
203 // release sampler object
204 if (!myTexSampler.IsNull())
206 myTexSampler->Release (this);
209 #if !defined(GL_ES_VERSION_2_0)
216 glGetPointerv (GL_DEBUG_CALLBACK_USER_PARAM_ARB, &aPtr);
219 arbDbg->glDebugMessageCallbackARB (NULL, NULL);
221 myIsGlDebugCtx = Standard_False;
226 // =======================================================================
227 // function : forcedRelease
229 // =======================================================================
230 void OpenGl_Context::forcedRelease()
233 for (NCollection_DataMap<TCollection_AsciiString, Handle(OpenGl_Resource)>::Iterator anIter (*mySharedResources);
234 anIter.More(); anIter.Next())
236 anIter.Value()->Release (this);
238 mySharedResources->Clear();
239 myShaderManager->clear();
240 myShaderManager->SetContext (NULL);
242 // release delayed resources added during deletion of shared resources
243 while (!myUnusedResources->IsEmpty())
245 myUnusedResources->First()->Release (this);
246 myUnusedResources->RemoveFirst();
250 // =======================================================================
251 // function : MaxDegreeOfAnisotropy
253 // =======================================================================
254 Standard_Integer OpenGl_Context::MaxDegreeOfAnisotropy() const
259 // =======================================================================
260 // function : MaxTextureSize
262 // =======================================================================
263 Standard_Integer OpenGl_Context::MaxTextureSize() const
268 // =======================================================================
269 // function : MaxClipPlanes
271 // =======================================================================
272 Standard_Integer OpenGl_Context::MaxClipPlanes() const
274 return myMaxClipPlanes;
277 // =======================================================================
278 // function : SetDrawBufferLeft
280 // =======================================================================
281 void OpenGl_Context::SetDrawBufferLeft()
283 #if !defined(GL_ES_VERSION_2_0)
284 switch (myDrawBuffer)
288 glDrawBuffer (GL_BACK_LEFT);
289 myDrawBuffer = GL_BACK_LEFT;
292 case GL_FRONT_RIGHT :
294 glDrawBuffer (GL_FRONT_LEFT);
295 myDrawBuffer = GL_FRONT_LEFT;
298 case GL_FRONT_AND_BACK :
300 glDrawBuffer (GL_LEFT);
301 myDrawBuffer = GL_LEFT;
307 // =======================================================================
308 // function : SetDrawBufferRight
310 // =======================================================================
311 void OpenGl_Context::SetDrawBufferRight()
313 #if !defined(GL_ES_VERSION_2_0)
314 switch (myDrawBuffer)
318 glDrawBuffer (GL_BACK_RIGHT);
319 myDrawBuffer = GL_BACK_RIGHT;
324 glDrawBuffer (GL_FRONT_RIGHT);
325 myDrawBuffer = GL_FRONT_RIGHT;
328 case GL_FRONT_AND_BACK :
330 glDrawBuffer (GL_RIGHT);
331 myDrawBuffer = GL_RIGHT;
337 // =======================================================================
338 // function : SetDrawBufferMono
340 // =======================================================================
341 void OpenGl_Context::SetDrawBufferMono()
343 #if !defined(GL_ES_VERSION_2_0)
344 switch (myDrawBuffer)
348 glDrawBuffer (GL_BACK);
349 myDrawBuffer = GL_BACK;
353 case GL_FRONT_RIGHT :
354 glDrawBuffer (GL_FRONT);
355 myDrawBuffer = GL_FRONT;
360 glDrawBuffer (GL_FRONT_AND_BACK);
361 myDrawBuffer = GL_FRONT_AND_BACK;
367 // =======================================================================
368 // function : FetchState
370 // =======================================================================
371 void OpenGl_Context::FetchState()
373 #if !defined(GL_ES_VERSION_2_0)
374 // cache feedback mode state
377 ::glGetIntegerv (GL_RENDER_MODE, &myRenderMode);
380 // cache draw buffer state
381 glGetIntegerv (GL_DRAW_BUFFER, &myDrawBuffer);
385 // =======================================================================
388 // =======================================================================
389 void OpenGl_Context::Share (const Handle(OpenGl_Context)& theShareCtx)
391 if (!theShareCtx.IsNull())
393 mySharedResources = theShareCtx->mySharedResources;
394 myDelayed = theShareCtx->myDelayed;
395 myUnusedResources = theShareCtx->myUnusedResources;
396 myShaderManager = theShareCtx->myShaderManager;
400 #if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
402 // =======================================================================
403 // function : IsCurrent
405 // =======================================================================
406 Standard_Boolean OpenGl_Context::IsCurrent() const
408 #if defined(HAVE_EGL)
409 if ((EGLDisplay )myDisplay == EGL_NO_DISPLAY
410 || (EGLSurface )myWindow == EGL_NO_SURFACE
411 || (EGLContext )myGContext == EGL_NO_CONTEXT)
413 return Standard_False;
416 return (((EGLDisplay )myDisplay == eglGetCurrentDisplay())
417 && ((EGLContext )myGContext == eglGetCurrentContext())
418 && ((EGLSurface )myWindow == eglGetCurrentSurface (EGL_DRAW)));
419 #elif defined(_WIN32)
420 if (myWindowDC == NULL || myGContext == NULL)
422 return Standard_False;
424 return (( (HDC )myWindowDC == wglGetCurrentDC())
425 && ((HGLRC )myGContext == wglGetCurrentContext()));
427 if (myDisplay == NULL || myWindow == 0 || myGContext == 0)
429 return Standard_False;
432 return ( ((Display* )myDisplay == glXGetCurrentDisplay())
433 && ((GLXContext )myGContext == glXGetCurrentContext())
434 && ((GLXDrawable )myWindow == glXGetCurrentDrawable()));
438 // =======================================================================
439 // function : MakeCurrent
441 // =======================================================================
442 Standard_Boolean OpenGl_Context::MakeCurrent()
444 #if defined(HAVE_EGL)
445 if ((EGLDisplay )myDisplay == EGL_NO_DISPLAY
446 || (EGLSurface )myWindow == EGL_NO_SURFACE
447 || (EGLContext )myGContext == EGL_NO_CONTEXT)
449 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
450 return Standard_False;
453 if (eglMakeCurrent ((EGLDisplay )myDisplay, (EGLSurface )myWindow, (EGLSurface )myWindow, (EGLContext )myGContext) != EGL_TRUE)
455 // if there is no current context it might be impossible to use glGetError() correctly
456 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB, GL_DEBUG_TYPE_ERROR_ARB, 0, GL_DEBUG_SEVERITY_HIGH_ARB,
457 "eglMakeCurrent() has failed!");
458 myIsInitialized = Standard_False;
459 return Standard_False;
461 #elif defined(_WIN32)
462 if (myWindowDC == NULL || myGContext == NULL)
464 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
465 return Standard_False;
468 // technically it should be safe to activate already bound GL context
469 // however some drivers (Intel etc.) may FAIL doing this for unknown reason
472 myShaderManager->SetContext (this);
473 return Standard_True;
475 else if (wglMakeCurrent ((HDC )myWindowDC, (HGLRC )myGContext) != TRUE)
477 // notice that glGetError() couldn't be used here!
478 wchar_t* aMsgBuff = NULL;
479 DWORD anErrorCode = GetLastError();
480 FormatMessageW (FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
481 NULL, anErrorCode, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (wchar_t* )&aMsgBuff, 0, NULL);
482 TCollection_ExtendedString aMsg ("wglMakeCurrent() has failed. ");
483 if (aMsgBuff != NULL)
485 aMsg += (Standard_ExtString )aMsgBuff;
486 LocalFree (aMsgBuff);
488 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB, GL_DEBUG_TYPE_ERROR_ARB, (unsigned int )anErrorCode, GL_DEBUG_SEVERITY_HIGH_ARB, aMsg);
489 myIsInitialized = Standard_False;
490 return Standard_False;
493 if (myDisplay == NULL || myWindow == 0 || myGContext == 0)
495 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
496 return Standard_False;
499 if (!glXMakeCurrent ((Display* )myDisplay, (GLXDrawable )myWindow, (GLXContext )myGContext))
501 // if there is no current context it might be impossible to use glGetError() correctly
502 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB, GL_DEBUG_TYPE_ERROR_ARB, 0, GL_DEBUG_SEVERITY_HIGH_ARB,
503 "glXMakeCurrent() has failed!");
504 myIsInitialized = Standard_False;
505 return Standard_False;
508 myShaderManager->SetContext (this);
509 return Standard_True;
512 // =======================================================================
513 // function : SwapBuffers
515 // =======================================================================
516 void OpenGl_Context::SwapBuffers()
518 #if defined(HAVE_EGL)
519 if ((EGLSurface )myWindow != EGL_NO_SURFACE)
521 eglSwapBuffers ((EGLDisplay )myDisplay, (EGLSurface )myWindow);
523 #elif defined(_WIN32)
524 if ((HDC )myWindowDC != NULL)
526 ::SwapBuffers ((HDC )myWindowDC);
530 if ((Display* )myDisplay != NULL)
532 glXSwapBuffers ((Display* )myDisplay, (GLXDrawable )myWindow);
539 // =======================================================================
540 // function : findProc
542 // =======================================================================
543 void* OpenGl_Context::findProc (const char* theFuncName)
545 #if defined(HAVE_EGL)
546 return (void* )eglGetProcAddress (theFuncName);
547 #elif defined(_WIN32)
548 return wglGetProcAddress (theFuncName);
549 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
550 return (myGlLibHandle != NULL) ? dlsym (myGlLibHandle, theFuncName) : NULL;
552 return (void* )glXGetProcAddress ((const GLubyte* )theFuncName);
556 // =======================================================================
557 // function : CheckExtension
559 // =======================================================================
560 Standard_Boolean OpenGl_Context::CheckExtension (const char* theExtName) const
562 if (theExtName == NULL)
565 std::cerr << "CheckExtension called with NULL string!\n";
567 return Standard_False;
570 #if !defined(GL_ES_VERSION_2_0)
571 // available since OpenGL 3.0
572 // and the ONLY way to check extensions with OpenGL 3.1+ core profile
573 if (IsGlGreaterEqual (3, 0)
574 && myFuncs->glGetStringi != NULL)
577 ::glGetIntegerv (GL_NUM_EXTENSIONS, &anExtNb);
578 const size_t anExtNameLen = strlen (theExtName);
579 for (GLint anIter = 0; anIter < anExtNb; ++anIter)
581 const char* anExtension = (const char* )myFuncs->glGetStringi (GL_EXTENSIONS, (GLuint )anIter);
582 const size_t aTestExtNameLen = strlen (anExtension);
583 if (aTestExtNameLen == anExtNameLen
584 && strncmp (anExtension, theExtName, anExtNameLen) == 0)
586 return Standard_True;
589 return Standard_False;
593 // use old way with huge string for all extensions
594 const char* anExtString = (const char* )glGetString (GL_EXTENSIONS);
595 if (anExtString == NULL)
597 Messenger()->Send ("TKOpenGL: glGetString (GL_EXTENSIONS) has returned NULL! No GL context?", Message_Warning);
598 return Standard_False;
600 return CheckExtension (anExtString, theExtName);
603 // =======================================================================
604 // function : CheckExtension
606 // =======================================================================
607 Standard_Boolean OpenGl_Context::CheckExtension (const char* theExtString,
608 const char* theExtName)
610 if (theExtString == NULL)
612 return Standard_False;
615 // Search for theExtName in the extensions string.
616 // Use of strstr() is not sufficient because extension names can be prefixes of other extension names.
617 char* aPtrIter = (char* )theExtString;
618 const char* aPtrEnd = aPtrIter + strlen (theExtString);
619 const size_t anExtNameLen = strlen (theExtName);
620 while (aPtrIter < aPtrEnd)
622 const size_t n = strcspn (aPtrIter, " ");
623 if ((n == anExtNameLen) && (strncmp (aPtrIter, theExtName, anExtNameLen) == 0))
625 return Standard_True;
629 return Standard_False;
632 #if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
634 // =======================================================================
637 // =======================================================================
638 Standard_Boolean OpenGl_Context::Init (const Standard_Boolean theIsCoreProfile)
642 return Standard_True;
645 #if defined(HAVE_EGL)
646 myDisplay = (Aspect_Display )eglGetCurrentDisplay();
647 myGContext = (Aspect_RenderingContext )eglGetCurrentContext();
648 myWindow = (Aspect_Drawable )eglGetCurrentSurface(EGL_DRAW);
649 #elif defined(_WIN32)
650 myWindowDC = (Aspect_Handle )wglGetCurrentDC();
651 myGContext = (Aspect_RenderingContext )wglGetCurrentContext();
653 myDisplay = (Aspect_Display )glXGetCurrentDisplay();
654 myGContext = (Aspect_RenderingContext )glXGetCurrentContext();
655 myWindow = (Aspect_Drawable )glXGetCurrentDrawable();
657 if (myGContext == NULL)
659 return Standard_False;
662 init (theIsCoreProfile);
663 myIsInitialized = Standard_True;
664 return Standard_True;
669 // =======================================================================
672 // =======================================================================
673 #if defined(HAVE_EGL)
674 Standard_Boolean OpenGl_Context::Init (const Aspect_Drawable theEglSurface,
675 const Aspect_Display theEglDisplay,
676 const Aspect_RenderingContext theEglContext,
677 const Standard_Boolean theIsCoreProfile)
678 #elif defined(_WIN32)
679 Standard_Boolean OpenGl_Context::Init (const Aspect_Handle theWindow,
680 const Aspect_Handle theWindowDC,
681 const Aspect_RenderingContext theGContext,
682 const Standard_Boolean theIsCoreProfile)
683 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
684 Standard_Boolean OpenGl_Context::Init (const void* theGContext,
685 const Standard_Boolean theIsCoreProfile)
687 Standard_Boolean OpenGl_Context::Init (const Aspect_Drawable theWindow,
688 const Aspect_Display theDisplay,
689 const Aspect_RenderingContext theGContext,
690 const Standard_Boolean theIsCoreProfile)
693 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called only once!");
694 #if defined(HAVE_EGL)
695 myWindow = theEglSurface;
696 myGContext = theEglContext;
697 myDisplay = theEglDisplay;
698 #elif defined(_WIN32)
699 myWindow = theWindow;
700 myGContext = theGContext;
701 myWindowDC = theWindowDC;
702 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
703 myGContext = (void* )theGContext;
705 myWindow = theWindow;
706 myGContext = theGContext;
707 myDisplay = theDisplay;
709 if (myGContext == NULL || !MakeCurrent())
711 return Standard_False;
714 init (theIsCoreProfile);
715 myIsInitialized = Standard_True;
716 return Standard_True;
719 // =======================================================================
720 // function : ResetErrors
722 // =======================================================================
723 void OpenGl_Context::ResetErrors()
725 while (glGetError() != GL_NO_ERROR)
731 // =======================================================================
732 // function : ReadGlVersion
734 // =======================================================================
735 void OpenGl_Context::ReadGlVersion (Standard_Integer& theGlVerMajor,
736 Standard_Integer& theGlVerMinor)
742 #ifdef GL_MAJOR_VERSION
743 // available since OpenGL 3.0 and OpenGL 3.0 ES
744 GLint aMajor = 0, aMinor = 0;
745 glGetIntegerv (GL_MAJOR_VERSION, &aMajor);
746 glGetIntegerv (GL_MINOR_VERSION, &aMinor);
747 // glGetError() sometimes does not report an error here even if
748 // GL does not know GL_MAJOR_VERSION and GL_MINOR_VERSION constants.
749 // This happens on some renderers like e.g. Cygwin MESA.
750 // Thus checking additionally if GL has put anything to
751 // the output variables.
752 if (::glGetError() == GL_NO_ERROR && aMajor != 0 && aMinor != 0)
754 theGlVerMajor = aMajor;
755 theGlVerMinor = aMinor;
758 for (GLenum anErr = ::glGetError(), aPrevErr = GL_NO_ERROR;; aPrevErr = anErr, anErr = ::glGetError())
760 if (anErr == GL_NO_ERROR
761 || anErr == aPrevErr)
768 // Read version string.
769 // Notice that only first two numbers split by point '2.1 XXXXX' are significant.
770 // Following trash (after space) is vendor-specific.
771 // New drivers also returns micro version of GL like '3.3.0' which has no meaning
772 // and should be considered as vendor-specific too.
773 const char* aVerStr = (const char* )glGetString (GL_VERSION);
774 if (aVerStr == NULL || *aVerStr == '\0')
776 // invalid GL context
780 //#if defined(GL_ES_VERSION_2_0)
781 // skip "OpenGL ES-** " section
782 for (; *aVerStr != '\0'; ++aVerStr)
784 if (*aVerStr >= '0' && *aVerStr <= '9')
791 // parse string for major number
795 while (aVerStr[aMajIter] >= '0' && aVerStr[aMajIter] <= '9')
799 if (aMajIter == 0 || aMajIter >= sizeof(aMajorStr))
803 memcpy (aMajorStr, aVerStr, aMajIter);
804 aMajorStr[aMajIter] = '\0';
806 // parse string for minor number
807 aVerStr += aMajIter + 1;
809 while (aVerStr[aMinIter] >= '0' && aVerStr[aMinIter] <= '9')
813 if (aMinIter == 0 || aMinIter >= sizeof(aMinorStr))
817 memcpy (aMinorStr, aVerStr, aMinIter);
818 aMinorStr[aMinIter] = '\0';
821 theGlVerMajor = atoi (aMajorStr);
822 theGlVerMinor = atoi (aMinorStr);
824 if (theGlVerMajor <= 0)
831 static Standard_CString THE_DBGMSG_UNKNOWN = "UNKNOWN";
832 static Standard_CString THE_DBGMSG_SOURCES[] =
834 ".OpenGL", // GL_DEBUG_SOURCE_API_ARB
835 ".WinSystem", // GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB
836 ".GLSL", // GL_DEBUG_SOURCE_SHADER_COMPILER_ARB
837 ".3rdParty", // GL_DEBUG_SOURCE_THIRD_PARTY_ARB
838 "", // GL_DEBUG_SOURCE_APPLICATION_ARB
839 ".Other" // GL_DEBUG_SOURCE_OTHER_ARB
842 static Standard_CString THE_DBGMSG_TYPES[] =
844 "Error", // GL_DEBUG_TYPE_ERROR_ARB
845 "Deprecated", // GL_DEBUG_TYPE_DEPRECATED_BEHAVIOR_ARB
846 "Undef. behavior", // GL_DEBUG_TYPE_UNDEFINED_BEHAVIOR_ARB
847 "Portability", // GL_DEBUG_TYPE_PORTABILITY_ARB
848 "Performance", // GL_DEBUG_TYPE_PERFORMANCE_ARB
849 "Other" // GL_DEBUG_TYPE_OTHER_ARB
852 static Standard_CString THE_DBGMSG_SEV_HIGH = "High"; // GL_DEBUG_SEVERITY_HIGH_ARB
853 static Standard_CString THE_DBGMSG_SEV_MEDIUM = "Medium"; // GL_DEBUG_SEVERITY_MEDIUM_ARB
854 static Standard_CString THE_DBGMSG_SEV_LOW = "Low"; // GL_DEBUG_SEVERITY_LOW_ARB
856 #if !defined(GL_ES_VERSION_2_0)
857 //! Callback for GL_ARB_debug_output extension
858 static void APIENTRY debugCallbackWrap(unsigned int theSource,
859 unsigned int theType,
861 unsigned int theSeverity,
863 const char* theMessage,
864 const void* theUserParam)
866 OpenGl_Context* aCtx = (OpenGl_Context* )theUserParam;
867 aCtx->PushMessage (theSource, theType, theId, theSeverity, theMessage);
871 // =======================================================================
872 // function : PushMessage
874 // =======================================================================
875 void OpenGl_Context::PushMessage (const unsigned int theSource,
876 const unsigned int theType,
877 const unsigned int theId,
878 const unsigned int theSeverity,
879 const TCollection_ExtendedString& theMessage)
881 //OpenGl_Context* aCtx = (OpenGl_Context* )theUserParam;
882 Standard_CString& aSrc = (theSource >= GL_DEBUG_SOURCE_API_ARB
883 && theSource <= GL_DEBUG_SOURCE_OTHER_ARB)
884 ? THE_DBGMSG_SOURCES[theSource - GL_DEBUG_SOURCE_API_ARB]
885 : THE_DBGMSG_UNKNOWN;
886 Standard_CString& aType = (theType >= GL_DEBUG_TYPE_ERROR_ARB
887 && theType <= GL_DEBUG_TYPE_OTHER_ARB)
888 ? THE_DBGMSG_TYPES[theType - GL_DEBUG_TYPE_ERROR_ARB]
889 : THE_DBGMSG_UNKNOWN;
890 Standard_CString& aSev = theSeverity == GL_DEBUG_SEVERITY_HIGH_ARB
891 ? THE_DBGMSG_SEV_HIGH
892 : (theSeverity == GL_DEBUG_SEVERITY_MEDIUM_ARB
893 ? THE_DBGMSG_SEV_MEDIUM
894 : THE_DBGMSG_SEV_LOW);
895 Message_Gravity aGrav = theSeverity == GL_DEBUG_SEVERITY_HIGH_ARB
897 : (theSeverity == GL_DEBUG_SEVERITY_MEDIUM_ARB
901 TCollection_ExtendedString aMsg;
902 aMsg += "TKOpenGl"; aMsg += aSrc;
903 aMsg += " | Type: "; aMsg += aType;
904 aMsg += " | ID: "; aMsg += (Standard_Integer )theId;
905 aMsg += " | Severity: "; aMsg += aSev;
906 aMsg += " | Message:\n ";
908 Messenger()->Send (aMsg, aGrav);
911 // =======================================================================
912 // function : checkWrongVersion
914 // ======================================================================
915 void OpenGl_Context::checkWrongVersion (const Standard_Integer theGlVerMajor,
916 const Standard_Integer theGlVerMinor)
918 if (!IsGlGreaterEqual (theGlVerMajor, theGlVerMinor))
923 TCollection_ExtendedString aMsg = TCollection_ExtendedString()
924 + "Error! OpenGL context reports version "
925 + myGlVerMajor + "." + myGlVerMinor
926 + " but does not export required functions for "
927 + theGlVerMajor + "." + theGlVerMinor;
928 PushMessage (GL_DEBUG_SOURCE_APPLICATION_ARB,
929 GL_DEBUG_TYPE_ERROR_ARB,
931 GL_DEBUG_SEVERITY_HIGH_ARB,
935 // =======================================================================
938 // =======================================================================
939 void OpenGl_Context::init (const Standard_Boolean theIsCoreProfile)
944 ReadGlVersion (myGlVerMajor, myGlVerMinor);
946 #if defined(GL_ES_VERSION_2_0)
947 (void )theIsCoreProfile;
948 const bool isCoreProfile = false;
950 if (IsGlGreaterEqual (3, 0))
952 // retrieve auxiliary function in advance
953 FindProc ("glGetStringi", myFuncs->glGetStringi);
956 bool isCoreProfile = false;
957 if (IsGlGreaterEqual (3, 2))
959 isCoreProfile = (theIsCoreProfile == Standard_True);
961 // detect Core profile
965 ::glGetIntegerv (GL_CONTEXT_PROFILE_MASK, &aProfile);
966 isCoreProfile = (aProfile & GL_CONTEXT_CORE_PROFILE_BIT) != 0;
974 core11 = (OpenGl_GlCore11* )(&(*myFuncs));
976 core11fwd = (OpenGl_GlCore11Fwd* )(&(*myFuncs));
994 arbTboRGB32 = Standard_False;
1002 #if defined(GL_ES_VERSION_2_0)
1004 hasTexRGBA8 = IsGlGreaterEqual (3, 0)
1005 || CheckExtension ("GL_OES_rgb8_rgba8");
1006 // NPOT textures has limited support within OpenGL ES 2.0
1007 // which are relaxed by OpenGL ES 3.0 or some extensions
1008 //arbNPTW = IsGlGreaterEqual (3, 0)
1009 // || CheckExtension ("GL_OES_texture_npot")
1010 // || CheckExtension ("GL_NV_texture_npot_2D_mipmap");
1011 arbNPTW = Standard_True;
1012 arbTexRG = IsGlGreaterEqual (3, 0)
1013 || CheckExtension ("GL_EXT_texture_rg");
1014 extBgra = CheckExtension ("GL_EXT_texture_format_BGRA8888");
1015 extAnis = CheckExtension ("GL_EXT_texture_filter_anisotropic");
1016 extPDS = CheckExtension ("GL_OES_packed_depth_stencil");
1018 core11fwd = (OpenGl_GlCore11Fwd* )(&(*myFuncs));
1019 if (IsGlGreaterEqual (2, 0))
1021 // enable compatible functions
1022 core20 = (OpenGl_GlCore20* )(&(*myFuncs));
1023 core20fwd = (OpenGl_GlCore20Fwd* )(&(*myFuncs));
1024 core15fwd = (OpenGl_GlCore15Fwd* )(&(*myFuncs));
1025 arbFBO = (OpenGl_ArbFBO* )(&(*myFuncs));
1027 if (IsGlGreaterEqual (3, 0)
1028 && FindProc ("glBlitFramebuffer", myFuncs->glBlitFramebuffer))
1030 arbFBOBlit = (OpenGl_ArbFBOBlit* )(&(*myFuncs));
1033 hasHighp = CheckExtension ("OES_fragment_precision_high");
1034 GLint aRange[2] = {0, 0};
1035 GLint aPrec [2] = {0, 0};
1036 ::glGetShaderPrecisionFormat (GL_FRAGMENT_SHADER, GL_HIGH_FLOAT, aRange, aPrec);
1039 hasHighp = Standard_True;
1043 myTexClamp = IsGlGreaterEqual (1, 2) ? GL_CLAMP_TO_EDGE : GL_CLAMP;
1045 hasTexRGBA8 = Standard_True;
1046 arbNPTW = CheckExtension ("GL_ARB_texture_non_power_of_two");
1047 extBgra = CheckExtension ("GL_EXT_bgra");
1048 extAnis = CheckExtension ("GL_EXT_texture_filter_anisotropic");
1049 extPDS = CheckExtension ("GL_EXT_packed_depth_stencil");
1050 atiMem = CheckExtension ("GL_ATI_meminfo");
1051 nvxMem = CheckExtension ("GL_NVX_gpu_memory_info");
1053 GLint aStereo = GL_FALSE;
1054 glGetIntegerv (GL_STEREO, &aStereo);
1055 myIsStereoBuffers = aStereo == 1;
1057 // get number of maximum clipping planes
1058 glGetIntegerv (GL_MAX_CLIP_PLANES, &myMaxClipPlanes);
1061 glGetIntegerv (GL_MAX_TEXTURE_SIZE, &myMaxTexDim);
1065 glGetIntegerv (GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT, &myAnisoMax);
1068 myClippingState.Init (myMaxClipPlanes);
1070 #if !defined(GL_ES_VERSION_2_0)
1088 //! Make record shorter to retrieve function pointer using variable with same name
1089 #define FindProcShort(theFunc) FindProc(#theFunc, myFuncs->theFunc)
1091 // retrieve platform-dependent extensions
1092 #if defined(_WIN32) && !defined(HAVE_EGL)
1093 if (FindProcShort (wglGetExtensionsStringARB))
1095 const char* aWglExts = myFuncs->wglGetExtensionsStringARB (wglGetCurrentDC());
1096 if (CheckExtension (aWglExts, "WGL_EXT_swap_control"))
1098 FindProcShort (wglSwapIntervalEXT);
1100 if (CheckExtension (aWglExts, "WGL_ARB_pixel_format"))
1102 FindProcShort (wglChoosePixelFormatARB);
1104 if (CheckExtension (aWglExts, "WGL_ARB_create_context_profile"))
1106 FindProcShort (wglCreateContextAttribsARB);
1108 if (CheckExtension (aWglExts, "WGL_NV_DX_interop"))
1110 FindProcShort (wglDXSetResourceShareHandleNV);
1111 FindProcShort (wglDXOpenDeviceNV);
1112 FindProcShort (wglDXCloseDeviceNV);
1113 FindProcShort (wglDXRegisterObjectNV);
1114 FindProcShort (wglDXUnregisterObjectNV);
1115 FindProcShort (wglDXObjectAccessNV);
1116 FindProcShort (wglDXLockObjectsNV);
1117 FindProcShort (wglDXUnlockObjectsNV);
1122 // initialize debug context extension
1123 if (CheckExtension ("GL_ARB_debug_output"))
1126 if (FindProcShort (glDebugMessageControlARB)
1127 && FindProcShort (glDebugMessageInsertARB)
1128 && FindProcShort (glDebugMessageCallbackARB)
1129 && FindProcShort (glGetDebugMessageLogARB))
1131 arbDbg = (OpenGl_ArbDbg* )(&(*myFuncs));
1134 && caps->contextDebug)
1136 // setup default callback
1137 myIsGlDebugCtx = Standard_True;
1138 arbDbg->glDebugMessageCallbackARB (debugCallbackWrap, this);
1140 glEnable (GL_DEBUG_OUTPUT_SYNCHRONOUS_ARB);
1145 // load OpenGL 1.2 new functions
1146 has12 = IsGlGreaterEqual (1, 2)
1147 && FindProcShort (glBlendColor)
1148 && FindProcShort (glBlendEquation)
1149 && FindProcShort (glDrawRangeElements)
1150 && FindProcShort (glTexImage3D)
1151 && FindProcShort (glTexSubImage3D)
1152 && FindProcShort (glCopyTexSubImage3D);
1154 // load OpenGL 1.3 new functions
1155 has13 = IsGlGreaterEqual (1, 3)
1156 && FindProcShort (glActiveTexture)
1157 && FindProcShort (glSampleCoverage)
1158 && FindProcShort (glCompressedTexImage3D)
1159 && FindProcShort (glCompressedTexImage2D)
1160 && FindProcShort (glCompressedTexImage1D)
1161 && FindProcShort (glCompressedTexSubImage3D)
1162 && FindProcShort (glCompressedTexSubImage2D)
1163 && FindProcShort (glCompressedTexSubImage1D)
1164 && FindProcShort (glGetCompressedTexImage);
1169 && FindProcShort (glClientActiveTexture)
1170 && FindProcShort (glMultiTexCoord1d)
1171 && FindProcShort (glMultiTexCoord1dv)
1172 && FindProcShort (glMultiTexCoord1f)
1173 && FindProcShort (glMultiTexCoord1fv)
1174 && FindProcShort (glMultiTexCoord1i)
1175 && FindProcShort (glMultiTexCoord1iv)
1176 && FindProcShort (glMultiTexCoord1s)
1177 && FindProcShort (glMultiTexCoord1sv)
1178 && FindProcShort (glMultiTexCoord2d)
1179 && FindProcShort (glMultiTexCoord2dv)
1180 && FindProcShort (glMultiTexCoord2f)
1181 && FindProcShort (glMultiTexCoord2fv)
1182 && FindProcShort (glMultiTexCoord2i)
1183 && FindProcShort (glMultiTexCoord2iv)
1184 && FindProcShort (glMultiTexCoord2s)
1185 && FindProcShort (glMultiTexCoord2sv)
1186 && FindProcShort (glMultiTexCoord3d)
1187 && FindProcShort (glMultiTexCoord3dv)
1188 && FindProcShort (glMultiTexCoord3f)
1189 && FindProcShort (glMultiTexCoord3fv)
1190 && FindProcShort (glMultiTexCoord3i)
1191 && FindProcShort (glMultiTexCoord3iv)
1192 && FindProcShort (glMultiTexCoord3s)
1193 && FindProcShort (glMultiTexCoord3sv)
1194 && FindProcShort (glMultiTexCoord4d)
1195 && FindProcShort (glMultiTexCoord4dv)
1196 && FindProcShort (glMultiTexCoord4f)
1197 && FindProcShort (glMultiTexCoord4fv)
1198 && FindProcShort (glMultiTexCoord4i)
1199 && FindProcShort (glMultiTexCoord4iv)
1200 && FindProcShort (glMultiTexCoord4s)
1201 && FindProcShort (glMultiTexCoord4sv)
1202 && FindProcShort (glLoadTransposeMatrixf)
1203 && FindProcShort (glLoadTransposeMatrixd)
1204 && FindProcShort (glMultTransposeMatrixf)
1205 && FindProcShort (glMultTransposeMatrixd);
1208 // load OpenGL 1.4 new functions
1209 has14 = IsGlGreaterEqual (1, 4)
1210 && FindProcShort (glBlendFuncSeparate)
1211 && FindProcShort (glMultiDrawArrays)
1212 && FindProcShort (glMultiDrawElements)
1213 && FindProcShort (glPointParameterf)
1214 && FindProcShort (glPointParameterfv)
1215 && FindProcShort (glPointParameteri)
1216 && FindProcShort (glPointParameteriv);
1218 // load OpenGL 1.5 new functions
1219 has15 = IsGlGreaterEqual (1, 5)
1220 && FindProcShort (glGenQueries)
1221 && FindProcShort (glDeleteQueries)
1222 && FindProcShort (glIsQuery)
1223 && FindProcShort (glBeginQuery)
1224 && FindProcShort (glEndQuery)
1225 && FindProcShort (glGetQueryiv)
1226 && FindProcShort (glGetQueryObjectiv)
1227 && FindProcShort (glGetQueryObjectuiv)
1228 && FindProcShort (glBindBuffer)
1229 && FindProcShort (glDeleteBuffers)
1230 && FindProcShort (glGenBuffers)
1231 && FindProcShort (glIsBuffer)
1232 && FindProcShort (glBufferData)
1233 && FindProcShort (glBufferSubData)
1234 && FindProcShort (glGetBufferSubData)
1235 && FindProcShort (glMapBuffer)
1236 && FindProcShort (glUnmapBuffer)
1237 && FindProcShort (glGetBufferParameteriv)
1238 && FindProcShort (glGetBufferPointerv);
1240 // load OpenGL 2.0 new functions
1241 has20 = IsGlGreaterEqual (2, 0)
1242 && FindProcShort (glBlendEquationSeparate)
1243 && FindProcShort (glDrawBuffers)
1244 && FindProcShort (glStencilOpSeparate)
1245 && FindProcShort (glStencilFuncSeparate)
1246 && FindProcShort (glStencilMaskSeparate)
1247 && FindProcShort (glAttachShader)
1248 && FindProcShort (glBindAttribLocation)
1249 && FindProcShort (glCompileShader)
1250 && FindProcShort (glCreateProgram)
1251 && FindProcShort (glCreateShader)
1252 && FindProcShort (glDeleteProgram)
1253 && FindProcShort (glDeleteShader)
1254 && FindProcShort (glDetachShader)
1255 && FindProcShort (glDisableVertexAttribArray)
1256 && FindProcShort (glEnableVertexAttribArray)
1257 && FindProcShort (glGetActiveAttrib)
1258 && FindProcShort (glGetActiveUniform)
1259 && FindProcShort (glGetAttachedShaders)
1260 && FindProcShort (glGetAttribLocation)
1261 && FindProcShort (glGetProgramiv)
1262 && FindProcShort (glGetProgramInfoLog)
1263 && FindProcShort (glGetShaderiv)
1264 && FindProcShort (glGetShaderInfoLog)
1265 && FindProcShort (glGetShaderSource)
1266 && FindProcShort (glGetUniformLocation)
1267 && FindProcShort (glGetUniformfv)
1268 && FindProcShort (glGetUniformiv)
1269 && FindProcShort (glGetVertexAttribdv)
1270 && FindProcShort (glGetVertexAttribfv)
1271 && FindProcShort (glGetVertexAttribiv)
1272 && FindProcShort (glGetVertexAttribPointerv)
1273 && FindProcShort (glIsProgram)
1274 && FindProcShort (glIsShader)
1275 && FindProcShort (glLinkProgram)
1276 && FindProcShort (glShaderSource)
1277 && FindProcShort (glUseProgram)
1278 && FindProcShort (glUniform1f)
1279 && FindProcShort (glUniform2f)
1280 && FindProcShort (glUniform3f)
1281 && FindProcShort (glUniform4f)
1282 && FindProcShort (glUniform1i)
1283 && FindProcShort (glUniform2i)
1284 && FindProcShort (glUniform3i)
1285 && FindProcShort (glUniform4i)
1286 && FindProcShort (glUniform1fv)
1287 && FindProcShort (glUniform2fv)
1288 && FindProcShort (glUniform3fv)
1289 && FindProcShort (glUniform4fv)
1290 && FindProcShort (glUniform1iv)
1291 && FindProcShort (glUniform2iv)
1292 && FindProcShort (glUniform3iv)
1293 && FindProcShort (glUniform4iv)
1294 && FindProcShort (glUniformMatrix2fv)
1295 && FindProcShort (glUniformMatrix3fv)
1296 && FindProcShort (glUniformMatrix4fv)
1297 && FindProcShort (glValidateProgram)
1298 && FindProcShort (glVertexAttrib1d)
1299 && FindProcShort (glVertexAttrib1dv)
1300 && FindProcShort (glVertexAttrib1f)
1301 && FindProcShort (glVertexAttrib1fv)
1302 && FindProcShort (glVertexAttrib1s)
1303 && FindProcShort (glVertexAttrib1sv)
1304 && FindProcShort (glVertexAttrib2d)
1305 && FindProcShort (glVertexAttrib2dv)
1306 && FindProcShort (glVertexAttrib2f)
1307 && FindProcShort (glVertexAttrib2fv)
1308 && FindProcShort (glVertexAttrib2s)
1309 && FindProcShort (glVertexAttrib2sv)
1310 && FindProcShort (glVertexAttrib3d)
1311 && FindProcShort (glVertexAttrib3dv)
1312 && FindProcShort (glVertexAttrib3f)
1313 && FindProcShort (glVertexAttrib3fv)
1314 && FindProcShort (glVertexAttrib3s)
1315 && FindProcShort (glVertexAttrib3sv)
1316 && FindProcShort (glVertexAttrib4Nbv)
1317 && FindProcShort (glVertexAttrib4Niv)
1318 && FindProcShort (glVertexAttrib4Nsv)
1319 && FindProcShort (glVertexAttrib4Nub)
1320 && FindProcShort (glVertexAttrib4Nubv)
1321 && FindProcShort (glVertexAttrib4Nuiv)
1322 && FindProcShort (glVertexAttrib4Nusv)
1323 && FindProcShort (glVertexAttrib4bv)
1324 && FindProcShort (glVertexAttrib4d)
1325 && FindProcShort (glVertexAttrib4dv)
1326 && FindProcShort (glVertexAttrib4f)
1327 && FindProcShort (glVertexAttrib4fv)
1328 && FindProcShort (glVertexAttrib4iv)
1329 && FindProcShort (glVertexAttrib4s)
1330 && FindProcShort (glVertexAttrib4sv)
1331 && FindProcShort (glVertexAttrib4ubv)
1332 && FindProcShort (glVertexAttrib4uiv)
1333 && FindProcShort (glVertexAttrib4usv)
1334 && FindProcShort (glVertexAttribPointer);
1336 // load OpenGL 2.1 new functions
1337 has21 = IsGlGreaterEqual (2, 1)
1338 && FindProcShort (glUniformMatrix2x3fv)
1339 && FindProcShort (glUniformMatrix3x2fv)
1340 && FindProcShort (glUniformMatrix2x4fv)
1341 && FindProcShort (glUniformMatrix4x2fv)
1342 && FindProcShort (glUniformMatrix3x4fv)
1343 && FindProcShort (glUniformMatrix4x3fv);
1345 // load GL_ARB_framebuffer_object (added to OpenGL 3.0 core)
1346 const bool hasFBO = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_framebuffer_object"))
1347 && FindProcShort (glIsRenderbuffer)
1348 && FindProcShort (glBindRenderbuffer)
1349 && FindProcShort (glDeleteRenderbuffers)
1350 && FindProcShort (glGenRenderbuffers)
1351 && FindProcShort (glRenderbufferStorage)
1352 && FindProcShort (glGetRenderbufferParameteriv)
1353 && FindProcShort (glIsFramebuffer)
1354 && FindProcShort (glBindFramebuffer)
1355 && FindProcShort (glDeleteFramebuffers)
1356 && FindProcShort (glGenFramebuffers)
1357 && FindProcShort (glCheckFramebufferStatus)
1358 && FindProcShort (glFramebufferTexture1D)
1359 && FindProcShort (glFramebufferTexture2D)
1360 && FindProcShort (glFramebufferTexture3D)
1361 && FindProcShort (glFramebufferRenderbuffer)
1362 && FindProcShort (glGetFramebufferAttachmentParameteriv)
1363 && FindProcShort (glGenerateMipmap)
1364 && FindProcShort (glBlitFramebuffer)
1365 && FindProcShort (glRenderbufferStorageMultisample)
1366 && FindProcShort (glFramebufferTextureLayer);
1368 // load GL_ARB_vertex_array_object (added to OpenGL 3.0 core)
1369 const bool hasVAO = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_vertex_array_object"))
1370 && FindProcShort (glBindVertexArray)
1371 && FindProcShort (glDeleteVertexArrays)
1372 && FindProcShort (glGenVertexArrays)
1373 && FindProcShort (glIsVertexArray);
1375 // load GL_ARB_map_buffer_range (added to OpenGL 3.0 core)
1376 const bool hasMapBufferRange = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_map_buffer_range"))
1377 && FindProcShort (glMapBufferRange)
1378 && FindProcShort (glFlushMappedBufferRange);
1380 // load OpenGL 3.0 new functions
1381 has30 = IsGlGreaterEqual (3, 0)
1384 && hasMapBufferRange
1385 && FindProcShort (glColorMaski)
1386 && FindProcShort (glGetBooleani_v)
1387 && FindProcShort (glGetIntegeri_v)
1388 && FindProcShort (glEnablei)
1389 && FindProcShort (glDisablei)
1390 && FindProcShort (glIsEnabledi)
1391 && FindProcShort (glBeginTransformFeedback)
1392 && FindProcShort (glEndTransformFeedback)
1393 && FindProcShort (glBindBufferRange)
1394 && FindProcShort (glBindBufferBase)
1395 && FindProcShort (glTransformFeedbackVaryings)
1396 && FindProcShort (glGetTransformFeedbackVarying)
1397 && FindProcShort (glClampColor)
1398 && FindProcShort (glBeginConditionalRender)
1399 && FindProcShort (glEndConditionalRender)
1400 && FindProcShort (glVertexAttribIPointer)
1401 && FindProcShort (glGetVertexAttribIiv)
1402 && FindProcShort (glGetVertexAttribIuiv)
1403 && FindProcShort (glVertexAttribI1i)
1404 && FindProcShort (glVertexAttribI2i)
1405 && FindProcShort (glVertexAttribI3i)
1406 && FindProcShort (glVertexAttribI4i)
1407 && FindProcShort (glVertexAttribI1ui)
1408 && FindProcShort (glVertexAttribI2ui)
1409 && FindProcShort (glVertexAttribI3ui)
1410 && FindProcShort (glVertexAttribI4ui)
1411 && FindProcShort (glVertexAttribI1iv)
1412 && FindProcShort (glVertexAttribI2iv)
1413 && FindProcShort (glVertexAttribI3iv)
1414 && FindProcShort (glVertexAttribI4iv)
1415 && FindProcShort (glVertexAttribI1uiv)
1416 && FindProcShort (glVertexAttribI2uiv)
1417 && FindProcShort (glVertexAttribI3uiv)
1418 && FindProcShort (glVertexAttribI4uiv)
1419 && FindProcShort (glVertexAttribI4bv)
1420 && FindProcShort (glVertexAttribI4sv)
1421 && FindProcShort (glVertexAttribI4ubv)
1422 && FindProcShort (glVertexAttribI4usv)
1423 && FindProcShort (glGetUniformuiv)
1424 && FindProcShort (glBindFragDataLocation)
1425 && FindProcShort (glGetFragDataLocation)
1426 && FindProcShort (glUniform1ui)
1427 && FindProcShort (glUniform2ui)
1428 && FindProcShort (glUniform3ui)
1429 && FindProcShort (glUniform4ui)
1430 && FindProcShort (glUniform1uiv)
1431 && FindProcShort (glUniform2uiv)
1432 && FindProcShort (glUniform3uiv)
1433 && FindProcShort (glUniform4uiv)
1434 && FindProcShort (glTexParameterIiv)
1435 && FindProcShort (glTexParameterIuiv)
1436 && FindProcShort (glGetTexParameterIiv)
1437 && FindProcShort (glGetTexParameterIuiv)
1438 && FindProcShort (glClearBufferiv)
1439 && FindProcShort (glClearBufferuiv)
1440 && FindProcShort (glClearBufferfv)
1441 && FindProcShort (glClearBufferfi)
1442 && FindProcShort (glGetStringi);
1444 // load GL_ARB_uniform_buffer_object (added to OpenGL 3.1 core)
1445 const bool hasUBO = (IsGlGreaterEqual (3, 1) || CheckExtension ("GL_ARB_uniform_buffer_object"))
1446 && FindProcShort (glGetUniformIndices)
1447 && FindProcShort (glGetActiveUniformsiv)
1448 && FindProcShort (glGetActiveUniformName)
1449 && FindProcShort (glGetUniformBlockIndex)
1450 && FindProcShort (glGetActiveUniformBlockiv)
1451 && FindProcShort (glGetActiveUniformBlockName)
1452 && FindProcShort (glUniformBlockBinding);
1454 // load GL_ARB_copy_buffer (added to OpenGL 3.1 core)
1455 const bool hasCopyBufSubData = (IsGlGreaterEqual (3, 1) || CheckExtension ("GL_ARB_copy_buffer"))
1456 && FindProcShort (glCopyBufferSubData);
1460 // NPOT textures are required by OpenGL 2.0 specifications
1461 // but doesn't hardware accelerated by some ancient OpenGL 2.1 hardware (GeForce FX, RadeOn 9700 etc.)
1462 arbNPTW = Standard_True;
1463 arbTexRG = Standard_True;
1466 // load OpenGL 3.1 new functions
1467 has31 = IsGlGreaterEqual (3, 1)
1469 && hasCopyBufSubData
1470 && FindProcShort (glDrawArraysInstanced)
1471 && FindProcShort (glDrawElementsInstanced)
1472 && FindProcShort (glTexBuffer)
1473 && FindProcShort (glPrimitiveRestartIndex);
1475 // load GL_ARB_draw_elements_base_vertex (added to OpenGL 3.2 core)
1476 const bool hasDrawElemsBaseVert = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_draw_elements_base_vertex"))
1477 && FindProcShort (glDrawElementsBaseVertex)
1478 && FindProcShort (glDrawRangeElementsBaseVertex)
1479 && FindProcShort (glDrawElementsInstancedBaseVertex)
1480 && FindProcShort (glMultiDrawElementsBaseVertex);
1482 // load GL_ARB_provoking_vertex (added to OpenGL 3.2 core)
1483 const bool hasProvokingVert = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_provoking_vertex"))
1484 && FindProcShort (glProvokingVertex);
1486 // load GL_ARB_sync (added to OpenGL 3.2 core)
1487 const bool hasSync = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_sync"))
1488 && FindProcShort (glFenceSync)
1489 && FindProcShort (glIsSync)
1490 && FindProcShort (glDeleteSync)
1491 && FindProcShort (glClientWaitSync)
1492 && FindProcShort (glWaitSync)
1493 && FindProcShort (glGetInteger64v)
1494 && FindProcShort (glGetSynciv);
1496 // load GL_ARB_texture_multisample (added to OpenGL 3.2 core)
1497 const bool hasTextureMultisample = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_texture_multisample"))
1498 && FindProcShort (glTexImage2DMultisample)
1499 && FindProcShort (glTexImage3DMultisample)
1500 && FindProcShort (glGetMultisamplefv)
1501 && FindProcShort (glSampleMaski);
1503 // load OpenGL 3.2 new functions
1504 has32 = IsGlGreaterEqual (3, 2)
1505 && hasDrawElemsBaseVert
1508 && hasTextureMultisample
1509 && FindProcShort (glGetInteger64i_v)
1510 && FindProcShort (glGetBufferParameteri64v)
1511 && FindProcShort (glFramebufferTexture);
1513 // load GL_ARB_blend_func_extended (added to OpenGL 3.3 core)
1514 const bool hasBlendFuncExtended = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_blend_func_extended"))
1515 && FindProcShort (glBindFragDataLocationIndexed)
1516 && FindProcShort (glGetFragDataIndex);
1518 // load GL_ARB_sampler_objects (added to OpenGL 3.3 core)
1519 const bool hasSamplerObjects = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_sampler_objects"))
1520 && FindProcShort (glGenSamplers)
1521 && FindProcShort (glDeleteSamplers)
1522 && FindProcShort (glIsSampler)
1523 && FindProcShort (glBindSampler)
1524 && FindProcShort (glSamplerParameteri)
1525 && FindProcShort (glSamplerParameteriv)
1526 && FindProcShort (glSamplerParameterf)
1527 && FindProcShort (glSamplerParameterfv)
1528 && FindProcShort (glSamplerParameterIiv)
1529 && FindProcShort (glSamplerParameterIuiv)
1530 && FindProcShort (glGetSamplerParameteriv)
1531 && FindProcShort (glGetSamplerParameterIiv)
1532 && FindProcShort (glGetSamplerParameterfv)
1533 && FindProcShort (glGetSamplerParameterIuiv);
1535 // load GL_ARB_timer_query (added to OpenGL 3.3 core)
1536 const bool hasTimerQuery = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_timer_query"))
1537 && FindProcShort (glQueryCounter)
1538 && FindProcShort (glGetQueryObjecti64v)
1539 && FindProcShort (glGetQueryObjectui64v);
1541 // load GL_ARB_vertex_type_2_10_10_10_rev (added to OpenGL 3.3 core)
1542 const bool hasVertType21010101rev = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_vertex_type_2_10_10_10_rev"))
1543 && FindProcShort (glVertexP2ui)
1544 && FindProcShort (glVertexP2uiv)
1545 && FindProcShort (glVertexP3ui)
1546 && FindProcShort (glVertexP3uiv)
1547 && FindProcShort (glVertexP4ui)
1548 && FindProcShort (glVertexP4uiv)
1549 && FindProcShort (glTexCoordP1ui)
1550 && FindProcShort (glTexCoordP1uiv)
1551 && FindProcShort (glTexCoordP2ui)
1552 && FindProcShort (glTexCoordP2uiv)
1553 && FindProcShort (glTexCoordP3ui)
1554 && FindProcShort (glTexCoordP3uiv)
1555 && FindProcShort (glTexCoordP4ui)
1556 && FindProcShort (glTexCoordP4uiv)
1557 && FindProcShort (glMultiTexCoordP1ui)
1558 && FindProcShort (glMultiTexCoordP1uiv)
1559 && FindProcShort (glMultiTexCoordP2ui)
1560 && FindProcShort (glMultiTexCoordP2uiv)
1561 && FindProcShort (glMultiTexCoordP3ui)
1562 && FindProcShort (glMultiTexCoordP3uiv)
1563 && FindProcShort (glMultiTexCoordP4ui)
1564 && FindProcShort (glMultiTexCoordP4uiv)
1565 && FindProcShort (glNormalP3ui)
1566 && FindProcShort (glNormalP3uiv)
1567 && FindProcShort (glColorP3ui)
1568 && FindProcShort (glColorP3uiv)
1569 && FindProcShort (glColorP4ui)
1570 && FindProcShort (glColorP4uiv)
1571 && FindProcShort (glSecondaryColorP3ui)
1572 && FindProcShort (glSecondaryColorP3uiv)
1573 && FindProcShort (glVertexAttribP1ui)
1574 && FindProcShort (glVertexAttribP1uiv)
1575 && FindProcShort (glVertexAttribP2ui)
1576 && FindProcShort (glVertexAttribP2uiv)
1577 && FindProcShort (glVertexAttribP3ui)
1578 && FindProcShort (glVertexAttribP3uiv)
1579 && FindProcShort (glVertexAttribP4ui)
1580 && FindProcShort (glVertexAttribP4uiv);
1582 // load OpenGL 3.3 extra functions
1583 has33 = IsGlGreaterEqual (3, 3)
1584 && hasBlendFuncExtended
1585 && hasSamplerObjects
1587 && hasVertType21010101rev
1588 && FindProcShort (glVertexAttribDivisor);
1590 // load GL_ARB_draw_indirect (added to OpenGL 4.0 core)
1591 const bool hasDrawIndirect = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_draw_indirect"))
1592 && FindProcShort (glDrawArraysIndirect)
1593 && FindProcShort (glDrawElementsIndirect);
1595 // load GL_ARB_gpu_shader_fp64 (added to OpenGL 4.0 core)
1596 const bool hasShaderFP64 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_gpu_shader_fp64"))
1597 && FindProcShort (glUniform1d)
1598 && FindProcShort (glUniform2d)
1599 && FindProcShort (glUniform3d)
1600 && FindProcShort (glUniform4d)
1601 && FindProcShort (glUniform1dv)
1602 && FindProcShort (glUniform2dv)
1603 && FindProcShort (glUniform3dv)
1604 && FindProcShort (glUniform4dv)
1605 && FindProcShort (glUniformMatrix2dv)
1606 && FindProcShort (glUniformMatrix3dv)
1607 && FindProcShort (glUniformMatrix4dv)
1608 && FindProcShort (glUniformMatrix2x3dv)
1609 && FindProcShort (glUniformMatrix2x4dv)
1610 && FindProcShort (glUniformMatrix3x2dv)
1611 && FindProcShort (glUniformMatrix3x4dv)
1612 && FindProcShort (glUniformMatrix4x2dv)
1613 && FindProcShort (glUniformMatrix4x3dv)
1614 && FindProcShort (glGetUniformdv);
1616 // load GL_ARB_shader_subroutine (added to OpenGL 4.0 core)
1617 const bool hasShaderSubroutine = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_shader_subroutine"))
1618 && FindProcShort (glGetSubroutineUniformLocation)
1619 && FindProcShort (glGetSubroutineIndex)
1620 && FindProcShort (glGetActiveSubroutineUniformiv)
1621 && FindProcShort (glGetActiveSubroutineUniformName)
1622 && FindProcShort (glGetActiveSubroutineName)
1623 && FindProcShort (glUniformSubroutinesuiv)
1624 && FindProcShort (glGetUniformSubroutineuiv)
1625 && FindProcShort (glGetProgramStageiv);
1627 // load GL_ARB_tessellation_shader (added to OpenGL 4.0 core)
1628 const bool hasTessellationShader = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_tessellation_shader"))
1629 && FindProcShort (glPatchParameteri)
1630 && FindProcShort (glPatchParameterfv);
1632 // load GL_ARB_transform_feedback2 (added to OpenGL 4.0 core)
1633 const bool hasTrsfFeedback2 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_transform_feedback2"))
1634 && FindProcShort (glBindTransformFeedback)
1635 && FindProcShort (glDeleteTransformFeedbacks)
1636 && FindProcShort (glGenTransformFeedbacks)
1637 && FindProcShort (glIsTransformFeedback)
1638 && FindProcShort (glPauseTransformFeedback)
1639 && FindProcShort (glResumeTransformFeedback)
1640 && FindProcShort (glDrawTransformFeedback);
1642 // load GL_ARB_transform_feedback3 (added to OpenGL 4.0 core)
1643 const bool hasTrsfFeedback3 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_transform_feedback3"))
1644 && FindProcShort (glDrawTransformFeedbackStream)
1645 && FindProcShort (glBeginQueryIndexed)
1646 && FindProcShort (glEndQueryIndexed)
1647 && FindProcShort (glGetQueryIndexediv);
1649 // load OpenGL 4.0 new functions
1650 has40 = IsGlGreaterEqual (4, 0)
1653 && hasShaderSubroutine
1654 && hasTessellationShader
1657 && FindProcShort (glMinSampleShading)
1658 && FindProcShort (glBlendEquationi)
1659 && FindProcShort (glBlendEquationSeparatei)
1660 && FindProcShort (glBlendFunci)
1661 && FindProcShort (glBlendFuncSeparatei);
1663 // load GL_ARB_ES2_compatibility (added to OpenGL 4.1 core)
1664 const bool hasES2Compatibility = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_ES2_compatibility"))
1665 && FindProcShort (glReleaseShaderCompiler)
1666 && FindProcShort (glShaderBinary)
1667 && FindProcShort (glGetShaderPrecisionFormat)
1668 && FindProcShort (glDepthRangef)
1669 && FindProcShort (glClearDepthf);
1671 // load GL_ARB_get_program_binary (added to OpenGL 4.1 core)
1672 const bool hasGetProgramBinary = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_get_program_binary"))
1673 && FindProcShort (glGetProgramBinary)
1674 && FindProcShort (glProgramBinary)
1675 && FindProcShort (glProgramParameteri);
1678 // load GL_ARB_separate_shader_objects (added to OpenGL 4.1 core)
1679 const bool hasSeparateShaderObjects = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_separate_shader_objects"))
1680 && FindProcShort (glUseProgramStages)
1681 && FindProcShort (glActiveShaderProgram)
1682 && FindProcShort (glCreateShaderProgramv)
1683 && FindProcShort (glBindProgramPipeline)
1684 && FindProcShort (glDeleteProgramPipelines)
1685 && FindProcShort (glGenProgramPipelines)
1686 && FindProcShort (glIsProgramPipeline)
1687 && FindProcShort (glGetProgramPipelineiv)
1688 && FindProcShort (glProgramUniform1i)
1689 && FindProcShort (glProgramUniform1iv)
1690 && FindProcShort (glProgramUniform1f)
1691 && FindProcShort (glProgramUniform1fv)
1692 && FindProcShort (glProgramUniform1d)
1693 && FindProcShort (glProgramUniform1dv)
1694 && FindProcShort (glProgramUniform1ui)
1695 && FindProcShort (glProgramUniform1uiv)
1696 && FindProcShort (glProgramUniform2i)
1697 && FindProcShort (glProgramUniform2iv)
1698 && FindProcShort (glProgramUniform2f)
1699 && FindProcShort (glProgramUniform2fv)
1700 && FindProcShort (glProgramUniform2d)
1701 && FindProcShort (glProgramUniform2dv)
1702 && FindProcShort (glProgramUniform2ui)
1703 && FindProcShort (glProgramUniform2uiv)
1704 && FindProcShort (glProgramUniform3i)
1705 && FindProcShort (glProgramUniform3iv)
1706 && FindProcShort (glProgramUniform3f)
1707 && FindProcShort (glProgramUniform3fv)
1708 && FindProcShort (glProgramUniform3d)
1709 && FindProcShort (glProgramUniform3dv)
1710 && FindProcShort (glProgramUniform3ui)
1711 && FindProcShort (glProgramUniform3uiv)
1712 && FindProcShort (glProgramUniform4i)
1713 && FindProcShort (glProgramUniform4iv)
1714 && FindProcShort (glProgramUniform4f)
1715 && FindProcShort (glProgramUniform4fv)
1716 && FindProcShort (glProgramUniform4d)
1717 && FindProcShort (glProgramUniform4dv)
1718 && FindProcShort (glProgramUniform4ui)
1719 && FindProcShort (glProgramUniform4uiv)
1720 && FindProcShort (glProgramUniformMatrix2fv)
1721 && FindProcShort (glProgramUniformMatrix3fv)
1722 && FindProcShort (glProgramUniformMatrix4fv)
1723 && FindProcShort (glProgramUniformMatrix2dv)
1724 && FindProcShort (glProgramUniformMatrix3dv)
1725 && FindProcShort (glProgramUniformMatrix4dv)
1726 && FindProcShort (glProgramUniformMatrix2x3fv)
1727 && FindProcShort (glProgramUniformMatrix3x2fv)
1728 && FindProcShort (glProgramUniformMatrix2x4fv)
1729 && FindProcShort (glProgramUniformMatrix4x2fv)
1730 && FindProcShort (glProgramUniformMatrix3x4fv)
1731 && FindProcShort (glProgramUniformMatrix4x3fv)
1732 && FindProcShort (glProgramUniformMatrix2x3dv)
1733 && FindProcShort (glProgramUniformMatrix3x2dv)
1734 && FindProcShort (glProgramUniformMatrix2x4dv)
1735 && FindProcShort (glProgramUniformMatrix4x2dv)
1736 && FindProcShort (glProgramUniformMatrix3x4dv)
1737 && FindProcShort (glProgramUniformMatrix4x3dv)
1738 && FindProcShort (glValidateProgramPipeline)
1739 && FindProcShort (glGetProgramPipelineInfoLog);
1741 // load GL_ARB_vertex_attrib_64bit (added to OpenGL 4.1 core)
1742 const bool hasVertAttrib64bit = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_vertex_attrib_64bit"))
1743 && FindProcShort (glVertexAttribL1d)
1744 && FindProcShort (glVertexAttribL2d)
1745 && FindProcShort (glVertexAttribL3d)
1746 && FindProcShort (glVertexAttribL4d)
1747 && FindProcShort (glVertexAttribL1dv)
1748 && FindProcShort (glVertexAttribL2dv)
1749 && FindProcShort (glVertexAttribL3dv)
1750 && FindProcShort (glVertexAttribL4dv)
1751 && FindProcShort (glVertexAttribLPointer)
1752 && FindProcShort (glGetVertexAttribLdv);
1754 // load GL_ARB_viewport_array (added to OpenGL 4.1 core)
1755 const bool hasViewportArray = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_viewport_array"))
1756 && FindProcShort (glViewportArrayv)
1757 && FindProcShort (glViewportIndexedf)
1758 && FindProcShort (glViewportIndexedfv)
1759 && FindProcShort (glScissorArrayv)
1760 && FindProcShort (glScissorIndexed)
1761 && FindProcShort (glScissorIndexedv)
1762 && FindProcShort (glDepthRangeArrayv)
1763 && FindProcShort (glDepthRangeIndexed)
1764 && FindProcShort (glGetFloati_v)
1765 && FindProcShort (glGetDoublei_v);
1767 has41 = IsGlGreaterEqual (4, 1)
1768 && hasES2Compatibility
1769 && hasGetProgramBinary
1770 && hasSeparateShaderObjects
1771 && hasVertAttrib64bit
1772 && hasViewportArray;
1774 // load GL_ARB_base_instance (added to OpenGL 4.2 core)
1775 const bool hasBaseInstance = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_base_instance"))
1776 && FindProcShort (glDrawArraysInstancedBaseInstance)
1777 && FindProcShort (glDrawElementsInstancedBaseInstance)
1778 && FindProcShort (glDrawElementsInstancedBaseVertexBaseInstance);
1780 // load GL_ARB_transform_feedback_instanced (added to OpenGL 4.2 core)
1781 const bool hasTrsfFeedbackInstanced = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_transform_feedback_instanced"))
1782 && FindProcShort (glDrawTransformFeedbackInstanced)
1783 && FindProcShort (glDrawTransformFeedbackStreamInstanced);
1785 // load GL_ARB_internalformat_query (added to OpenGL 4.2 core)
1786 const bool hasInternalFormatQuery = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_internalformat_query"))
1787 && FindProcShort (glGetInternalformativ);
1789 // load GL_ARB_shader_atomic_counters (added to OpenGL 4.2 core)
1790 const bool hasShaderAtomicCounters = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_shader_atomic_counters"))
1791 && FindProcShort (glGetActiveAtomicCounterBufferiv);
1793 // load GL_ARB_shader_image_load_store (added to OpenGL 4.2 core)
1794 const bool hasShaderImgLoadStore = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_shader_image_load_store"))
1795 && FindProcShort (glBindImageTexture)
1796 && FindProcShort (glMemoryBarrier);
1798 // load GL_ARB_texture_storage (added to OpenGL 4.2 core)
1799 const bool hasTextureStorage = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_texture_storage"))
1800 && FindProcShort (glTexStorage1D)
1801 && FindProcShort (glTexStorage2D)
1802 && FindProcShort (glTexStorage3D)
1803 && FindProcShort (glTextureStorage1DEXT)
1804 && FindProcShort (glTextureStorage2DEXT)
1805 && FindProcShort (glTextureStorage3DEXT);
1807 has42 = IsGlGreaterEqual (4, 2)
1809 && hasTrsfFeedbackInstanced
1810 && hasInternalFormatQuery
1811 && hasShaderAtomicCounters
1812 && hasShaderImgLoadStore
1813 && hasTextureStorage;
1815 has43 = IsGlGreaterEqual (4, 3)
1816 && FindProcShort (glClearBufferData)
1817 && FindProcShort (glClearBufferSubData)
1818 && FindProcShort (glDispatchCompute)
1819 && FindProcShort (glDispatchComputeIndirect)
1820 && FindProcShort (glCopyImageSubData)
1821 && FindProcShort (glFramebufferParameteri)
1822 && FindProcShort (glGetFramebufferParameteriv)
1823 && FindProcShort (glGetInternalformati64v)
1824 && FindProcShort (glInvalidateTexSubImage)
1825 && FindProcShort (glInvalidateTexImage)
1826 && FindProcShort (glInvalidateBufferSubData)
1827 && FindProcShort (glInvalidateBufferData)
1828 && FindProcShort (glInvalidateFramebuffer)
1829 && FindProcShort (glInvalidateSubFramebuffer)
1830 && FindProcShort (glMultiDrawArraysIndirect)
1831 && FindProcShort (glMultiDrawElementsIndirect)
1832 && FindProcShort (glGetProgramInterfaceiv)
1833 && FindProcShort (glGetProgramResourceIndex)
1834 && FindProcShort (glGetProgramResourceName)
1835 && FindProcShort (glGetProgramResourceiv)
1836 && FindProcShort (glGetProgramResourceLocation)
1837 && FindProcShort (glGetProgramResourceLocationIndex)
1838 && FindProcShort (glShaderStorageBlockBinding)
1839 && FindProcShort (glTexBufferRange)
1840 && FindProcShort (glTexStorage2DMultisample)
1841 && FindProcShort (glTexStorage3DMultisample)
1842 && FindProcShort (glTextureView)
1843 && FindProcShort (glBindVertexBuffer)
1844 && FindProcShort (glVertexAttribFormat)
1845 && FindProcShort (glVertexAttribIFormat)
1846 && FindProcShort (glVertexAttribLFormat)
1847 && FindProcShort (glVertexAttribBinding)
1848 && FindProcShort (glVertexBindingDivisor)
1849 && FindProcShort (glDebugMessageControl)
1850 && FindProcShort (glDebugMessageInsert)
1851 && FindProcShort (glDebugMessageCallback)
1852 && FindProcShort (glGetDebugMessageLog)
1853 && FindProcShort (glPushDebugGroup)
1854 && FindProcShort (glPopDebugGroup)
1855 && FindProcShort (glObjectLabel)
1856 && FindProcShort (glGetObjectLabel)
1857 && FindProcShort (glObjectPtrLabel)
1858 && FindProcShort (glGetObjectPtrLabel);
1860 // load GL_ARB_clear_texture (added to OpenGL 4.4 core)
1861 bool arbTexClear = (IsGlGreaterEqual (4, 4) || CheckExtension ("GL_ARB_clear_texture"))
1862 && FindProcShort (glClearTexImage)
1863 && FindProcShort (glClearTexSubImage);
1865 has44 = IsGlGreaterEqual (4, 4)
1867 && FindProcShort (glBufferStorage)
1868 && FindProcShort (glBindBuffersBase)
1869 && FindProcShort (glBindBuffersRange)
1870 && FindProcShort (glBindTextures)
1871 && FindProcShort (glBindSamplers)
1872 && FindProcShort (glBindImageTextures)
1873 && FindProcShort (glBindVertexBuffers);
1875 // initialize TBO extension (ARB)
1877 && CheckExtension ("GL_ARB_texture_buffer_object")
1878 && FindProc ("glTexBufferARB", myFuncs->glTexBuffer))
1880 arbTBO = (OpenGl_ArbTBO* )(&(*myFuncs));
1882 arbTboRGB32 = CheckExtension ("GL_ARB_texture_buffer_object_rgb32");
1884 // initialize hardware instancing extension (ARB)
1886 && CheckExtension ("GL_ARB_draw_instanced")
1887 && FindProc ("glDrawArraysInstancedARB", myFuncs->glDrawArraysInstanced)
1888 && FindProc ("glDrawElementsInstancedARB", myFuncs->glDrawElementsInstanced))
1890 arbIns = (OpenGl_ArbIns* )(&(*myFuncs));
1893 // initialize FBO extension (ARB)
1896 arbFBO = (OpenGl_ArbFBO* )(&(*myFuncs));
1897 arbFBOBlit = (OpenGl_ArbFBOBlit* )(&(*myFuncs));
1898 extPDS = Standard_True; // extension for EXT, but part of ARB
1901 // initialize GS extension (EXT)
1902 if (CheckExtension ("GL_EXT_geometry_shader4")
1903 && FindProcShort (glProgramParameteriEXT))
1905 extGS = (OpenGl_ExtGS* )(&(*myFuncs));
1908 // initialize bindless texture extension (ARB)
1909 if (CheckExtension ("GL_ARB_bindless_texture")
1910 && FindProcShort (glGetTextureHandleARB)
1911 && FindProcShort (glGetTextureSamplerHandleARB)
1912 && FindProcShort (glMakeTextureHandleResidentARB)
1913 && FindProcShort (glMakeTextureHandleNonResidentARB)
1914 && FindProcShort (glGetImageHandleARB)
1915 && FindProcShort (glMakeImageHandleResidentARB)
1916 && FindProcShort (glMakeImageHandleNonResidentARB)
1917 && FindProcShort (glUniformHandleui64ARB)
1918 && FindProcShort (glUniformHandleui64vARB)
1919 && FindProcShort (glProgramUniformHandleui64ARB)
1920 && FindProcShort (glProgramUniformHandleui64vARB)
1921 && FindProcShort (glIsTextureHandleResidentARB)
1922 && FindProcShort (glIsImageHandleResidentARB)
1923 && FindProcShort (glVertexAttribL1ui64ARB)
1924 && FindProcShort (glVertexAttribL1ui64vARB)
1925 && FindProcShort (glGetVertexAttribLui64vARB))
1927 arbTexBindless = (OpenGl_ArbTexBindless* )(&(*myFuncs));
1932 checkWrongVersion (1, 2);
1939 checkWrongVersion (1, 3);
1946 checkWrongVersion (1, 4);
1953 checkWrongVersion (1, 5);
1960 core15 = (OpenGl_GlCore15* )(&(*myFuncs));
1962 core15fwd = (OpenGl_GlCore15Fwd* )(&(*myFuncs));
1966 checkWrongVersion (2, 0);
1972 const char* aGlslVer = (const char* )::glGetString (GL_SHADING_LANGUAGE_VERSION);
1973 if (aGlslVer == NULL
1974 || *aGlslVer == '\0')
1976 // broken context has been detected
1977 TCollection_ExtendedString aMsg = TCollection_ExtendedString()
1978 + "Error! OpenGL context reports version "
1979 + myGlVerMajor + "." + myGlVerMinor
1980 + " but reports wrong GLSL version";
1981 PushMessage (GL_DEBUG_SOURCE_APPLICATION_ARB,
1982 GL_DEBUG_TYPE_ERROR_ARB,
1984 GL_DEBUG_SEVERITY_HIGH_ARB,
1993 core20 = (OpenGl_GlCore20* )(&(*myFuncs));
1995 core20fwd = (OpenGl_GlCore20Fwd* )(&(*myFuncs));
1999 checkWrongVersion (2, 1);
2007 checkWrongVersion (3, 0);
2015 checkWrongVersion (3, 1);
2020 arbTBO = (OpenGl_ArbTBO* )(&(*myFuncs));
2021 arbIns = (OpenGl_ArbIns* )(&(*myFuncs));
2025 checkWrongVersion (3, 2);
2030 core32 = (OpenGl_GlCore32* )(&(*myFuncs));
2033 core32->glGenVertexArrays (1, &myDefaultVao);
2037 core32back = (OpenGl_GlCore32Back* )(&(*myFuncs));
2042 checkWrongVersion (3, 3);
2047 core33 = (OpenGl_GlCore33* )(&(*myFuncs));
2050 core33back = (OpenGl_GlCore33Back* )(&(*myFuncs));
2053 // initialize sampler object
2054 myTexSampler = new OpenGl_Sampler();
2055 myTexSampler->Init (*this);
2059 checkWrongVersion (4, 0);
2064 arbTboRGB32 = Standard_True; // in core since OpenGL 4.0
2068 checkWrongVersion (4, 1);
2073 core41 = (OpenGl_GlCore41* )(&(*myFuncs));
2076 core41back = (OpenGl_GlCore41Back* )(&(*myFuncs));
2081 checkWrongVersion (4, 2);
2086 core42 = (OpenGl_GlCore42* )(&(*myFuncs));
2089 core42back = (OpenGl_GlCore42Back* )(&(*myFuncs));
2094 checkWrongVersion (4, 3);
2099 core43 = (OpenGl_GlCore43* )(&(*myFuncs));
2102 core43back = (OpenGl_GlCore43Back* )(&(*myFuncs));
2107 checkWrongVersion (4, 4);
2112 core44 = (OpenGl_GlCore44* )(&(*myFuncs));
2115 core44back = (OpenGl_GlCore44Back* )(&(*myFuncs));
2120 // =======================================================================
2121 // function : MemoryInfo
2123 // =======================================================================
2124 Standard_Size OpenGl_Context::AvailableMemory() const
2126 #if !defined(GL_ES_VERSION_2_0)
2129 // this is actually information for VBO pool
2130 // however because pools are mostly shared
2131 // it can be used for total GPU memory estimations
2134 glGetIntegerv (GL_VBO_FREE_MEMORY_ATI, aMemInfo);
2135 // returned value is in KiB, however this maybe changed in future
2136 return Standard_Size(aMemInfo[0]) * 1024;
2140 // current available dedicated video memory (in KiB), currently unused GPU memory
2142 glGetIntegerv (GL_GPU_MEMORY_INFO_CURRENT_AVAILABLE_VIDMEM_NVX, &aMemInfo);
2143 return Standard_Size(aMemInfo) * 1024;
2149 // =======================================================================
2150 // function : MemoryInfo
2152 // =======================================================================
2153 TCollection_AsciiString OpenGl_Context::MemoryInfo() const
2155 TCollection_AsciiString anInfo;
2156 #if !defined(GL_ES_VERSION_2_0)
2160 memset (aValues, 0, sizeof(aValues));
2161 glGetIntegerv (GL_VBO_FREE_MEMORY_ATI, aValues);
2163 // total memory free in the pool
2164 anInfo += TCollection_AsciiString (" GPU free memory: ") + (aValues[0] / 1024) + " MiB\n";
2166 // largest available free block in the pool
2167 anInfo += TCollection_AsciiString (" Largest free block: ") + (aValues[1] / 1024) + " MiB\n";
2168 if (aValues[2] != aValues[0])
2170 // total auxiliary memory free
2171 anInfo += TCollection_AsciiString (" Free memory: ") + (aValues[2] / 1024) + " MiB\n";
2176 //current available dedicated video memory (in KiB), currently unused GPU memory
2178 glGetIntegerv (GL_GPU_MEMORY_INFO_CURRENT_AVAILABLE_VIDMEM_NVX, &aValue);
2179 anInfo += TCollection_AsciiString (" GPU free memory: ") + (aValue / 1024) + " MiB\n";
2181 // dedicated video memory, total size (in KiB) of the GPU memory
2182 GLint aDedicated = 0;
2183 glGetIntegerv (GL_GPU_MEMORY_INFO_DEDICATED_VIDMEM_NVX, &aDedicated);
2184 anInfo += TCollection_AsciiString (" GPU memory: ") + (aDedicated / 1024) + " MiB\n";
2186 // total available memory, total size (in KiB) of the memory available for allocations
2187 glGetIntegerv (GL_GPU_MEMORY_INFO_TOTAL_AVAILABLE_MEMORY_NVX, &aValue);
2188 if (aValue != aDedicated)
2190 // different only for special configurations
2191 anInfo += TCollection_AsciiString (" Total memory: ") + (aValue / 1024) + " MiB\n";
2199 // =======================================================================
2200 // function : GetResource
2202 // =======================================================================
2203 const Handle(OpenGl_Resource)& OpenGl_Context::GetResource (const TCollection_AsciiString& theKey) const
2205 return mySharedResources->IsBound (theKey) ? mySharedResources->Find (theKey) : NULL_GL_RESOURCE;
2208 // =======================================================================
2209 // function : ShareResource
2211 // =======================================================================
2212 Standard_Boolean OpenGl_Context::ShareResource (const TCollection_AsciiString& theKey,
2213 const Handle(OpenGl_Resource)& theResource)
2215 if (theKey.IsEmpty() || theResource.IsNull())
2217 return Standard_False;
2219 return mySharedResources->Bind (theKey, theResource);
2222 // =======================================================================
2223 // function : ReleaseResource
2225 // =======================================================================
2226 void OpenGl_Context::ReleaseResource (const TCollection_AsciiString& theKey,
2227 const Standard_Boolean theToDelay)
2229 if (!mySharedResources->IsBound (theKey))
2233 const Handle(OpenGl_Resource)& aRes = mySharedResources->Find (theKey);
2234 if (aRes->GetRefCount() > 1)
2241 myDelayed->Bind (theKey, 1);
2245 aRes->Release (this);
2246 mySharedResources->UnBind (theKey);
2250 // =======================================================================
2251 // function : DelayedRelease
2253 // =======================================================================
2254 void OpenGl_Context::DelayedRelease (Handle(OpenGl_Resource)& theResource)
2256 myUnusedResources->Prepend (theResource);
2257 theResource.Nullify();
2260 // =======================================================================
2261 // function : ReleaseDelayed
2263 // =======================================================================
2264 void OpenGl_Context::ReleaseDelayed()
2266 // release queued elements
2267 while (!myUnusedResources->IsEmpty())
2269 myUnusedResources->First()->Release (this);
2270 myUnusedResources->RemoveFirst();
2273 // release delayed shared resources
2274 NCollection_Vector<TCollection_AsciiString> aDeadList;
2275 for (NCollection_DataMap<TCollection_AsciiString, Standard_Integer>::Iterator anIter (*myDelayed);
2276 anIter.More(); anIter.Next())
2278 if (++anIter.ChangeValue() <= 2)
2280 continue; // postpone release one more frame to ensure noone use it periodically
2283 const TCollection_AsciiString& aKey = anIter.Key();
2284 if (!mySharedResources->IsBound (aKey))
2286 // mixed unshared strategy delayed/undelayed was used!
2287 aDeadList.Append (aKey);
2291 Handle(OpenGl_Resource)& aRes = mySharedResources->ChangeFind (aKey);
2292 if (aRes->GetRefCount() > 1)
2294 // should be only 1 instance in mySharedResources
2295 // if not - resource was reused again
2296 aDeadList.Append (aKey);
2300 // release resource if no one requiested it more than 2 redraw calls
2301 aRes->Release (this);
2302 mySharedResources->UnBind (aKey);
2303 aDeadList.Append (aKey);
2306 for (Standard_Integer anIter = 0; anIter < aDeadList.Length(); ++anIter)
2308 myDelayed->UnBind (aDeadList.Value (anIter));
2312 // =======================================================================
2313 // function : BindProgram
2315 // =======================================================================
2316 Standard_Boolean OpenGl_Context::BindProgram (const Handle(OpenGl_ShaderProgram)& theProgram)
2318 if (core20fwd == NULL)
2320 return Standard_False;
2323 if (theProgram.IsNull()
2324 || !theProgram->IsValid())
2326 if (!myActiveProgram.IsNull())
2328 core20fwd->glUseProgram (OpenGl_ShaderProgram::NO_PROGRAM);
2329 myActiveProgram.Nullify();
2331 return Standard_False;
2334 myActiveProgram = theProgram;
2335 core20fwd->glUseProgram (theProgram->ProgramId());
2336 return Standard_True;
2339 // =======================================================================
2340 // function : BindDefaultVao
2342 // =======================================================================
2343 void OpenGl_Context::BindDefaultVao()
2345 #if !defined(GL_ES_VERSION_2_0)
2346 if (myDefaultVao == 0
2352 core32->glBindVertexArray (myDefaultVao);
2356 // =======================================================================
2357 // function : SetColor4fv
2359 // =======================================================================
2360 void OpenGl_Context::SetColor4fv (const OpenGl_Vec4& theColor)
2362 if (!myActiveProgram.IsNull())
2364 myActiveProgram->SetUniform (this, myActiveProgram->GetStateLocation (OpenGl_OCCT_COLOR), theColor);
2366 #if !defined(GL_ES_VERSION_2_0)
2367 else if (core11 != NULL)
2369 core11->glColor4fv (theColor.GetData());
2374 // =======================================================================
2375 // function : SetPointSize
2377 // =======================================================================
2378 void OpenGl_Context::SetPointSize (const Standard_ShortReal theSize)
2380 if (!myActiveProgram.IsNull())
2382 myActiveProgram->SetUniform (this, myActiveProgram->GetStateLocation (OpenGl_OCCT_POINT_SIZE), theSize);
2383 #if !defined(GL_ES_VERSION_2_0)
2384 //myContext->core11fwd->glEnable (GL_VERTEX_PROGRAM_POINT_SIZE);
2387 #if !defined(GL_ES_VERSION_2_0)
2390 core11fwd->glPointSize (theSize);
2391 if (core20fwd != NULL)
2393 //myContext->core11fwd->glDisable (GL_VERTEX_PROGRAM_POINT_SIZE);
2399 // =======================================================================
2400 // function : SetGlNormalizeEnabled
2402 // =======================================================================
2403 Standard_Boolean OpenGl_Context::SetGlNormalizeEnabled (Standard_Boolean isEnabled)
2405 if (isEnabled == myIsGlNormalizeEnabled)
2407 return myIsGlNormalizeEnabled;
2410 Standard_Boolean anOldGlNormalize = myIsGlNormalizeEnabled;
2412 myIsGlNormalizeEnabled = isEnabled;
2414 #if !defined(GL_ES_VERSION_2_0)
2417 glEnable (GL_NORMALIZE);
2421 glDisable (GL_NORMALIZE);
2425 return anOldGlNormalize;
2428 // =======================================================================
2429 // function : ApplyModelWorldMatrix
2431 // =======================================================================
2432 void OpenGl_Context::ApplyModelWorldMatrix()
2434 #if !defined(GL_ES_VERSION_2_0)
2437 core11->glMatrixMode (GL_MODELVIEW);
2438 core11->glLoadMatrixf (ModelWorldState.Current());
2442 if (!myShaderManager->IsEmpty())
2444 myShaderManager->UpdateModelWorldStateTo (ModelWorldState.Current());
2448 // =======================================================================
2449 // function : ApplyWorldViewMatrix
2451 // =======================================================================
2452 void OpenGl_Context::ApplyWorldViewMatrix()
2454 #if !defined(GL_ES_VERSION_2_0)
2457 core11->glMatrixMode (GL_MODELVIEW);
2458 core11->glLoadMatrixf (WorldViewState.Current());
2462 if (!myShaderManager->IsEmpty())
2464 myShaderManager->UpdateWorldViewStateTo (WorldViewState.Current());
2468 // =======================================================================
2469 // function : ApplyModelViewMatrix
2471 // =======================================================================
2472 void OpenGl_Context::ApplyModelViewMatrix()
2474 #if !defined(GL_ES_VERSION_2_0)
2477 OpenGl_Mat4 aModelView = WorldViewState.Current() * ModelWorldState.Current();
2478 core11->glMatrixMode (GL_MODELVIEW);
2479 core11->glLoadMatrixf (aModelView.GetData());
2483 if (!myShaderManager->IsEmpty())
2485 myShaderManager->UpdateModelWorldStateTo (ModelWorldState.Current());
2486 myShaderManager->UpdateWorldViewStateTo (WorldViewState.Current());
2490 // =======================================================================
2491 // function : ApplyProjectionMatrix
2493 // =======================================================================
2494 void OpenGl_Context::ApplyProjectionMatrix()
2496 #if !defined(GL_ES_VERSION_2_0)
2499 core11->glMatrixMode (GL_PROJECTION);
2500 core11->glLoadMatrixf (ProjectionState.Current().GetData());
2504 if (!myShaderManager->IsEmpty())
2506 myShaderManager->UpdateProjectionStateTo (ProjectionState.Current());