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_ArbSamplerObject.hxx>
28 #include <OpenGl_ArbTexBindless.hxx>
29 #include <OpenGl_GlCore45.hxx>
30 #include <OpenGl_FrameBuffer.hxx>
31 #include <OpenGl_FrameStats.hxx>
32 #include <OpenGl_Sampler.hxx>
33 #include <OpenGl_ShaderManager.hxx>
34 #include <OpenGl_Workspace.hxx>
35 #include <OpenGl_Aspects.hxx>
36 #include <Graphic3d_TransformUtils.hxx>
37 #include <Graphic3d_RenderingParams.hxx>
39 #include <Message_Messenger.hxx>
41 #include <NCollection_Vector.hxx>
43 #include <Standard_ProgramError.hxx>
45 IMPLEMENT_STANDARD_RTTIEXT(OpenGl_Context,Standard_Transient)
50 #pragma comment(lib, "libEGL.lib")
54 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
56 #if defined(TARGET_OS_IPHONE) && TARGET_OS_IPHONE
59 #include <OpenGL/OpenGL.h>
60 #include <CoreGraphics/CoreGraphics.h>
63 #include <GL/glx.h> // glXGetProcAddress()
67 #include <emscripten/html5.h>
69 //! Check if WebGL extension is available and activate it
70 //! (usage of extension without activation will generate errors).
71 static bool checkEnableWebGlExtension (const OpenGl_Context& theCtx,
72 const char* theExtName)
74 if (!theCtx.CheckExtension (theExtName))
78 if (EMSCRIPTEN_WEBGL_CONTEXT_HANDLE aWebGlCtx = emscripten_webgl_get_current_context())
80 if (emscripten_webgl_enable_extension (aWebGlCtx, theExtName))
91 static const Handle(OpenGl_Resource) NULL_GL_RESOURCE;
92 static const OpenGl_Mat4 THE_IDENTITY_MATRIX;
94 //! Add key-value pair to the dictionary.
95 static void addInfo (TColStd_IndexedDataMapOfStringString& theDict,
96 const TCollection_AsciiString& theKey,
97 const TCollection_AsciiString& theValue)
99 theDict.ChangeFromIndex (theDict.Add (theKey, theValue)) = theValue;
102 //! Add key-value pair to the dictionary.
103 static void addInfo (TColStd_IndexedDataMapOfStringString& theDict,
104 const TCollection_AsciiString& theKey,
105 const char* theValue)
107 TCollection_AsciiString aValue (theValue != NULL ? theValue : "");
108 theDict.ChangeFromIndex (theDict.Add (theKey, aValue)) = aValue;
112 // =======================================================================
113 // function : OpenGl_Context
115 // =======================================================================
116 OpenGl_Context::OpenGl_Context (const Handle(OpenGl_Caps)& theCaps)
137 caps (!theCaps.IsNull() ? theCaps : new OpenGl_Caps()),
138 #if defined(GL_ES_VERSION_2_0)
139 hasHighp (Standard_False),
140 hasUintIndex(Standard_False),
141 hasTexRGBA8(Standard_False),
143 hasHighp (Standard_True),
144 hasUintIndex(Standard_True),
145 hasTexRGBA8(Standard_True),
147 hasTexFloatLinear (Standard_False),
148 hasTexSRGB (Standard_False),
149 hasFboSRGB (Standard_False),
150 hasSRGBControl (Standard_False),
151 #if defined(GL_ES_VERSION_2_0)
152 hasFlatShading (OpenGl_FeatureNotAvailable),
154 hasFlatShading (OpenGl_FeatureInCore),
156 hasGlslBitwiseOps (OpenGl_FeatureNotAvailable),
157 hasDrawBuffers (OpenGl_FeatureNotAvailable),
158 hasFloatBuffer (OpenGl_FeatureNotAvailable),
159 hasHalfFloatBuffer (OpenGl_FeatureNotAvailable),
160 hasSampleVariables (OpenGl_FeatureNotAvailable),
161 hasGeometryStage (OpenGl_FeatureNotAvailable),
162 arbDrawBuffers (Standard_False),
163 arbNPTW (Standard_False),
164 arbTexRG (Standard_False),
165 arbTexFloat (Standard_False),
166 arbSamplerObject (NULL),
167 arbTexBindless (NULL),
169 arbTboRGB32 (Standard_False),
174 arbSampleShading (Standard_False),
175 extFragDepth (Standard_False),
176 extDrawBuffers (Standard_False),
178 extBgra(Standard_False),
179 extAnis(Standard_False),
180 extPDS (Standard_False),
181 atiMem (Standard_False),
182 nvxMem (Standard_False),
183 oesSampleVariables (Standard_False),
184 oesStdDerivatives (Standard_False),
185 mySharedResources (new OpenGl_ResourcesMap()),
186 myDelayed (new OpenGl_DelayReleaseMap()),
187 myUnusedResources (new OpenGl_ResourcesStack()),
189 myGlLibHandle (NULL),
190 myFuncs (new OpenGl_GlFunctions()),
192 myTexClamp (GL_CLAMP_TO_EDGE),
194 myMaxTexCombined (1),
195 myMaxTexUnitsFFP (1),
196 myMaxDumpSizeX (1024),
197 myMaxDumpSizeY (1024),
200 myMaxDrawBuffers (1),
201 myMaxColorAttachments (1),
204 myIsInitialized (Standard_False),
205 myIsStereoBuffers (Standard_False),
206 myIsGlNormalizeEnabled (Standard_False),
207 mySpriteTexUnit (Graphic3d_TextureUnit_0),
208 myHasRayTracing (Standard_False),
209 myHasRayTracingTextures (Standard_False),
210 myHasRayTracingAdaptiveSampling (Standard_False),
211 myHasRayTracingAdaptiveSamplingAtomic (Standard_False),
212 myHasPBR (Standard_False),
213 myPBREnvLUTTexUnit (Graphic3d_TextureUnit_0),
214 myPBRDiffIBLMapSHTexUnit (Graphic3d_TextureUnit_0),
215 myPBRSpecIBLMapTexUnit (Graphic3d_TextureUnit_0),
216 myFrameStats (new OpenGl_FrameStats()),
217 #if !defined(GL_ES_VERSION_2_0)
218 myPointSpriteOrig (GL_UPPER_LEFT),
219 myRenderMode (GL_RENDER),
220 myPolygonMode (GL_FILL),
222 myPointSpriteOrig (0),
226 myToCullBackFaces (false),
228 myDrawBuffers (0, 7),
231 myAlphaToCoverage (false),
232 myIsGlDebugCtx (false),
233 myIsSRgbWindow (false),
234 myResolution (Graphic3d_RenderingParams::THE_DEFAULT_RESOLUTION),
235 myResolutionRatio (1.0f),
236 myLineWidthScale (1.0f),
237 myLineFeather (1.0f),
238 myRenderScale (1.0f),
239 myRenderScaleInv (1.0f)
245 myViewportVirt[0] = 0;
246 myViewportVirt[1] = 0;
247 myViewportVirt[2] = 0;
248 myViewportVirt[3] = 0;
250 myPolygonOffset.Mode = Aspect_POM_Off;
251 myPolygonOffset.Factor = 0.0f;
252 myPolygonOffset.Units = 0.0f;
254 // system-dependent fields
255 #if defined(HAVE_EGL)
256 myDisplay = (Aspect_Display )EGL_NO_DISPLAY;
257 myWindow = (Aspect_Drawable )EGL_NO_SURFACE;
258 myGContext = (Aspect_RenderingContext )EGL_NO_CONTEXT;
259 #elif defined(_WIN32)
263 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
264 // Vendors can not extend functionality on this system
265 // and developers are limited to OpenGL support provided by Mac OS X SDK.
266 // We retrieve function pointers from system library
267 // to generalize extensions support on all platforms.
268 // In this way we also reach binary compatibility benefit between OS releases
269 // if some newest functionality is optionally used.
270 // Notice that GL version / extension availability checks are required
271 // because function pointers may be available but not functionality itself
272 // (depends on renderer).
273 #if defined(TARGET_OS_IPHONE) && TARGET_OS_IPHONE
275 myGlLibHandle = dlopen ("/System/Library/Frameworks/OpenGLES.framework/OpenGLES", RTLD_LAZY);
278 myGlLibHandle = dlopen ("/System/Library/Frameworks/OpenGL.framework/Versions/Current/OpenGL", RTLD_LAZY);
286 memset (myFuncs.operator->(), 0, sizeof(OpenGl_GlFunctions));
287 myShaderManager = new OpenGl_ShaderManager (this);
290 // =======================================================================
291 // function : ~OpenGl_Context
293 // =======================================================================
294 OpenGl_Context::~OpenGl_Context()
296 // release clean up queue
299 #if !defined(GL_ES_VERSION_2_0)
300 // release default VAO
301 if (myDefaultVao != 0
305 core32->glDeleteVertexArrays (1, &myDefaultVao);
310 // release default FBO
311 if (!myDefaultFbo.IsNull())
313 myDefaultFbo->Release (this);
314 myDefaultFbo.Nullify();
317 // release shared resources if any
318 if (mySharedResources->GetRefCount() <= 1)
320 myShaderManager.Nullify();
321 for (NCollection_DataMap<TCollection_AsciiString, Handle(OpenGl_Resource)>::Iterator anIter (*mySharedResources);
322 anIter.More(); anIter.Next())
324 anIter.Value()->Release (this);
327 // release delayed resources added during deletion of shared resources
328 while (!myUnusedResources->IsEmpty())
330 myUnusedResources->First()->Release (this);
331 myUnusedResources->RemoveFirst();
334 else if (myShaderManager->IsSameContext (this))
336 myShaderManager->SetContext (NULL);
338 mySharedResources.Nullify();
346 #if !defined(GL_ES_VERSION_2_0)
348 glGetPointerv (GL_DEBUG_CALLBACK_USER_PARAM, &aPtr);
352 arbDbg->glDebugMessageCallback (NULL, NULL);
354 myIsGlDebugCtx = Standard_False;
358 // =======================================================================
359 // function : forcedRelease
361 // =======================================================================
362 void OpenGl_Context::forcedRelease()
365 for (NCollection_DataMap<TCollection_AsciiString, Handle(OpenGl_Resource)>::Iterator anIter (*mySharedResources);
366 anIter.More(); anIter.Next())
368 anIter.Value()->Release (this);
370 mySharedResources->Clear();
371 myShaderManager->clear();
372 myShaderManager->SetContext (NULL);
374 // release delayed resources added during deletion of shared resources
375 while (!myUnusedResources->IsEmpty())
377 myUnusedResources->First()->Release (this);
378 myUnusedResources->RemoveFirst();
382 // =======================================================================
383 // function : ResizeViewport
385 // =======================================================================
386 void OpenGl_Context::ResizeViewport (const Standard_Integer* theRect)
388 core11fwd->glViewport (theRect[0], theRect[1], theRect[2], theRect[3]);
389 myViewport[0] = theRect[0];
390 myViewport[1] = theRect[1];
391 myViewport[2] = theRect[2];
392 myViewport[3] = theRect[3];
393 if (HasRenderScale())
395 myViewportVirt[0] = Standard_Integer(theRect[0] * myRenderScaleInv);
396 myViewportVirt[1] = Standard_Integer(theRect[1] * myRenderScaleInv);
397 myViewportVirt[2] = Standard_Integer(theRect[2] * myRenderScaleInv);
398 myViewportVirt[3] = Standard_Integer(theRect[3] * myRenderScaleInv);
402 myViewportVirt[0] = theRect[0];
403 myViewportVirt[1] = theRect[1];
404 myViewportVirt[2] = theRect[2];
405 myViewportVirt[3] = theRect[3];
409 #if !defined(GL_ES_VERSION_2_0)
410 inline Standard_Integer stereoToMonoBuffer (const Standard_Integer theBuffer)
426 // =======================================================================
427 // function : SetReadBuffer
429 // =======================================================================
430 void OpenGl_Context::SetReadBuffer (const Standard_Integer theReadBuffer)
432 #if !defined(GL_ES_VERSION_2_0)
433 myReadBuffer = !myIsStereoBuffers ? stereoToMonoBuffer (theReadBuffer) : theReadBuffer;
434 if (myReadBuffer < GL_COLOR_ATTACHMENT0
437 arbFBO->glBindFramebuffer (GL_FRAMEBUFFER, OpenGl_FrameBuffer::NO_FRAMEBUFFER);
439 ::glReadBuffer (myReadBuffer);
441 (void )theReadBuffer;
445 // =======================================================================
446 // function : SetDrawBuffer
448 // =======================================================================
449 void OpenGl_Context::SetDrawBuffer (const Standard_Integer theDrawBuffer)
451 #if !defined(GL_ES_VERSION_2_0)
452 const Standard_Integer aDrawBuffer = !myIsStereoBuffers ? stereoToMonoBuffer (theDrawBuffer) : theDrawBuffer;
453 if (aDrawBuffer < GL_COLOR_ATTACHMENT0
456 arbFBO->glBindFramebuffer (GL_FRAMEBUFFER, OpenGl_FrameBuffer::NO_FRAMEBUFFER);
458 ::glDrawBuffer (aDrawBuffer);
460 myDrawBuffers.Init (GL_NONE);
461 myDrawBuffers.SetValue (0, aDrawBuffer);
463 (void )theDrawBuffer;
467 // =======================================================================
468 // function : SetDrawBuffers
470 // =======================================================================
471 void OpenGl_Context::SetDrawBuffers (const Standard_Integer theNb, const Standard_Integer* theDrawBuffers)
473 Standard_ASSERT_RETURN (hasDrawBuffers, "Multiple draw buffers feature is not supported by the context", Standard_ASSERT_DO_NOTHING());
475 if (myDrawBuffers.Length() < theNb)
477 // should actually never happen here
478 myDrawBuffers.Resize (0, theNb - 1, false);
480 myDrawBuffers.Init (GL_NONE);
482 Standard_Boolean useDefaultFbo = Standard_False;
483 for (Standard_Integer anI = 0; anI < theNb; ++anI)
485 if (theDrawBuffers[anI] < GL_COLOR_ATTACHMENT0 && theDrawBuffers[anI] != GL_NONE)
487 useDefaultFbo = Standard_True;
491 myDrawBuffers.SetValue (anI, theDrawBuffers[anI]);
494 if (arbFBO != NULL && useDefaultFbo)
496 arbFBO->glBindFramebuffer (GL_FRAMEBUFFER, OpenGl_FrameBuffer::NO_FRAMEBUFFER);
499 myFuncs->glDrawBuffers (theNb, (const GLenum*)theDrawBuffers);
502 // =======================================================================
503 // function : SetFrameBufferSRGB
505 // =======================================================================
506 void OpenGl_Context::SetFrameBufferSRGB (bool theIsFbo)
510 myIsSRgbActive = false;
513 myIsSRgbActive = ToRenderSRGB()
514 && (theIsFbo || myIsSRgbWindow);
522 core11fwd->glEnable (GL_FRAMEBUFFER_SRGB);
526 core11fwd->glDisable (GL_FRAMEBUFFER_SRGB);
530 // =======================================================================
531 // function : SetCullBackFaces
533 // =======================================================================
534 void OpenGl_Context::SetCullBackFaces (bool theToEnable)
536 if (myToCullBackFaces == theToEnable)
541 myToCullBackFaces = theToEnable;
544 //glCullFace (GL_BACK); GL_BACK by default
545 core11fwd->glEnable (GL_CULL_FACE);
549 core11fwd->glDisable (GL_CULL_FACE);
553 // =======================================================================
554 // function : FetchState
556 // =======================================================================
557 void OpenGl_Context::FetchState()
559 #if !defined(GL_ES_VERSION_2_0)
560 // cache feedback mode state
563 ::glGetIntegerv (GL_RENDER_MODE, &myRenderMode);
566 // cache read buffers state
567 ::glGetIntegerv (GL_READ_BUFFER, &myReadBuffer);
569 // cache draw buffers state
570 if (myDrawBuffers.Length() < myMaxDrawBuffers)
572 myDrawBuffers.Resize (0, myMaxDrawBuffers - 1, false);
574 myDrawBuffers.Init (GL_NONE);
576 Standard_Integer aDrawBuffer = GL_NONE;
577 if (myMaxDrawBuffers == 1)
579 ::glGetIntegerv (GL_DRAW_BUFFER, &aDrawBuffer);
580 myDrawBuffers.SetValue (0, aDrawBuffer);
584 for (Standard_Integer anI = 0; anI < myMaxDrawBuffers; ++anI)
586 ::glGetIntegerv (GL_DRAW_BUFFER0 + anI, &aDrawBuffer);
587 myDrawBuffers.SetValue (anI, aDrawBuffer);
593 // =======================================================================
596 // =======================================================================
597 void OpenGl_Context::Share (const Handle(OpenGl_Context)& theShareCtx)
599 if (!theShareCtx.IsNull())
601 mySharedResources = theShareCtx->mySharedResources;
602 myDelayed = theShareCtx->myDelayed;
603 myUnusedResources = theShareCtx->myUnusedResources;
604 myShaderManager = theShareCtx->myShaderManager;
608 #if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
610 // =======================================================================
611 // function : IsCurrent
613 // =======================================================================
614 Standard_Boolean OpenGl_Context::IsCurrent() const
616 #if defined(HAVE_EGL)
617 if ((EGLDisplay )myDisplay == EGL_NO_DISPLAY
618 || (EGLContext )myGContext == EGL_NO_CONTEXT)
620 return Standard_False;
623 return (((EGLDisplay )myDisplay == eglGetCurrentDisplay())
624 && ((EGLContext )myGContext == eglGetCurrentContext())
625 && ((EGLSurface )myWindow == eglGetCurrentSurface (EGL_DRAW)));
626 #elif defined(_WIN32)
627 if (myWindowDC == NULL || myGContext == NULL)
629 return Standard_False;
631 return (( (HDC )myWindowDC == wglGetCurrentDC())
632 && ((HGLRC )myGContext == wglGetCurrentContext()));
634 if (myDisplay == NULL || myWindow == 0 || myGContext == 0)
636 return Standard_False;
639 return ( ((Display* )myDisplay == glXGetCurrentDisplay())
640 && ((GLXContext )myGContext == glXGetCurrentContext())
641 && ((GLXDrawable )myWindow == glXGetCurrentDrawable()));
645 // =======================================================================
646 // function : MakeCurrent
648 // =======================================================================
649 Standard_Boolean OpenGl_Context::MakeCurrent()
651 #if defined(HAVE_EGL)
652 if ((EGLDisplay )myDisplay == EGL_NO_DISPLAY
653 || (EGLContext )myGContext == EGL_NO_CONTEXT)
655 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
656 return Standard_False;
659 if (eglMakeCurrent ((EGLDisplay )myDisplay, (EGLSurface )myWindow, (EGLSurface )myWindow, (EGLContext )myGContext) != EGL_TRUE)
661 // if there is no current context it might be impossible to use glGetError() correctly
662 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM, GL_DEBUG_TYPE_ERROR, 0, GL_DEBUG_SEVERITY_HIGH,
663 "eglMakeCurrent() has failed!");
664 myIsInitialized = Standard_False;
665 return Standard_False;
667 #elif defined(_WIN32)
668 if (myWindowDC == NULL || myGContext == NULL)
670 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
671 return Standard_False;
674 // technically it should be safe to activate already bound GL context
675 // however some drivers (Intel etc.) may FAIL doing this for unknown reason
678 myShaderManager->SetContext (this);
679 return Standard_True;
681 else if (wglMakeCurrent ((HDC )myWindowDC, (HGLRC )myGContext) != TRUE)
683 // notice that glGetError() couldn't be used here!
684 wchar_t* aMsgBuff = NULL;
685 DWORD anErrorCode = GetLastError();
686 FormatMessageW (FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
687 NULL, anErrorCode, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (wchar_t* )&aMsgBuff, 0, NULL);
688 TCollection_ExtendedString aMsg ("wglMakeCurrent() has failed. ");
689 if (aMsgBuff != NULL)
691 aMsg += (Standard_ExtString )aMsgBuff;
692 LocalFree (aMsgBuff);
694 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM, GL_DEBUG_TYPE_ERROR, (unsigned int )anErrorCode, GL_DEBUG_SEVERITY_HIGH, aMsg);
695 myIsInitialized = Standard_False;
696 return Standard_False;
699 if (myDisplay == NULL || myWindow == 0 || myGContext == 0)
701 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called before!");
702 return Standard_False;
705 if (!glXMakeCurrent ((Display* )myDisplay, (GLXDrawable )myWindow, (GLXContext )myGContext))
707 // if there is no current context it might be impossible to use glGetError() correctly
708 PushMessage (GL_DEBUG_SOURCE_WINDOW_SYSTEM, GL_DEBUG_TYPE_ERROR, 0, GL_DEBUG_SEVERITY_HIGH,
709 "glXMakeCurrent() has failed!");
710 myIsInitialized = Standard_False;
711 return Standard_False;
714 myShaderManager->SetContext (this);
715 return Standard_True;
718 // =======================================================================
719 // function : SwapBuffers
721 // =======================================================================
722 void OpenGl_Context::SwapBuffers()
724 #if defined(HAVE_EGL)
725 if ((EGLSurface )myWindow != EGL_NO_SURFACE)
727 eglSwapBuffers ((EGLDisplay )myDisplay, (EGLSurface )myWindow);
729 #elif defined(_WIN32)
730 if ((HDC )myWindowDC != NULL)
732 ::SwapBuffers ((HDC )myWindowDC);
736 if ((Display* )myDisplay != NULL)
738 glXSwapBuffers ((Display* )myDisplay, (GLXDrawable )myWindow);
745 // =======================================================================
746 // function : SetSwapInterval
748 // =======================================================================
749 Standard_Boolean OpenGl_Context::SetSwapInterval (const Standard_Integer theInterval)
751 #if defined(HAVE_EGL)
752 if (::eglSwapInterval ((EGLDisplay )myDisplay, theInterval) == EGL_TRUE)
754 return Standard_True;
756 #elif defined(_WIN32)
757 if (myFuncs->wglSwapIntervalEXT != NULL)
759 myFuncs->wglSwapIntervalEXT (theInterval);
760 return Standard_True;
762 #elif defined(TARGET_OS_IPHONE) && TARGET_OS_IPHONE
764 #elif defined(__APPLE__)
765 if (::CGLSetParameter (CGLGetCurrentContext(), kCGLCPSwapInterval, &theInterval) == kCGLNoError)
767 return Standard_True;
770 if (theInterval == -1
771 && myFuncs->glXSwapIntervalEXT != NULL)
773 typedef int (*glXSwapIntervalEXT_t_x)(Display* theDisplay, GLXDrawable theDrawable, int theInterval);
774 glXSwapIntervalEXT_t_x aFuncPtr = (glXSwapIntervalEXT_t_x )myFuncs->glXSwapIntervalEXT;
775 aFuncPtr ((Display* )myDisplay, (GLXDrawable )myWindow, theInterval);
776 return Standard_True;
778 else if (myFuncs->glXSwapIntervalSGI != NULL)
780 myFuncs->glXSwapIntervalSGI (theInterval);
781 return Standard_True;
784 return Standard_False;
787 // =======================================================================
788 // function : findProc
790 // =======================================================================
791 void* OpenGl_Context::findProc (const char* theFuncName)
793 #if defined(HAVE_EGL)
794 return (void* )eglGetProcAddress (theFuncName);
795 #elif defined(_WIN32)
796 return (void* )wglGetProcAddress (theFuncName);
797 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
798 return (myGlLibHandle != NULL) ? dlsym (myGlLibHandle, theFuncName) : NULL;
800 return (void* )glXGetProcAddress ((const GLubyte* )theFuncName);
804 // =======================================================================
805 // function : CheckExtension
807 // =======================================================================
808 Standard_Boolean OpenGl_Context::CheckExtension (const char* theExtName) const
810 if (theExtName == NULL)
813 std::cerr << "CheckExtension called with NULL string!\n";
815 return Standard_False;
817 else if (caps->contextNoExtensions)
819 return Standard_False;
822 #if !defined(GL_ES_VERSION_2_0)
823 // available since OpenGL 3.0
824 // and the ONLY way to check extensions with OpenGL 3.1+ core profile
825 if (IsGlGreaterEqual (3, 0)
826 && myFuncs->glGetStringi != NULL)
829 ::glGetIntegerv (GL_NUM_EXTENSIONS, &anExtNb);
830 const size_t anExtNameLen = strlen (theExtName);
831 for (GLint anIter = 0; anIter < anExtNb; ++anIter)
833 const char* anExtension = (const char* )myFuncs->glGetStringi (GL_EXTENSIONS, (GLuint )anIter);
834 const size_t aTestExtNameLen = strlen (anExtension);
835 if (aTestExtNameLen == anExtNameLen
836 && strncmp (anExtension, theExtName, anExtNameLen) == 0)
838 return Standard_True;
841 return Standard_False;
845 // use old way with huge string for all extensions
846 const char* anExtString = (const char* )glGetString (GL_EXTENSIONS);
847 if (anExtString == NULL)
849 Messenger()->Send ("TKOpenGL: glGetString (GL_EXTENSIONS) has returned NULL! No GL context?", Message_Warning);
850 return Standard_False;
852 return CheckExtension (anExtString, theExtName);
855 // =======================================================================
856 // function : CheckExtension
858 // =======================================================================
859 Standard_Boolean OpenGl_Context::CheckExtension (const char* theExtString,
860 const char* theExtName)
862 if (theExtString == NULL)
864 return Standard_False;
867 // Search for theExtName in the extensions string.
868 // Use of strstr() is not sufficient because extension names can be prefixes of other extension names.
869 char* aPtrIter = (char* )theExtString;
870 const char* aPtrEnd = aPtrIter + strlen (theExtString);
871 const size_t anExtNameLen = strlen (theExtName);
872 while (aPtrIter < aPtrEnd)
874 const size_t n = strcspn (aPtrIter, " ");
875 if ((n == anExtNameLen) && (strncmp (aPtrIter, theExtName, anExtNameLen) == 0))
877 return Standard_True;
881 return Standard_False;
884 #if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
886 // =======================================================================
889 // =======================================================================
890 Standard_Boolean OpenGl_Context::Init (const Standard_Boolean theIsCoreProfile)
894 return Standard_True;
897 #if defined(HAVE_EGL)
898 myDisplay = (Aspect_Display )eglGetCurrentDisplay();
899 myGContext = (Aspect_RenderingContext )eglGetCurrentContext();
900 myWindow = (Aspect_Drawable )eglGetCurrentSurface(EGL_DRAW);
901 #elif defined(_WIN32)
902 myWindowDC = (Aspect_Handle )wglGetCurrentDC();
903 myGContext = (Aspect_RenderingContext )wglGetCurrentContext();
905 myDisplay = (Aspect_Display )glXGetCurrentDisplay();
906 myGContext = (Aspect_RenderingContext )glXGetCurrentContext();
907 myWindow = (Aspect_Drawable )glXGetCurrentDrawable();
909 if (myGContext == NULL)
911 return Standard_False;
914 init (theIsCoreProfile);
915 myIsInitialized = Standard_True;
916 return Standard_True;
921 // =======================================================================
924 // =======================================================================
925 #if defined(HAVE_EGL)
926 Standard_Boolean OpenGl_Context::Init (const Aspect_Drawable theEglSurface,
927 const Aspect_Display theEglDisplay,
928 const Aspect_RenderingContext theEglContext,
929 const Standard_Boolean theIsCoreProfile)
930 #elif defined(_WIN32)
931 Standard_Boolean OpenGl_Context::Init (const Aspect_Handle theWindow,
932 const Aspect_Handle theWindowDC,
933 const Aspect_RenderingContext theGContext,
934 const Standard_Boolean theIsCoreProfile)
935 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
937 #if defined(TARGET_OS_IPHONE) && TARGET_OS_IPHONE
938 Standard_Boolean OpenGl_Context::Init (EAGLContext* theGContext,
939 const Standard_Boolean theIsCoreProfile)
941 Standard_Boolean OpenGl_Context::Init (NSOpenGLContext* theGContext,
942 const Standard_Boolean theIsCoreProfile)
946 Standard_Boolean OpenGl_Context::Init (const Aspect_Drawable theWindow,
947 const Aspect_Display theDisplay,
948 const Aspect_RenderingContext theGContext,
949 const Standard_Boolean theIsCoreProfile)
952 Standard_ProgramError_Raise_if (myIsInitialized, "OpenGl_Context::Init() should be called only once!");
953 #if defined(HAVE_EGL)
954 myWindow = theEglSurface;
955 myGContext = theEglContext;
956 myDisplay = theEglDisplay;
957 #elif defined(_WIN32)
958 myWindow = theWindow;
959 myGContext = theGContext;
960 myWindowDC = theWindowDC;
961 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
962 myGContext = theGContext;
964 myWindow = theWindow;
965 myGContext = theGContext;
966 myDisplay = theDisplay;
968 if (myGContext == NULL || !MakeCurrent())
970 return Standard_False;
973 init (theIsCoreProfile);
974 myIsInitialized = Standard_True;
975 return Standard_True;
978 // =======================================================================
979 // function : ResetErrors
981 // =======================================================================
982 bool OpenGl_Context::ResetErrors (const bool theToPrintErrors)
985 int anErr = ::glGetError();
986 const bool hasError = anErr != GL_NO_ERROR;
987 if (!theToPrintErrors)
989 for (; anErr != GL_NO_ERROR && aPrevErr != anErr; aPrevErr = anErr, anErr = ::glGetError())
996 for (; anErr != GL_NO_ERROR && aPrevErr != anErr; aPrevErr = anErr, anErr = ::glGetError())
998 TCollection_ExtendedString anErrId;
1001 case GL_INVALID_ENUM: anErrId = "GL_INVALID_ENUM"; break;
1002 case GL_INVALID_VALUE: anErrId = "GL_INVALID_VALUE"; break;
1003 case GL_INVALID_OPERATION: anErrId = "GL_INVALID_OPERATION"; break;
1004 #ifdef GL_STACK_OVERFLOW
1005 case GL_STACK_OVERFLOW: anErrId = "GL_STACK_OVERFLOW"; break;
1006 case GL_STACK_UNDERFLOW: anErrId = "GL_STACK_UNDERFLOW"; break;
1008 case GL_OUT_OF_MEMORY: anErrId = "GL_OUT_OF_MEMORY"; break;
1009 case GL_INVALID_FRAMEBUFFER_OPERATION:
1010 anErrId = "GL_INVALID_FRAMEBUFFER_OPERATION";
1013 anErrId = TCollection_ExtendedString("#") + anErr;
1017 const TCollection_ExtendedString aMsg = TCollection_ExtendedString ("Unhandled GL error: ") + anErrId;
1018 PushMessage (GL_DEBUG_SOURCE_APPLICATION, GL_DEBUG_TYPE_OTHER, 0, GL_DEBUG_SEVERITY_LOW, aMsg);
1023 // =======================================================================
1024 // function : ReadGlVersion
1026 // =======================================================================
1027 void OpenGl_Context::ReadGlVersion (Standard_Integer& theGlVerMajor,
1028 Standard_Integer& theGlVerMinor)
1034 #ifdef GL_MAJOR_VERSION
1035 // available since OpenGL 3.0 and OpenGL 3.0 ES
1036 GLint aMajor = 0, aMinor = 0;
1037 glGetIntegerv (GL_MAJOR_VERSION, &aMajor);
1038 glGetIntegerv (GL_MINOR_VERSION, &aMinor);
1039 // glGetError() sometimes does not report an error here even if
1040 // GL does not know GL_MAJOR_VERSION and GL_MINOR_VERSION constants.
1041 // This happens on some renderers like e.g. Cygwin MESA.
1042 // Thus checking additionally if GL has put anything to
1043 // the output variables.
1044 if (::glGetError() == GL_NO_ERROR && aMajor != 0 && aMinor != 0)
1046 theGlVerMajor = aMajor;
1047 theGlVerMinor = aMinor;
1050 for (GLenum anErr = ::glGetError(), aPrevErr = GL_NO_ERROR;; aPrevErr = anErr, anErr = ::glGetError())
1052 if (anErr == GL_NO_ERROR
1053 || anErr == aPrevErr)
1060 // Read version string.
1061 // Notice that only first two numbers split by point '2.1 XXXXX' are significant.
1062 // Following trash (after space) is vendor-specific.
1063 // New drivers also returns micro version of GL like '3.3.0' which has no meaning
1064 // and should be considered as vendor-specific too.
1065 const char* aVerStr = (const char* )glGetString (GL_VERSION);
1066 if (aVerStr == NULL || *aVerStr == '\0')
1068 // invalid GL context
1072 //#if defined(GL_ES_VERSION_2_0)
1073 // skip "OpenGL ES-** " section
1074 for (; *aVerStr != '\0'; ++aVerStr)
1076 if (*aVerStr >= '0' && *aVerStr <= '9')
1083 // parse string for major number
1086 size_t aMajIter = 0;
1087 while (aVerStr[aMajIter] >= '0' && aVerStr[aMajIter] <= '9')
1091 if (aMajIter == 0 || aMajIter >= sizeof(aMajorStr))
1095 memcpy (aMajorStr, aVerStr, aMajIter);
1096 aMajorStr[aMajIter] = '\0';
1098 // parse string for minor number
1099 aVerStr += aMajIter + 1;
1100 size_t aMinIter = 0;
1101 while (aVerStr[aMinIter] >= '0' && aVerStr[aMinIter] <= '9')
1105 if (aMinIter == 0 || aMinIter >= sizeof(aMinorStr))
1109 memcpy (aMinorStr, aVerStr, aMinIter);
1110 aMinorStr[aMinIter] = '\0';
1113 theGlVerMajor = atoi (aMajorStr);
1114 theGlVerMinor = atoi (aMinorStr);
1116 if (theGlVerMajor <= 0)
1123 static Standard_CString THE_DBGMSG_UNKNOWN = "UNKNOWN";
1124 static Standard_CString THE_DBGMSG_SOURCES[] =
1126 ".OpenGL", // GL_DEBUG_SOURCE_API
1127 ".WinSystem", // GL_DEBUG_SOURCE_WINDOW_SYSTEM
1128 ".GLSL", // GL_DEBUG_SOURCE_SHADER_COMPILER
1129 ".3rdParty", // GL_DEBUG_SOURCE_THIRD_PARTY
1130 "", // GL_DEBUG_SOURCE_APPLICATION
1131 ".Other" // GL_DEBUG_SOURCE_OTHER
1134 static Standard_CString THE_DBGMSG_TYPES[] =
1136 "Error", // GL_DEBUG_TYPE_ERROR
1137 "Deprecated", // GL_DEBUG_TYPE_DEPRECATED_BEHAVIOR
1138 "Undef. behavior", // GL_DEBUG_TYPE_UNDEFINED_BEHAVIOR
1139 "Portability", // GL_DEBUG_TYPE_PORTABILITY
1140 "Performance", // GL_DEBUG_TYPE_PERFORMANCE
1141 "Other" // GL_DEBUG_TYPE_OTHER
1144 static Standard_CString THE_DBGMSG_SEV_HIGH = "High"; // GL_DEBUG_SEVERITY_HIGH
1145 static Standard_CString THE_DBGMSG_SEV_MEDIUM = "Medium"; // GL_DEBUG_SEVERITY_MEDIUM
1146 static Standard_CString THE_DBGMSG_SEV_LOW = "Low"; // GL_DEBUG_SEVERITY_LOW
1148 //! Callback for GL_ARB_debug_output extension
1149 static void APIENTRY debugCallbackWrap(unsigned int theSource,
1150 unsigned int theType,
1152 unsigned int theSeverity,
1154 const char* theMessage,
1155 const void* theUserParam)
1157 OpenGl_Context* aCtx = (OpenGl_Context* )theUserParam;
1158 aCtx->PushMessage (theSource, theType, theId, theSeverity, theMessage);
1161 // =======================================================================
1162 // function : PushMessage
1164 // =======================================================================
1165 void OpenGl_Context::PushMessage (const unsigned int theSource,
1166 const unsigned int theType,
1167 const unsigned int theId,
1168 const unsigned int theSeverity,
1169 const TCollection_ExtendedString& theMessage)
1171 if (caps->suppressExtraMsg
1172 && theSource >= GL_DEBUG_SOURCE_API
1173 && theSource <= GL_DEBUG_SOURCE_OTHER
1174 && myFilters[theSource - GL_DEBUG_SOURCE_API].Contains (theId))
1179 Standard_CString& aSrc = (theSource >= GL_DEBUG_SOURCE_API
1180 && theSource <= GL_DEBUG_SOURCE_OTHER)
1181 ? THE_DBGMSG_SOURCES[theSource - GL_DEBUG_SOURCE_API]
1182 : THE_DBGMSG_UNKNOWN;
1183 Standard_CString& aType = (theType >= GL_DEBUG_TYPE_ERROR
1184 && theType <= GL_DEBUG_TYPE_OTHER)
1185 ? THE_DBGMSG_TYPES[theType - GL_DEBUG_TYPE_ERROR]
1186 : THE_DBGMSG_UNKNOWN;
1187 Standard_CString& aSev = theSeverity == GL_DEBUG_SEVERITY_HIGH
1188 ? THE_DBGMSG_SEV_HIGH
1189 : (theSeverity == GL_DEBUG_SEVERITY_MEDIUM
1190 ? THE_DBGMSG_SEV_MEDIUM
1191 : THE_DBGMSG_SEV_LOW);
1192 Message_Gravity aGrav = theSeverity == GL_DEBUG_SEVERITY_HIGH
1194 : (theSeverity == GL_DEBUG_SEVERITY_MEDIUM
1198 TCollection_ExtendedString aMsg;
1199 aMsg += "TKOpenGl"; aMsg += aSrc;
1200 aMsg += " | Type: "; aMsg += aType;
1201 aMsg += " | ID: "; aMsg += (Standard_Integer )theId;
1202 aMsg += " | Severity: "; aMsg += aSev;
1203 aMsg += " | Message:\n ";
1205 Messenger()->Send (aMsg, aGrav);
1208 // =======================================================================
1209 // function : ExcludeMessage
1211 // ======================================================================
1212 Standard_Boolean OpenGl_Context::ExcludeMessage (const unsigned int theSource,
1213 const unsigned int theId)
1215 return theSource >= GL_DEBUG_SOURCE_API
1216 && theSource <= GL_DEBUG_SOURCE_OTHER
1217 && myFilters[theSource - GL_DEBUG_SOURCE_API].Add (theId);
1220 // =======================================================================
1221 // function : IncludeMessage
1223 // ======================================================================
1224 Standard_Boolean OpenGl_Context::IncludeMessage (const unsigned int theSource,
1225 const unsigned int theId)
1227 return theSource >= GL_DEBUG_SOURCE_API
1228 && theSource <= GL_DEBUG_SOURCE_OTHER
1229 && myFilters[theSource - GL_DEBUG_SOURCE_API].Remove (theId);
1232 // =======================================================================
1233 // function : checkWrongVersion
1235 // ======================================================================
1236 void OpenGl_Context::checkWrongVersion (Standard_Integer theGlVerMajor, Standard_Integer theGlVerMinor,
1237 const char* theLastFailedProc)
1239 if (!IsGlGreaterEqual (theGlVerMajor, theGlVerMinor))
1244 PushMessage (GL_DEBUG_SOURCE_APPLICATION, GL_DEBUG_TYPE_ERROR, 0, GL_DEBUG_SEVERITY_HIGH,
1245 TCollection_AsciiString()
1246 + "Error! OpenGL context reports version "
1247 + myGlVerMajor + "." + myGlVerMinor
1248 + " but does not export required functions for " + theGlVerMajor + "." + theGlVerMinor
1249 + " (" + (theLastFailedProc != NULL ? theLastFailedProc : "") + ")\n"
1250 + "Please report this issue to OpenGL driver vendor '" + myVendor + "'");
1252 // lower internal version
1253 if (theGlVerMinor > 0)
1255 myGlVerMajor = theGlVerMajor;
1256 myGlVerMinor = theGlVerMinor - 1;
1259 #if defined(GL_ES_VERSION_2_0)
1260 switch (theGlVerMajor)
1262 case 3: myGlVerMajor = 2; myGlVerMinor = 0; return;
1265 switch (theGlVerMajor)
1267 case 2: myGlVerMajor = 1; myGlVerMinor = 5; return;
1268 case 3: myGlVerMajor = 2; myGlVerMinor = 1; return;
1269 case 4: myGlVerMajor = 3; myGlVerMinor = 3; return;
1274 // =======================================================================
1277 // =======================================================================
1278 void OpenGl_Context::init (const Standard_Boolean theIsCoreProfile)
1283 myMaxMsaaSamples = 0;
1284 myMaxDrawBuffers = 1;
1285 myMaxColorAttachments = 1;
1286 ReadGlVersion (myGlVerMajor, myGlVerMinor);
1287 myVendor = (const char* )::glGetString (GL_VENDOR);
1288 myVendor.LowerCase();
1290 if (caps->contextMajorVersionUpper != -1)
1292 // synthetically restrict OpenGL version for testing
1293 Standard_Integer aCtxVer[2] = { myGlVerMajor, myGlVerMinor };
1294 bool isLowered = false;
1295 if (myGlVerMajor > caps->contextMajorVersionUpper)
1298 myGlVerMajor = caps->contextMajorVersionUpper;
1299 #if defined(GL_ES_VERSION_2_0)
1300 switch (myGlVerMajor)
1302 case 2: myGlVerMinor = 0; break;
1305 switch (myGlVerMajor)
1307 case 1: myGlVerMinor = 5; break;
1308 case 2: myGlVerMinor = 1; break;
1309 case 3: myGlVerMinor = 3; break;
1313 if (caps->contextMinorVersionUpper != -1
1314 && myGlVerMinor > caps->contextMinorVersionUpper)
1317 myGlVerMinor = caps->contextMinorVersionUpper;
1321 PushMessage (GL_DEBUG_SOURCE_APPLICATION, GL_DEBUG_TYPE_PORTABILITY, 0, GL_DEBUG_SEVERITY_MEDIUM,
1322 TCollection_AsciiString ("OpenGL version ") + aCtxVer[0] + "." + aCtxVer[1]
1323 + " has been lowered to " + myGlVerMajor + "." + myGlVerMinor);
1327 if (!caps->ffpEnable
1328 && !IsGlGreaterEqual (2, 0))
1330 caps->ffpEnable = true;
1331 TCollection_ExtendedString aMsg =
1332 TCollection_ExtendedString("OpenGL driver is too old! Context info:\n")
1333 + " Vendor: " + (const char* )::glGetString (GL_VENDOR) + "\n"
1334 + " Renderer: " + (const char* )::glGetString (GL_RENDERER) + "\n"
1335 + " Version: " + (const char* )::glGetString (GL_VERSION) + "\n"
1336 + " Fallback using deprecated fixed-function pipeline.\n"
1337 + " Visualization might work incorrectly.\n"
1338 " Consider upgrading the graphics driver.";
1339 PushMessage (GL_DEBUG_SOURCE_APPLICATION, GL_DEBUG_TYPE_PORTABILITY, 0, GL_DEBUG_SEVERITY_HIGH, aMsg);
1342 #if defined(GL_ES_VERSION_2_0)
1343 (void )theIsCoreProfile;
1344 const bool isCoreProfile = false;
1347 if (myVendor.Search ("nvidia") != -1)
1349 // Buffer detailed info: Buffer object 1 (bound to GL_ARRAY_BUFFER_ARB, usage hint is GL_STATIC_DRAW)
1350 // will use VIDEO memory as the source for buffer object operations.
1351 ExcludeMessage (GL_DEBUG_SOURCE_API, 131185);
1353 if (IsGlGreaterEqual (3, 0))
1355 // retrieve auxiliary function in advance
1356 FindProc ("glGetStringi", myFuncs->glGetStringi);
1359 bool isCoreProfile = false;
1360 if (IsGlGreaterEqual (3, 2))
1362 isCoreProfile = (theIsCoreProfile == Standard_True);
1364 // detect Core profile
1368 ::glGetIntegerv (GL_CONTEXT_PROFILE_MASK, &aProfile);
1369 isCoreProfile = (aProfile & GL_CONTEXT_CORE_PROFILE_BIT) != 0;
1377 core11 = (OpenGl_GlCore11* )(&(*myFuncs));
1379 core11fwd = (OpenGl_GlCore11Fwd* )(&(*myFuncs));
1399 arbTboRGB32 = Standard_False;
1407 //! Make record shorter to retrieve function pointer using variable with same name
1408 const char* aLastFailedProc = NULL;
1409 #define FindProcShort(theFunc) FindProcVerbose(aLastFailedProc, #theFunc, myFuncs->theFunc)
1411 #if defined(GL_ES_VERSION_2_0)
1413 hasTexRGBA8 = IsGlGreaterEqual (3, 0)
1414 || CheckExtension ("GL_OES_rgb8_rgba8");
1415 hasTexSRGB = IsGlGreaterEqual (3, 0);
1416 hasFboSRGB = IsGlGreaterEqual (3, 0);
1417 hasSRGBControl = CheckExtension ("GL_EXT_sRGB_write_control");
1418 // NPOT textures has limited support within OpenGL ES 2.0
1419 // which are relaxed by OpenGL ES 3.0 or some extensions
1420 //arbNPTW = IsGlGreaterEqual (3, 0)
1421 // || CheckExtension ("GL_OES_texture_npot")
1422 // || CheckExtension ("GL_NV_texture_npot_2D_mipmap");
1423 arbNPTW = Standard_True;
1424 arbTexRG = IsGlGreaterEqual (3, 0)
1425 || CheckExtension ("GL_EXT_texture_rg");
1426 extBgra = CheckExtension ("GL_EXT_texture_format_BGRA8888");
1427 extAnis = CheckExtension ("GL_EXT_texture_filter_anisotropic");
1428 extPDS = IsGlGreaterEqual (3, 0)
1429 || CheckExtension ("GL_OES_packed_depth_stencil");
1430 #ifdef __EMSCRIPTEN__
1432 && checkEnableWebGlExtension (*this, "GL_WEBGL_depth_texture"))
1434 extPDS = true; // WebGL 1.0 extension (in WebGL 2.0 core)
1438 core11fwd = (OpenGl_GlCore11Fwd* )(&(*myFuncs));
1439 if (IsGlGreaterEqual (2, 0))
1441 // enable compatible functions
1442 core20 = (OpenGl_GlCore20* )(&(*myFuncs));
1443 core20fwd = (OpenGl_GlCore20Fwd* )(&(*myFuncs));
1444 core15fwd = (OpenGl_GlCore15Fwd* )(&(*myFuncs));
1445 arbFBO = (OpenGl_ArbFBO* )(&(*myFuncs));
1447 if (IsGlGreaterEqual (3, 0)
1448 && FindProcShort (glBlitFramebuffer))
1450 arbFBOBlit = (OpenGl_ArbFBOBlit* )(&(*myFuncs));
1452 if (IsGlGreaterEqual (3, 0)
1453 && FindProcShort (glGenSamplers)
1454 && FindProcShort (glDeleteSamplers)
1455 && FindProcShort (glIsSampler)
1456 && FindProcShort (glBindSampler)
1457 && FindProcShort (glSamplerParameteri)
1458 && FindProcShort (glSamplerParameteriv)
1459 && FindProcShort (glSamplerParameterf)
1460 && FindProcShort (glSamplerParameterfv)
1461 && FindProcShort (glGetSamplerParameteriv)
1462 && FindProcShort (glGetSamplerParameterfv))
1463 //&& FindProcShort (glSamplerParameterIiv) // only on Desktop or with extensions GL_OES_texture_border_clamp/GL_EXT_texture_border_clamp
1464 //&& FindProcShort (glSamplerParameterIuiv)
1465 //&& FindProcShort (glGetSamplerParameterIiv)
1466 //&& FindProcShort (glGetSamplerParameterIuiv))
1468 arbSamplerObject = (OpenGl_ArbSamplerObject* )(&(*myFuncs));
1470 extFragDepth = !IsGlGreaterEqual(3, 0)
1471 && CheckExtension ("GL_EXT_frag_depth");
1472 if (IsGlGreaterEqual (3, 1)
1473 && FindProcShort (glTexStorage2DMultisample))
1475 // MSAA RenderBuffers have been defined in OpenGL ES 3.0,
1476 // but MSAA Textures - only in OpenGL ES 3.1+
1477 ::glGetIntegerv (GL_MAX_SAMPLES, &myMaxMsaaSamples);
1480 hasUintIndex = IsGlGreaterEqual (3, 0)
1481 || CheckExtension ("GL_OES_element_index_uint");
1482 hasHighp = CheckExtension ("GL_OES_fragment_precision_high");
1483 GLint aRange[2] = {0, 0};
1485 ::glGetShaderPrecisionFormat (GL_FRAGMENT_SHADER, GL_HIGH_FLOAT, aRange, &aPrec);
1488 hasHighp = Standard_True;
1491 arbTexFloat = IsGlGreaterEqual (3, 0)
1492 && FindProcShort (glTexImage3D);
1493 hasTexFloatLinear = arbTexFloat
1494 && CheckExtension ("GL_OES_texture_float_linear");
1496 const Standard_Boolean hasTexBuffer32 = IsGlGreaterEqual (3, 2) && FindProcShort (glTexBuffer);
1497 const Standard_Boolean hasExtTexBuffer = CheckExtension ("GL_EXT_texture_buffer") && FindProc ("glTexBufferEXT", myFuncs->glTexBuffer);
1499 if (hasTexBuffer32 || hasExtTexBuffer)
1501 arbTBO = reinterpret_cast<OpenGl_ArbTBO*> (myFuncs.get());
1504 // initialize debug context extension
1505 if (CheckExtension ("GL_KHR_debug"))
1507 // this functionality become a part of OpenGL ES 3.2
1509 // According to GL_KHR_debug spec, all functions should have KHR suffix.
1510 // However, some implementations can export these functions without suffix.
1511 if (FindProc ("glDebugMessageControlKHR", myFuncs->glDebugMessageControl)
1512 && FindProc ("glDebugMessageInsertKHR", myFuncs->glDebugMessageInsert)
1513 && FindProc ("glDebugMessageCallbackKHR", myFuncs->glDebugMessageCallback)
1514 && FindProc ("glGetDebugMessageLogKHR", myFuncs->glGetDebugMessageLog))
1516 arbDbg = (OpenGl_ArbDbg* )(&(*myFuncs));
1520 && caps->contextDebug)
1522 // setup default callback
1523 myIsGlDebugCtx = Standard_True;
1524 arbDbg->glDebugMessageCallback (debugCallbackWrap, this);
1525 ::glEnable (GL_DEBUG_OUTPUT);
1526 if (caps->contextSyncDebug)
1528 // note that some broken implementations (e.g. simulators) might generate error message on this call
1529 ::glEnable (GL_DEBUG_OUTPUT_SYNCHRONOUS);
1534 extDrawBuffers = CheckExtension ("GL_EXT_draw_buffers") && FindProc ("glDrawBuffersEXT", myFuncs->glDrawBuffers);
1535 arbDrawBuffers = CheckExtension ("GL_ARB_draw_buffers") && FindProc ("glDrawBuffersARB", myFuncs->glDrawBuffers);
1537 if (IsGlGreaterEqual (3, 0) && FindProcShort (glDrawBuffers))
1539 hasDrawBuffers = OpenGl_FeatureInCore;
1541 else if (extDrawBuffers || arbDrawBuffers)
1543 hasDrawBuffers = OpenGl_FeatureInExtensions;
1546 hasFloatBuffer = IsGlGreaterEqual (3, 2) ? OpenGl_FeatureInCore :
1547 CheckExtension ("GL_EXT_color_buffer_float") ? OpenGl_FeatureInExtensions
1548 : OpenGl_FeatureNotAvailable;
1549 hasHalfFloatBuffer = IsGlGreaterEqual (3, 2) ? OpenGl_FeatureInCore :
1550 CheckExtension ("GL_EXT_color_buffer_half_float") ? OpenGl_FeatureInExtensions
1551 : OpenGl_FeatureNotAvailable;
1553 oesSampleVariables = CheckExtension ("GL_OES_sample_variables");
1554 oesStdDerivatives = CheckExtension ("GL_OES_standard_derivatives");
1555 hasSampleVariables = IsGlGreaterEqual (3, 2) ? OpenGl_FeatureInCore :
1556 oesSampleVariables ? OpenGl_FeatureInExtensions
1557 : OpenGl_FeatureNotAvailable;
1558 hasGlslBitwiseOps = IsGlGreaterEqual (3, 0)
1559 ? OpenGl_FeatureInCore
1560 : OpenGl_FeatureNotAvailable;
1561 // without hasHighp, dFdx/dFdy precision is considered too low for flat shading (visual artifacts)
1562 hasFlatShading = IsGlGreaterEqual (3, 0)
1563 ? OpenGl_FeatureInCore
1564 : (oesStdDerivatives && hasHighp
1565 ? OpenGl_FeatureInExtensions
1566 : OpenGl_FeatureNotAvailable);
1567 if (!IsGlGreaterEqual (3, 1)
1568 && myVendor.Search("qualcomm") != -1)
1570 // dFdx/dFdy are completely broken on tested Adreno devices with versions below OpenGl ES 3.1
1571 hasFlatShading = OpenGl_FeatureNotAvailable;
1574 hasGeometryStage = IsGlGreaterEqual (3, 2)
1575 ? OpenGl_FeatureInCore
1576 : (CheckExtension ("GL_EXT_geometry_shader") && CheckExtension ("GL_EXT_shader_io_blocks")
1577 ? OpenGl_FeatureInExtensions
1578 : OpenGl_FeatureNotAvailable);
1581 myTexClamp = IsGlGreaterEqual (1, 2) ? GL_CLAMP_TO_EDGE : GL_CLAMP;
1583 hasTexRGBA8 = Standard_True;
1584 hasTexSRGB = IsGlGreaterEqual (2, 0);
1585 hasFboSRGB = IsGlGreaterEqual (2, 1);
1586 hasSRGBControl = hasFboSRGB;
1587 arbDrawBuffers = CheckExtension ("GL_ARB_draw_buffers");
1588 arbNPTW = CheckExtension ("GL_ARB_texture_non_power_of_two");
1589 arbTexFloat = IsGlGreaterEqual (3, 0)
1590 || CheckExtension ("GL_ARB_texture_float");
1591 hasTexFloatLinear = arbTexFloat;
1592 arbSampleShading = CheckExtension ("GL_ARB_sample_shading");
1593 extBgra = CheckExtension ("GL_EXT_bgra");
1594 extAnis = CheckExtension ("GL_EXT_texture_filter_anisotropic");
1595 extPDS = CheckExtension ("GL_EXT_packed_depth_stencil");
1596 atiMem = CheckExtension ("GL_ATI_meminfo");
1597 nvxMem = CheckExtension ("GL_NVX_gpu_memory_info");
1599 hasDrawBuffers = IsGlGreaterEqual (2, 0) ? OpenGl_FeatureInCore :
1600 arbDrawBuffers ? OpenGl_FeatureInExtensions
1601 : OpenGl_FeatureNotAvailable;
1603 hasGlslBitwiseOps = IsGlGreaterEqual (3, 0)
1604 ? OpenGl_FeatureInCore
1605 : CheckExtension ("GL_EXT_gpu_shader4")
1606 ? OpenGl_FeatureInExtensions
1607 : OpenGl_FeatureNotAvailable;
1609 hasFloatBuffer = hasHalfFloatBuffer = IsGlGreaterEqual (3, 0) ? OpenGl_FeatureInCore :
1610 CheckExtension ("GL_ARB_color_buffer_float") ? OpenGl_FeatureInExtensions
1611 : OpenGl_FeatureNotAvailable;
1613 hasGeometryStage = IsGlGreaterEqual (3, 2)
1614 ? OpenGl_FeatureInCore
1615 : OpenGl_FeatureNotAvailable;
1617 hasSampleVariables = IsGlGreaterEqual (4, 0) ? OpenGl_FeatureInCore :
1618 arbSampleShading ? OpenGl_FeatureInExtensions
1619 : OpenGl_FeatureNotAvailable;
1621 GLint aStereo = GL_FALSE;
1622 glGetIntegerv (GL_STEREO, &aStereo);
1623 myIsStereoBuffers = aStereo == 1;
1625 // get number of maximum clipping planes
1626 glGetIntegerv (GL_MAX_CLIP_PLANES, &myMaxClipPlanes);
1631 glGetIntegerv (GL_MAX_DRAW_BUFFERS, &myMaxDrawBuffers);
1632 glGetIntegerv (GL_MAX_COLOR_ATTACHMENTS, &myMaxColorAttachments);
1633 if (myDrawBuffers.Length() < myMaxDrawBuffers)
1635 myDrawBuffers.Resize (0, myMaxDrawBuffers - 1, false);
1639 glGetIntegerv (GL_MAX_TEXTURE_SIZE, &myMaxTexDim);
1640 #if !defined(GL_ES_VERSION_2_0)
1641 if (IsGlGreaterEqual (1, 3) && core11 != NULL)
1643 // this is a maximum of texture units for FFP functionality,
1644 // usually smaller than combined texture units available for GLSL
1645 glGetIntegerv (GL_MAX_TEXTURE_UNITS, &myMaxTexUnitsFFP);
1646 myMaxTexCombined = myMaxTexUnitsFFP;
1649 if (IsGlGreaterEqual (2, 0))
1651 glGetIntegerv (GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS, &myMaxTexCombined);
1653 mySpriteTexUnit = myMaxTexCombined >= 2
1654 ? Graphic3d_TextureUnit_1
1655 : Graphic3d_TextureUnit_0;
1657 GLint aMaxVPortSize[2] = {0, 0};
1658 glGetIntegerv (GL_MAX_VIEWPORT_DIMS, aMaxVPortSize);
1659 myMaxDumpSizeX = Min (aMaxVPortSize[0], myMaxTexDim);
1660 myMaxDumpSizeY = Min (aMaxVPortSize[1], myMaxTexDim);
1661 if (myVendor == "intel")
1663 // Intel drivers have known bug with empty dump for images with width>=5462
1664 myMaxDumpSizeX = Min (myMaxDumpSizeX, 4096);
1669 glGetIntegerv (GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT, &myAnisoMax);
1672 myClippingState.Init();
1674 #if !defined(GL_ES_VERSION_2_0)
1693 // retrieve platform-dependent extensions
1694 #if defined(HAVE_EGL)
1696 #elif defined(_WIN32)
1697 if (FindProcShort (wglGetExtensionsStringARB))
1699 const char* aWglExts = myFuncs->wglGetExtensionsStringARB (wglGetCurrentDC());
1700 if (CheckExtension (aWglExts, "WGL_EXT_swap_control"))
1702 FindProcShort (wglSwapIntervalEXT);
1704 if (CheckExtension (aWglExts, "WGL_ARB_pixel_format"))
1706 FindProcShort (wglChoosePixelFormatARB);
1708 if (CheckExtension (aWglExts, "WGL_ARB_create_context_profile"))
1710 FindProcShort (wglCreateContextAttribsARB);
1712 if (CheckExtension (aWglExts, "WGL_NV_DX_interop"))
1714 FindProcShort (wglDXSetResourceShareHandleNV);
1715 FindProcShort (wglDXOpenDeviceNV);
1716 FindProcShort (wglDXCloseDeviceNV);
1717 FindProcShort (wglDXRegisterObjectNV);
1718 FindProcShort (wglDXUnregisterObjectNV);
1719 FindProcShort (wglDXObjectAccessNV);
1720 FindProcShort (wglDXLockObjectsNV);
1721 FindProcShort (wglDXUnlockObjectsNV);
1723 if (CheckExtension (aWglExts, "WGL_AMD_gpu_association"))
1725 FindProcShort (wglGetGPUIDsAMD);
1726 FindProcShort (wglGetGPUInfoAMD);
1727 FindProcShort (wglGetContextGPUIDAMD);
1730 #elif defined(__APPLE__)
1733 const char* aGlxExts = ::glXQueryExtensionsString ((Display* )myDisplay, DefaultScreen ((Display* )myDisplay));
1734 if (CheckExtension (aGlxExts, "GLX_EXT_swap_control"))
1736 FindProcShort (glXSwapIntervalEXT);
1738 if (CheckExtension (aGlxExts, "GLX_SGI_swap_control"))
1740 FindProcShort (glXSwapIntervalSGI);
1742 if (CheckExtension (aGlxExts, "GLX_MESA_query_renderer"))
1744 FindProcShort (glXQueryRendererIntegerMESA);
1745 FindProcShort (glXQueryCurrentRendererIntegerMESA);
1746 FindProcShort (glXQueryRendererStringMESA);
1747 FindProcShort (glXQueryCurrentRendererStringMESA);
1749 //extSwapTear = CheckExtension (aGlxExts, "GLX_EXT_swap_control_tear");
1752 // load OpenGL 1.2 new functions
1753 has12 = IsGlGreaterEqual (1, 2)
1754 && FindProcShort (glBlendColor)
1755 && FindProcShort (glBlendEquation)
1756 && FindProcShort (glDrawRangeElements)
1757 && FindProcShort (glTexImage3D)
1758 && FindProcShort (glTexSubImage3D)
1759 && FindProcShort (glCopyTexSubImage3D);
1762 checkWrongVersion (1, 2, aLastFailedProc);
1765 // load OpenGL 1.3 new functions
1766 has13 = IsGlGreaterEqual (1, 3)
1767 && FindProcShort (glActiveTexture)
1768 && FindProcShort (glSampleCoverage)
1769 && FindProcShort (glCompressedTexImage3D)
1770 && FindProcShort (glCompressedTexImage2D)
1771 && FindProcShort (glCompressedTexImage1D)
1772 && FindProcShort (glCompressedTexSubImage3D)
1773 && FindProcShort (glCompressedTexSubImage2D)
1774 && FindProcShort (glCompressedTexSubImage1D)
1775 && FindProcShort (glGetCompressedTexImage);
1780 && FindProcShort (glClientActiveTexture)
1781 && FindProcShort (glMultiTexCoord1d)
1782 && FindProcShort (glMultiTexCoord1dv)
1783 && FindProcShort (glMultiTexCoord1f)
1784 && FindProcShort (glMultiTexCoord1fv)
1785 && FindProcShort (glMultiTexCoord1i)
1786 && FindProcShort (glMultiTexCoord1iv)
1787 && FindProcShort (glMultiTexCoord1s)
1788 && FindProcShort (glMultiTexCoord1sv)
1789 && FindProcShort (glMultiTexCoord2d)
1790 && FindProcShort (glMultiTexCoord2dv)
1791 && FindProcShort (glMultiTexCoord2f)
1792 && FindProcShort (glMultiTexCoord2fv)
1793 && FindProcShort (glMultiTexCoord2i)
1794 && FindProcShort (glMultiTexCoord2iv)
1795 && FindProcShort (glMultiTexCoord2s)
1796 && FindProcShort (glMultiTexCoord2sv)
1797 && FindProcShort (glMultiTexCoord3d)
1798 && FindProcShort (glMultiTexCoord3dv)
1799 && FindProcShort (glMultiTexCoord3f)
1800 && FindProcShort (glMultiTexCoord3fv)
1801 && FindProcShort (glMultiTexCoord3i)
1802 && FindProcShort (glMultiTexCoord3iv)
1803 && FindProcShort (glMultiTexCoord3s)
1804 && FindProcShort (glMultiTexCoord3sv)
1805 && FindProcShort (glMultiTexCoord4d)
1806 && FindProcShort (glMultiTexCoord4dv)
1807 && FindProcShort (glMultiTexCoord4f)
1808 && FindProcShort (glMultiTexCoord4fv)
1809 && FindProcShort (glMultiTexCoord4i)
1810 && FindProcShort (glMultiTexCoord4iv)
1811 && FindProcShort (glMultiTexCoord4s)
1812 && FindProcShort (glMultiTexCoord4sv)
1813 && FindProcShort (glLoadTransposeMatrixf)
1814 && FindProcShort (glLoadTransposeMatrixd)
1815 && FindProcShort (glMultTransposeMatrixf)
1816 && FindProcShort (glMultTransposeMatrixd);
1820 checkWrongVersion (1, 3, aLastFailedProc);
1823 // load OpenGL 1.4 new functions
1824 has14 = IsGlGreaterEqual (1, 4)
1825 && FindProcShort (glBlendFuncSeparate)
1826 && FindProcShort (glMultiDrawArrays)
1827 && FindProcShort (glMultiDrawElements)
1828 && FindProcShort (glPointParameterf)
1829 && FindProcShort (glPointParameterfv)
1830 && FindProcShort (glPointParameteri)
1831 && FindProcShort (glPointParameteriv);
1834 checkWrongVersion (1, 4, aLastFailedProc);
1837 // load OpenGL 1.5 new functions
1838 has15 = IsGlGreaterEqual (1, 5)
1839 && FindProcShort (glGenQueries)
1840 && FindProcShort (glDeleteQueries)
1841 && FindProcShort (glIsQuery)
1842 && FindProcShort (glBeginQuery)
1843 && FindProcShort (glEndQuery)
1844 && FindProcShort (glGetQueryiv)
1845 && FindProcShort (glGetQueryObjectiv)
1846 && FindProcShort (glGetQueryObjectuiv)
1847 && FindProcShort (glBindBuffer)
1848 && FindProcShort (glDeleteBuffers)
1849 && FindProcShort (glGenBuffers)
1850 && FindProcShort (glIsBuffer)
1851 && FindProcShort (glBufferData)
1852 && FindProcShort (glBufferSubData)
1853 && FindProcShort (glGetBufferSubData)
1854 && FindProcShort (glMapBuffer)
1855 && FindProcShort (glUnmapBuffer)
1856 && FindProcShort (glGetBufferParameteriv)
1857 && FindProcShort (glGetBufferPointerv);
1862 core15 = (OpenGl_GlCore15* )(&(*myFuncs));
1864 core15fwd = (OpenGl_GlCore15Fwd* )(&(*myFuncs));
1868 checkWrongVersion (1, 5, aLastFailedProc);
1871 // load OpenGL 2.0 new functions
1872 has20 = IsGlGreaterEqual (2, 0)
1873 && FindProcShort (glBlendEquationSeparate)
1874 && FindProcShort (glDrawBuffers)
1875 && FindProcShort (glStencilOpSeparate)
1876 && FindProcShort (glStencilFuncSeparate)
1877 && FindProcShort (glStencilMaskSeparate)
1878 && FindProcShort (glAttachShader)
1879 && FindProcShort (glBindAttribLocation)
1880 && FindProcShort (glCompileShader)
1881 && FindProcShort (glCreateProgram)
1882 && FindProcShort (glCreateShader)
1883 && FindProcShort (glDeleteProgram)
1884 && FindProcShort (glDeleteShader)
1885 && FindProcShort (glDetachShader)
1886 && FindProcShort (glDisableVertexAttribArray)
1887 && FindProcShort (glEnableVertexAttribArray)
1888 && FindProcShort (glGetActiveAttrib)
1889 && FindProcShort (glGetActiveUniform)
1890 && FindProcShort (glGetAttachedShaders)
1891 && FindProcShort (glGetAttribLocation)
1892 && FindProcShort (glGetProgramiv)
1893 && FindProcShort (glGetProgramInfoLog)
1894 && FindProcShort (glGetShaderiv)
1895 && FindProcShort (glGetShaderInfoLog)
1896 && FindProcShort (glGetShaderSource)
1897 && FindProcShort (glGetUniformLocation)
1898 && FindProcShort (glGetUniformfv)
1899 && FindProcShort (glGetUniformiv)
1900 && FindProcShort (glGetVertexAttribdv)
1901 && FindProcShort (glGetVertexAttribfv)
1902 && FindProcShort (glGetVertexAttribiv)
1903 && FindProcShort (glGetVertexAttribPointerv)
1904 && FindProcShort (glIsProgram)
1905 && FindProcShort (glIsShader)
1906 && FindProcShort (glLinkProgram)
1907 && FindProcShort (glShaderSource)
1908 && FindProcShort (glUseProgram)
1909 && FindProcShort (glUniform1f)
1910 && FindProcShort (glUniform2f)
1911 && FindProcShort (glUniform3f)
1912 && FindProcShort (glUniform4f)
1913 && FindProcShort (glUniform1i)
1914 && FindProcShort (glUniform2i)
1915 && FindProcShort (glUniform3i)
1916 && FindProcShort (glUniform4i)
1917 && FindProcShort (glUniform1fv)
1918 && FindProcShort (glUniform2fv)
1919 && FindProcShort (glUniform3fv)
1920 && FindProcShort (glUniform4fv)
1921 && FindProcShort (glUniform1iv)
1922 && FindProcShort (glUniform2iv)
1923 && FindProcShort (glUniform3iv)
1924 && FindProcShort (glUniform4iv)
1925 && FindProcShort (glUniformMatrix2fv)
1926 && FindProcShort (glUniformMatrix3fv)
1927 && FindProcShort (glUniformMatrix4fv)
1928 && FindProcShort (glValidateProgram)
1929 && FindProcShort (glVertexAttrib1d)
1930 && FindProcShort (glVertexAttrib1dv)
1931 && FindProcShort (glVertexAttrib1f)
1932 && FindProcShort (glVertexAttrib1fv)
1933 && FindProcShort (glVertexAttrib1s)
1934 && FindProcShort (glVertexAttrib1sv)
1935 && FindProcShort (glVertexAttrib2d)
1936 && FindProcShort (glVertexAttrib2dv)
1937 && FindProcShort (glVertexAttrib2f)
1938 && FindProcShort (glVertexAttrib2fv)
1939 && FindProcShort (glVertexAttrib2s)
1940 && FindProcShort (glVertexAttrib2sv)
1941 && FindProcShort (glVertexAttrib3d)
1942 && FindProcShort (glVertexAttrib3dv)
1943 && FindProcShort (glVertexAttrib3f)
1944 && FindProcShort (glVertexAttrib3fv)
1945 && FindProcShort (glVertexAttrib3s)
1946 && FindProcShort (glVertexAttrib3sv)
1947 && FindProcShort (glVertexAttrib4Nbv)
1948 && FindProcShort (glVertexAttrib4Niv)
1949 && FindProcShort (glVertexAttrib4Nsv)
1950 && FindProcShort (glVertexAttrib4Nub)
1951 && FindProcShort (glVertexAttrib4Nubv)
1952 && FindProcShort (glVertexAttrib4Nuiv)
1953 && FindProcShort (glVertexAttrib4Nusv)
1954 && FindProcShort (glVertexAttrib4bv)
1955 && FindProcShort (glVertexAttrib4d)
1956 && FindProcShort (glVertexAttrib4dv)
1957 && FindProcShort (glVertexAttrib4f)
1958 && FindProcShort (glVertexAttrib4fv)
1959 && FindProcShort (glVertexAttrib4iv)
1960 && FindProcShort (glVertexAttrib4s)
1961 && FindProcShort (glVertexAttrib4sv)
1962 && FindProcShort (glVertexAttrib4ubv)
1963 && FindProcShort (glVertexAttrib4uiv)
1964 && FindProcShort (glVertexAttrib4usv)
1965 && FindProcShort (glVertexAttribPointer);
1968 const char* aGlslVer = (const char* )::glGetString (GL_SHADING_LANGUAGE_VERSION);
1969 if (aGlslVer == NULL
1970 || *aGlslVer == '\0')
1972 // broken context has been detected
1973 PushMessage (GL_DEBUG_SOURCE_APPLICATION, GL_DEBUG_TYPE_ERROR, 0, GL_DEBUG_SEVERITY_HIGH,
1974 TCollection_AsciiString("Error! OpenGL context reports version ")
1975 + myGlVerMajor + "." + myGlVerMinor + " but reports wrong GLSL version");
1983 core20 = (OpenGl_GlCore20* )(&(*myFuncs));
1985 core20fwd = (OpenGl_GlCore20Fwd* )(&(*myFuncs));
1990 checkWrongVersion (2, 0, aLastFailedProc);
1993 // load OpenGL 2.1 new functions
1994 has21 = IsGlGreaterEqual (2, 1)
1995 && FindProcShort (glUniformMatrix2x3fv)
1996 && FindProcShort (glUniformMatrix3x2fv)
1997 && FindProcShort (glUniformMatrix2x4fv)
1998 && FindProcShort (glUniformMatrix4x2fv)
1999 && FindProcShort (glUniformMatrix3x4fv)
2000 && FindProcShort (glUniformMatrix4x3fv);
2003 checkWrongVersion (2, 1, aLastFailedProc);
2006 // load GL_ARB_framebuffer_object (added to OpenGL 3.0 core)
2007 const bool hasFBO = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_framebuffer_object"))
2008 && FindProcShort (glIsRenderbuffer)
2009 && FindProcShort (glBindRenderbuffer)
2010 && FindProcShort (glDeleteRenderbuffers)
2011 && FindProcShort (glGenRenderbuffers)
2012 && FindProcShort (glRenderbufferStorage)
2013 && FindProcShort (glGetRenderbufferParameteriv)
2014 && FindProcShort (glIsFramebuffer)
2015 && FindProcShort (glBindFramebuffer)
2016 && FindProcShort (glDeleteFramebuffers)
2017 && FindProcShort (glGenFramebuffers)
2018 && FindProcShort (glCheckFramebufferStatus)
2019 && FindProcShort (glFramebufferTexture1D)
2020 && FindProcShort (glFramebufferTexture2D)
2021 && FindProcShort (glFramebufferTexture3D)
2022 && FindProcShort (glFramebufferRenderbuffer)
2023 && FindProcShort (glGetFramebufferAttachmentParameteriv)
2024 && FindProcShort (glGenerateMipmap)
2025 && FindProcShort (glBlitFramebuffer)
2026 && FindProcShort (glRenderbufferStorageMultisample)
2027 && FindProcShort (glFramebufferTextureLayer);
2029 // load GL_ARB_vertex_array_object (added to OpenGL 3.0 core)
2030 const bool hasVAO = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_vertex_array_object"))
2031 && FindProcShort (glBindVertexArray)
2032 && FindProcShort (glDeleteVertexArrays)
2033 && FindProcShort (glGenVertexArrays)
2034 && FindProcShort (glIsVertexArray);
2036 // load GL_ARB_map_buffer_range (added to OpenGL 3.0 core)
2037 const bool hasMapBufferRange = (IsGlGreaterEqual (3, 0) || CheckExtension ("GL_ARB_map_buffer_range"))
2038 && FindProcShort (glMapBufferRange)
2039 && FindProcShort (glFlushMappedBufferRange);
2041 // load OpenGL 3.0 new functions
2042 has30 = IsGlGreaterEqual (3, 0)
2045 && hasMapBufferRange
2046 && FindProcShort (glColorMaski)
2047 && FindProcShort (glGetBooleani_v)
2048 && FindProcShort (glGetIntegeri_v)
2049 && FindProcShort (glEnablei)
2050 && FindProcShort (glDisablei)
2051 && FindProcShort (glIsEnabledi)
2052 && FindProcShort (glBeginTransformFeedback)
2053 && FindProcShort (glEndTransformFeedback)
2054 && FindProcShort (glBindBufferRange)
2055 && FindProcShort (glBindBufferBase)
2056 && FindProcShort (glTransformFeedbackVaryings)
2057 && FindProcShort (glGetTransformFeedbackVarying)
2058 && FindProcShort (glClampColor)
2059 && FindProcShort (glBeginConditionalRender)
2060 && FindProcShort (glEndConditionalRender)
2061 && FindProcShort (glVertexAttribIPointer)
2062 && FindProcShort (glGetVertexAttribIiv)
2063 && FindProcShort (glGetVertexAttribIuiv)
2064 && FindProcShort (glVertexAttribI1i)
2065 && FindProcShort (glVertexAttribI2i)
2066 && FindProcShort (glVertexAttribI3i)
2067 && FindProcShort (glVertexAttribI4i)
2068 && FindProcShort (glVertexAttribI1ui)
2069 && FindProcShort (glVertexAttribI2ui)
2070 && FindProcShort (glVertexAttribI3ui)
2071 && FindProcShort (glVertexAttribI4ui)
2072 && FindProcShort (glVertexAttribI1iv)
2073 && FindProcShort (glVertexAttribI2iv)
2074 && FindProcShort (glVertexAttribI3iv)
2075 && FindProcShort (glVertexAttribI4iv)
2076 && FindProcShort (glVertexAttribI1uiv)
2077 && FindProcShort (glVertexAttribI2uiv)
2078 && FindProcShort (glVertexAttribI3uiv)
2079 && FindProcShort (glVertexAttribI4uiv)
2080 && FindProcShort (glVertexAttribI4bv)
2081 && FindProcShort (glVertexAttribI4sv)
2082 && FindProcShort (glVertexAttribI4ubv)
2083 && FindProcShort (glVertexAttribI4usv)
2084 && FindProcShort (glGetUniformuiv)
2085 && FindProcShort (glBindFragDataLocation)
2086 && FindProcShort (glGetFragDataLocation)
2087 && FindProcShort (glUniform1ui)
2088 && FindProcShort (glUniform2ui)
2089 && FindProcShort (glUniform3ui)
2090 && FindProcShort (glUniform4ui)
2091 && FindProcShort (glUniform1uiv)
2092 && FindProcShort (glUniform2uiv)
2093 && FindProcShort (glUniform3uiv)
2094 && FindProcShort (glUniform4uiv)
2095 && FindProcShort (glTexParameterIiv)
2096 && FindProcShort (glTexParameterIuiv)
2097 && FindProcShort (glGetTexParameterIiv)
2098 && FindProcShort (glGetTexParameterIuiv)
2099 && FindProcShort (glClearBufferiv)
2100 && FindProcShort (glClearBufferuiv)
2101 && FindProcShort (glClearBufferfv)
2102 && FindProcShort (glClearBufferfi)
2103 && FindProcShort (glGetStringi);
2106 checkWrongVersion (3, 0, aLastFailedProc);
2109 // load GL_ARB_uniform_buffer_object (added to OpenGL 3.1 core)
2110 const bool hasUBO = (IsGlGreaterEqual (3, 1) || CheckExtension ("GL_ARB_uniform_buffer_object"))
2111 && FindProcShort (glGetUniformIndices)
2112 && FindProcShort (glGetActiveUniformsiv)
2113 && FindProcShort (glGetActiveUniformName)
2114 && FindProcShort (glGetUniformBlockIndex)
2115 && FindProcShort (glGetActiveUniformBlockiv)
2116 && FindProcShort (glGetActiveUniformBlockName)
2117 && FindProcShort (glUniformBlockBinding);
2119 // load GL_ARB_copy_buffer (added to OpenGL 3.1 core)
2120 const bool hasCopyBufSubData = (IsGlGreaterEqual (3, 1) || CheckExtension ("GL_ARB_copy_buffer"))
2121 && FindProcShort (glCopyBufferSubData);
2125 // NPOT textures are required by OpenGL 2.0 specifications
2126 // but doesn't hardware accelerated by some ancient OpenGL 2.1 hardware (GeForce FX, RadeOn 9700 etc.)
2127 arbNPTW = Standard_True;
2128 arbTexRG = Standard_True;
2131 // load OpenGL 3.1 new functions
2132 has31 = IsGlGreaterEqual (3, 1)
2134 && hasCopyBufSubData
2135 && FindProcShort (glDrawArraysInstanced)
2136 && FindProcShort (glDrawElementsInstanced)
2137 && FindProcShort (glTexBuffer)
2138 && FindProcShort (glPrimitiveRestartIndex);
2141 arbTBO = (OpenGl_ArbTBO* )(&(*myFuncs));
2142 arbIns = (OpenGl_ArbIns* )(&(*myFuncs));
2146 checkWrongVersion (3, 1, aLastFailedProc);
2148 // initialize TBO extension (ARB)
2149 if (CheckExtension ("GL_ARB_texture_buffer_object")
2150 && FindProc ("glTexBufferARB", myFuncs->glTexBuffer))
2152 arbTBO = (OpenGl_ArbTBO* )(&(*myFuncs));
2155 // initialize hardware instancing extension (ARB)
2156 if (CheckExtension ("GL_ARB_draw_instanced")
2157 && FindProc ("glDrawArraysInstancedARB", myFuncs->glDrawArraysInstanced)
2158 && FindProc ("glDrawElementsInstancedARB", myFuncs->glDrawElementsInstanced))
2160 arbIns = (OpenGl_ArbIns* )(&(*myFuncs));
2164 arbTboRGB32 = CheckExtension ("GL_ARB_texture_buffer_object_rgb32");
2166 // load GL_ARB_draw_elements_base_vertex (added to OpenGL 3.2 core)
2167 const bool hasDrawElemsBaseVert = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_draw_elements_base_vertex"))
2168 && FindProcShort (glDrawElementsBaseVertex)
2169 && FindProcShort (glDrawRangeElementsBaseVertex)
2170 && FindProcShort (glDrawElementsInstancedBaseVertex)
2171 && FindProcShort (glMultiDrawElementsBaseVertex);
2173 // load GL_ARB_provoking_vertex (added to OpenGL 3.2 core)
2174 const bool hasProvokingVert = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_provoking_vertex"))
2175 && FindProcShort (glProvokingVertex);
2177 // load GL_ARB_sync (added to OpenGL 3.2 core)
2178 const bool hasSync = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_sync"))
2179 && FindProcShort (glFenceSync)
2180 && FindProcShort (glIsSync)
2181 && FindProcShort (glDeleteSync)
2182 && FindProcShort (glClientWaitSync)
2183 && FindProcShort (glWaitSync)
2184 && FindProcShort (glGetInteger64v)
2185 && FindProcShort (glGetSynciv);
2187 // load GL_ARB_texture_multisample (added to OpenGL 3.2 core)
2188 const bool hasTextureMultisample = (IsGlGreaterEqual (3, 2) || CheckExtension ("GL_ARB_texture_multisample"))
2189 && FindProcShort (glTexImage2DMultisample)
2190 && FindProcShort (glTexImage3DMultisample)
2191 && FindProcShort (glGetMultisamplefv)
2192 && FindProcShort (glSampleMaski);
2194 // load OpenGL 3.2 new functions
2195 has32 = IsGlGreaterEqual (3, 2)
2196 && hasDrawElemsBaseVert
2199 && hasTextureMultisample
2200 && FindProcShort (glGetInteger64i_v)
2201 && FindProcShort (glGetBufferParameteri64v)
2202 && FindProcShort (glFramebufferTexture);
2205 core32 = (OpenGl_GlCore32* )(&(*myFuncs));
2208 core32->glGenVertexArrays (1, &myDefaultVao);
2212 core32back = (OpenGl_GlCore32Back* )(&(*myFuncs));
2214 ::glGetIntegerv (GL_MAX_SAMPLES, &myMaxMsaaSamples);
2218 checkWrongVersion (3, 2, aLastFailedProc);
2221 // load GL_ARB_blend_func_extended (added to OpenGL 3.3 core)
2222 const bool hasBlendFuncExtended = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_blend_func_extended"))
2223 && FindProcShort (glBindFragDataLocationIndexed)
2224 && FindProcShort (glGetFragDataIndex);
2226 // load GL_ARB_sampler_objects (added to OpenGL 3.3 core)
2227 const bool hasSamplerObjects = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_sampler_objects"))
2228 && FindProcShort (glGenSamplers)
2229 && FindProcShort (glDeleteSamplers)
2230 && FindProcShort (glIsSampler)
2231 && FindProcShort (glBindSampler)
2232 && FindProcShort (glSamplerParameteri)
2233 && FindProcShort (glSamplerParameteriv)
2234 && FindProcShort (glSamplerParameterf)
2235 && FindProcShort (glSamplerParameterfv)
2236 && FindProcShort (glSamplerParameterIiv)
2237 && FindProcShort (glSamplerParameterIuiv)
2238 && FindProcShort (glGetSamplerParameteriv)
2239 && FindProcShort (glGetSamplerParameterIiv)
2240 && FindProcShort (glGetSamplerParameterfv)
2241 && FindProcShort (glGetSamplerParameterIuiv);
2242 if (hasSamplerObjects)
2244 arbSamplerObject = (OpenGl_ArbSamplerObject* )(&(*myFuncs));
2247 // load GL_ARB_timer_query (added to OpenGL 3.3 core)
2248 const bool hasTimerQuery = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_timer_query"))
2249 && FindProcShort (glQueryCounter)
2250 && FindProcShort (glGetQueryObjecti64v)
2251 && FindProcShort (glGetQueryObjectui64v);
2253 // load GL_ARB_vertex_type_2_10_10_10_rev (added to OpenGL 3.3 core)
2254 const bool hasVertType21010101rev = (IsGlGreaterEqual (3, 3) || CheckExtension ("GL_ARB_vertex_type_2_10_10_10_rev"))
2255 && FindProcShort (glVertexAttribP1ui)
2256 && FindProcShort (glVertexAttribP1uiv)
2257 && FindProcShort (glVertexAttribP2ui)
2258 && FindProcShort (glVertexAttribP2uiv)
2259 && FindProcShort (glVertexAttribP3ui)
2260 && FindProcShort (glVertexAttribP3uiv)
2261 && FindProcShort (glVertexAttribP4ui)
2262 && FindProcShort (glVertexAttribP4uiv);
2264 if ( hasVertType21010101rev
2267 // load deprecated functions
2268 const bool hasVertType21010101revExt =
2269 FindProcShort (glVertexP2ui)
2270 && FindProcShort (glVertexP2uiv)
2271 && FindProcShort (glVertexP3ui)
2272 && FindProcShort (glVertexP3uiv)
2273 && FindProcShort (glVertexP4ui)
2274 && FindProcShort (glVertexP4uiv)
2275 && FindProcShort (glTexCoordP1ui)
2276 && FindProcShort (glTexCoordP1uiv)
2277 && FindProcShort (glTexCoordP2ui)
2278 && FindProcShort (glTexCoordP2uiv)
2279 && FindProcShort (glTexCoordP3ui)
2280 && FindProcShort (glTexCoordP3uiv)
2281 && FindProcShort (glTexCoordP4ui)
2282 && FindProcShort (glTexCoordP4uiv)
2283 && FindProcShort (glMultiTexCoordP1ui)
2284 && FindProcShort (glMultiTexCoordP1uiv)
2285 && FindProcShort (glMultiTexCoordP2ui)
2286 && FindProcShort (glMultiTexCoordP2uiv)
2287 && FindProcShort (glMultiTexCoordP3ui)
2288 && FindProcShort (glMultiTexCoordP3uiv)
2289 && FindProcShort (glMultiTexCoordP4ui)
2290 && FindProcShort (glMultiTexCoordP4uiv)
2291 && FindProcShort (glNormalP3ui)
2292 && FindProcShort (glNormalP3uiv)
2293 && FindProcShort (glColorP3ui)
2294 && FindProcShort (glColorP3uiv)
2295 && FindProcShort (glColorP4ui)
2296 && FindProcShort (glColorP4uiv)
2297 && FindProcShort (glSecondaryColorP3ui)
2298 && FindProcShort (glSecondaryColorP3uiv);
2299 (void )hasVertType21010101revExt;
2302 // load OpenGL 3.3 extra functions
2303 has33 = IsGlGreaterEqual (3, 3)
2304 && hasBlendFuncExtended
2305 && hasSamplerObjects
2307 && hasVertType21010101rev
2308 && FindProcShort (glVertexAttribDivisor);
2311 core33 = (OpenGl_GlCore33* )(&(*myFuncs));
2314 core33back = (OpenGl_GlCore33Back* )(&(*myFuncs));
2319 checkWrongVersion (3, 3, aLastFailedProc);
2322 // load GL_ARB_draw_indirect (added to OpenGL 4.0 core)
2323 const bool hasDrawIndirect = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_draw_indirect"))
2324 && FindProcShort (glDrawArraysIndirect)
2325 && FindProcShort (glDrawElementsIndirect);
2327 // load GL_ARB_gpu_shader_fp64 (added to OpenGL 4.0 core)
2328 const bool hasShaderFP64 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_gpu_shader_fp64"))
2329 && FindProcShort (glUniform1d)
2330 && FindProcShort (glUniform2d)
2331 && FindProcShort (glUniform3d)
2332 && FindProcShort (glUniform4d)
2333 && FindProcShort (glUniform1dv)
2334 && FindProcShort (glUniform2dv)
2335 && FindProcShort (glUniform3dv)
2336 && FindProcShort (glUniform4dv)
2337 && FindProcShort (glUniformMatrix2dv)
2338 && FindProcShort (glUniformMatrix3dv)
2339 && FindProcShort (glUniformMatrix4dv)
2340 && FindProcShort (glUniformMatrix2x3dv)
2341 && FindProcShort (glUniformMatrix2x4dv)
2342 && FindProcShort (glUniformMatrix3x2dv)
2343 && FindProcShort (glUniformMatrix3x4dv)
2344 && FindProcShort (glUniformMatrix4x2dv)
2345 && FindProcShort (glUniformMatrix4x3dv)
2346 && FindProcShort (glGetUniformdv);
2348 // load GL_ARB_shader_subroutine (added to OpenGL 4.0 core)
2349 const bool hasShaderSubroutine = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_shader_subroutine"))
2350 && FindProcShort (glGetSubroutineUniformLocation)
2351 && FindProcShort (glGetSubroutineIndex)
2352 && FindProcShort (glGetActiveSubroutineUniformiv)
2353 && FindProcShort (glGetActiveSubroutineUniformName)
2354 && FindProcShort (glGetActiveSubroutineName)
2355 && FindProcShort (glUniformSubroutinesuiv)
2356 && FindProcShort (glGetUniformSubroutineuiv)
2357 && FindProcShort (glGetProgramStageiv);
2359 // load GL_ARB_tessellation_shader (added to OpenGL 4.0 core)
2360 const bool hasTessellationShader = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_tessellation_shader"))
2361 && FindProcShort (glPatchParameteri)
2362 && FindProcShort (glPatchParameterfv);
2364 // load GL_ARB_transform_feedback2 (added to OpenGL 4.0 core)
2365 const bool hasTrsfFeedback2 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_transform_feedback2"))
2366 && FindProcShort (glBindTransformFeedback)
2367 && FindProcShort (glDeleteTransformFeedbacks)
2368 && FindProcShort (glGenTransformFeedbacks)
2369 && FindProcShort (glIsTransformFeedback)
2370 && FindProcShort (glPauseTransformFeedback)
2371 && FindProcShort (glResumeTransformFeedback)
2372 && FindProcShort (glDrawTransformFeedback);
2374 // load GL_ARB_transform_feedback3 (added to OpenGL 4.0 core)
2375 const bool hasTrsfFeedback3 = (IsGlGreaterEqual (4, 0) || CheckExtension ("GL_ARB_transform_feedback3"))
2376 && FindProcShort (glDrawTransformFeedbackStream)
2377 && FindProcShort (glBeginQueryIndexed)
2378 && FindProcShort (glEndQueryIndexed)
2379 && FindProcShort (glGetQueryIndexediv);
2381 // load OpenGL 4.0 new functions
2382 has40 = IsGlGreaterEqual (4, 0)
2385 && hasShaderSubroutine
2386 && hasTessellationShader
2389 && FindProcShort (glMinSampleShading)
2390 && FindProcShort (glBlendEquationi)
2391 && FindProcShort (glBlendEquationSeparatei)
2392 && FindProcShort (glBlendFunci)
2393 && FindProcShort (glBlendFuncSeparatei);
2396 arbTboRGB32 = Standard_True; // in core since OpenGL 4.0
2400 checkWrongVersion (4, 0, aLastFailedProc);
2403 // load GL_ARB_ES2_compatibility (added to OpenGL 4.1 core)
2404 const bool hasES2Compatibility = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_ES2_compatibility"))
2405 && FindProcShort (glReleaseShaderCompiler)
2406 && FindProcShort (glShaderBinary)
2407 && FindProcShort (glGetShaderPrecisionFormat)
2408 && FindProcShort (glDepthRangef)
2409 && FindProcShort (glClearDepthf);
2411 // load GL_ARB_get_program_binary (added to OpenGL 4.1 core)
2412 const bool hasGetProgramBinary = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_get_program_binary"))
2413 && FindProcShort (glGetProgramBinary)
2414 && FindProcShort (glProgramBinary)
2415 && FindProcShort (glProgramParameteri);
2418 // load GL_ARB_separate_shader_objects (added to OpenGL 4.1 core)
2419 const bool hasSeparateShaderObjects = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_separate_shader_objects"))
2420 && FindProcShort (glUseProgramStages)
2421 && FindProcShort (glActiveShaderProgram)
2422 && FindProcShort (glCreateShaderProgramv)
2423 && FindProcShort (glBindProgramPipeline)
2424 && FindProcShort (glDeleteProgramPipelines)
2425 && FindProcShort (glGenProgramPipelines)
2426 && FindProcShort (glIsProgramPipeline)
2427 && FindProcShort (glGetProgramPipelineiv)
2428 && FindProcShort (glProgramUniform1i)
2429 && FindProcShort (glProgramUniform1iv)
2430 && FindProcShort (glProgramUniform1f)
2431 && FindProcShort (glProgramUniform1fv)
2432 && FindProcShort (glProgramUniform1d)
2433 && FindProcShort (glProgramUniform1dv)
2434 && FindProcShort (glProgramUniform1ui)
2435 && FindProcShort (glProgramUniform1uiv)
2436 && FindProcShort (glProgramUniform2i)
2437 && FindProcShort (glProgramUniform2iv)
2438 && FindProcShort (glProgramUniform2f)
2439 && FindProcShort (glProgramUniform2fv)
2440 && FindProcShort (glProgramUniform2d)
2441 && FindProcShort (glProgramUniform2dv)
2442 && FindProcShort (glProgramUniform2ui)
2443 && FindProcShort (glProgramUniform2uiv)
2444 && FindProcShort (glProgramUniform3i)
2445 && FindProcShort (glProgramUniform3iv)
2446 && FindProcShort (glProgramUniform3f)
2447 && FindProcShort (glProgramUniform3fv)
2448 && FindProcShort (glProgramUniform3d)
2449 && FindProcShort (glProgramUniform3dv)
2450 && FindProcShort (glProgramUniform3ui)
2451 && FindProcShort (glProgramUniform3uiv)
2452 && FindProcShort (glProgramUniform4i)
2453 && FindProcShort (glProgramUniform4iv)
2454 && FindProcShort (glProgramUniform4f)
2455 && FindProcShort (glProgramUniform4fv)
2456 && FindProcShort (glProgramUniform4d)
2457 && FindProcShort (glProgramUniform4dv)
2458 && FindProcShort (glProgramUniform4ui)
2459 && FindProcShort (glProgramUniform4uiv)
2460 && FindProcShort (glProgramUniformMatrix2fv)
2461 && FindProcShort (glProgramUniformMatrix3fv)
2462 && FindProcShort (glProgramUniformMatrix4fv)
2463 && FindProcShort (glProgramUniformMatrix2dv)
2464 && FindProcShort (glProgramUniformMatrix3dv)
2465 && FindProcShort (glProgramUniformMatrix4dv)
2466 && FindProcShort (glProgramUniformMatrix2x3fv)
2467 && FindProcShort (glProgramUniformMatrix3x2fv)
2468 && FindProcShort (glProgramUniformMatrix2x4fv)
2469 && FindProcShort (glProgramUniformMatrix4x2fv)
2470 && FindProcShort (glProgramUniformMatrix3x4fv)
2471 && FindProcShort (glProgramUniformMatrix4x3fv)
2472 && FindProcShort (glProgramUniformMatrix2x3dv)
2473 && FindProcShort (glProgramUniformMatrix3x2dv)
2474 && FindProcShort (glProgramUniformMatrix2x4dv)
2475 && FindProcShort (glProgramUniformMatrix4x2dv)
2476 && FindProcShort (glProgramUniformMatrix3x4dv)
2477 && FindProcShort (glProgramUniformMatrix4x3dv)
2478 && FindProcShort (glValidateProgramPipeline)
2479 && FindProcShort (glGetProgramPipelineInfoLog);
2481 // load GL_ARB_vertex_attrib_64bit (added to OpenGL 4.1 core)
2482 const bool hasVertAttrib64bit = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_vertex_attrib_64bit"))
2483 && FindProcShort (glVertexAttribL1d)
2484 && FindProcShort (glVertexAttribL2d)
2485 && FindProcShort (glVertexAttribL3d)
2486 && FindProcShort (glVertexAttribL4d)
2487 && FindProcShort (glVertexAttribL1dv)
2488 && FindProcShort (glVertexAttribL2dv)
2489 && FindProcShort (glVertexAttribL3dv)
2490 && FindProcShort (glVertexAttribL4dv)
2491 && FindProcShort (glVertexAttribLPointer)
2492 && FindProcShort (glGetVertexAttribLdv);
2494 // load GL_ARB_viewport_array (added to OpenGL 4.1 core)
2495 const bool hasViewportArray = (IsGlGreaterEqual (4, 1) || CheckExtension ("GL_ARB_viewport_array"))
2496 && FindProcShort (glViewportArrayv)
2497 && FindProcShort (glViewportIndexedf)
2498 && FindProcShort (glViewportIndexedfv)
2499 && FindProcShort (glScissorArrayv)
2500 && FindProcShort (glScissorIndexed)
2501 && FindProcShort (glScissorIndexedv)
2502 && FindProcShort (glDepthRangeArrayv)
2503 && FindProcShort (glDepthRangeIndexed)
2504 && FindProcShort (glGetFloati_v)
2505 && FindProcShort (glGetDoublei_v);
2507 has41 = IsGlGreaterEqual (4, 1)
2508 && hasES2Compatibility
2509 && hasGetProgramBinary
2510 && hasSeparateShaderObjects
2511 && hasVertAttrib64bit
2512 && hasViewportArray;
2515 core41 = (OpenGl_GlCore41* )(&(*myFuncs));
2518 core41back = (OpenGl_GlCore41Back* )(&(*myFuncs));
2523 checkWrongVersion (4, 1, aLastFailedProc);
2526 // load GL_ARB_base_instance (added to OpenGL 4.2 core)
2527 const bool hasBaseInstance = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_base_instance"))
2528 && FindProcShort (glDrawArraysInstancedBaseInstance)
2529 && FindProcShort (glDrawElementsInstancedBaseInstance)
2530 && FindProcShort (glDrawElementsInstancedBaseVertexBaseInstance);
2532 // load GL_ARB_transform_feedback_instanced (added to OpenGL 4.2 core)
2533 const bool hasTrsfFeedbackInstanced = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_transform_feedback_instanced"))
2534 && FindProcShort (glDrawTransformFeedbackInstanced)
2535 && FindProcShort (glDrawTransformFeedbackStreamInstanced);
2537 // load GL_ARB_internalformat_query (added to OpenGL 4.2 core)
2538 const bool hasInternalFormatQuery = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_internalformat_query"))
2539 && FindProcShort (glGetInternalformativ);
2541 // load GL_ARB_shader_atomic_counters (added to OpenGL 4.2 core)
2542 const bool hasShaderAtomicCounters = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_shader_atomic_counters"))
2543 && FindProcShort (glGetActiveAtomicCounterBufferiv);
2545 // load GL_ARB_shader_image_load_store (added to OpenGL 4.2 core)
2546 const bool hasShaderImgLoadStore = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_shader_image_load_store"))
2547 && FindProcShort (glBindImageTexture)
2548 && FindProcShort (glMemoryBarrier);
2550 // load GL_ARB_texture_storage (added to OpenGL 4.2 core)
2551 const bool hasTextureStorage = (IsGlGreaterEqual (4, 2) || CheckExtension ("GL_ARB_texture_storage"))
2552 && FindProcShort (glTexStorage1D)
2553 && FindProcShort (glTexStorage2D)
2554 && FindProcShort (glTexStorage3D);
2556 has42 = IsGlGreaterEqual (4, 2)
2558 && hasTrsfFeedbackInstanced
2559 && hasInternalFormatQuery
2560 && hasShaderAtomicCounters
2561 && hasShaderImgLoadStore
2562 && hasTextureStorage;
2565 core42 = (OpenGl_GlCore42* )(&(*myFuncs));
2568 core42back = (OpenGl_GlCore42Back* )(&(*myFuncs));
2573 checkWrongVersion (4, 2, aLastFailedProc);
2576 has43 = IsGlGreaterEqual (4, 3)
2577 && FindProcShort (glClearBufferData)
2578 && FindProcShort (glClearBufferSubData)
2579 && FindProcShort (glDispatchCompute)
2580 && FindProcShort (glDispatchComputeIndirect)
2581 && FindProcShort (glCopyImageSubData)
2582 && FindProcShort (glFramebufferParameteri)
2583 && FindProcShort (glGetFramebufferParameteriv)
2584 && FindProcShort (glGetInternalformati64v)
2585 && FindProcShort (glInvalidateTexSubImage)
2586 && FindProcShort (glInvalidateTexImage)
2587 && FindProcShort (glInvalidateBufferSubData)
2588 && FindProcShort (glInvalidateBufferData)
2589 && FindProcShort (glInvalidateFramebuffer)
2590 && FindProcShort (glInvalidateSubFramebuffer)
2591 && FindProcShort (glMultiDrawArraysIndirect)
2592 && FindProcShort (glMultiDrawElementsIndirect)
2593 && FindProcShort (glGetProgramInterfaceiv)
2594 && FindProcShort (glGetProgramResourceIndex)
2595 && FindProcShort (glGetProgramResourceName)
2596 && FindProcShort (glGetProgramResourceiv)
2597 && FindProcShort (glGetProgramResourceLocation)
2598 && FindProcShort (glGetProgramResourceLocationIndex)
2599 && FindProcShort (glShaderStorageBlockBinding)
2600 && FindProcShort (glTexBufferRange)
2601 && FindProcShort (glTexStorage2DMultisample)
2602 && FindProcShort (glTexStorage3DMultisample)
2603 && FindProcShort (glTextureView)
2604 && FindProcShort (glBindVertexBuffer)
2605 && FindProcShort (glVertexAttribFormat)
2606 && FindProcShort (glVertexAttribIFormat)
2607 && FindProcShort (glVertexAttribLFormat)
2608 && FindProcShort (glVertexAttribBinding)
2609 && FindProcShort (glVertexBindingDivisor)
2610 && FindProcShort (glDebugMessageControl)
2611 && FindProcShort (glDebugMessageInsert)
2612 && FindProcShort (glDebugMessageCallback)
2613 && FindProcShort (glGetDebugMessageLog)
2614 && FindProcShort (glPushDebugGroup)
2615 && FindProcShort (glPopDebugGroup)
2616 && FindProcShort (glObjectLabel)
2617 && FindProcShort (glGetObjectLabel)
2618 && FindProcShort (glObjectPtrLabel)
2619 && FindProcShort (glGetObjectPtrLabel);
2622 core43 = (OpenGl_GlCore43* )(&(*myFuncs));
2625 core43back = (OpenGl_GlCore43Back* )(&(*myFuncs));
2630 checkWrongVersion (4, 3, aLastFailedProc);
2633 // load GL_ARB_clear_texture (added to OpenGL 4.4 core)
2634 bool arbTexClear = (IsGlGreaterEqual (4, 4) || CheckExtension ("GL_ARB_clear_texture"))
2635 && FindProcShort (glClearTexImage)
2636 && FindProcShort (glClearTexSubImage);
2638 has44 = IsGlGreaterEqual (4, 4)
2640 && FindProcShort (glBufferStorage)
2641 && FindProcShort (glBindBuffersBase)
2642 && FindProcShort (glBindBuffersRange)
2643 && FindProcShort (glBindTextures)
2644 && FindProcShort (glBindSamplers)
2645 && FindProcShort (glBindImageTextures)
2646 && FindProcShort (glBindVertexBuffers);
2649 core44 = (OpenGl_GlCore44* )(&(*myFuncs));
2652 core44back = (OpenGl_GlCore44Back* )(&(*myFuncs));
2657 checkWrongVersion (4, 4, aLastFailedProc);
2660 has45 = IsGlGreaterEqual (4, 5)
2661 && FindProcShort (glBindVertexBuffers)
2662 && FindProcShort (glClipControl)
2663 && FindProcShort (glCreateTransformFeedbacks)
2664 && FindProcShort (glTransformFeedbackBufferBase)
2665 && FindProcShort (glTransformFeedbackBufferRange)
2666 && FindProcShort (glGetTransformFeedbackiv)
2667 && FindProcShort (glGetTransformFeedbacki_v)
2668 && FindProcShort (glGetTransformFeedbacki64_v)
2669 && FindProcShort (glCreateBuffers)
2670 && FindProcShort (glNamedBufferStorage)
2671 && FindProcShort (glNamedBufferData)
2672 && FindProcShort (glNamedBufferSubData)
2673 && FindProcShort (glCopyNamedBufferSubData)
2674 && FindProcShort (glClearNamedBufferData)
2675 && FindProcShort (glClearNamedBufferSubData)
2676 && FindProcShort (glMapNamedBuffer)
2677 && FindProcShort (glMapNamedBufferRange)
2678 && FindProcShort (glUnmapNamedBuffer)
2679 && FindProcShort (glFlushMappedNamedBufferRange)
2680 && FindProcShort (glGetNamedBufferParameteriv)
2681 && FindProcShort (glGetNamedBufferParameteri64v)
2682 && FindProcShort (glGetNamedBufferPointerv)
2683 && FindProcShort (glGetNamedBufferSubData)
2684 && FindProcShort (glCreateFramebuffers)
2685 && FindProcShort (glNamedFramebufferRenderbuffer)
2686 && FindProcShort (glNamedFramebufferParameteri)
2687 && FindProcShort (glNamedFramebufferTexture)
2688 && FindProcShort (glNamedFramebufferTextureLayer)
2689 && FindProcShort (glNamedFramebufferDrawBuffer)
2690 && FindProcShort (glNamedFramebufferDrawBuffers)
2691 && FindProcShort (glNamedFramebufferReadBuffer)
2692 && FindProcShort (glInvalidateNamedFramebufferData)
2693 && FindProcShort (glInvalidateNamedFramebufferSubData)
2694 && FindProcShort (glClearNamedFramebufferiv)
2695 && FindProcShort (glClearNamedFramebufferuiv)
2696 && FindProcShort (glClearNamedFramebufferfv)
2697 && FindProcShort (glClearNamedFramebufferfi)
2698 && FindProcShort (glBlitNamedFramebuffer)
2699 && FindProcShort (glCheckNamedFramebufferStatus)
2700 && FindProcShort (glGetNamedFramebufferParameteriv)
2701 && FindProcShort (glGetNamedFramebufferAttachmentParameteriv)
2702 && FindProcShort (glCreateRenderbuffers)
2703 && FindProcShort (glNamedRenderbufferStorage)
2704 && FindProcShort (glNamedRenderbufferStorageMultisample)
2705 && FindProcShort (glGetNamedRenderbufferParameteriv)
2706 && FindProcShort (glCreateTextures)
2707 && FindProcShort (glTextureBuffer)
2708 && FindProcShort (glTextureBufferRange)
2709 && FindProcShort (glTextureStorage1D)
2710 && FindProcShort (glTextureStorage2D)
2711 && FindProcShort (glTextureStorage3D)
2712 && FindProcShort (glTextureStorage2DMultisample)
2713 && FindProcShort (glTextureStorage3DMultisample)
2714 && FindProcShort (glTextureSubImage1D)
2715 && FindProcShort (glTextureSubImage2D)
2716 && FindProcShort (glTextureSubImage3D)
2717 && FindProcShort (glCompressedTextureSubImage1D)
2718 && FindProcShort (glCompressedTextureSubImage2D)
2719 && FindProcShort (glCompressedTextureSubImage3D)
2720 && FindProcShort (glCopyTextureSubImage1D)
2721 && FindProcShort (glCopyTextureSubImage2D)
2722 && FindProcShort (glCopyTextureSubImage3D)
2723 && FindProcShort (glTextureParameterf)
2724 && FindProcShort (glTextureParameterfv)
2725 && FindProcShort (glTextureParameteri)
2726 && FindProcShort (glTextureParameterIiv)
2727 && FindProcShort (glTextureParameterIuiv)
2728 && FindProcShort (glTextureParameteriv)
2729 && FindProcShort (glGenerateTextureMipmap)
2730 && FindProcShort (glBindTextureUnit)
2731 && FindProcShort (glGetTextureImage)
2732 && FindProcShort (glGetCompressedTextureImage)
2733 && FindProcShort (glGetTextureLevelParameterfv)
2734 && FindProcShort (glGetTextureLevelParameteriv)
2735 && FindProcShort (glGetTextureParameterfv)
2736 && FindProcShort (glGetTextureParameterIiv)
2737 && FindProcShort (glGetTextureParameterIuiv)
2738 && FindProcShort (glGetTextureParameteriv)
2739 && FindProcShort (glCreateVertexArrays)
2740 && FindProcShort (glDisableVertexArrayAttrib)
2741 && FindProcShort (glEnableVertexArrayAttrib)
2742 && FindProcShort (glVertexArrayElementBuffer)
2743 && FindProcShort (glVertexArrayVertexBuffer)
2744 && FindProcShort (glVertexArrayVertexBuffers)
2745 && FindProcShort (glVertexArrayAttribBinding)
2746 && FindProcShort (glVertexArrayAttribFormat)
2747 && FindProcShort (glVertexArrayAttribIFormat)
2748 && FindProcShort (glVertexArrayAttribLFormat)
2749 && FindProcShort (glVertexArrayBindingDivisor)
2750 && FindProcShort (glGetVertexArrayiv)
2751 && FindProcShort (glGetVertexArrayIndexediv)
2752 && FindProcShort (glGetVertexArrayIndexed64iv)
2753 && FindProcShort (glCreateSamplers)
2754 && FindProcShort (glCreateProgramPipelines)
2755 && FindProcShort (glCreateQueries)
2756 && FindProcShort (glGetQueryBufferObjecti64v)
2757 && FindProcShort (glGetQueryBufferObjectiv)
2758 && FindProcShort (glGetQueryBufferObjectui64v)
2759 && FindProcShort (glGetQueryBufferObjectuiv)
2760 && FindProcShort (glMemoryBarrierByRegion)
2761 && FindProcShort (glGetTextureSubImage)
2762 && FindProcShort (glGetCompressedTextureSubImage)
2763 && FindProcShort (glGetGraphicsResetStatus)
2764 && FindProcShort (glGetnCompressedTexImage)
2765 && FindProcShort (glGetnTexImage)
2766 && FindProcShort (glGetnUniformdv)
2767 && FindProcShort (glGetnUniformfv)
2768 && FindProcShort (glGetnUniformiv)
2769 && FindProcShort (glGetnUniformuiv)
2770 && FindProcShort (glReadnPixels)
2771 && FindProcShort (glGetnMapdv)
2772 && FindProcShort (glGetnMapfv)
2773 && FindProcShort (glGetnMapiv)
2774 && FindProcShort (glGetnPixelMapfv)
2775 && FindProcShort (glGetnPixelMapuiv)
2776 && FindProcShort (glGetnPixelMapusv)
2777 && FindProcShort (glGetnPolygonStipple)
2778 && FindProcShort (glGetnColorTable)
2779 && FindProcShort (glGetnConvolutionFilter)
2780 && FindProcShort (glGetnSeparableFilter)
2781 && FindProcShort (glGetnHistogram)
2782 && FindProcShort (glGetnMinmax)
2783 && FindProcShort (glTextureBarrier);
2786 core45 = (OpenGl_GlCore45* )(&(*myFuncs));
2789 core45back = (OpenGl_GlCore45Back* )(&(*myFuncs));
2794 checkWrongVersion (4, 5, aLastFailedProc);
2797 // initialize debug context extension
2798 if (CheckExtension ("GL_ARB_debug_output"))
2803 arbDbg = (OpenGl_ArbDbg* )(&(*myFuncs));
2805 else if (FindProc ("glDebugMessageControlARB", myFuncs->glDebugMessageControl)
2806 && FindProc ("glDebugMessageInsertARB", myFuncs->glDebugMessageInsert)
2807 && FindProc ("glDebugMessageCallbackARB", myFuncs->glDebugMessageCallback)
2808 && FindProc ("glGetDebugMessageLogARB", myFuncs->glGetDebugMessageLog))
2810 arbDbg = (OpenGl_ArbDbg* )(&(*myFuncs));
2814 && caps->contextDebug)
2816 // setup default callback
2817 myIsGlDebugCtx = Standard_True;
2818 arbDbg->glDebugMessageCallback (debugCallbackWrap, this);
2821 ::glEnable (GL_DEBUG_OUTPUT);
2823 if (caps->contextSyncDebug)
2825 ::glEnable (GL_DEBUG_OUTPUT_SYNCHRONOUS);
2830 // initialize FBO extension (ARB)
2833 arbFBO = (OpenGl_ArbFBO* )(&(*myFuncs));
2834 arbFBOBlit = (OpenGl_ArbFBOBlit* )(&(*myFuncs));
2835 extPDS = Standard_True; // extension for EXT, but part of ARB
2838 // initialize GS extension (EXT)
2839 if (CheckExtension ("GL_EXT_geometry_shader4")
2840 && FindProcShort (glProgramParameteriEXT))
2842 extGS = (OpenGl_ExtGS* )(&(*myFuncs));
2845 // initialize bindless texture extension (ARB)
2846 if (CheckExtension ("GL_ARB_bindless_texture")
2847 && FindProcShort (glGetTextureHandleARB)
2848 && FindProcShort (glGetTextureSamplerHandleARB)
2849 && FindProcShort (glMakeTextureHandleResidentARB)
2850 && FindProcShort (glMakeTextureHandleNonResidentARB)
2851 && FindProcShort (glGetImageHandleARB)
2852 && FindProcShort (glMakeImageHandleResidentARB)
2853 && FindProcShort (glMakeImageHandleNonResidentARB)
2854 && FindProcShort (glUniformHandleui64ARB)
2855 && FindProcShort (glUniformHandleui64vARB)
2856 && FindProcShort (glProgramUniformHandleui64ARB)
2857 && FindProcShort (glProgramUniformHandleui64vARB)
2858 && FindProcShort (glIsTextureHandleResidentARB)
2859 && FindProcShort (glIsImageHandleResidentARB)
2860 && FindProcShort (glVertexAttribL1ui64ARB)
2861 && FindProcShort (glVertexAttribL1ui64vARB)
2862 && FindProcShort (glGetVertexAttribLui64vARB))
2864 arbTexBindless = (OpenGl_ArbTexBindless* )(&(*myFuncs));
2869 // MSAA RenderBuffers have been defined in OpenGL 3.0,
2870 // but MSAA Textures - only in OpenGL 3.2+
2872 && CheckExtension ("GL_ARB_texture_multisample")
2873 && FindProcShort (glTexImage2DMultisample))
2875 GLint aNbColorSamples = 0, aNbDepthSamples = 0;
2876 ::glGetIntegerv (GL_MAX_COLOR_TEXTURE_SAMPLES, &aNbColorSamples);
2877 ::glGetIntegerv (GL_MAX_DEPTH_TEXTURE_SAMPLES, &aNbDepthSamples);
2878 myMaxMsaaSamples = Min (aNbColorSamples, aNbDepthSamples);
2881 && CheckExtension ("GL_ARB_texture_storage_multisample")
2882 && FindProcShort (glTexStorage2DMultisample))
2888 // check whether ray tracing mode is supported
2889 myHasRayTracing = has31
2891 && arbFBOBlit != NULL;
2893 // check whether textures in ray tracing mode are supported
2894 myHasRayTracingTextures = myHasRayTracing
2895 && arbTexBindless != NULL;
2897 // check whether adaptive screen sampling in ray tracing mode is supported
2898 myHasRayTracingAdaptiveSampling = myHasRayTracing
2900 myHasRayTracingAdaptiveSamplingAtomic = myHasRayTracingAdaptiveSampling
2901 && CheckExtension ("GL_NV_shader_atomic_float");
2907 // Detect if window buffer is considered by OpenGL as sRGB-ready
2908 // (linear RGB color written by shader is automatically converted into sRGB)
2909 // or not (offscreen FBO should be blit into window buffer with gamma correction).
2910 const GLenum aDefWinBuffer =
2911 #if !defined(GL_ES_VERSION_2_0)
2916 GLint aWinColorEncoding = 0; // GL_LINEAR
2917 arbFBO->glGetFramebufferAttachmentParameteriv (GL_FRAMEBUFFER, aDefWinBuffer, GL_FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING, &aWinColorEncoding);
2919 myIsSRgbWindow = aWinColorEncoding == GL_SRGB;
2921 // On desktop OpenGL, pixel formats are almost always sRGB-ready, even when not requested;
2922 // it is safe behavior on desktop where GL_FRAMEBUFFER_SRGB is disabled by default
2923 // (contrary to OpenGL ES, where it is enabled by default).
2924 // NVIDIA drivers, however, always return GL_LINEAR even for sRGB-ready pixel formats on Windows platform,
2925 // while AMD and Intel report GL_SRGB as expected.
2926 // macOS drivers seems to be also report GL_LINEAR even for [NSColorSpace sRGBColorSpace].
2927 #if !defined(GL_ES_VERSION_2_0)
2929 myIsSRgbWindow = true;
2932 && myVendor.Search ("nvidia") != -1)
2934 myIsSRgbWindow = true;
2938 if (!myIsSRgbWindow)
2940 Message::DefaultMessenger()->Send ("OpenGl_Context, warning: window buffer is not sRGB-ready.\n"
2941 "Check OpenGL window creation parameters for optimal performance.", Message_Trace);
2945 // check whether PBR shading model is supported
2946 myHasPBR = arbFBO != NULL
2947 && myMaxTexCombined >= 4
2950 && (IsGlGreaterEqual (3, 0)
2951 #if !defined(GL_ES_VERSION_2_0)
2952 || (IsGlGreaterEqual (2, 1) && CheckExtension ("GL_EXT_gpu_shader4"))
2957 myPBREnvLUTTexUnit = static_cast<Graphic3d_TextureUnit>(myMaxTexCombined - 3);
2958 myPBRDiffIBLMapSHTexUnit = static_cast<Graphic3d_TextureUnit>(myMaxTexCombined - 2);
2959 myPBRSpecIBLMapTexUnit = static_cast<Graphic3d_TextureUnit>(myMaxTexCombined - 1);
2963 // =======================================================================
2964 // function : MemoryInfo
2966 // =======================================================================
2967 Standard_Size OpenGl_Context::AvailableMemory() const
2969 #if !defined(GL_ES_VERSION_2_0)
2972 // this is actually information for VBO pool
2973 // however because pools are mostly shared
2974 // it can be used for total GPU memory estimations
2977 glGetIntegerv (GL_VBO_FREE_MEMORY_ATI, aMemInfo);
2978 // returned value is in KiB, however this maybe changed in future
2979 return Standard_Size(aMemInfo[0]) * 1024;
2983 // current available dedicated video memory (in KiB), currently unused GPU memory
2985 glGetIntegerv (GL_GPU_MEMORY_INFO_CURRENT_AVAILABLE_VIDMEM_NVX, &aMemInfo);
2986 return Standard_Size(aMemInfo) * 1024;
2992 // =======================================================================
2993 // function : MemoryInfo
2995 // =======================================================================
2996 TCollection_AsciiString OpenGl_Context::MemoryInfo() const
2998 TColStd_IndexedDataMapOfStringString aDict;
3001 TCollection_AsciiString aText;
3002 for (TColStd_IndexedDataMapOfStringString::Iterator anIter (aDict); anIter.More(); anIter.Next())
3004 if (!aText.IsEmpty())
3008 aText += TCollection_AsciiString(" ") + anIter.Key() + ": " + anIter.Value();
3013 // =======================================================================
3014 // function : MemoryInfo
3016 // =======================================================================
3017 void OpenGl_Context::MemoryInfo (TColStd_IndexedDataMapOfStringString& theDict) const
3019 #if defined(GL_ES_VERSION_2_0)
3021 #elif defined(__APPLE__) && !defined(MACOSX_USE_GLX)
3022 GLint aGlRendId = 0;
3023 CGLGetParameter (CGLGetCurrentContext(), kCGLCPCurrentRendererID, &aGlRendId);
3025 CGLRendererInfoObj aRendObj = NULL;
3026 CGOpenGLDisplayMask aDispMask = CGDisplayIDToOpenGLDisplayMask (kCGDirectMainDisplay);
3028 CGLQueryRendererInfo (aDispMask, &aRendObj, &aRendNb);
3029 for (GLint aRendIter = 0; aRendIter < aRendNb; ++aRendIter)
3032 if (CGLDescribeRenderer (aRendObj, aRendIter, kCGLRPRendererID, &aRendId) != kCGLNoError
3033 || aRendId != aGlRendId)
3038 //kCGLRPVideoMemoryMegabytes = 131;
3039 //kCGLRPTextureMemoryMegabytes = 132;
3041 #if MAC_OS_X_VERSION_MIN_REQUIRED >= 1070
3042 if (CGLDescribeRenderer(aRendObj, aRendIter, kCGLRPVideoMemoryMegabytes, &aVMem) == kCGLNoError)
3044 addInfo (theDict, "GPU memory", TCollection_AsciiString() + aVMem + " MiB");
3046 if (CGLDescribeRenderer(aRendObj, aRendIter, kCGLRPTextureMemoryMegabytes, &aVMem) == kCGLNoError)
3048 addInfo (theDict, "GPU Texture memory", TCollection_AsciiString() + aVMem + " MiB");
3051 if (CGLDescribeRenderer(aRendObj, aRendIter, kCGLRPVideoMemory, &aVMem) == kCGLNoError)
3053 addInfo (theDict, "GPU memory", TCollection_AsciiString() + (aVMem / (1024 * 1024)) + " MiB");
3055 if (CGLDescribeRenderer(aRendObj, aRendIter, kCGLRPTextureMemory, &aVMem) == kCGLNoError)
3057 addInfo (theDict, "GPU Texture memory", TCollection_AsciiString() + (aVMem / (1024 * 1024)) + " MiB");
3063 #if !defined(GL_ES_VERSION_2_0)
3067 memset (aValues, 0, sizeof(aValues));
3068 glGetIntegerv (GL_VBO_FREE_MEMORY_ATI, aValues);
3070 // total memory free in the pool
3071 addInfo (theDict, "GPU free memory", TCollection_AsciiString() + (aValues[0] / 1024) + " MiB");
3073 if (aValues[1] != aValues[0])
3075 // largest available free block in the pool
3076 addInfo (theDict, "Largest free block", TCollection_AsciiString() + (aValues[1] / 1024) + " MiB");
3078 if (aValues[2] != aValues[0])
3080 // total auxiliary memory free
3081 addInfo (theDict, "Free auxiliary memory", TCollection_AsciiString() + (aValues[2] / 1024) + " MiB");
3086 //current available dedicated video memory (in KiB), currently unused GPU memory
3088 glGetIntegerv (GL_GPU_MEMORY_INFO_CURRENT_AVAILABLE_VIDMEM_NVX, &aValue);
3089 addInfo (theDict, "GPU free memory", TCollection_AsciiString() + (aValue / 1024) + " MiB");
3091 // dedicated video memory, total size (in KiB) of the GPU memory
3092 GLint aDedicated = 0;
3093 glGetIntegerv (GL_GPU_MEMORY_INFO_DEDICATED_VIDMEM_NVX, &aDedicated);
3094 addInfo (theDict, "GPU memory", TCollection_AsciiString() + (aDedicated / 1024) + " MiB");
3096 // total available memory, total size (in KiB) of the memory available for allocations
3097 glGetIntegerv (GL_GPU_MEMORY_INFO_TOTAL_AVAILABLE_MEMORY_NVX, &aValue);
3098 if (aValue != aDedicated)
3100 // different only for special configurations
3101 addInfo (theDict, "Total memory", TCollection_AsciiString() + (aValue / 1024) + " MiB");
3105 else if (myFuncs->wglGetGPUInfoAMD != NULL
3106 && myFuncs->wglGetContextGPUIDAMD != NULL)
3108 GLuint aTotalMemMiB = 0;
3109 UINT anAmdId = myFuncs->wglGetContextGPUIDAMD ((HGLRC )myGContext);
3112 if (myFuncs->wglGetGPUInfoAMD (anAmdId, WGL_GPU_RAM_AMD, GL_UNSIGNED_INT, sizeof(aTotalMemMiB), &aTotalMemMiB) > 0)
3114 addInfo (theDict, "GPU memory", TCollection_AsciiString() + (int )aTotalMemMiB + " MiB");
3121 #if !defined(GL_ES_VERSION_2_0) && !defined(__APPLE__) && !defined(_WIN32)
3122 // GLX_RENDERER_VENDOR_ID_MESA
3123 if (myFuncs->glXQueryCurrentRendererIntegerMESA != NULL)
3125 unsigned int aVMemMiB = 0;
3126 if (myFuncs->glXQueryCurrentRendererIntegerMESA (GLX_RENDERER_VIDEO_MEMORY_MESA, &aVMemMiB) != False)
3128 addInfo (theDict, "GPU memory", TCollection_AsciiString() + int(aVMemMiB) + " MiB");
3134 // =======================================================================
3135 // function : DiagnosticInfo
3137 // =======================================================================
3138 void OpenGl_Context::DiagnosticInformation (TColStd_IndexedDataMapOfStringString& theDict,
3139 Graphic3d_DiagnosticInfo theFlags) const
3141 if ((theFlags & Graphic3d_DiagnosticInfo_NativePlatform) != 0)
3143 #if defined(HAVE_EGL)
3144 addInfo (theDict, "EGLVersion", ::eglQueryString ((EGLDisplay )myDisplay, EGL_VERSION));
3145 addInfo (theDict, "EGLVendor", ::eglQueryString ((EGLDisplay )myDisplay, EGL_VENDOR));
3146 addInfo (theDict, "EGLClientAPIs", ::eglQueryString ((EGLDisplay )myDisplay, EGL_CLIENT_APIS));
3147 if ((theFlags & Graphic3d_DiagnosticInfo_Extensions) != 0)
3149 addInfo (theDict, "EGLExtensions", ::eglQueryString ((EGLDisplay )myDisplay, EGL_EXTENSIONS));
3151 #elif defined(_WIN32)
3152 if ((theFlags & Graphic3d_DiagnosticInfo_Extensions) != 0
3153 && myFuncs->wglGetExtensionsStringARB != NULL)
3155 const char* aWglExts = myFuncs->wglGetExtensionsStringARB ((HDC )myWindowDC);
3156 addInfo (theDict, "WGLExtensions", aWglExts);
3158 #elif defined(__APPLE__)
3161 Display* aDisplay = (Display*)myDisplay;
3162 const int aScreen = DefaultScreen(aDisplay);
3163 addInfo (theDict, "GLXDirectRendering", ::glXIsDirect (aDisplay, (GLXContext )myGContext) ? "Yes" : "No");
3164 addInfo (theDict, "GLXVendor", ::glXQueryServerString (aDisplay, aScreen, GLX_VENDOR));
3165 addInfo (theDict, "GLXVersion", ::glXQueryServerString (aDisplay, aScreen, GLX_VERSION));
3166 if ((theFlags & Graphic3d_DiagnosticInfo_Extensions) != 0)
3168 const char* aGlxExts = ::glXQueryExtensionsString (aDisplay, aScreen);
3169 addInfo(theDict, "GLXExtensions", aGlxExts);
3172 addInfo (theDict, "GLXClientVendor", ::glXGetClientString (aDisplay, GLX_VENDOR));
3173 addInfo (theDict, "GLXClientVersion", ::glXGetClientString (aDisplay, GLX_VERSION));
3174 if ((theFlags & Graphic3d_DiagnosticInfo_Extensions) != 0)
3176 addInfo (theDict, "GLXClientExtensions", ::glXGetClientString (aDisplay, GLX_EXTENSIONS));
3181 if ((theFlags & Graphic3d_DiagnosticInfo_Device) != 0)
3183 Standard_Integer aDriverVer[2] = {};
3184 ReadGlVersion (aDriverVer[0], aDriverVer[1]);
3185 addInfo (theDict, "GLvendor", (const char*)::glGetString (GL_VENDOR));
3186 addInfo (theDict, "GLdevice", (const char*)::glGetString (GL_RENDERER));
3187 #ifdef __EMSCRIPTEN__
3188 if (checkEnableWebGlExtension (*this, "GL_WEBGL_debug_renderer_info"))
3190 if (const char* aVendor = (const char*)::glGetString (0x9245))
3192 addInfo (theDict, "GLunmaskedVendor", aVendor);
3194 if (const char* aDevice = (const char*)::glGetString (0x9246))
3196 addInfo (theDict, "GLunmaskedDevice", aDevice);
3201 addInfo (theDict, "GLversion", (const char*)::glGetString (GL_VERSION));
3202 if (myGlVerMajor != aDriverVer[0]
3203 || myGlVerMinor != aDriverVer[1])
3205 addInfo (theDict, "GLversionOcct", TCollection_AsciiString (myGlVerMajor) + "." + TCollection_AsciiString (myGlVerMinor));
3207 if (IsGlGreaterEqual (2, 0))
3209 addInfo (theDict, "GLSLversion", (const char*)::glGetString (GL_SHADING_LANGUAGE_VERSION));
3213 addInfo (theDict, "GLdebug", "ON");
3217 if ((theFlags & Graphic3d_DiagnosticInfo_Limits) != 0)
3219 addInfo (theDict, "Max texture size", TCollection_AsciiString(myMaxTexDim));
3220 addInfo (theDict, "Max FBO dump size", TCollection_AsciiString() + myMaxDumpSizeX + "x" + myMaxDumpSizeY);
3221 addInfo (theDict, "Max combined texture units", TCollection_AsciiString(myMaxTexCombined));
3222 addInfo (theDict, "Max MSAA samples", TCollection_AsciiString(myMaxMsaaSamples));
3225 if ((theFlags & Graphic3d_DiagnosticInfo_FrameBuffer) != 0)
3227 GLint aViewport[4] = {};
3228 ::glGetIntegerv (GL_VIEWPORT, aViewport);
3229 addInfo (theDict, "Viewport", TCollection_AsciiString() + aViewport[2] + "x" + aViewport[3]);
3232 if ((theFlags & Graphic3d_DiagnosticInfo_Memory) != 0)
3234 MemoryInfo (theDict);
3237 if ((theFlags & Graphic3d_DiagnosticInfo_Extensions) != 0)
3239 #if !defined(GL_ES_VERSION_2_0)
3240 if (IsGlGreaterEqual (3, 0)
3241 && myFuncs->glGetStringi != NULL)
3243 TCollection_AsciiString anExtList;
3245 ::glGetIntegerv (GL_NUM_EXTENSIONS, &anExtNb);
3246 for (GLint anIter = 0; anIter < anExtNb; ++anIter)
3248 const char* anExtension = (const char*)myFuncs->glGetStringi (GL_EXTENSIONS, (GLuint)anIter);
3249 if (!anExtList.IsEmpty())
3253 anExtList += anExtension;
3255 addInfo(theDict, "GLextensions", anExtList);
3260 addInfo (theDict, "GLextensions", (const char*)::glGetString (GL_EXTENSIONS));
3265 // =======================================================================
3266 // function : GetResource
3268 // =======================================================================
3269 const Handle(OpenGl_Resource)& OpenGl_Context::GetResource (const TCollection_AsciiString& theKey) const
3271 return mySharedResources->IsBound (theKey) ? mySharedResources->Find (theKey) : NULL_GL_RESOURCE;
3274 // =======================================================================
3275 // function : ShareResource
3277 // =======================================================================
3278 Standard_Boolean OpenGl_Context::ShareResource (const TCollection_AsciiString& theKey,
3279 const Handle(OpenGl_Resource)& theResource)
3281 if (theKey.IsEmpty() || theResource.IsNull())
3283 return Standard_False;
3285 return mySharedResources->Bind (theKey, theResource);
3288 // =======================================================================
3289 // function : ReleaseResource
3291 // =======================================================================
3292 void OpenGl_Context::ReleaseResource (const TCollection_AsciiString& theKey,
3293 const Standard_Boolean theToDelay)
3295 if (!mySharedResources->IsBound (theKey))
3299 const Handle(OpenGl_Resource)& aRes = mySharedResources->Find (theKey);
3300 if (aRes->GetRefCount() > 1)
3307 myDelayed->Bind (theKey, 1);
3311 aRes->Release (this);
3312 mySharedResources->UnBind (theKey);
3316 // =======================================================================
3317 // function : ReleaseDelayed
3319 // =======================================================================
3320 void OpenGl_Context::ReleaseDelayed()
3322 // release queued elements
3323 while (!myUnusedResources->IsEmpty())
3325 myUnusedResources->First()->Release (this);
3326 myUnusedResources->RemoveFirst();
3329 // release delayed shared resources
3330 NCollection_Vector<TCollection_AsciiString> aDeadList;
3331 for (NCollection_DataMap<TCollection_AsciiString, Standard_Integer>::Iterator anIter (*myDelayed);
3332 anIter.More(); anIter.Next())
3334 if (++anIter.ChangeValue() <= 2)
3336 continue; // postpone release one more frame to ensure noone use it periodically
3339 const TCollection_AsciiString& aKey = anIter.Key();
3340 if (!mySharedResources->IsBound (aKey))
3342 // mixed unshared strategy delayed/undelayed was used!
3343 aDeadList.Append (aKey);
3347 const Handle(OpenGl_Resource)& aRes = mySharedResources->ChangeFind (aKey);
3348 if (aRes->GetRefCount() > 1)
3350 // should be only 1 instance in mySharedResources
3351 // if not - resource was reused again
3352 aDeadList.Append (aKey);
3356 // release resource if no one requiested it more than 2 redraw calls
3357 aRes->Release (this);
3358 mySharedResources->UnBind (aKey);
3359 aDeadList.Append (aKey);
3362 for (Standard_Integer anIter = 0; anIter < aDeadList.Length(); ++anIter)
3364 myDelayed->UnBind (aDeadList.Value (anIter));
3368 // =======================================================================
3369 // function : BindTextures
3371 // =======================================================================
3372 Handle(OpenGl_TextureSet) OpenGl_Context::BindTextures (const Handle(OpenGl_TextureSet)& theTextures)
3374 if (myActiveTextures == theTextures)
3376 return myActiveTextures;
3379 Handle(OpenGl_Context) aThisCtx (this);
3380 OpenGl_TextureSet::Iterator aTextureIterOld (myActiveTextures), aTextureIterNew (theTextures);
3383 if (!aTextureIterNew.More())
3385 for (; aTextureIterOld.More(); aTextureIterOld.Next())
3387 if (const Handle(OpenGl_Texture)& aTextureOld = aTextureIterOld.Value())
3389 aTextureOld->Unbind(aThisCtx);
3390 #if !defined(GL_ES_VERSION_2_0)
3393 OpenGl_Sampler::resetGlobalTextureParams (aThisCtx, *aTextureOld, aTextureOld->Sampler()->Parameters());
3401 const Handle(OpenGl_Texture)& aTextureNew = aTextureIterNew.Value();
3402 if (aTextureIterOld.More())
3404 const Handle(OpenGl_Texture)& aTextureOld = aTextureIterOld.Value();
3405 if (aTextureNew == aTextureOld)
3407 aTextureIterNew.Next();
3408 aTextureIterOld.Next();
3411 else if (aTextureNew.IsNull()
3412 || !aTextureNew->IsValid())
3414 if (!aTextureOld.IsNull())
3416 aTextureOld->Unbind(aThisCtx);
3417 #if !defined(GL_ES_VERSION_2_0)
3420 OpenGl_Sampler::resetGlobalTextureParams (aThisCtx, *aTextureOld, aTextureOld->Sampler()->Parameters());
3425 aTextureIterNew.Next();
3426 aTextureIterOld.Next();
3430 aTextureIterOld.Next();
3432 if (aTextureNew.IsNull())
3434 aTextureIterNew.Next();
3438 const Graphic3d_TextureUnit aTexUnit = aTextureNew->Sampler()->Parameters()->TextureUnit();
3439 if (aTexUnit >= myMaxTexCombined)
3441 PushMessage (GL_DEBUG_SOURCE_APPLICATION, GL_DEBUG_TYPE_ERROR, 0, GL_DEBUG_SEVERITY_HIGH,
3442 TCollection_AsciiString("Texture unit ") + aTexUnit + " for " + aTextureNew->ResourceId() + " exceeds hardware limit " + myMaxTexCombined);
3443 aTextureIterNew.Next();
3447 aTextureNew->Bind (aThisCtx);
3448 if (aTextureNew->Sampler()->ToUpdateParameters())
3450 if (aTextureNew->Sampler()->IsImmutable())
3452 aTextureNew->Sampler()->Init (aThisCtx, *aTextureNew);
3456 OpenGl_Sampler::applySamplerParams (aThisCtx, aTextureNew->Sampler()->Parameters(), aTextureNew->Sampler().get(), aTextureNew->GetTarget(), aTextureNew->HasMipmaps());
3459 #if !defined(GL_ES_VERSION_2_0)
3462 OpenGl_Sampler::applyGlobalTextureParams (aThisCtx, *aTextureNew, aTextureNew->Sampler()->Parameters());
3465 aTextureIterNew.Next();
3468 Handle(OpenGl_TextureSet) anOldTextures = myActiveTextures;
3469 myActiveTextures = theTextures;
3470 return anOldTextures;
3473 // =======================================================================
3474 // function : BindProgram
3476 // =======================================================================
3477 Standard_Boolean OpenGl_Context::BindProgram (const Handle(OpenGl_ShaderProgram)& theProgram)
3479 if (core20fwd == NULL)
3481 return Standard_False;
3483 else if (myActiveProgram == theProgram)
3485 return Standard_True;
3488 if (theProgram.IsNull()
3489 || !theProgram->IsValid())
3491 if (!myActiveProgram.IsNull())
3493 core20fwd->glUseProgram (OpenGl_ShaderProgram::NO_PROGRAM);
3494 myActiveProgram.Nullify();
3496 return Standard_False;
3499 myActiveProgram = theProgram;
3500 core20fwd->glUseProgram (theProgram->ProgramId());
3501 return Standard_True;
3504 // =======================================================================
3505 // function : BindDefaultVao
3507 // =======================================================================
3508 void OpenGl_Context::BindDefaultVao()
3510 #if !defined(GL_ES_VERSION_2_0)
3511 if (myDefaultVao == 0
3517 core32->glBindVertexArray (myDefaultVao);
3521 // =======================================================================
3522 // function : SetDefaultFrameBuffer
3524 // =======================================================================
3525 Handle(OpenGl_FrameBuffer) OpenGl_Context::SetDefaultFrameBuffer (const Handle(OpenGl_FrameBuffer)& theFbo)
3527 Handle(OpenGl_FrameBuffer) aFbo = myDefaultFbo;
3528 myDefaultFbo = theFbo;
3532 // =======================================================================
3533 // function : SetShadingMaterial
3535 // =======================================================================
3536 void OpenGl_Context::SetShadingMaterial (const OpenGl_Aspects* theAspect,
3537 const Handle(Graphic3d_PresentationAttributes)& theHighlight)
3539 const Handle(Graphic3d_Aspects)& anAspect = (!theHighlight.IsNull() && !theHighlight->BasicFillAreaAspect().IsNull())
3540 ? (const Handle(Graphic3d_Aspects)& )theHighlight->BasicFillAreaAspect()
3541 : theAspect->Aspect();
3543 const bool toDistinguish = anAspect->Distinguish();
3544 const bool toMapTexture = anAspect->ToMapTexture();
3545 const Graphic3d_MaterialAspect& aMatFrontSrc = anAspect->FrontMaterial();
3546 const Graphic3d_MaterialAspect& aMatBackSrc = toDistinguish
3547 ? anAspect->BackMaterial()
3549 const Quantity_Color& aFrontIntColor = anAspect->InteriorColor();
3550 const Quantity_Color& aBackIntColor = toDistinguish
3551 ? anAspect->BackInteriorColor()
3554 myMatFront.Init (*this, aMatFrontSrc, aFrontIntColor);
3557 myMatBack.Init (*this, aMatBackSrc, aBackIntColor);
3561 myMatBack = myMatFront;
3564 if (!theHighlight.IsNull()
3565 && theHighlight->BasicFillAreaAspect().IsNull())
3567 myMatFront.SetColor (theHighlight->ColorRGBA());
3568 myMatBack .SetColor (theHighlight->ColorRGBA());
3571 Standard_ShortReal anAlphaFront = 1.0f;
3572 Standard_ShortReal anAlphaBack = 1.0f;
3573 if (CheckIsTransparent (theAspect, theHighlight, anAlphaFront, anAlphaBack))
3575 myMatFront.Common.Diffuse.a() = anAlphaFront;
3576 myMatBack .Common.Diffuse.a() = anAlphaBack;
3578 myMatFront.Pbr.BaseColor.a() = anAlphaFront;
3579 myMatBack .Pbr.BaseColor.a() = anAlphaBack;
3582 // do not update material properties in case of zero reflection mode,
3583 // because GL lighting will be disabled by OpenGl_PrimitiveArray::DrawArray() anyway.
3584 const OpenGl_MaterialState& aMatState = myShaderManager->MaterialState();
3585 float anAlphaCutoff = anAspect->AlphaMode() == Graphic3d_AlphaMode_Mask
3586 ? anAspect->AlphaCutoff()
3588 if (anAspect->ToDrawEdges())
3590 if (anAspect->InteriorStyle() == Aspect_IS_EMPTY
3591 || (anAspect->InteriorStyle() == Aspect_IS_SOLID
3592 && anAspect->EdgeColorRGBA().Alpha() < 1.0f))
3594 anAlphaCutoff = 0.285f;
3597 if (theAspect->ShadingModel() == Graphic3d_TOSM_UNLIT)
3599 if (anAlphaCutoff == aMatState.AlphaCutoff())
3604 else if (myMatFront == aMatState.FrontMaterial()
3605 && myMatBack == aMatState.BackMaterial()
3606 && toDistinguish == aMatState.ToDistinguish()
3607 && toMapTexture == aMatState.ToMapTexture()
3608 && anAlphaCutoff == aMatState.AlphaCutoff())
3613 myShaderManager->UpdateMaterialStateTo (myMatFront, myMatBack, anAlphaCutoff, toDistinguish, toMapTexture);
3616 // =======================================================================
3617 // function : CheckIsTransparent
3619 // =======================================================================
3620 Standard_Boolean OpenGl_Context::CheckIsTransparent (const OpenGl_Aspects* theAspect,
3621 const Handle(Graphic3d_PresentationAttributes)& theHighlight,
3622 Standard_ShortReal& theAlphaFront,
3623 Standard_ShortReal& theAlphaBack)
3625 const Handle(Graphic3d_Aspects)& anAspect = (!theHighlight.IsNull() && !theHighlight->BasicFillAreaAspect().IsNull())
3626 ? (const Handle(Graphic3d_Aspects)& )theHighlight->BasicFillAreaAspect()
3627 : theAspect->Aspect();
3629 const bool toDistinguish = anAspect->Distinguish();
3630 const Graphic3d_MaterialAspect& aMatFrontSrc = anAspect->FrontMaterial();
3631 const Graphic3d_MaterialAspect& aMatBackSrc = toDistinguish
3632 ? anAspect->BackMaterial()
3635 // handling transparency
3636 if (!theHighlight.IsNull()
3637 && theHighlight->BasicFillAreaAspect().IsNull())
3639 theAlphaFront = theHighlight->ColorRGBA().Alpha();
3640 theAlphaBack = theHighlight->ColorRGBA().Alpha();
3644 theAlphaFront = aMatFrontSrc.Alpha();
3645 theAlphaBack = aMatBackSrc .Alpha();
3648 if (anAspect->AlphaMode() == Graphic3d_AlphaMode_BlendAuto)
3650 return theAlphaFront < 1.0f
3651 || theAlphaBack < 1.0f;
3653 return anAspect->AlphaMode() == Graphic3d_AlphaMode_Blend;
3656 // =======================================================================
3657 // function : SetColor4fv
3659 // =======================================================================
3660 void OpenGl_Context::SetColor4fv (const OpenGl_Vec4& theColor)
3662 if (!myActiveProgram.IsNull())
3664 if (const OpenGl_ShaderUniformLocation& aLoc = myActiveProgram->GetStateLocation (OpenGl_OCCT_COLOR))
3666 myActiveProgram->SetUniform (this, aLoc, Vec4FromQuantityColor (theColor));
3669 #if !defined(GL_ES_VERSION_2_0)
3670 else if (core11 != NULL)
3672 core11->glColor4fv (theColor.GetData());
3677 // =======================================================================
3678 // function : SetTypeOfLine
3680 // =======================================================================
3681 void OpenGl_Context::SetTypeOfLine (const Aspect_TypeOfLine theType,
3682 const Standard_ShortReal theFactor)
3684 Standard_Integer aPattern = 0xFFFF;
3687 case Aspect_TOL_DASH:
3692 case Aspect_TOL_DOT:
3697 case Aspect_TOL_DOTDASH:
3702 case Aspect_TOL_EMPTY:
3703 case Aspect_TOL_SOLID:
3708 case Aspect_TOL_USERDEFINED:
3715 if (!myActiveProgram.IsNull())
3717 if (const OpenGl_ShaderUniformLocation aPatternLoc = myActiveProgram->GetStateLocation (OpenGl_OCCT_LINE_STIPPLE_PATTERN))
3719 if (hasGlslBitwiseOps != OpenGl_FeatureNotAvailable)
3721 myActiveProgram->SetUniform (this, aPatternLoc, aPattern);
3725 Standard_Integer aPatArr[16] = {};
3726 for (unsigned int aBit = 0; aBit < 16; ++aBit)
3728 aPatArr[aBit] = ((unsigned int)(aPattern) & (1U << aBit)) != 0 ? 1 : 0;
3730 myActiveProgram->SetUniform (this, aPatternLoc, 16, aPatArr);
3732 myActiveProgram->SetUniform (this, myActiveProgram->GetStateLocation (OpenGl_OCCT_LINE_STIPPLE_FACTOR), theFactor);
3737 #if !defined(GL_ES_VERSION_2_0)
3738 if (aPattern != 0xFFFF)
3742 core11fwd->glEnable (GL_LINE_STIPPLE);
3744 core11->glLineStipple (static_cast<GLint> (theFactor),
3745 static_cast<GLushort> (aPattern));
3752 core11fwd->glDisable (GL_LINE_STIPPLE);
3758 // =======================================================================
3759 // function : SetLineWidth
3761 // =======================================================================
3762 void OpenGl_Context::SetLineWidth (const Standard_ShortReal theWidth)
3766 // glLineWidth() is still defined within Core Profile, but has no effect with values != 1.0f
3767 core11fwd->glLineWidth (theWidth * myLineWidthScale);
3771 // =======================================================================
3772 // function : SetTextureMatrix
3774 // =======================================================================
3775 void OpenGl_Context::SetTextureMatrix (const Handle(Graphic3d_TextureParams)& theParams)
3777 if (theParams.IsNull())
3781 else if (!myActiveProgram.IsNull())
3783 const GLint aUniLoc = myActiveProgram->GetStateLocation (OpenGl_OCCT_TEXTURE_TRSF2D);
3784 if (aUniLoc == OpenGl_ShaderProgram::INVALID_LOCATION)
3789 // pack transformation parameters
3790 OpenGl_Vec4 aTrsf[2] =
3792 OpenGl_Vec4 (-theParams->Translation().x(),
3793 -theParams->Translation().y(),
3794 theParams->Scale().x(),
3795 theParams->Scale().y()),
3796 OpenGl_Vec4 (static_cast<float> (std::sin (-theParams->Rotation() * M_PI / 180.0)),
3797 static_cast<float> (std::cos (-theParams->Rotation() * M_PI / 180.0)),
3800 myActiveProgram->SetUniform (this, aUniLoc, 2, aTrsf);
3804 #if !defined(GL_ES_VERSION_2_0)
3807 GLint aMatrixMode = GL_TEXTURE;
3808 ::glGetIntegerv (GL_MATRIX_MODE, &aMatrixMode);
3810 core11->glMatrixMode (GL_TEXTURE);
3811 OpenGl_Mat4 aTextureMat;
3812 const Graphic3d_Vec2& aScale = theParams->Scale();
3813 const Graphic3d_Vec2& aTrans = theParams->Translation();
3814 Graphic3d_TransformUtils::Scale (aTextureMat, aScale.x(), aScale.y(), 1.0f);
3815 Graphic3d_TransformUtils::Translate (aTextureMat, -aTrans.x(), -aTrans.y(), 0.0f);
3816 Graphic3d_TransformUtils::Rotate (aTextureMat, -theParams->Rotation(), 0.0f, 0.0f, 1.0f);
3817 core11->glLoadMatrixf (aTextureMat);
3818 core11->glMatrixMode (aMatrixMode);
3823 // =======================================================================
3824 // function : SetPointSize
3826 // =======================================================================
3827 void OpenGl_Context::SetPointSize (const Standard_ShortReal theSize)
3829 if (!myActiveProgram.IsNull())
3831 myActiveProgram->SetUniform (this, myActiveProgram->GetStateLocation (OpenGl_OCCT_POINT_SIZE), theSize);
3832 #if !defined(GL_ES_VERSION_2_0)
3833 //myContext->core11fwd->glEnable (GL_VERTEX_PROGRAM_POINT_SIZE);
3836 #if !defined(GL_ES_VERSION_2_0)
3839 core11fwd->glPointSize (theSize);
3840 if (core20fwd != NULL)
3842 //myContext->core11fwd->glDisable (GL_VERTEX_PROGRAM_POINT_SIZE);
3848 // =======================================================================
3849 // function : SetPointSpriteOrigin
3851 // =======================================================================
3852 void OpenGl_Context::SetPointSpriteOrigin()
3854 #if !defined(GL_ES_VERSION_2_0)
3855 if (core15fwd == NULL)
3860 const int aNewState = !myActiveProgram.IsNull() ? GL_UPPER_LEFT : GL_LOWER_LEFT;
3861 if (myPointSpriteOrig != aNewState)
3863 myPointSpriteOrig = aNewState;
3864 core15fwd->glPointParameteri (GL_POINT_SPRITE_COORD_ORIGIN, aNewState);
3869 // =======================================================================
3870 // function : SetGlNormalizeEnabled
3872 // =======================================================================
3873 Standard_Boolean OpenGl_Context::SetGlNormalizeEnabled (Standard_Boolean isEnabled)
3875 if (isEnabled == myIsGlNormalizeEnabled)
3877 return myIsGlNormalizeEnabled;
3880 Standard_Boolean anOldGlNormalize = myIsGlNormalizeEnabled;
3882 myIsGlNormalizeEnabled = isEnabled;
3884 #if !defined(GL_ES_VERSION_2_0)
3889 ::glEnable (GL_NORMALIZE);
3893 ::glDisable (GL_NORMALIZE);
3898 return anOldGlNormalize;
3901 // =======================================================================
3902 // function : SetPolygonMode
3904 // =======================================================================
3905 Standard_Integer OpenGl_Context::SetPolygonMode (const Standard_Integer theMode)
3907 if (myPolygonMode == theMode)
3909 return myPolygonMode;
3912 const Standard_Integer anOldPolygonMode = myPolygonMode;
3914 myPolygonMode = theMode;
3916 #if !defined(GL_ES_VERSION_2_0)
3917 ::glPolygonMode (GL_FRONT_AND_BACK, (GLenum)theMode);
3920 return anOldPolygonMode;
3923 // =======================================================================
3924 // function : SetPolygonHatchEnabled
3926 // =======================================================================
3927 bool OpenGl_Context::SetPolygonHatchEnabled (const bool theIsEnabled)
3929 if (myHatchStyles.IsNull())
3933 else if (myHatchStyles->IsEnabled() == theIsEnabled)
3935 return theIsEnabled;
3938 return myHatchStyles->SetEnabled (this, theIsEnabled);
3941 // =======================================================================
3942 // function : SetPolygonHatchStyle
3944 // =======================================================================
3945 Standard_Integer OpenGl_Context::SetPolygonHatchStyle (const Handle(Graphic3d_HatchStyle)& theStyle)
3947 if (theStyle.IsNull())
3952 if (myHatchStyles.IsNull())
3954 if (!GetResource ("OpenGl_LineAttributes", myHatchStyles))
3956 // share and register for release once the resource is no longer used
3957 myHatchStyles = new OpenGl_LineAttributes();
3958 ShareResource ("OpenGl_LineAttributes", myHatchStyles);
3961 if (myHatchStyles->TypeOfHatch() == theStyle->HatchType())
3963 return theStyle->HatchType();
3966 return myHatchStyles->SetTypeOfHatch (this, theStyle);
3969 // =======================================================================
3970 // function : SetPolygonOffset
3972 // =======================================================================
3973 void OpenGl_Context::SetPolygonOffset (const Graphic3d_PolygonOffset& theOffset)
3975 const bool toFillOld = (myPolygonOffset.Mode & Aspect_POM_Fill) == Aspect_POM_Fill;
3976 const bool toFillNew = (theOffset.Mode & Aspect_POM_Fill) == Aspect_POM_Fill;
3977 if (toFillNew != toFillOld)
3981 glEnable (GL_POLYGON_OFFSET_FILL);
3985 glDisable (GL_POLYGON_OFFSET_FILL);
3989 #if !defined(GL_ES_VERSION_2_0)
3990 const bool toLineOld = (myPolygonOffset.Mode & Aspect_POM_Line) == Aspect_POM_Line;
3991 const bool toLineNew = (theOffset.Mode & Aspect_POM_Line) == Aspect_POM_Line;
3992 if (toLineNew != toLineOld)
3996 glEnable (GL_POLYGON_OFFSET_LINE);
4000 glDisable (GL_POLYGON_OFFSET_LINE);
4004 const bool toPointOld = (myPolygonOffset.Mode & Aspect_POM_Point) == Aspect_POM_Point;
4005 const bool toPointNew = (theOffset.Mode & Aspect_POM_Point) == Aspect_POM_Point;
4006 if (toPointNew != toPointOld)
4010 glEnable (GL_POLYGON_OFFSET_POINT);
4014 glDisable (GL_POLYGON_OFFSET_POINT);
4019 if (myPolygonOffset.Factor != theOffset.Factor
4020 || myPolygonOffset.Units != theOffset.Units)
4022 glPolygonOffset (theOffset.Factor, theOffset.Units);
4024 myPolygonOffset = theOffset;
4027 // =======================================================================
4028 // function : ApplyModelWorldMatrix
4030 // =======================================================================
4031 void OpenGl_Context::ApplyModelWorldMatrix()
4033 if (myShaderManager->ModelWorldState().ModelWorldMatrix() != ModelWorldState.Current())
4035 myShaderManager->UpdateModelWorldStateTo (ModelWorldState.Current());
4039 // =======================================================================
4040 // function : ApplyWorldViewMatrix
4042 // =======================================================================
4043 void OpenGl_Context::ApplyWorldViewMatrix()
4045 if (myShaderManager->ModelWorldState().ModelWorldMatrix() != THE_IDENTITY_MATRIX)
4047 myShaderManager->UpdateModelWorldStateTo (THE_IDENTITY_MATRIX);
4049 if (myShaderManager->WorldViewState().WorldViewMatrix() != WorldViewState.Current())
4051 myShaderManager->UpdateWorldViewStateTo (WorldViewState.Current());
4055 // =======================================================================
4056 // function : ApplyModelViewMatrix
4058 // =======================================================================
4059 void OpenGl_Context::ApplyModelViewMatrix()
4061 if (myShaderManager->ModelWorldState().ModelWorldMatrix() != ModelWorldState.Current())
4063 myShaderManager->UpdateModelWorldStateTo (ModelWorldState.Current());
4065 if (myShaderManager->WorldViewState().WorldViewMatrix() != WorldViewState.Current())
4067 myShaderManager->UpdateWorldViewStateTo (WorldViewState.Current());
4071 // =======================================================================
4072 // function : ApplyProjectionMatrix
4074 // =======================================================================
4075 void OpenGl_Context::ApplyProjectionMatrix()
4077 if (myShaderManager->ProjectionState().ProjectionMatrix() != ProjectionState.Current())
4079 myShaderManager->UpdateProjectionStateTo (ProjectionState.Current());
4083 // =======================================================================
4084 // function : EnableFeatures
4086 // =======================================================================
4087 void OpenGl_Context::EnableFeatures() const
4092 // =======================================================================
4093 // function : DisableFeatures
4095 // =======================================================================
4096 void OpenGl_Context::DisableFeatures() const
4098 // Disable stuff that's likely to slow down glDrawPixels.
4099 glDisable(GL_DITHER);
4100 glDisable(GL_BLEND);
4101 glDisable(GL_DEPTH_TEST);
4102 glDisable(GL_STENCIL_TEST);
4104 #if !defined(GL_ES_VERSION_2_0)
4110 glDisable(GL_TEXTURE_1D);
4111 glDisable(GL_TEXTURE_2D);
4113 glDisable(GL_LIGHTING);
4114 glDisable(GL_ALPHA_TEST);
4116 glDisable(GL_LOGIC_OP);
4118 glPixelTransferi(GL_MAP_COLOR, GL_FALSE);
4119 glPixelTransferi(GL_RED_SCALE, 1);
4120 glPixelTransferi(GL_RED_BIAS, 0);
4121 glPixelTransferi(GL_GREEN_SCALE, 1);
4122 glPixelTransferi(GL_GREEN_BIAS, 0);
4123 glPixelTransferi(GL_BLUE_SCALE, 1);
4124 glPixelTransferi(GL_BLUE_BIAS, 0);
4125 glPixelTransferi(GL_ALPHA_SCALE, 1);
4126 glPixelTransferi(GL_ALPHA_BIAS, 0);
4128 if ((myGlVerMajor >= 1) && (myGlVerMinor >= 2))
4130 if (CheckExtension ("GL_CONVOLUTION_1D_EXT"))
4131 glDisable(GL_CONVOLUTION_1D_EXT);
4133 if (CheckExtension ("GL_CONVOLUTION_2D_EXT"))
4134 glDisable(GL_CONVOLUTION_2D_EXT);
4136 if (CheckExtension ("GL_SEPARABLE_2D_EXT"))
4137 glDisable(GL_SEPARABLE_2D_EXT);
4139 if (CheckExtension ("GL_SEPARABLE_2D_EXT"))
4140 glDisable(GL_HISTOGRAM_EXT);
4142 if (CheckExtension ("GL_MINMAX_EXT"))
4143 glDisable(GL_MINMAX_EXT);
4145 if (CheckExtension ("GL_TEXTURE_3D_EXT"))
4146 glDisable(GL_TEXTURE_3D_EXT);
4151 // =======================================================================
4152 // function : SetColorMask
4154 // =======================================================================
4155 bool OpenGl_Context::SetColorMask (bool theToWriteColor)
4157 const GLboolean toWrite = theToWriteColor ? GL_TRUE : GL_FALSE;
4158 glColorMask (toWrite, toWrite, toWrite, toWrite);
4160 const bool anOldValue = myColorMask;
4161 myColorMask = theToWriteColor;
4165 // =======================================================================
4166 // function : SetSampleAlphaToCoverage
4168 // =======================================================================
4169 bool OpenGl_Context::SetSampleAlphaToCoverage (bool theToEnable)
4171 bool toEnable = myAllowAlphaToCov && theToEnable;
4172 if (myAlphaToCoverage == toEnable)
4174 return myAlphaToCoverage;
4177 if (core15fwd != NULL)
4181 //core15fwd->core15fwd->glSampleCoverage (1.0f, GL_FALSE);
4182 core15fwd->glEnable (GL_SAMPLE_ALPHA_TO_COVERAGE);
4186 core15fwd->glDisable (GL_SAMPLE_ALPHA_TO_COVERAGE);
4190 const bool anOldValue = myAlphaToCoverage;
4191 myAlphaToCoverage = toEnable;