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_FrameBuffer.hxx>
30 #include <OpenGl_Sampler.hxx>
31 #include <OpenGl_ShaderManager.hxx>
33 #include <Message_Messenger.hxx>
35 #include <NCollection_Vector.hxx>
37 #include <Standard_ProgramError.hxx>
42 #pragma comment(lib, "libEGL.lib")
46 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
48 #if defined(TARGET_OS_IPHONE) && TARGET_OS_IPHONE
51 #include <OpenGL/OpenGL.h>
54 #include <GL/glx.h> // glXGetProcAddress()
60 #pragma comment (lib, "gl2ps.lib")
67 static const Handle(OpenGl_Resource) NULL_GL_RESOURCE;
70 // =======================================================================
71 // function : OpenGl_Context
73 // =======================================================================
74 OpenGl_Context::OpenGl_Context (const Handle(OpenGl_Caps)& theCaps)
93 caps (!theCaps.IsNull() ? theCaps : new OpenGl_Caps()),
94 #if defined(GL_ES_VERSION_2_0)
95 hasHighp (Standard_False),
96 hasUintIndex(Standard_False),
97 hasTexRGBA8(Standard_False),
99 hasHighp (Standard_True),
100 hasUintIndex(Standard_True),
101 hasTexRGBA8(Standard_True),
103 arbNPTW (Standard_False),
104 arbTexRG (Standard_False),
105 arbTexBindless (NULL),
107 arbTboRGB32 (Standard_False),
113 extBgra(Standard_False),
114 extAnis(Standard_False),
115 extPDS (Standard_False),
116 atiMem (Standard_False),
117 nvxMem (Standard_False),
118 mySharedResources (new OpenGl_ResourcesMap()),
119 myDelayed (new OpenGl_DelayReleaseMap()),
120 myUnusedResources (new OpenGl_ResourcesStack()),
122 myGlLibHandle (NULL),
123 myFuncs (new OpenGl_GlFunctions()),
125 myTexClamp (GL_CLAMP_TO_EDGE),
130 myIsInitialized (Standard_False),
131 myIsStereoBuffers (Standard_False),
132 myIsGlNormalizeEnabled (Standard_False),
133 #if !defined(GL_ES_VERSION_2_0)
134 myRenderMode (GL_RENDER),
141 myIsGlDebugCtx (Standard_False)
143 // system-dependent fields
144 #if defined(HAVE_EGL)
145 myDisplay = (Aspect_Display )EGL_NO_DISPLAY;
146 myWindow = (Aspect_Drawable )EGL_NO_SURFACE;
147 myGContext = (Aspect_RenderingContext )EGL_NO_CONTEXT;
148 #elif defined(_WIN32)
152 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
153 // Vendors can not extend functionality on this system
154 // and developers are limited to OpenGL support provided by Mac OS X SDK.
155 // We retrieve function pointers from system library
156 // to generalize extensions support on all platforms.
157 // In this way we also reach binary compatibility benefit between OS releases
158 // if some newest functionality is optionally used.
159 // Notice that GL version / extension availability checks are required
160 // because function pointers may be available but not functionality itself
161 // (depends on renderer).
162 #if defined(TARGET_OS_IPHONE) && TARGET_OS_IPHONE
164 myGlLibHandle = dlopen ("/System/Library/Frameworks/OpenGLES.framework/OpenGLES", RTLD_LAZY);
167 myGlLibHandle = dlopen ("/System/Library/Frameworks/OpenGL.framework/Versions/Current/OpenGL", RTLD_LAZY);
175 memset (myFuncs.operator->(), 0, sizeof(OpenGl_GlFunctions));
176 myShaderManager = new OpenGl_ShaderManager (this);
179 // =======================================================================
180 // function : ~OpenGl_Context
182 // =======================================================================
183 OpenGl_Context::~OpenGl_Context()
185 // release clean up queue
188 #if !defined(GL_ES_VERSION_2_0)
189 // release default VAO
190 if (myDefaultVao != 0
194 core32->glDeleteVertexArrays (1, &myDefaultVao);
199 // release default FBO
200 if (!myDefaultFbo.IsNull())
202 myDefaultFbo->Release (this);
203 myDefaultFbo.Nullify();
206 // release shared resources if any
207 if (((const Handle(Standard_Transient)& )mySharedResources)->GetRefCount() <= 1)
209 myShaderManager.Nullify();
210 for (NCollection_DataMap<TCollection_AsciiString, Handle(OpenGl_Resource)>::Iterator anIter (*mySharedResources);
211 anIter.More(); anIter.Next())
213 anIter.Value()->Release (this);
216 // release delayed resources added during deletion of shared resources
217 while (!myUnusedResources->IsEmpty())
219 myUnusedResources->First()->Release (this);
220 myUnusedResources->RemoveFirst();
225 myShaderManager->SetContext (NULL);
227 mySharedResources.Nullify();
230 // release sampler object
231 if (!myTexSampler.IsNull())
233 myTexSampler->Release (this);
236 #if !defined(GL_ES_VERSION_2_0)
243 glGetPointerv (GL_DEBUG_CALLBACK_USER_PARAM_ARB, &aPtr);
246 arbDbg->glDebugMessageCallbackARB (NULL, NULL);
248 myIsGlDebugCtx = Standard_False;
253 // =======================================================================
254 // function : forcedRelease
256 // =======================================================================
257 void OpenGl_Context::forcedRelease()
260 for (NCollection_DataMap<TCollection_AsciiString, Handle(OpenGl_Resource)>::Iterator anIter (*mySharedResources);
261 anIter.More(); anIter.Next())
263 anIter.Value()->Release (this);
265 mySharedResources->Clear();
266 myShaderManager->clear();
267 myShaderManager->SetContext (NULL);
269 // release delayed resources added during deletion of shared resources
270 while (!myUnusedResources->IsEmpty())
272 myUnusedResources->First()->Release (this);
273 myUnusedResources->RemoveFirst();
277 // =======================================================================
278 // function : MaxDegreeOfAnisotropy
280 // =======================================================================
281 Standard_Integer OpenGl_Context::MaxDegreeOfAnisotropy() const
286 // =======================================================================
287 // function : MaxTextureSize
289 // =======================================================================
290 Standard_Integer OpenGl_Context::MaxTextureSize() const
295 // =======================================================================
296 // function : MaxClipPlanes
298 // =======================================================================
299 Standard_Integer OpenGl_Context::MaxClipPlanes() const
301 return myMaxClipPlanes;
304 #if !defined(GL_ES_VERSION_2_0)
305 inline Standard_Integer stereoToMonoBuffer (const Standard_Integer theBuffer)
321 // =======================================================================
322 // function : SetReadBuffer
324 // =======================================================================
325 void OpenGl_Context::SetReadBuffer (const Standard_Integer theReadBuffer)
327 #if !defined(GL_ES_VERSION_2_0)
328 myReadBuffer = !myIsStereoBuffers ? stereoToMonoBuffer (theReadBuffer) : theReadBuffer;
329 if (myReadBuffer < GL_COLOR_ATTACHMENT0
332 arbFBO->glBindFramebuffer (GL_FRAMEBUFFER, OpenGl_FrameBuffer::NO_FRAMEBUFFER);
334 ::glReadBuffer (myReadBuffer);
336 (void )theReadBuffer;
340 // =======================================================================
341 // function : SetDrawBuffer
343 // =======================================================================
344 void OpenGl_Context::SetDrawBuffer (const Standard_Integer theDrawBuffer)
346 #if !defined(GL_ES_VERSION_2_0)
347 myDrawBuffer = !myIsStereoBuffers ? stereoToMonoBuffer (theDrawBuffer) : theDrawBuffer;
348 if (myDrawBuffer < GL_COLOR_ATTACHMENT0
351 arbFBO->glBindFramebuffer (GL_FRAMEBUFFER, OpenGl_FrameBuffer::NO_FRAMEBUFFER);
353 ::glDrawBuffer (myDrawBuffer);
355 (void )theDrawBuffer;
359 // =======================================================================
360 // function : FetchState
362 // =======================================================================
363 void OpenGl_Context::FetchState()
365 #if !defined(GL_ES_VERSION_2_0)
366 // cache feedback mode state
369 ::glGetIntegerv (GL_RENDER_MODE, &myRenderMode);
372 // cache buffers state
373 ::glGetIntegerv (GL_READ_BUFFER, &myReadBuffer);
374 ::glGetIntegerv (GL_DRAW_BUFFER, &myDrawBuffer);
378 // =======================================================================
381 // =======================================================================
382 void OpenGl_Context::Share (const Handle(OpenGl_Context)& theShareCtx)
384 if (!theShareCtx.IsNull())
386 mySharedResources = theShareCtx->mySharedResources;
387 myDelayed = theShareCtx->myDelayed;
388 myUnusedResources = theShareCtx->myUnusedResources;
389 myShaderManager = theShareCtx->myShaderManager;
393 #if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
395 // =======================================================================
396 // function : IsCurrent
398 // =======================================================================
399 Standard_Boolean OpenGl_Context::IsCurrent() const
401 #if defined(HAVE_EGL)
402 if ((EGLDisplay )myDisplay == EGL_NO_DISPLAY
403 || (EGLSurface )myWindow == EGL_NO_SURFACE
404 || (EGLContext )myGContext == EGL_NO_CONTEXT)
406 return Standard_False;
409 return (((EGLDisplay )myDisplay == eglGetCurrentDisplay())
410 && ((EGLContext )myGContext == eglGetCurrentContext())
411 && ((EGLSurface )myWindow == eglGetCurrentSurface (EGL_DRAW)));
412 #elif defined(_WIN32)
413 if (myWindowDC == NULL || myGContext == NULL)
415 return Standard_False;
417 return (( (HDC )myWindowDC == wglGetCurrentDC())
418 && ((HGLRC )myGContext == wglGetCurrentContext()));
420 if (myDisplay == NULL || myWindow == 0 || myGContext == 0)
422 return Standard_False;
425 return ( ((Display* )myDisplay == glXGetCurrentDisplay())
426 && ((GLXContext )myGContext == glXGetCurrentContext())
427 && ((GLXDrawable )myWindow == glXGetCurrentDrawable()));
431 // =======================================================================
432 // function : MakeCurrent
434 // =======================================================================
435 Standard_Boolean OpenGl_Context::MakeCurrent()
437 #if defined(HAVE_EGL)
438 if ((EGLDisplay )myDisplay == EGL_NO_DISPLAY
439 || (EGLSurface )myWindow == EGL_NO_SURFACE
440 || (EGLContext )myGContext == EGL_NO_CONTEXT)
442 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
443 return Standard_False;
446 if (eglMakeCurrent ((EGLDisplay )myDisplay, (EGLSurface )myWindow, (EGLSurface )myWindow, (EGLContext )myGContext) != EGL_TRUE)
448 // if there is no current context it might be impossible to use glGetError() correctly
449 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB, GL_DEBUG_TYPE_ERROR_ARB, 0, GL_DEBUG_SEVERITY_HIGH_ARB,
450 "eglMakeCurrent() has failed!");
451 myIsInitialized = Standard_False;
452 return Standard_False;
454 #elif defined(_WIN32)
455 if (myWindowDC == NULL || myGContext == NULL)
457 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
458 return Standard_False;
461 // technically it should be safe to activate already bound GL context
462 // however some drivers (Intel etc.) may FAIL doing this for unknown reason
465 myShaderManager->SetContext (this);
466 return Standard_True;
468 else if (wglMakeCurrent ((HDC )myWindowDC, (HGLRC )myGContext) != TRUE)
470 // notice that glGetError() couldn't be used here!
471 wchar_t* aMsgBuff = NULL;
472 DWORD anErrorCode = GetLastError();
473 FormatMessageW (FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
474 NULL, anErrorCode, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (wchar_t* )&aMsgBuff, 0, NULL);
475 TCollection_ExtendedString aMsg ("wglMakeCurrent() has failed. ");
476 if (aMsgBuff != NULL)
478 aMsg += (Standard_ExtString )aMsgBuff;
479 LocalFree (aMsgBuff);
481 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB, GL_DEBUG_TYPE_ERROR_ARB, (unsigned int )anErrorCode, GL_DEBUG_SEVERITY_HIGH_ARB, aMsg);
482 myIsInitialized = Standard_False;
483 return Standard_False;
486 if (myDisplay == NULL || myWindow == 0 || myGContext == 0)
488 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
489 return Standard_False;
492 if (!glXMakeCurrent ((Display* )myDisplay, (GLXDrawable )myWindow, (GLXContext )myGContext))
494 // if there is no current context it might be impossible to use glGetError() correctly
495 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB, GL_DEBUG_TYPE_ERROR_ARB, 0, GL_DEBUG_SEVERITY_HIGH_ARB,
496 "glXMakeCurrent() has failed!");
497 myIsInitialized = Standard_False;
498 return Standard_False;
501 myShaderManager->SetContext (this);
502 return Standard_True;
505 // =======================================================================
506 // function : SwapBuffers
508 // =======================================================================
509 void OpenGl_Context::SwapBuffers()
511 #if defined(HAVE_EGL)
512 if ((EGLSurface )myWindow != EGL_NO_SURFACE)
514 eglSwapBuffers ((EGLDisplay )myDisplay, (EGLSurface )myWindow);
516 #elif defined(_WIN32)
517 if ((HDC )myWindowDC != NULL)
519 ::SwapBuffers ((HDC )myWindowDC);
523 if ((Display* )myDisplay != NULL)
525 glXSwapBuffers ((Display* )myDisplay, (GLXDrawable )myWindow);
532 // =======================================================================
533 // function : SetSwapInterval
535 // =======================================================================
536 Standard_Boolean OpenGl_Context::SetSwapInterval (const Standard_Integer theInterval)
538 #if defined(HAVE_EGL)
539 if (::eglSwapInterval ((EGLDisplay )myDisplay, theInterval) == EGL_TRUE)
541 return Standard_True;
543 #elif defined(_WIN32)
544 if (myFuncs->wglSwapIntervalEXT != NULL)
546 myFuncs->wglSwapIntervalEXT (theInterval);
547 return Standard_True;
549 #elif defined(TARGET_OS_IPHONE) && TARGET_OS_IPHONE
551 #elif defined(__APPLE__)
552 if (::CGLSetParameter (CGLGetCurrentContext(), kCGLCPSwapInterval, &theInterval) == kCGLNoError)
554 return Standard_True;
557 if (theInterval == -1
558 && myFuncs->glXSwapIntervalEXT != NULL)
560 typedef int (*glXSwapIntervalEXT_t_x)(Display* theDisplay, GLXDrawable theDrawable, int theInterval);
561 glXSwapIntervalEXT_t_x aFuncPtr = (glXSwapIntervalEXT_t_x )myFuncs->glXSwapIntervalEXT;
562 aFuncPtr ((Display* )myDisplay, (GLXDrawable )myWindow, theInterval);
563 return Standard_True;
565 else if (myFuncs->glXSwapIntervalSGI != NULL)
567 myFuncs->glXSwapIntervalSGI (theInterval);
568 return Standard_True;
571 return Standard_False;
574 // =======================================================================
575 // function : findProc
577 // =======================================================================
578 void* OpenGl_Context::findProc (const char* theFuncName)
580 #if defined(HAVE_EGL)
581 return (void* )eglGetProcAddress (theFuncName);
582 #elif defined(_WIN32)
583 return wglGetProcAddress (theFuncName);
584 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
585 return (myGlLibHandle != NULL) ? dlsym (myGlLibHandle, theFuncName) : NULL;
587 return (void* )glXGetProcAddress ((const GLubyte* )theFuncName);
591 // =======================================================================
592 // function : CheckExtension
594 // =======================================================================
595 Standard_Boolean OpenGl_Context::CheckExtension (const char* theExtName) const
597 if (theExtName == NULL)
600 std::cerr << "CheckExtension called with NULL string!\n";
602 return Standard_False;
605 #if !defined(GL_ES_VERSION_2_0)
606 // available since OpenGL 3.0
607 // and the ONLY way to check extensions with OpenGL 3.1+ core profile
608 if (IsGlGreaterEqual (3, 0)
609 && myFuncs->glGetStringi != NULL)
612 ::glGetIntegerv (GL_NUM_EXTENSIONS, &anExtNb);
613 const size_t anExtNameLen = strlen (theExtName);
614 for (GLint anIter = 0; anIter < anExtNb; ++anIter)
616 const char* anExtension = (const char* )myFuncs->glGetStringi (GL_EXTENSIONS, (GLuint )anIter);
617 const size_t aTestExtNameLen = strlen (anExtension);
618 if (aTestExtNameLen == anExtNameLen
619 && strncmp (anExtension, theExtName, anExtNameLen) == 0)
621 return Standard_True;
624 return Standard_False;
628 // use old way with huge string for all extensions
629 const char* anExtString = (const char* )glGetString (GL_EXTENSIONS);
630 if (anExtString == NULL)
632 Messenger()->Send ("TKOpenGL: glGetString (GL_EXTENSIONS) has returned NULL! No GL context?", Message_Warning);
633 return Standard_False;
635 return CheckExtension (anExtString, theExtName);
638 // =======================================================================
639 // function : CheckExtension
641 // =======================================================================
642 Standard_Boolean OpenGl_Context::CheckExtension (const char* theExtString,
643 const char* theExtName)
645 if (theExtString == NULL)
647 return Standard_False;
650 // Search for theExtName in the extensions string.
651 // Use of strstr() is not sufficient because extension names can be prefixes of other extension names.
652 char* aPtrIter = (char* )theExtString;
653 const char* aPtrEnd = aPtrIter + strlen (theExtString);
654 const size_t anExtNameLen = strlen (theExtName);
655 while (aPtrIter < aPtrEnd)
657 const size_t n = strcspn (aPtrIter, " ");
658 if ((n == anExtNameLen) && (strncmp (aPtrIter, theExtName, anExtNameLen) == 0))
660 return Standard_True;
664 return Standard_False;
667 #if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
669 // =======================================================================
672 // =======================================================================
673 Standard_Boolean OpenGl_Context::Init (const Standard_Boolean theIsCoreProfile)
677 return Standard_True;
680 #if defined(HAVE_EGL)
681 myDisplay = (Aspect_Display )eglGetCurrentDisplay();
682 myGContext = (Aspect_RenderingContext )eglGetCurrentContext();
683 myWindow = (Aspect_Drawable )eglGetCurrentSurface(EGL_DRAW);
684 #elif defined(_WIN32)
685 myWindowDC = (Aspect_Handle )wglGetCurrentDC();
686 myGContext = (Aspect_RenderingContext )wglGetCurrentContext();
688 myDisplay = (Aspect_Display )glXGetCurrentDisplay();
689 myGContext = (Aspect_RenderingContext )glXGetCurrentContext();
690 myWindow = (Aspect_Drawable )glXGetCurrentDrawable();
692 if (myGContext == NULL)
694 return Standard_False;
697 init (theIsCoreProfile);
698 myIsInitialized = Standard_True;
699 return Standard_True;
704 // =======================================================================
707 // =======================================================================
708 #if defined(HAVE_EGL)
709 Standard_Boolean OpenGl_Context::Init (const Aspect_Drawable theEglSurface,
710 const Aspect_Display theEglDisplay,
711 const Aspect_RenderingContext theEglContext,
712 const Standard_Boolean theIsCoreProfile)
713 #elif defined(_WIN32)
714 Standard_Boolean OpenGl_Context::Init (const Aspect_Handle theWindow,
715 const Aspect_Handle theWindowDC,
716 const Aspect_RenderingContext theGContext,
717 const Standard_Boolean theIsCoreProfile)
718 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
720 #if defined(TARGET_OS_IPHONE) && TARGET_OS_IPHONE
721 Standard_Boolean OpenGl_Context::Init (EAGLContext* theGContext,
722 const Standard_Boolean theIsCoreProfile)
724 Standard_Boolean OpenGl_Context::Init (NSOpenGLContext* theGContext,
725 const Standard_Boolean theIsCoreProfile)
729 Standard_Boolean OpenGl_Context::Init (const Aspect_Drawable theWindow,
730 const Aspect_Display theDisplay,
731 const Aspect_RenderingContext theGContext,
732 const Standard_Boolean theIsCoreProfile)
735 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called only once!");
736 #if defined(HAVE_EGL)
737 myWindow = theEglSurface;
738 myGContext = theEglContext;
739 myDisplay = theEglDisplay;
740 #elif defined(_WIN32)
741 myWindow = theWindow;
742 myGContext = theGContext;
743 myWindowDC = theWindowDC;
744 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
745 myGContext = theGContext;
747 myWindow = theWindow;
748 myGContext = theGContext;
749 myDisplay = theDisplay;
751 if (myGContext == NULL || !MakeCurrent())
753 return Standard_False;
756 init (theIsCoreProfile);
757 myIsInitialized = Standard_True;
758 return Standard_True;
761 // =======================================================================
762 // function : ResetErrors
764 // =======================================================================
765 void OpenGl_Context::ResetErrors()
767 while (glGetError() != GL_NO_ERROR)
773 // =======================================================================
774 // function : ReadGlVersion
776 // =======================================================================
777 void OpenGl_Context::ReadGlVersion (Standard_Integer& theGlVerMajor,
778 Standard_Integer& theGlVerMinor)
784 #ifdef GL_MAJOR_VERSION
785 // available since OpenGL 3.0 and OpenGL 3.0 ES
786 GLint aMajor = 0, aMinor = 0;
787 glGetIntegerv (GL_MAJOR_VERSION, &aMajor);
788 glGetIntegerv (GL_MINOR_VERSION, &aMinor);
789 // glGetError() sometimes does not report an error here even if
790 // GL does not know GL_MAJOR_VERSION and GL_MINOR_VERSION constants.
791 // This happens on some renderers like e.g. Cygwin MESA.
792 // Thus checking additionally if GL has put anything to
793 // the output variables.
794 if (::glGetError() == GL_NO_ERROR && aMajor != 0 && aMinor != 0)
796 theGlVerMajor = aMajor;
797 theGlVerMinor = aMinor;
800 for (GLenum anErr = ::glGetError(), aPrevErr = GL_NO_ERROR;; aPrevErr = anErr, anErr = ::glGetError())
802 if (anErr == GL_NO_ERROR
803 || anErr == aPrevErr)
810 // Read version string.
811 // Notice that only first two numbers split by point '2.1 XXXXX' are significant.
812 // Following trash (after space) is vendor-specific.
813 // New drivers also returns micro version of GL like '3.3.0' which has no meaning
814 // and should be considered as vendor-specific too.
815 const char* aVerStr = (const char* )glGetString (GL_VERSION);
816 if (aVerStr == NULL || *aVerStr == '\0')
818 // invalid GL context
822 //#if defined(GL_ES_VERSION_2_0)
823 // skip "OpenGL ES-** " section
824 for (; *aVerStr != '\0'; ++aVerStr)
826 if (*aVerStr >= '0' && *aVerStr <= '9')
833 // parse string for major number
837 while (aVerStr[aMajIter] >= '0' && aVerStr[aMajIter] <= '9')
841 if (aMajIter == 0 || aMajIter >= sizeof(aMajorStr))
845 memcpy (aMajorStr, aVerStr, aMajIter);
846 aMajorStr[aMajIter] = '\0';
848 // parse string for minor number
849 aVerStr += aMajIter + 1;
851 while (aVerStr[aMinIter] >= '0' && aVerStr[aMinIter] <= '9')
855 if (aMinIter == 0 || aMinIter >= sizeof(aMinorStr))
859 memcpy (aMinorStr, aVerStr, aMinIter);
860 aMinorStr[aMinIter] = '\0';
863 theGlVerMajor = atoi (aMajorStr);
864 theGlVerMinor = atoi (aMinorStr);
866 if (theGlVerMajor <= 0)
873 static Standard_CString THE_DBGMSG_UNKNOWN = "UNKNOWN";
874 static Standard_CString THE_DBGMSG_SOURCES[] =
876 ".OpenGL", // GL_DEBUG_SOURCE_API_ARB
877 ".WinSystem", // GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB
878 ".GLSL", // GL_DEBUG_SOURCE_SHADER_COMPILER_ARB
879 ".3rdParty", // GL_DEBUG_SOURCE_THIRD_PARTY_ARB
880 "", // GL_DEBUG_SOURCE_APPLICATION_ARB
881 ".Other" // GL_DEBUG_SOURCE_OTHER_ARB
884 static Standard_CString THE_DBGMSG_TYPES[] =
886 "Error", // GL_DEBUG_TYPE_ERROR_ARB
887 "Deprecated", // GL_DEBUG_TYPE_DEPRECATED_BEHAVIOR_ARB
888 "Undef. behavior", // GL_DEBUG_TYPE_UNDEFINED_BEHAVIOR_ARB
889 "Portability", // GL_DEBUG_TYPE_PORTABILITY_ARB
890 "Performance", // GL_DEBUG_TYPE_PERFORMANCE_ARB
891 "Other" // GL_DEBUG_TYPE_OTHER_ARB
894 static Standard_CString THE_DBGMSG_SEV_HIGH = "High"; // GL_DEBUG_SEVERITY_HIGH_ARB
895 static Standard_CString THE_DBGMSG_SEV_MEDIUM = "Medium"; // GL_DEBUG_SEVERITY_MEDIUM_ARB
896 static Standard_CString THE_DBGMSG_SEV_LOW = "Low"; // GL_DEBUG_SEVERITY_LOW_ARB
898 #if !defined(GL_ES_VERSION_2_0)
899 //! Callback for GL_ARB_debug_output extension
900 static void APIENTRY debugCallbackWrap(unsigned int theSource,
901 unsigned int theType,
903 unsigned int theSeverity,
905 const char* theMessage,
906 const void* theUserParam)
908 OpenGl_Context* aCtx = (OpenGl_Context* )theUserParam;
909 aCtx->PushMessage (theSource, theType, theId, theSeverity, theMessage);
913 // =======================================================================
914 // function : PushMessage
916 // =======================================================================
917 void OpenGl_Context::PushMessage (const unsigned int theSource,
918 const unsigned int theType,
919 const unsigned int theId,
920 const unsigned int theSeverity,
921 const TCollection_ExtendedString& theMessage)
923 if (caps->suppressExtraMsg
924 && theSource >= GL_DEBUG_SOURCE_API_ARB
925 && theSource <= GL_DEBUG_SOURCE_OTHER_ARB
926 && myFilters[theSource - GL_DEBUG_SOURCE_API_ARB].Contains (theId))
931 Standard_CString& aSrc = (theSource >= GL_DEBUG_SOURCE_API_ARB
932 && theSource <= GL_DEBUG_SOURCE_OTHER_ARB)
933 ? THE_DBGMSG_SOURCES[theSource - GL_DEBUG_SOURCE_API_ARB]
934 : THE_DBGMSG_UNKNOWN;
935 Standard_CString& aType = (theType >= GL_DEBUG_TYPE_ERROR_ARB
936 && theType <= GL_DEBUG_TYPE_OTHER_ARB)
937 ? THE_DBGMSG_TYPES[theType - GL_DEBUG_TYPE_ERROR_ARB]
938 : THE_DBGMSG_UNKNOWN;
939 Standard_CString& aSev = theSeverity == GL_DEBUG_SEVERITY_HIGH_ARB
940 ? THE_DBGMSG_SEV_HIGH
941 : (theSeverity == GL_DEBUG_SEVERITY_MEDIUM_ARB
942 ? THE_DBGMSG_SEV_MEDIUM
943 : THE_DBGMSG_SEV_LOW);
944 Message_Gravity aGrav = theSeverity == GL_DEBUG_SEVERITY_HIGH_ARB
946 : (theSeverity == GL_DEBUG_SEVERITY_MEDIUM_ARB
950 TCollection_ExtendedString aMsg;
951 aMsg += "TKOpenGl"; aMsg += aSrc;
952 aMsg += " | Type: "; aMsg += aType;
953 aMsg += " | ID: "; aMsg += (Standard_Integer )theId;
954 aMsg += " | Severity: "; aMsg += aSev;
955 aMsg += " | Message:\n ";
957 Messenger()->Send (aMsg, aGrav);
960 // =======================================================================
961 // function : ExcludeMessage
963 // ======================================================================
964 Standard_Boolean OpenGl_Context::ExcludeMessage (const unsigned int theSource,
965 const unsigned int theId)
967 return theSource >= GL_DEBUG_SOURCE_API_ARB
968 && theSource <= GL_DEBUG_SOURCE_OTHER_ARB
969 && myFilters[theSource - GL_DEBUG_SOURCE_API_ARB].Add (theId);
972 // =======================================================================
973 // function : IncludeMessage
975 // ======================================================================
976 Standard_Boolean OpenGl_Context::IncludeMessage (const unsigned int theSource,
977 const unsigned int theId)
979 return theSource >= GL_DEBUG_SOURCE_API_ARB
980 && theSource <= GL_DEBUG_SOURCE_OTHER_ARB
981 && myFilters[theSource - GL_DEBUG_SOURCE_API_ARB].Remove (theId);
984 // =======================================================================
985 // function : checkWrongVersion
987 // ======================================================================
988 void OpenGl_Context::checkWrongVersion (const Standard_Integer theGlVerMajor,
989 const Standard_Integer theGlVerMinor)
991 if (!IsGlGreaterEqual (theGlVerMajor, theGlVerMinor))
996 TCollection_ExtendedString aMsg = TCollection_ExtendedString()
997 + "Error! OpenGL context reports version "
998 + myGlVerMajor + "." + myGlVerMinor
999 + " but does not export required functions for "
1000 + theGlVerMajor + "." + theGlVerMinor;
1001 PushMessage (GL_DEBUG_SOURCE_APPLICATION_ARB,
1002 GL_DEBUG_TYPE_ERROR_ARB,
1004 GL_DEBUG_SEVERITY_HIGH_ARB,
1008 // =======================================================================
1011 // =======================================================================
1012 void OpenGl_Context::init (const Standard_Boolean theIsCoreProfile)
1017 ReadGlVersion (myGlVerMajor, myGlVerMinor);
1018 myVendor = (const char* )::glGetString (GL_VENDOR);
1020 #if defined(GL_ES_VERSION_2_0)
1021 (void )theIsCoreProfile;
1022 const bool isCoreProfile = false;
1025 if (myVendor.Search ("NVIDIA") != -1)
1027 // Buffer detailed info: Buffer object 1 (bound to GL_ARRAY_BUFFER_ARB, usage hint is GL_STATIC_DRAW)
1028 // will use VIDEO memory as the source for buffer object operations.
1029 ExcludeMessage (GL_DEBUG_SOURCE_API_ARB, 131185);
1031 if (IsGlGreaterEqual (3, 0))
1033 // retrieve auxiliary function in advance
1034 FindProc ("glGetStringi", myFuncs->glGetStringi);
1037 bool isCoreProfile = false;
1038 if (IsGlGreaterEqual (3, 2))
1040 isCoreProfile = (theIsCoreProfile == Standard_True);
1042 // detect Core profile
1046 ::glGetIntegerv (GL_CONTEXT_PROFILE_MASK, &aProfile);
1047 isCoreProfile = (aProfile & GL_CONTEXT_CORE_PROFILE_BIT) != 0;
1055 core11 = (OpenGl_GlCore11* )(&(*myFuncs));
1057 core11fwd = (OpenGl_GlCore11Fwd* )(&(*myFuncs));
1075 arbTboRGB32 = Standard_False;
1083 #if defined(GL_ES_VERSION_2_0)
1085 hasTexRGBA8 = IsGlGreaterEqual (3, 0)
1086 || CheckExtension ("GL_OES_rgb8_rgba8");
1087 // NPOT textures has limited support within OpenGL ES 2.0
1088 // which are relaxed by OpenGL ES 3.0 or some extensions
1089 //arbNPTW = IsGlGreaterEqual (3, 0)
1090 // || CheckExtension ("GL_OES_texture_npot")
1091 // || CheckExtension ("GL_NV_texture_npot_2D_mipmap");
1092 arbNPTW = Standard_True;
1093 arbTexRG = IsGlGreaterEqual (3, 0)
1094 || CheckExtension ("GL_EXT_texture_rg");
1095 extBgra = CheckExtension ("GL_EXT_texture_format_BGRA8888");
1096 extAnis = CheckExtension ("GL_EXT_texture_filter_anisotropic");
1097 extPDS = CheckExtension ("GL_OES_packed_depth_stencil");
1099 core11fwd = (OpenGl_GlCore11Fwd* )(&(*myFuncs));
1100 if (IsGlGreaterEqual (2, 0))
1102 // enable compatible functions
1103 core20 = (OpenGl_GlCore20* )(&(*myFuncs));
1104 core20fwd = (OpenGl_GlCore20Fwd* )(&(*myFuncs));
1105 core15fwd = (OpenGl_GlCore15Fwd* )(&(*myFuncs));
1106 arbFBO = (OpenGl_ArbFBO* )(&(*myFuncs));
1108 if (IsGlGreaterEqual (3, 0)
1109 && FindProc ("glBlitFramebuffer", myFuncs->glBlitFramebuffer))
1111 arbFBOBlit = (OpenGl_ArbFBOBlit* )(&(*myFuncs));
1114 hasUintIndex = IsGlGreaterEqual (3, 0)
1115 || CheckExtension ("GL_OES_element_index_uint");
1116 hasHighp = CheckExtension ("GL_OES_fragment_precision_high");
1117 GLint aRange[2] = {0, 0};
1119 ::glGetShaderPrecisionFormat (GL_FRAGMENT_SHADER, GL_HIGH_FLOAT, aRange, &aPrec);
1122 hasHighp = Standard_True;
1126 myTexClamp = IsGlGreaterEqual (1, 2) ? GL_CLAMP_TO_EDGE : GL_CLAMP;
1128 hasTexRGBA8 = Standard_True;
1129 arbNPTW = CheckExtension ("GL_ARB_texture_non_power_of_two");
1130 extBgra = CheckExtension ("GL_EXT_bgra");
1131 extAnis = CheckExtension ("GL_EXT_texture_filter_anisotropic");
1132 extPDS = CheckExtension ("GL_EXT_packed_depth_stencil");
1133 atiMem = CheckExtension ("GL_ATI_meminfo");
1134 nvxMem = CheckExtension ("GL_NVX_gpu_memory_info");
1136 GLint aStereo = GL_FALSE;
1137 glGetIntegerv (GL_STEREO, &aStereo);
1138 myIsStereoBuffers = aStereo == 1;
1140 // get number of maximum clipping planes
1141 glGetIntegerv (GL_MAX_CLIP_PLANES, &myMaxClipPlanes);
1144 glGetIntegerv (GL_MAX_TEXTURE_SIZE, &myMaxTexDim);
1148 glGetIntegerv (GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT, &myAnisoMax);
1151 myClippingState.Init (myMaxClipPlanes);
1153 #if !defined(GL_ES_VERSION_2_0)
1171 //! Make record shorter to retrieve function pointer using variable with same name
1172 #define FindProcShort(theFunc) FindProc(#theFunc, myFuncs->theFunc)
1174 // retrieve platform-dependent extensions
1175 #if defined(HAVE_EGL)
1177 #elif defined(_WIN32)
1178 if (FindProcShort (wglGetExtensionsStringARB))
1180 const char* aWglExts = myFuncs->wglGetExtensionsStringARB (wglGetCurrentDC());
1181 if (CheckExtension (aWglExts, "WGL_EXT_swap_control"))
1183 FindProcShort (wglSwapIntervalEXT);
1185 if (CheckExtension (aWglExts, "WGL_ARB_pixel_format"))
1187 FindProcShort (wglChoosePixelFormatARB);
1189 if (CheckExtension (aWglExts, "WGL_ARB_create_context_profile"))
1191 FindProcShort (wglCreateContextAttribsARB);
1193 if (CheckExtension (aWglExts, "WGL_NV_DX_interop"))
1195 FindProcShort (wglDXSetResourceShareHandleNV);
1196 FindProcShort (wglDXOpenDeviceNV);
1197 FindProcShort (wglDXCloseDeviceNV);
1198 FindProcShort (wglDXRegisterObjectNV);
1199 FindProcShort (wglDXUnregisterObjectNV);
1200 FindProcShort (wglDXObjectAccessNV);
1201 FindProcShort (wglDXLockObjectsNV);
1202 FindProcShort (wglDXUnlockObjectsNV);
1205 #elif defined(__APPLE__)
1208 const char* aGlxExts = ::glXQueryExtensionsString ((Display* )myDisplay, DefaultScreen ((Display* )myDisplay));
1209 if (CheckExtension (aGlxExts, "GLX_EXT_swap_control"))
1211 FindProcShort (glXSwapIntervalEXT);
1213 if (CheckExtension (aGlxExts, "GLX_SGI_swap_control"))
1215 FindProcShort (glXSwapIntervalSGI);
1217 //extSwapTear = CheckExtension (aGlxExts, "GLX_EXT_swap_control_tear");
1220 // initialize debug context extension
1221 if (CheckExtension ("GL_ARB_debug_output"))
1224 if (FindProcShort (glDebugMessageControlARB)
1225 && FindProcShort (glDebugMessageInsertARB)
1226 && FindProcShort (glDebugMessageCallbackARB)
1227 && FindProcShort (glGetDebugMessageLogARB))
1229 arbDbg = (OpenGl_ArbDbg* )(&(*myFuncs));
1232 && caps->contextDebug)
1234 // setup default callback
1235 myIsGlDebugCtx = Standard_True;
1236 arbDbg->glDebugMessageCallbackARB (debugCallbackWrap, this);
1237 if (caps->contextSyncDebug)
1239 ::glEnable (GL_DEBUG_OUTPUT_SYNCHRONOUS_ARB);
1244 // load OpenGL 1.2 new functions
1245 has12 = IsGlGreaterEqual (1, 2)
1246 && FindProcShort (glBlendColor)
1247 && FindProcShort (glBlendEquation)
1248 && FindProcShort (glDrawRangeElements)
1249 && FindProcShort (glTexImage3D)
1250 && FindProcShort (glTexSubImage3D)
1251 && FindProcShort (glCopyTexSubImage3D);
1253 // load OpenGL 1.3 new functions
1254 has13 = IsGlGreaterEqual (1, 3)
1255 && FindProcShort (glActiveTexture)
1256 && FindProcShort (glSampleCoverage)
1257 && FindProcShort (glCompressedTexImage3D)
1258 && FindProcShort (glCompressedTexImage2D)
1259 && FindProcShort (glCompressedTexImage1D)
1260 && FindProcShort (glCompressedTexSubImage3D)
1261 && FindProcShort (glCompressedTexSubImage2D)
1262 && FindProcShort (glCompressedTexSubImage1D)
1263 && FindProcShort (glGetCompressedTexImage);
1268 && FindProcShort (glClientActiveTexture)
1269 && FindProcShort (glMultiTexCoord1d)
1270 && FindProcShort (glMultiTexCoord1dv)
1271 && FindProcShort (glMultiTexCoord1f)
1272 && FindProcShort (glMultiTexCoord1fv)
1273 && FindProcShort (glMultiTexCoord1i)
1274 && FindProcShort (glMultiTexCoord1iv)
1275 && FindProcShort (glMultiTexCoord1s)
1276 && FindProcShort (glMultiTexCoord1sv)
1277 && FindProcShort (glMultiTexCoord2d)
1278 && FindProcShort (glMultiTexCoord2dv)
1279 && FindProcShort (glMultiTexCoord2f)
1280 && FindProcShort (glMultiTexCoord2fv)
1281 && FindProcShort (glMultiTexCoord2i)
1282 && FindProcShort (glMultiTexCoord2iv)
1283 && FindProcShort (glMultiTexCoord2s)
1284 && FindProcShort (glMultiTexCoord2sv)
1285 && FindProcShort (glMultiTexCoord3d)
1286 && FindProcShort (glMultiTexCoord3dv)
1287 && FindProcShort (glMultiTexCoord3f)
1288 && FindProcShort (glMultiTexCoord3fv)
1289 && FindProcShort (glMultiTexCoord3i)
1290 && FindProcShort (glMultiTexCoord3iv)
1291 && FindProcShort (glMultiTexCoord3s)
1292 && FindProcShort (glMultiTexCoord3sv)
1293 && FindProcShort (glMultiTexCoord4d)
1294 && FindProcShort (glMultiTexCoord4dv)
1295 && FindProcShort (glMultiTexCoord4f)
1296 && FindProcShort (glMultiTexCoord4fv)
1297 && FindProcShort (glMultiTexCoord4i)
1298 && FindProcShort (glMultiTexCoord4iv)
1299 && FindProcShort (glMultiTexCoord4s)
1300 && FindProcShort (glMultiTexCoord4sv)
1301 && FindProcShort (glLoadTransposeMatrixf)
1302 && FindProcShort (glLoadTransposeMatrixd)
1303 && FindProcShort (glMultTransposeMatrixf)
1304 && FindProcShort (glMultTransposeMatrixd);
1307 // load OpenGL 1.4 new functions
1308 has14 = IsGlGreaterEqual (1, 4)
1309 && FindProcShort (glBlendFuncSeparate)
1310 && FindProcShort (glMultiDrawArrays)
1311 && FindProcShort (glMultiDrawElements)
1312 && FindProcShort (glPointParameterf)
1313 && FindProcShort (glPointParameterfv)
1314 && FindProcShort (glPointParameteri)
1315 && FindProcShort (glPointParameteriv);
1317 // load OpenGL 1.5 new functions
1318 has15 = IsGlGreaterEqual (1, 5)
1319 && FindProcShort (glGenQueries)
1320 && FindProcShort (glDeleteQueries)
1321 && FindProcShort (glIsQuery)
1322 && FindProcShort (glBeginQuery)
1323 && FindProcShort (glEndQuery)
1324 && FindProcShort (glGetQueryiv)
1325 && FindProcShort (glGetQueryObjectiv)
1326 && FindProcShort (glGetQueryObjectuiv)
1327 && FindProcShort (glBindBuffer)
1328 && FindProcShort (glDeleteBuffers)
1329 && FindProcShort (glGenBuffers)
1330 && FindProcShort (glIsBuffer)
1331 && FindProcShort (glBufferData)
1332 && FindProcShort (glBufferSubData)
1333 && FindProcShort (glGetBufferSubData)
1334 && FindProcShort (glMapBuffer)
1335 && FindProcShort (glUnmapBuffer)
1336 && FindProcShort (glGetBufferParameteriv)
1337 && FindProcShort (glGetBufferPointerv);
1339 // load OpenGL 2.0 new functions
1340 has20 = IsGlGreaterEqual (2, 0)
1341 && FindProcShort (glBlendEquationSeparate)
1342 && FindProcShort (glDrawBuffers)
1343 && FindProcShort (glStencilOpSeparate)
1344 && FindProcShort (glStencilFuncSeparate)
1345 && FindProcShort (glStencilMaskSeparate)
1346 && FindProcShort (glAttachShader)
1347 && FindProcShort (glBindAttribLocation)
1348 && FindProcShort (glCompileShader)
1349 && FindProcShort (glCreateProgram)
1350 && FindProcShort (glCreateShader)
1351 && FindProcShort (glDeleteProgram)
1352 && FindProcShort (glDeleteShader)
1353 && FindProcShort (glDetachShader)
1354 && FindProcShort (glDisableVertexAttribArray)
1355 && FindProcShort (glEnableVertexAttribArray)
1356 && FindProcShort (glGetActiveAttrib)
1357 && FindProcShort (glGetActiveUniform)
1358 && FindProcShort (glGetAttachedShaders)
1359 && FindProcShort (glGetAttribLocation)
1360 && FindProcShort (glGetProgramiv)
1361 && FindProcShort (glGetProgramInfoLog)
1362 && FindProcShort (glGetShaderiv)
1363 && FindProcShort (glGetShaderInfoLog)
1364 && FindProcShort (glGetShaderSource)
1365 && FindProcShort (glGetUniformLocation)
1366 && FindProcShort (glGetUniformfv)
1367 && FindProcShort (glGetUniformiv)
1368 && FindProcShort (glGetVertexAttribdv)
1369 && FindProcShort (glGetVertexAttribfv)
1370 && FindProcShort (glGetVertexAttribiv)
1371 && FindProcShort (glGetVertexAttribPointerv)
1372 && FindProcShort (glIsProgram)
1373 && FindProcShort (glIsShader)
1374 && FindProcShort (glLinkProgram)
1375 && FindProcShort (glShaderSource)
1376 && FindProcShort (glUseProgram)
1377 && FindProcShort (glUniform1f)
1378 && FindProcShort (glUniform2f)
1379 && FindProcShort (glUniform3f)
1380 && FindProcShort (glUniform4f)
1381 && FindProcShort (glUniform1i)
1382 && FindProcShort (glUniform2i)
1383 && FindProcShort (glUniform3i)
1384 && FindProcShort (glUniform4i)
1385 && FindProcShort (glUniform1fv)
1386 && FindProcShort (glUniform2fv)
1387 && FindProcShort (glUniform3fv)
1388 && FindProcShort (glUniform4fv)
1389 && FindProcShort (glUniform1iv)
1390 && FindProcShort (glUniform2iv)
1391 && FindProcShort (glUniform3iv)
1392 && FindProcShort (glUniform4iv)
1393 && FindProcShort (glUniformMatrix2fv)
1394 && FindProcShort (glUniformMatrix3fv)
1395 && FindProcShort (glUniformMatrix4fv)
1396 && FindProcShort (glValidateProgram)
1397 && FindProcShort (glVertexAttrib1d)
1398 && FindProcShort (glVertexAttrib1dv)
1399 && FindProcShort (glVertexAttrib1f)
1400 && FindProcShort (glVertexAttrib1fv)
1401 && FindProcShort (glVertexAttrib1s)
1402 && FindProcShort (glVertexAttrib1sv)
1403 && FindProcShort (glVertexAttrib2d)
1404 && FindProcShort (glVertexAttrib2dv)
1405 && FindProcShort (glVertexAttrib2f)
1406 && FindProcShort (glVertexAttrib2fv)
1407 && FindProcShort (glVertexAttrib2s)
1408 && FindProcShort (glVertexAttrib2sv)
1409 && FindProcShort (glVertexAttrib3d)
1410 && FindProcShort (glVertexAttrib3dv)
1411 && FindProcShort (glVertexAttrib3f)
1412 && FindProcShort (glVertexAttrib3fv)
1413 && FindProcShort (glVertexAttrib3s)
1414 && FindProcShort (glVertexAttrib3sv)
1415 && FindProcShort (glVertexAttrib4Nbv)
1416 && FindProcShort (glVertexAttrib4Niv)
1417 && FindProcShort (glVertexAttrib4Nsv)
1418 && FindProcShort (glVertexAttrib4Nub)
1419 && FindProcShort (glVertexAttrib4Nubv)
1420 && FindProcShort (glVertexAttrib4Nuiv)
1421 && FindProcShort (glVertexAttrib4Nusv)
1422 && FindProcShort (glVertexAttrib4bv)
1423 && FindProcShort (glVertexAttrib4d)
1424 && FindProcShort (glVertexAttrib4dv)
1425 && FindProcShort (glVertexAttrib4f)
1426 && FindProcShort (glVertexAttrib4fv)
1427 && FindProcShort (glVertexAttrib4iv)
1428 && FindProcShort (glVertexAttrib4s)
1429 && FindProcShort (glVertexAttrib4sv)
1430 && FindProcShort (glVertexAttrib4ubv)
1431 && FindProcShort (glVertexAttrib4uiv)
1432 && FindProcShort (glVertexAttrib4usv)
1433 && FindProcShort (glVertexAttribPointer);
1435 // load OpenGL 2.1 new functions
1436 has21 = IsGlGreaterEqual (2, 1)
1437 && FindProcShort (glUniformMatrix2x3fv)
1438 && FindProcShort (glUniformMatrix3x2fv)
1439 && FindProcShort (glUniformMatrix2x4fv)
1440 && FindProcShort (glUniformMatrix4x2fv)
1441 && FindProcShort (glUniformMatrix3x4fv)
1442 && FindProcShort (glUniformMatrix4x3fv);
1444 // load GL_ARB_framebuffer_object (added to OpenGL 3.0 core)
1445 const bool hasFBO = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_framebuffer_object"))
1446 && FindProcShort (glIsRenderbuffer)
1447 && FindProcShort (glBindRenderbuffer)
1448 && FindProcShort (glDeleteRenderbuffers)
1449 && FindProcShort (glGenRenderbuffers)
1450 && FindProcShort (glRenderbufferStorage)
1451 && FindProcShort (glGetRenderbufferParameteriv)
1452 && FindProcShort (glIsFramebuffer)
1453 && FindProcShort (glBindFramebuffer)
1454 && FindProcShort (glDeleteFramebuffers)
1455 && FindProcShort (glGenFramebuffers)
1456 && FindProcShort (glCheckFramebufferStatus)
1457 && FindProcShort (glFramebufferTexture1D)
1458 && FindProcShort (glFramebufferTexture2D)
1459 && FindProcShort (glFramebufferTexture3D)
1460 && FindProcShort (glFramebufferRenderbuffer)
1461 && FindProcShort (glGetFramebufferAttachmentParameteriv)
1462 && FindProcShort (glGenerateMipmap)
1463 && FindProcShort (glBlitFramebuffer)
1464 && FindProcShort (glRenderbufferStorageMultisample)
1465 && FindProcShort (glFramebufferTextureLayer);
1467 // load GL_ARB_vertex_array_object (added to OpenGL 3.0 core)
1468 const bool hasVAO = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_vertex_array_object"))
1469 && FindProcShort (glBindVertexArray)
1470 && FindProcShort (glDeleteVertexArrays)
1471 && FindProcShort (glGenVertexArrays)
1472 && FindProcShort (glIsVertexArray);
1474 // load GL_ARB_map_buffer_range (added to OpenGL 3.0 core)
1475 const bool hasMapBufferRange = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_map_buffer_range"))
1476 && FindProcShort (glMapBufferRange)
1477 && FindProcShort (glFlushMappedBufferRange);
1479 // load OpenGL 3.0 new functions
1480 has30 = IsGlGreaterEqual (3, 0)
1483 && hasMapBufferRange
1484 && FindProcShort (glColorMaski)
1485 && FindProcShort (glGetBooleani_v)
1486 && FindProcShort (glGetIntegeri_v)
1487 && FindProcShort (glEnablei)
1488 && FindProcShort (glDisablei)
1489 && FindProcShort (glIsEnabledi)
1490 && FindProcShort (glBeginTransformFeedback)
1491 && FindProcShort (glEndTransformFeedback)
1492 && FindProcShort (glBindBufferRange)
1493 && FindProcShort (glBindBufferBase)
1494 && FindProcShort (glTransformFeedbackVaryings)
1495 && FindProcShort (glGetTransformFeedbackVarying)
1496 && FindProcShort (glClampColor)
1497 && FindProcShort (glBeginConditionalRender)
1498 && FindProcShort (glEndConditionalRender)
1499 && FindProcShort (glVertexAttribIPointer)
1500 && FindProcShort (glGetVertexAttribIiv)
1501 && FindProcShort (glGetVertexAttribIuiv)
1502 && FindProcShort (glVertexAttribI1i)
1503 && FindProcShort (glVertexAttribI2i)
1504 && FindProcShort (glVertexAttribI3i)
1505 && FindProcShort (glVertexAttribI4i)
1506 && FindProcShort (glVertexAttribI1ui)
1507 && FindProcShort (glVertexAttribI2ui)
1508 && FindProcShort (glVertexAttribI3ui)
1509 && FindProcShort (glVertexAttribI4ui)
1510 && FindProcShort (glVertexAttribI1iv)
1511 && FindProcShort (glVertexAttribI2iv)
1512 && FindProcShort (glVertexAttribI3iv)
1513 && FindProcShort (glVertexAttribI4iv)
1514 && FindProcShort (glVertexAttribI1uiv)
1515 && FindProcShort (glVertexAttribI2uiv)
1516 && FindProcShort (glVertexAttribI3uiv)
1517 && FindProcShort (glVertexAttribI4uiv)
1518 && FindProcShort (glVertexAttribI4bv)
1519 && FindProcShort (glVertexAttribI4sv)
1520 && FindProcShort (glVertexAttribI4ubv)
1521 && FindProcShort (glVertexAttribI4usv)
1522 && FindProcShort (glGetUniformuiv)
1523 && FindProcShort (glBindFragDataLocation)
1524 && FindProcShort (glGetFragDataLocation)
1525 && FindProcShort (glUniform1ui)
1526 && FindProcShort (glUniform2ui)
1527 && FindProcShort (glUniform3ui)
1528 && FindProcShort (glUniform4ui)
1529 && FindProcShort (glUniform1uiv)
1530 && FindProcShort (glUniform2uiv)
1531 && FindProcShort (glUniform3uiv)
1532 && FindProcShort (glUniform4uiv)
1533 && FindProcShort (glTexParameterIiv)
1534 && FindProcShort (glTexParameterIuiv)
1535 && FindProcShort (glGetTexParameterIiv)
1536 && FindProcShort (glGetTexParameterIuiv)
1537 && FindProcShort (glClearBufferiv)
1538 && FindProcShort (glClearBufferuiv)
1539 && FindProcShort (glClearBufferfv)
1540 && FindProcShort (glClearBufferfi)
1541 && FindProcShort (glGetStringi);
1543 // load GL_ARB_uniform_buffer_object (added to OpenGL 3.1 core)
1544 const bool hasUBO = (IsGlGreaterEqual (3, 1) || CheckExtension ("GL_ARB_uniform_buffer_object"))
1545 && FindProcShort (glGetUniformIndices)
1546 && FindProcShort (glGetActiveUniformsiv)
1547 && FindProcShort (glGetActiveUniformName)
1548 && FindProcShort (glGetUniformBlockIndex)
1549 && FindProcShort (glGetActiveUniformBlockiv)
1550 && FindProcShort (glGetActiveUniformBlockName)
1551 && FindProcShort (glUniformBlockBinding);
1553 // load GL_ARB_copy_buffer (added to OpenGL 3.1 core)
1554 const bool hasCopyBufSubData = (IsGlGreaterEqual (3, 1) || CheckExtension ("GL_ARB_copy_buffer"))
1555 && FindProcShort (glCopyBufferSubData);
1559 // NPOT textures are required by OpenGL 2.0 specifications
1560 // but doesn't hardware accelerated by some ancient OpenGL 2.1 hardware (GeForce FX, RadeOn 9700 etc.)
1561 arbNPTW = Standard_True;
1562 arbTexRG = Standard_True;
1565 // load OpenGL 3.1 new functions
1566 has31 = IsGlGreaterEqual (3, 1)
1568 && hasCopyBufSubData
1569 && FindProcShort (glDrawArraysInstanced)
1570 && FindProcShort (glDrawElementsInstanced)
1571 && FindProcShort (glTexBuffer)
1572 && FindProcShort (glPrimitiveRestartIndex);
1574 // load GL_ARB_draw_elements_base_vertex (added to OpenGL 3.2 core)
1575 const bool hasDrawElemsBaseVert = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_draw_elements_base_vertex"))
1576 && FindProcShort (glDrawElementsBaseVertex)
1577 && FindProcShort (glDrawRangeElementsBaseVertex)
1578 && FindProcShort (glDrawElementsInstancedBaseVertex)
1579 && FindProcShort (glMultiDrawElementsBaseVertex);
1581 // load GL_ARB_provoking_vertex (added to OpenGL 3.2 core)
1582 const bool hasProvokingVert = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_provoking_vertex"))
1583 && FindProcShort (glProvokingVertex);
1585 // load GL_ARB_sync (added to OpenGL 3.2 core)
1586 const bool hasSync = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_sync"))
1587 && FindProcShort (glFenceSync)
1588 && FindProcShort (glIsSync)
1589 && FindProcShort (glDeleteSync)
1590 && FindProcShort (glClientWaitSync)
1591 && FindProcShort (glWaitSync)
1592 && FindProcShort (glGetInteger64v)
1593 && FindProcShort (glGetSynciv);
1595 // load GL_ARB_texture_multisample (added to OpenGL 3.2 core)
1596 const bool hasTextureMultisample = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_texture_multisample"))
1597 && FindProcShort (glTexImage2DMultisample)
1598 && FindProcShort (glTexImage3DMultisample)
1599 && FindProcShort (glGetMultisamplefv)
1600 && FindProcShort (glSampleMaski);
1602 // load OpenGL 3.2 new functions
1603 has32 = IsGlGreaterEqual (3, 2)
1604 && hasDrawElemsBaseVert
1607 && hasTextureMultisample
1608 && FindProcShort (glGetInteger64i_v)
1609 && FindProcShort (glGetBufferParameteri64v)
1610 && FindProcShort (glFramebufferTexture);
1612 // load GL_ARB_blend_func_extended (added to OpenGL 3.3 core)
1613 const bool hasBlendFuncExtended = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_blend_func_extended"))
1614 && FindProcShort (glBindFragDataLocationIndexed)
1615 && FindProcShort (glGetFragDataIndex);
1617 // load GL_ARB_sampler_objects (added to OpenGL 3.3 core)
1618 const bool hasSamplerObjects = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_sampler_objects"))
1619 && FindProcShort (glGenSamplers)
1620 && FindProcShort (glDeleteSamplers)
1621 && FindProcShort (glIsSampler)
1622 && FindProcShort (glBindSampler)
1623 && FindProcShort (glSamplerParameteri)
1624 && FindProcShort (glSamplerParameteriv)
1625 && FindProcShort (glSamplerParameterf)
1626 && FindProcShort (glSamplerParameterfv)
1627 && FindProcShort (glSamplerParameterIiv)
1628 && FindProcShort (glSamplerParameterIuiv)
1629 && FindProcShort (glGetSamplerParameteriv)
1630 && FindProcShort (glGetSamplerParameterIiv)
1631 && FindProcShort (glGetSamplerParameterfv)
1632 && FindProcShort (glGetSamplerParameterIuiv);
1634 // load GL_ARB_timer_query (added to OpenGL 3.3 core)
1635 const bool hasTimerQuery = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_timer_query"))
1636 && FindProcShort (glQueryCounter)
1637 && FindProcShort (glGetQueryObjecti64v)
1638 && FindProcShort (glGetQueryObjectui64v);
1640 // load GL_ARB_vertex_type_2_10_10_10_rev (added to OpenGL 3.3 core)
1641 const bool hasVertType21010101rev = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_vertex_type_2_10_10_10_rev"))
1642 && FindProcShort (glVertexP2ui)
1643 && FindProcShort (glVertexP2uiv)
1644 && FindProcShort (glVertexP3ui)
1645 && FindProcShort (glVertexP3uiv)
1646 && FindProcShort (glVertexP4ui)
1647 && FindProcShort (glVertexP4uiv)
1648 && FindProcShort (glTexCoordP1ui)
1649 && FindProcShort (glTexCoordP1uiv)
1650 && FindProcShort (glTexCoordP2ui)
1651 && FindProcShort (glTexCoordP2uiv)
1652 && FindProcShort (glTexCoordP3ui)
1653 && FindProcShort (glTexCoordP3uiv)
1654 && FindProcShort (glTexCoordP4ui)
1655 && FindProcShort (glTexCoordP4uiv)
1656 && FindProcShort (glMultiTexCoordP1ui)
1657 && FindProcShort (glMultiTexCoordP1uiv)
1658 && FindProcShort (glMultiTexCoordP2ui)
1659 && FindProcShort (glMultiTexCoordP2uiv)
1660 && FindProcShort (glMultiTexCoordP3ui)
1661 && FindProcShort (glMultiTexCoordP3uiv)
1662 && FindProcShort (glMultiTexCoordP4ui)
1663 && FindProcShort (glMultiTexCoordP4uiv)
1664 && FindProcShort (glNormalP3ui)
1665 && FindProcShort (glNormalP3uiv)
1666 && FindProcShort (glColorP3ui)
1667 && FindProcShort (glColorP3uiv)
1668 && FindProcShort (glColorP4ui)
1669 && FindProcShort (glColorP4uiv)
1670 && FindProcShort (glSecondaryColorP3ui)
1671 && FindProcShort (glSecondaryColorP3uiv)
1672 && FindProcShort (glVertexAttribP1ui)
1673 && FindProcShort (glVertexAttribP1uiv)
1674 && FindProcShort (glVertexAttribP2ui)
1675 && FindProcShort (glVertexAttribP2uiv)
1676 && FindProcShort (glVertexAttribP3ui)
1677 && FindProcShort (glVertexAttribP3uiv)
1678 && FindProcShort (glVertexAttribP4ui)
1679 && FindProcShort (glVertexAttribP4uiv);
1681 // load OpenGL 3.3 extra functions
1682 has33 = IsGlGreaterEqual (3, 3)
1683 && hasBlendFuncExtended
1684 && hasSamplerObjects
1686 && hasVertType21010101rev
1687 && FindProcShort (glVertexAttribDivisor);
1689 // load GL_ARB_draw_indirect (added to OpenGL 4.0 core)
1690 const bool hasDrawIndirect = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_draw_indirect"))
1691 && FindProcShort (glDrawArraysIndirect)
1692 && FindProcShort (glDrawElementsIndirect);
1694 // load GL_ARB_gpu_shader_fp64 (added to OpenGL 4.0 core)
1695 const bool hasShaderFP64 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_gpu_shader_fp64"))
1696 && FindProcShort (glUniform1d)
1697 && FindProcShort (glUniform2d)
1698 && FindProcShort (glUniform3d)
1699 && FindProcShort (glUniform4d)
1700 && FindProcShort (glUniform1dv)
1701 && FindProcShort (glUniform2dv)
1702 && FindProcShort (glUniform3dv)
1703 && FindProcShort (glUniform4dv)
1704 && FindProcShort (glUniformMatrix2dv)
1705 && FindProcShort (glUniformMatrix3dv)
1706 && FindProcShort (glUniformMatrix4dv)
1707 && FindProcShort (glUniformMatrix2x3dv)
1708 && FindProcShort (glUniformMatrix2x4dv)
1709 && FindProcShort (glUniformMatrix3x2dv)
1710 && FindProcShort (glUniformMatrix3x4dv)
1711 && FindProcShort (glUniformMatrix4x2dv)
1712 && FindProcShort (glUniformMatrix4x3dv)
1713 && FindProcShort (glGetUniformdv);
1715 // load GL_ARB_shader_subroutine (added to OpenGL 4.0 core)
1716 const bool hasShaderSubroutine = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_shader_subroutine"))
1717 && FindProcShort (glGetSubroutineUniformLocation)
1718 && FindProcShort (glGetSubroutineIndex)
1719 && FindProcShort (glGetActiveSubroutineUniformiv)
1720 && FindProcShort (glGetActiveSubroutineUniformName)
1721 && FindProcShort (glGetActiveSubroutineName)
1722 && FindProcShort (glUniformSubroutinesuiv)
1723 && FindProcShort (glGetUniformSubroutineuiv)
1724 && FindProcShort (glGetProgramStageiv);
1726 // load GL_ARB_tessellation_shader (added to OpenGL 4.0 core)
1727 const bool hasTessellationShader = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_tessellation_shader"))
1728 && FindProcShort (glPatchParameteri)
1729 && FindProcShort (glPatchParameterfv);
1731 // load GL_ARB_transform_feedback2 (added to OpenGL 4.0 core)
1732 const bool hasTrsfFeedback2 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_transform_feedback2"))
1733 && FindProcShort (glBindTransformFeedback)
1734 && FindProcShort (glDeleteTransformFeedbacks)
1735 && FindProcShort (glGenTransformFeedbacks)
1736 && FindProcShort (glIsTransformFeedback)
1737 && FindProcShort (glPauseTransformFeedback)
1738 && FindProcShort (glResumeTransformFeedback)
1739 && FindProcShort (glDrawTransformFeedback);
1741 // load GL_ARB_transform_feedback3 (added to OpenGL 4.0 core)
1742 const bool hasTrsfFeedback3 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_transform_feedback3"))
1743 && FindProcShort (glDrawTransformFeedbackStream)
1744 && FindProcShort (glBeginQueryIndexed)
1745 && FindProcShort (glEndQueryIndexed)
1746 && FindProcShort (glGetQueryIndexediv);
1748 // load OpenGL 4.0 new functions
1749 has40 = IsGlGreaterEqual (4, 0)
1752 && hasShaderSubroutine
1753 && hasTessellationShader
1756 && FindProcShort (glMinSampleShading)
1757 && FindProcShort (glBlendEquationi)
1758 && FindProcShort (glBlendEquationSeparatei)
1759 && FindProcShort (glBlendFunci)
1760 && FindProcShort (glBlendFuncSeparatei);
1762 // load GL_ARB_ES2_compatibility (added to OpenGL 4.1 core)
1763 const bool hasES2Compatibility = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_ES2_compatibility"))
1764 && FindProcShort (glReleaseShaderCompiler)
1765 && FindProcShort (glShaderBinary)
1766 && FindProcShort (glGetShaderPrecisionFormat)
1767 && FindProcShort (glDepthRangef)
1768 && FindProcShort (glClearDepthf);
1770 // load GL_ARB_get_program_binary (added to OpenGL 4.1 core)
1771 const bool hasGetProgramBinary = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_get_program_binary"))
1772 && FindProcShort (glGetProgramBinary)
1773 && FindProcShort (glProgramBinary)
1774 && FindProcShort (glProgramParameteri);
1777 // load GL_ARB_separate_shader_objects (added to OpenGL 4.1 core)
1778 const bool hasSeparateShaderObjects = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_separate_shader_objects"))
1779 && FindProcShort (glUseProgramStages)
1780 && FindProcShort (glActiveShaderProgram)
1781 && FindProcShort (glCreateShaderProgramv)
1782 && FindProcShort (glBindProgramPipeline)
1783 && FindProcShort (glDeleteProgramPipelines)
1784 && FindProcShort (glGenProgramPipelines)
1785 && FindProcShort (glIsProgramPipeline)
1786 && FindProcShort (glGetProgramPipelineiv)
1787 && FindProcShort (glProgramUniform1i)
1788 && FindProcShort (glProgramUniform1iv)
1789 && FindProcShort (glProgramUniform1f)
1790 && FindProcShort (glProgramUniform1fv)
1791 && FindProcShort (glProgramUniform1d)
1792 && FindProcShort (glProgramUniform1dv)
1793 && FindProcShort (glProgramUniform1ui)
1794 && FindProcShort (glProgramUniform1uiv)
1795 && FindProcShort (glProgramUniform2i)
1796 && FindProcShort (glProgramUniform2iv)
1797 && FindProcShort (glProgramUniform2f)
1798 && FindProcShort (glProgramUniform2fv)
1799 && FindProcShort (glProgramUniform2d)
1800 && FindProcShort (glProgramUniform2dv)
1801 && FindProcShort (glProgramUniform2ui)
1802 && FindProcShort (glProgramUniform2uiv)
1803 && FindProcShort (glProgramUniform3i)
1804 && FindProcShort (glProgramUniform3iv)
1805 && FindProcShort (glProgramUniform3f)
1806 && FindProcShort (glProgramUniform3fv)
1807 && FindProcShort (glProgramUniform3d)
1808 && FindProcShort (glProgramUniform3dv)
1809 && FindProcShort (glProgramUniform3ui)
1810 && FindProcShort (glProgramUniform3uiv)
1811 && FindProcShort (glProgramUniform4i)
1812 && FindProcShort (glProgramUniform4iv)
1813 && FindProcShort (glProgramUniform4f)
1814 && FindProcShort (glProgramUniform4fv)
1815 && FindProcShort (glProgramUniform4d)
1816 && FindProcShort (glProgramUniform4dv)
1817 && FindProcShort (glProgramUniform4ui)
1818 && FindProcShort (glProgramUniform4uiv)
1819 && FindProcShort (glProgramUniformMatrix2fv)
1820 && FindProcShort (glProgramUniformMatrix3fv)
1821 && FindProcShort (glProgramUniformMatrix4fv)
1822 && FindProcShort (glProgramUniformMatrix2dv)
1823 && FindProcShort (glProgramUniformMatrix3dv)
1824 && FindProcShort (glProgramUniformMatrix4dv)
1825 && FindProcShort (glProgramUniformMatrix2x3fv)
1826 && FindProcShort (glProgramUniformMatrix3x2fv)
1827 && FindProcShort (glProgramUniformMatrix2x4fv)
1828 && FindProcShort (glProgramUniformMatrix4x2fv)
1829 && FindProcShort (glProgramUniformMatrix3x4fv)
1830 && FindProcShort (glProgramUniformMatrix4x3fv)
1831 && FindProcShort (glProgramUniformMatrix2x3dv)
1832 && FindProcShort (glProgramUniformMatrix3x2dv)
1833 && FindProcShort (glProgramUniformMatrix2x4dv)
1834 && FindProcShort (glProgramUniformMatrix4x2dv)
1835 && FindProcShort (glProgramUniformMatrix3x4dv)
1836 && FindProcShort (glProgramUniformMatrix4x3dv)
1837 && FindProcShort (glValidateProgramPipeline)
1838 && FindProcShort (glGetProgramPipelineInfoLog);
1840 // load GL_ARB_vertex_attrib_64bit (added to OpenGL 4.1 core)
1841 const bool hasVertAttrib64bit = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_vertex_attrib_64bit"))
1842 && FindProcShort (glVertexAttribL1d)
1843 && FindProcShort (glVertexAttribL2d)
1844 && FindProcShort (glVertexAttribL3d)
1845 && FindProcShort (glVertexAttribL4d)
1846 && FindProcShort (glVertexAttribL1dv)
1847 && FindProcShort (glVertexAttribL2dv)
1848 && FindProcShort (glVertexAttribL3dv)
1849 && FindProcShort (glVertexAttribL4dv)
1850 && FindProcShort (glVertexAttribLPointer)
1851 && FindProcShort (glGetVertexAttribLdv);
1853 // load GL_ARB_viewport_array (added to OpenGL 4.1 core)
1854 const bool hasViewportArray = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_viewport_array"))
1855 && FindProcShort (glViewportArrayv)
1856 && FindProcShort (glViewportIndexedf)
1857 && FindProcShort (glViewportIndexedfv)
1858 && FindProcShort (glScissorArrayv)
1859 && FindProcShort (glScissorIndexed)
1860 && FindProcShort (glScissorIndexedv)
1861 && FindProcShort (glDepthRangeArrayv)
1862 && FindProcShort (glDepthRangeIndexed)
1863 && FindProcShort (glGetFloati_v)
1864 && FindProcShort (glGetDoublei_v);
1866 has41 = IsGlGreaterEqual (4, 1)
1867 && hasES2Compatibility
1868 && hasGetProgramBinary
1869 && hasSeparateShaderObjects
1870 && hasVertAttrib64bit
1871 && hasViewportArray;
1873 // load GL_ARB_base_instance (added to OpenGL 4.2 core)
1874 const bool hasBaseInstance = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_base_instance"))
1875 && FindProcShort (glDrawArraysInstancedBaseInstance)
1876 && FindProcShort (glDrawElementsInstancedBaseInstance)
1877 && FindProcShort (glDrawElementsInstancedBaseVertexBaseInstance);
1879 // load GL_ARB_transform_feedback_instanced (added to OpenGL 4.2 core)
1880 const bool hasTrsfFeedbackInstanced = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_transform_feedback_instanced"))
1881 && FindProcShort (glDrawTransformFeedbackInstanced)
1882 && FindProcShort (glDrawTransformFeedbackStreamInstanced);
1884 // load GL_ARB_internalformat_query (added to OpenGL 4.2 core)
1885 const bool hasInternalFormatQuery = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_internalformat_query"))
1886 && FindProcShort (glGetInternalformativ);
1888 // load GL_ARB_shader_atomic_counters (added to OpenGL 4.2 core)
1889 const bool hasShaderAtomicCounters = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_shader_atomic_counters"))
1890 && FindProcShort (glGetActiveAtomicCounterBufferiv);
1892 // load GL_ARB_shader_image_load_store (added to OpenGL 4.2 core)
1893 const bool hasShaderImgLoadStore = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_shader_image_load_store"))
1894 && FindProcShort (glBindImageTexture)
1895 && FindProcShort (glMemoryBarrier);
1897 // load GL_ARB_texture_storage (added to OpenGL 4.2 core)
1898 const bool hasTextureStorage = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_texture_storage"))
1899 && FindProcShort (glTexStorage1D)
1900 && FindProcShort (glTexStorage2D)
1901 && FindProcShort (glTexStorage3D);
1903 has42 = IsGlGreaterEqual (4, 2)
1905 && hasTrsfFeedbackInstanced
1906 && hasInternalFormatQuery
1907 && hasShaderAtomicCounters
1908 && hasShaderImgLoadStore
1909 && hasTextureStorage;
1911 has43 = IsGlGreaterEqual (4, 3)
1912 && FindProcShort (glClearBufferData)
1913 && FindProcShort (glClearBufferSubData)
1914 && FindProcShort (glDispatchCompute)
1915 && FindProcShort (glDispatchComputeIndirect)
1916 && FindProcShort (glCopyImageSubData)
1917 && FindProcShort (glFramebufferParameteri)
1918 && FindProcShort (glGetFramebufferParameteriv)
1919 && FindProcShort (glGetInternalformati64v)
1920 && FindProcShort (glInvalidateTexSubImage)
1921 && FindProcShort (glInvalidateTexImage)
1922 && FindProcShort (glInvalidateBufferSubData)
1923 && FindProcShort (glInvalidateBufferData)
1924 && FindProcShort (glInvalidateFramebuffer)
1925 && FindProcShort (glInvalidateSubFramebuffer)
1926 && FindProcShort (glMultiDrawArraysIndirect)
1927 && FindProcShort (glMultiDrawElementsIndirect)
1928 && FindProcShort (glGetProgramInterfaceiv)
1929 && FindProcShort (glGetProgramResourceIndex)
1930 && FindProcShort (glGetProgramResourceName)
1931 && FindProcShort (glGetProgramResourceiv)
1932 && FindProcShort (glGetProgramResourceLocation)
1933 && FindProcShort (glGetProgramResourceLocationIndex)
1934 && FindProcShort (glShaderStorageBlockBinding)
1935 && FindProcShort (glTexBufferRange)
1936 && FindProcShort (glTexStorage2DMultisample)
1937 && FindProcShort (glTexStorage3DMultisample)
1938 && FindProcShort (glTextureView)
1939 && FindProcShort (glBindVertexBuffer)
1940 && FindProcShort (glVertexAttribFormat)
1941 && FindProcShort (glVertexAttribIFormat)
1942 && FindProcShort (glVertexAttribLFormat)
1943 && FindProcShort (glVertexAttribBinding)
1944 && FindProcShort (glVertexBindingDivisor)
1945 && FindProcShort (glDebugMessageControl)
1946 && FindProcShort (glDebugMessageInsert)
1947 && FindProcShort (glDebugMessageCallback)
1948 && FindProcShort (glGetDebugMessageLog)
1949 && FindProcShort (glPushDebugGroup)
1950 && FindProcShort (glPopDebugGroup)
1951 && FindProcShort (glObjectLabel)
1952 && FindProcShort (glGetObjectLabel)
1953 && FindProcShort (glObjectPtrLabel)
1954 && FindProcShort (glGetObjectPtrLabel);
1956 // load GL_ARB_clear_texture (added to OpenGL 4.4 core)
1957 bool arbTexClear = (IsGlGreaterEqual (4, 4) || CheckExtension ("GL_ARB_clear_texture"))
1958 && FindProcShort (glClearTexImage)
1959 && FindProcShort (glClearTexSubImage);
1961 has44 = IsGlGreaterEqual (4, 4)
1963 && FindProcShort (glBufferStorage)
1964 && FindProcShort (glBindBuffersBase)
1965 && FindProcShort (glBindBuffersRange)
1966 && FindProcShort (glBindTextures)
1967 && FindProcShort (glBindSamplers)
1968 && FindProcShort (glBindImageTextures)
1969 && FindProcShort (glBindVertexBuffers);
1971 // initialize TBO extension (ARB)
1973 && CheckExtension ("GL_ARB_texture_buffer_object")
1974 && FindProc ("glTexBufferARB", myFuncs->glTexBuffer))
1976 arbTBO = (OpenGl_ArbTBO* )(&(*myFuncs));
1978 arbTboRGB32 = CheckExtension ("GL_ARB_texture_buffer_object_rgb32");
1980 // initialize hardware instancing extension (ARB)
1982 && CheckExtension ("GL_ARB_draw_instanced")
1983 && FindProc ("glDrawArraysInstancedARB", myFuncs->glDrawArraysInstanced)
1984 && FindProc ("glDrawElementsInstancedARB", myFuncs->glDrawElementsInstanced))
1986 arbIns = (OpenGl_ArbIns* )(&(*myFuncs));
1989 // initialize FBO extension (ARB)
1992 arbFBO = (OpenGl_ArbFBO* )(&(*myFuncs));
1993 arbFBOBlit = (OpenGl_ArbFBOBlit* )(&(*myFuncs));
1994 extPDS = Standard_True; // extension for EXT, but part of ARB
1997 // initialize GS extension (EXT)
1998 if (CheckExtension ("GL_EXT_geometry_shader4")
1999 && FindProcShort (glProgramParameteriEXT))
2001 extGS = (OpenGl_ExtGS* )(&(*myFuncs));
2004 // initialize bindless texture extension (ARB)
2005 if (CheckExtension ("GL_ARB_bindless_texture")
2006 && FindProcShort (glGetTextureHandleARB)
2007 && FindProcShort (glGetTextureSamplerHandleARB)
2008 && FindProcShort (glMakeTextureHandleResidentARB)
2009 && FindProcShort (glMakeTextureHandleNonResidentARB)
2010 && FindProcShort (glGetImageHandleARB)
2011 && FindProcShort (glMakeImageHandleResidentARB)
2012 && FindProcShort (glMakeImageHandleNonResidentARB)
2013 && FindProcShort (glUniformHandleui64ARB)
2014 && FindProcShort (glUniformHandleui64vARB)
2015 && FindProcShort (glProgramUniformHandleui64ARB)
2016 && FindProcShort (glProgramUniformHandleui64vARB)
2017 && FindProcShort (glIsTextureHandleResidentARB)
2018 && FindProcShort (glIsImageHandleResidentARB)
2019 && FindProcShort (glVertexAttribL1ui64ARB)
2020 && FindProcShort (glVertexAttribL1ui64vARB)
2021 && FindProcShort (glGetVertexAttribLui64vARB))
2023 arbTexBindless = (OpenGl_ArbTexBindless* )(&(*myFuncs));
2028 checkWrongVersion (1, 2);
2035 checkWrongVersion (1, 3);
2042 checkWrongVersion (1, 4);
2049 checkWrongVersion (1, 5);
2056 core15 = (OpenGl_GlCore15* )(&(*myFuncs));
2058 core15fwd = (OpenGl_GlCore15Fwd* )(&(*myFuncs));
2062 checkWrongVersion (2, 0);
2068 const char* aGlslVer = (const char* )::glGetString (GL_SHADING_LANGUAGE_VERSION);
2069 if (aGlslVer == NULL
2070 || *aGlslVer == '\0')
2072 // broken context has been detected
2073 TCollection_ExtendedString aMsg = TCollection_ExtendedString()
2074 + "Error! OpenGL context reports version "
2075 + myGlVerMajor + "." + myGlVerMinor
2076 + " but reports wrong GLSL version";
2077 PushMessage (GL_DEBUG_SOURCE_APPLICATION_ARB,
2078 GL_DEBUG_TYPE_ERROR_ARB,
2080 GL_DEBUG_SEVERITY_HIGH_ARB,
2089 core20 = (OpenGl_GlCore20* )(&(*myFuncs));
2091 core20fwd = (OpenGl_GlCore20Fwd* )(&(*myFuncs));
2095 checkWrongVersion (2, 1);
2103 checkWrongVersion (3, 0);
2111 checkWrongVersion (3, 1);
2116 arbTBO = (OpenGl_ArbTBO* )(&(*myFuncs));
2117 arbIns = (OpenGl_ArbIns* )(&(*myFuncs));
2121 checkWrongVersion (3, 2);
2126 core32 = (OpenGl_GlCore32* )(&(*myFuncs));
2129 core32->glGenVertexArrays (1, &myDefaultVao);
2133 core32back = (OpenGl_GlCore32Back* )(&(*myFuncs));
2138 checkWrongVersion (3, 3);
2143 core33 = (OpenGl_GlCore33* )(&(*myFuncs));
2146 core33back = (OpenGl_GlCore33Back* )(&(*myFuncs));
2149 // initialize sampler object
2150 myTexSampler = new OpenGl_Sampler();
2151 myTexSampler->Init (*this);
2155 checkWrongVersion (4, 0);
2160 arbTboRGB32 = Standard_True; // in core since OpenGL 4.0
2164 checkWrongVersion (4, 1);
2169 core41 = (OpenGl_GlCore41* )(&(*myFuncs));
2172 core41back = (OpenGl_GlCore41Back* )(&(*myFuncs));
2177 checkWrongVersion (4, 2);
2182 core42 = (OpenGl_GlCore42* )(&(*myFuncs));
2185 core42back = (OpenGl_GlCore42Back* )(&(*myFuncs));
2190 checkWrongVersion (4, 3);
2195 core43 = (OpenGl_GlCore43* )(&(*myFuncs));
2198 core43back = (OpenGl_GlCore43Back* )(&(*myFuncs));
2203 checkWrongVersion (4, 4);
2208 core44 = (OpenGl_GlCore44* )(&(*myFuncs));
2211 core44back = (OpenGl_GlCore44Back* )(&(*myFuncs));
2216 // =======================================================================
2217 // function : MemoryInfo
2219 // =======================================================================
2220 Standard_Size OpenGl_Context::AvailableMemory() const
2222 #if !defined(GL_ES_VERSION_2_0)
2225 // this is actually information for VBO pool
2226 // however because pools are mostly shared
2227 // it can be used for total GPU memory estimations
2230 glGetIntegerv (GL_VBO_FREE_MEMORY_ATI, aMemInfo);
2231 // returned value is in KiB, however this maybe changed in future
2232 return Standard_Size(aMemInfo[0]) * 1024;
2236 // current available dedicated video memory (in KiB), currently unused GPU memory
2238 glGetIntegerv (GL_GPU_MEMORY_INFO_CURRENT_AVAILABLE_VIDMEM_NVX, &aMemInfo);
2239 return Standard_Size(aMemInfo) * 1024;
2245 // =======================================================================
2246 // function : MemoryInfo
2248 // =======================================================================
2249 TCollection_AsciiString OpenGl_Context::MemoryInfo() const
2251 TCollection_AsciiString anInfo;
2252 #if !defined(GL_ES_VERSION_2_0)
2256 memset (aValues, 0, sizeof(aValues));
2257 glGetIntegerv (GL_VBO_FREE_MEMORY_ATI, aValues);
2259 // total memory free in the pool
2260 anInfo += TCollection_AsciiString (" GPU free memory: ") + (aValues[0] / 1024) + " MiB\n";
2262 // largest available free block in the pool
2263 anInfo += TCollection_AsciiString (" Largest free block: ") + (aValues[1] / 1024) + " MiB\n";
2264 if (aValues[2] != aValues[0])
2266 // total auxiliary memory free
2267 anInfo += TCollection_AsciiString (" Free memory: ") + (aValues[2] / 1024) + " MiB\n";
2272 //current available dedicated video memory (in KiB), currently unused GPU memory
2274 glGetIntegerv (GL_GPU_MEMORY_INFO_CURRENT_AVAILABLE_VIDMEM_NVX, &aValue);
2275 anInfo += TCollection_AsciiString (" GPU free memory: ") + (aValue / 1024) + " MiB\n";
2277 // dedicated video memory, total size (in KiB) of the GPU memory
2278 GLint aDedicated = 0;
2279 glGetIntegerv (GL_GPU_MEMORY_INFO_DEDICATED_VIDMEM_NVX, &aDedicated);
2280 anInfo += TCollection_AsciiString (" GPU memory: ") + (aDedicated / 1024) + " MiB\n";
2282 // total available memory, total size (in KiB) of the memory available for allocations
2283 glGetIntegerv (GL_GPU_MEMORY_INFO_TOTAL_AVAILABLE_MEMORY_NVX, &aValue);
2284 if (aValue != aDedicated)
2286 // different only for special configurations
2287 anInfo += TCollection_AsciiString (" Total memory: ") + (aValue / 1024) + " MiB\n";
2295 // =======================================================================
2296 // function : GetResource
2298 // =======================================================================
2299 const Handle(OpenGl_Resource)& OpenGl_Context::GetResource (const TCollection_AsciiString& theKey) const
2301 return mySharedResources->IsBound (theKey) ? mySharedResources->Find (theKey) : NULL_GL_RESOURCE;
2304 // =======================================================================
2305 // function : ShareResource
2307 // =======================================================================
2308 Standard_Boolean OpenGl_Context::ShareResource (const TCollection_AsciiString& theKey,
2309 const Handle(OpenGl_Resource)& theResource)
2311 if (theKey.IsEmpty() || theResource.IsNull())
2313 return Standard_False;
2315 return mySharedResources->Bind (theKey, theResource);
2318 // =======================================================================
2319 // function : ReleaseResource
2321 // =======================================================================
2322 void OpenGl_Context::ReleaseResource (const TCollection_AsciiString& theKey,
2323 const Standard_Boolean theToDelay)
2325 if (!mySharedResources->IsBound (theKey))
2329 const Handle(OpenGl_Resource)& aRes = mySharedResources->Find (theKey);
2330 if (aRes->GetRefCount() > 1)
2337 myDelayed->Bind (theKey, 1);
2341 aRes->Release (this);
2342 mySharedResources->UnBind (theKey);
2346 // =======================================================================
2347 // function : DelayedRelease
2349 // =======================================================================
2350 void OpenGl_Context::DelayedRelease (Handle(OpenGl_Resource)& theResource)
2352 myUnusedResources->Prepend (theResource);
2353 theResource.Nullify();
2356 // =======================================================================
2357 // function : ReleaseDelayed
2359 // =======================================================================
2360 void OpenGl_Context::ReleaseDelayed()
2362 // release queued elements
2363 while (!myUnusedResources->IsEmpty())
2365 myUnusedResources->First()->Release (this);
2366 myUnusedResources->RemoveFirst();
2369 // release delayed shared resources
2370 NCollection_Vector<TCollection_AsciiString> aDeadList;
2371 for (NCollection_DataMap<TCollection_AsciiString, Standard_Integer>::Iterator anIter (*myDelayed);
2372 anIter.More(); anIter.Next())
2374 if (++anIter.ChangeValue() <= 2)
2376 continue; // postpone release one more frame to ensure noone use it periodically
2379 const TCollection_AsciiString& aKey = anIter.Key();
2380 if (!mySharedResources->IsBound (aKey))
2382 // mixed unshared strategy delayed/undelayed was used!
2383 aDeadList.Append (aKey);
2387 Handle(OpenGl_Resource)& aRes = mySharedResources->ChangeFind (aKey);
2388 if (aRes->GetRefCount() > 1)
2390 // should be only 1 instance in mySharedResources
2391 // if not - resource was reused again
2392 aDeadList.Append (aKey);
2396 // release resource if no one requiested it more than 2 redraw calls
2397 aRes->Release (this);
2398 mySharedResources->UnBind (aKey);
2399 aDeadList.Append (aKey);
2402 for (Standard_Integer anIter = 0; anIter < aDeadList.Length(); ++anIter)
2404 myDelayed->UnBind (aDeadList.Value (anIter));
2408 // =======================================================================
2409 // function : BindProgram
2411 // =======================================================================
2412 Standard_Boolean OpenGl_Context::BindProgram (const Handle(OpenGl_ShaderProgram)& theProgram)
2414 if (core20fwd == NULL)
2416 return Standard_False;
2419 if (theProgram.IsNull()
2420 || !theProgram->IsValid())
2422 if (!myActiveProgram.IsNull())
2424 core20fwd->glUseProgram (OpenGl_ShaderProgram::NO_PROGRAM);
2425 myActiveProgram.Nullify();
2427 return Standard_False;
2430 myActiveProgram = theProgram;
2431 core20fwd->glUseProgram (theProgram->ProgramId());
2432 return Standard_True;
2435 // =======================================================================
2436 // function : BindDefaultVao
2438 // =======================================================================
2439 void OpenGl_Context::BindDefaultVao()
2441 #if !defined(GL_ES_VERSION_2_0)
2442 if (myDefaultVao == 0
2448 core32->glBindVertexArray (myDefaultVao);
2452 // =======================================================================
2453 // function : SetDefaultFrameBuffer
2455 // =======================================================================
2456 Handle(OpenGl_FrameBuffer) OpenGl_Context::SetDefaultFrameBuffer (const Handle(OpenGl_FrameBuffer)& theFbo)
2458 Handle(OpenGl_FrameBuffer) aFbo = myDefaultFbo;
2459 myDefaultFbo = theFbo;
2463 // =======================================================================
2464 // function : SetColor4fv
2466 // =======================================================================
2467 void OpenGl_Context::SetColor4fv (const OpenGl_Vec4& theColor)
2469 if (!myActiveProgram.IsNull())
2471 myActiveProgram->SetUniform (this, myActiveProgram->GetStateLocation (OpenGl_OCCT_COLOR), theColor);
2473 #if !defined(GL_ES_VERSION_2_0)
2474 else if (core11 != NULL)
2476 core11->glColor4fv (theColor.GetData());
2481 // =======================================================================
2482 // function : SetTypeOfLine
2484 // =======================================================================
2485 void OpenGl_Context::SetTypeOfLine (const Aspect_TypeOfLine theType,
2486 const Standard_ShortReal theFactor)
2488 Standard_Integer aPattern = 0xFFFF;
2491 case Aspect_TOL_DASH:
2496 case Aspect_TOL_DOT:
2501 case Aspect_TOL_DOTDASH:
2506 case Aspect_TOL_SOLID:
2511 case Aspect_TOL_USERDEFINED:
2518 if (!myActiveProgram.IsNull())
2520 myActiveProgram->SetUniform (this, "uPattern", aPattern);
2521 myActiveProgram->SetUniform (this, "uFactor", theFactor);
2525 #if !defined(GL_ES_VERSION_2_0)
2526 if (theType != Aspect_TOL_SOLID)
2531 gl2psEnable (GL2PS_LINE_STIPPLE);
2537 core11fwd->glEnable (GL_LINE_STIPPLE);
2539 core11->glLineStipple (static_cast<GLint> (theFactor),
2540 static_cast<GLushort> (aPattern));
2547 core11fwd->glDisable (GL_LINE_STIPPLE);
2553 gl2psDisable (GL2PS_LINE_STIPPLE);
2560 // =======================================================================
2561 // function : SetLineWidth
2563 // =======================================================================
2564 void OpenGl_Context::SetLineWidth (const Standard_ShortReal theWidth)
2568 // glLineWidth() is still defined within Core Profile, but has no effect with values != 1.0f
2569 core11fwd->glLineWidth (theWidth);
2574 gl2psLineWidth (theWidth);
2579 // =======================================================================
2580 // function : SetPointSize
2582 // =======================================================================
2583 void OpenGl_Context::SetPointSize (const Standard_ShortReal theSize)
2585 if (!myActiveProgram.IsNull())
2587 myActiveProgram->SetUniform (this, myActiveProgram->GetStateLocation (OpenGl_OCCT_POINT_SIZE), theSize);
2588 #if !defined(GL_ES_VERSION_2_0)
2589 //myContext->core11fwd->glEnable (GL_VERTEX_PROGRAM_POINT_SIZE);
2592 #if !defined(GL_ES_VERSION_2_0)
2595 core11fwd->glPointSize (theSize);
2596 if (core20fwd != NULL)
2598 //myContext->core11fwd->glDisable (GL_VERTEX_PROGRAM_POINT_SIZE);
2604 // =======================================================================
2605 // function : SetGlNormalizeEnabled
2607 // =======================================================================
2608 Standard_Boolean OpenGl_Context::SetGlNormalizeEnabled (Standard_Boolean isEnabled)
2610 if (isEnabled == myIsGlNormalizeEnabled)
2612 return myIsGlNormalizeEnabled;
2615 Standard_Boolean anOldGlNormalize = myIsGlNormalizeEnabled;
2617 myIsGlNormalizeEnabled = isEnabled;
2619 #if !defined(GL_ES_VERSION_2_0)
2622 glEnable (GL_NORMALIZE);
2626 glDisable (GL_NORMALIZE);
2630 return anOldGlNormalize;
2633 // =======================================================================
2634 // function : ApplyModelWorldMatrix
2636 // =======================================================================
2637 void OpenGl_Context::ApplyModelWorldMatrix()
2639 #if !defined(GL_ES_VERSION_2_0)
2642 core11->glMatrixMode (GL_MODELVIEW);
2643 core11->glLoadMatrixf (ModelWorldState.Current());
2647 if (!myShaderManager->IsEmpty())
2649 myShaderManager->UpdateModelWorldStateTo (ModelWorldState.Current());
2653 // =======================================================================
2654 // function : ApplyWorldViewMatrix
2656 // =======================================================================
2657 void OpenGl_Context::ApplyWorldViewMatrix()
2659 #if !defined(GL_ES_VERSION_2_0)
2662 core11->glMatrixMode (GL_MODELVIEW);
2663 core11->glLoadMatrixf (WorldViewState.Current());
2667 if (!myShaderManager->IsEmpty())
2669 myShaderManager->UpdateWorldViewStateTo (WorldViewState.Current());
2673 // =======================================================================
2674 // function : ApplyModelViewMatrix
2676 // =======================================================================
2677 void OpenGl_Context::ApplyModelViewMatrix()
2679 #if !defined(GL_ES_VERSION_2_0)
2682 OpenGl_Mat4 aModelView = WorldViewState.Current() * ModelWorldState.Current();
2683 core11->glMatrixMode (GL_MODELVIEW);
2684 core11->glLoadMatrixf (aModelView.GetData());
2688 if (!myShaderManager->IsEmpty())
2690 myShaderManager->UpdateModelWorldStateTo (ModelWorldState.Current());
2691 myShaderManager->UpdateWorldViewStateTo (WorldViewState.Current());
2695 // =======================================================================
2696 // function : ApplyProjectionMatrix
2698 // =======================================================================
2699 void OpenGl_Context::ApplyProjectionMatrix()
2701 #if !defined(GL_ES_VERSION_2_0)
2704 core11->glMatrixMode (GL_PROJECTION);
2705 core11->glLoadMatrixf (ProjectionState.Current().GetData());
2709 if (!myShaderManager->IsEmpty())
2711 myShaderManager->UpdateProjectionStateTo (ProjectionState.Current());