opengles 0.6.0 → 0.7.0

raw patch · 18 files changed

+4111/−1086 lines, 18 filesdep +vectordep −arraydep ~basedep ~lensdep ~linearPVP ok

version bump matches the API change (PVP)

Dependencies added: vector

Dependencies removed: array

Dependency ranges changed: base, lens, linear

API changes (from Hackage documentation)

Files

• Graphics/EGL.hs +319/−565
• Graphics/EGL/Base.hs +215/−0
• Graphics/OpenGL/CoreArb.hs +2625/−0
• Graphics/OpenGL/Types.hs +77/−0
• Graphics/OpenGLES.hs +6/−4
• Graphics/OpenGLES/Base.hs +1/−1
• Graphics/OpenGLES/Buffer.hs +51/−55
• Graphics/OpenGLES/Caps.hs +508/−0
• Graphics/OpenGLES/Core.hs +14/−30
• Graphics/OpenGLES/Env.hs +0/−386
• Graphics/OpenGLES/Framebuffer.hs +58/−1
• Graphics/OpenGLES/Internal.hs +15/−4
• Graphics/OpenGLES/State.hs +1/−1
• Graphics/OpenGLES/Sync.hs +101/−0
• Graphics/OpenGLES/Texture.hs +89/−17
• Graphics/OpenGLES/Types.hs +7/−14
• Linear/Graphics.hs +12/−0
• opengles.cabal +12/−8

@@ -1,615 +1,369 @@-{-# LANGUAGE CPP #-}-#if __GLASGOW_HASKELL__-{-# LANGUAGE Unsafe, UnliftedFFITypes, MagicHash, UnboxedTuples #-}-#endif--- | EGL 1.4 standard--- --- <http://www.khronos.org/registry/egl/>+{-# LANGUAGE RecordWildCards #-}+-- | EGL 1.4, carefully reconstructed.+-- You can still use the rest of C APIs via "Graphics.EGL.Base". -- --- <http://www.khronos.org/files/egl-1-4-quick-reference-card.pdf>+-- - <http://www.khronos.org/registry/egl/ Khronos EGL Registry>+-- - <http://www.khronos.org/files/egl-1-4-quick-reference-card.pdf EGL 1.4 Quick Reference [PDF]> module Graphics.EGL where+ import Control.Applicative-import Foreign-import Foreign.C.String-import System.IO.Unsafe (unsafePerformIO)-#if __GLASGOW_HASKELL__-import GHC.Base (realWorld#)-import GHC.CString (unpackCString#)-import GHC.IO (IO (IO))-import GHC.Ptr (Ptr(..))-#else-import System.IO.Unsafe-#endif+import Control.Monad+import Data.IORef+import Foreign hiding (void)+import Graphics.EGL.Base+import Graphics.OpenGLES.Internal (glLog) -type EGL a = IO (Either EGLError a)+--init+--	setupEgl+--	setSurface+--	eglCreateContext+--	eglMakeCurrent+--eglswap+--	trySwap+--	BADSUR -> setupEgl, setSurface+--	CLOST, BADCXT -> reset+--resume+--	setSurface+--	eglMakeCurrent+--	CLOST -> eglCreateContext+--	OTHER -> reset --- * Errors--- 0x3000-0x301E (Reserved 0x300F-0x301F for additional errors)-data EGLError =-    EGLSuccess-  | EGLNotInitialized-  | EGLBadAccess-  | EGLBadAlloc-  | EGLBadAttribute-  | EGLBadConfig-  | EGLBadContext-  | EGLBadCurrentSurface-  | EGLBadDisplay-  | EGLBadMatch-  | EGLBadNativePixmap-  | EGLBadNativeWindow-  | EGLBadParameter-  | EGLBadSurface-  | EGLContextLost-  | EGLUnknownErr Int -instance Show EGLError where-  show EGLSuccess = "EGLSuccess: Function succeeded."-  show EGLNotInitialized = "EGLNotInitialized: EGL is not or could not be initialized, for the specified display."-  show EGLBadAccess = "EGLBadAccess: EGL cannot access a requested resource (for example, a context is bound in another thread)."-  show EGLBadAlloc = "EGLBadAlloc: EGL failed to allocate resources for the requested operation."-  show EGLBadAttribute = "EGLBadAttribute: An unrecognized attribute or attribute value was passed in an attribute list."-  show EGLBadConfig = "EGLBadConfig: An EGLConfig argument does not name a valid EGLConfig."-  show EGLBadContext = "EGLBadContext: An EGLContext argument does not name a valid EGLContext."-  show EGLBadCurrentSurface = "EGLBadCurrentSurface: The current surface of the calling thread is a window, pbuffer, or pixmap that is no longer valid."-  show EGLBadDisplay = "EGLBadDisplay: An EGLDisplay argument does not name a valid EGLDisplay."-  show EGLBadMatch = "EGLBadMatch: Arguments are inconsistent; for example, an otherwise valid context requires buffers (e.g. depth or stencil) not allocated by an otherwise valid surface."-  show EGLBadNativePixmap = "EGLBadNativePixmap: An EGLNativePixmapType argument does not refer to a valid native pixmap."-  show EGLBadNativeWindow = "EGLBadNativeWindow: An EGLNativeWindowType argument does not refer to a valid native window."-  show EGLBadParameter = "EGLBadParameter: One or more argument values are invalid."-  show EGLBadSurface = "EGLBadSurface: An EGLSurface argument does not name a valid surface (window, pbuffer, or pixmap) configured for rendering."-  show EGLContextLost = "EGLContextLost: A power management event has occurred. The application must destroy all contexts and reinitialise client API state and objects to continue rendering."-  show (EGLUnknownErr n) = "EGLUnknownError: This error (" ++ show n ++ ") is not defined in EGL 1.4 spec."+-- * EGL Lifecycle -eglGetError :: IO EGLError-eglGetError = c_eglGetError >>= return . unMarshal . (-) 0x3000-  where unMarshal x | x < 15 =-          [EGLSuccess-          ,EGLNotInitialized-          ,EGLBadAccess-          ,EGLBadAlloc-          ,EGLBadAttribute-          ,EGLBadConfig-          ,EGLBadContext-          ,EGLBadCurrentSurface-          ,EGLBadDisplay-          ,EGLBadMatch-          ,EGLBadNativePixmap-          ,EGLBadNativeWindow-          ,EGLBadParameter-          ,EGLBadSurface-          ,EGLContextLost-          ] !! x-        unMarshal x = EGLUnknownErr x+-- | Initialize EGL with default display.+eglInit :: IO Egl+eglInit = eglInitializeOn Nothing+	[[{-(egl_RenderableType, egl_OpenGLES2)+	 ,-}(egl_SurfaceType, egl_Window)+	 ,(egl_BlueSize, 8)+	 ,(egl_GreenSize, 8)+	 ,(egl_RedSize, 8)+	 ,(egl_DepthSize, 24) ]+	,[{-(egl_RenderableType, egl_OpenGLES2)+	 ,-}(egl_SurfaceType, egl_Window)+	 ,(egl_BlueSize, 8)+	 ,(egl_GreenSize, 8)+	 ,(egl_RedSize, 8)+	 ,(egl_DepthSize, 16) ]]+	[]--[(egl_ContextClientVersion, 2)] --- * Attribute Lists--- 0x3020-0x3042 (Reserved 0x3041-0x304F for additional config attributes)-data EGLConfAttr =-    EGLBufferSize --EGLint-  | EGLAlphaSize --EGLint-  | EGLBlueSize --EGLint-  | EGLGreenSize --EGLint-  | EGLRedSize --EGLint-  | EGLDepthSize --EGLint-  | EGLStencilSize --EGLint-  | EGLConfigCaveat --EGLConfigCaveatValue-  | EGLConfigID --EGLint-  | EGLLevel --EGLint-  | EGLMaxPbufferHeight --EGLint-  | EGLMaxPbufferPixels --EGLint-  | EGLMaxPbufferWidth --EGLint-  | EGLNativeRenderable --EGLBoolean-  | EGLNativeVisualID --EGLint-  | EGLNativeVisualType --EGLint-  | EGLSamples --EGLint-  | EGLSampleBuffers --EGLint-  | EGLSurfaceType --EGLint-  | EGLTransparentType --EGLTransparentTypeValue-  | EGLTransparentBlueValue --EGLint-  | EGLTransparentGreenValue --EGLint-  | EGLTransparentRedValue --EGLint-  | EGLBindToTextureRGB --EGLBoolean-  | EGLBindToTextureRGBA --EGLBoolean-  | EGLMinSwapInterval --EGLint-  | EGLMaxSwapInterval --EGLint-  | EGLLuminanceSize --EGLint-  | EGLAlphaMaskSize --EGLint-  | EGLColorBufferType --EGLColorBufferTypeValue-  | EGLRenderableType --EGLint-  | EGLMatchNativePixmap -- ^ EGLint Pseudo-attribute (not queryable)-  | EGLConformant --EGLint+-- | Initialize EGL with specified display and configurations.+eglInitializeOn+	:: Maybe EGLNativeDisplay -- ^ If any, specify native display pointer.+	-> [[(EGLConfAttr, Int32)]] -- ^ EGL configurations with many fallbacks.+	-> [(EGLContextAttr, Int32)] -- ^ Choose GL version here.+	-> IO Egl+eglInitializeOn nd cfgs = newIORef . initial nd cfgs --- XXX deprecated instance-instance Enum EGLConfAttr where-  fromEnum x = case x of-    EGLBufferSize -> 0x3020-    EGLAlphaSize -> 0x3021-    EGLBlueSize -> 0x3022-    EGLGreenSize -> 0x3023-    EGLRedSize -> 0x3024-    EGLDepthSize -> 0x3025-    EGLStencilSize -> 0x3026-    EGLConfigCaveat -> 0x3027-    EGLConfigID -> 0x3028-    EGLLevel -> 0x3029-    EGLMaxPbufferHeight -> 0x302A-    EGLMaxPbufferPixels -> 0x302B-    EGLMaxPbufferWidth -> 0x302C-    EGLNativeRenderable -> 0x302D-    EGLNativeVisualID -> 0x302E-    EGLNativeVisualType -> 0x302F-    EGLSamples -> 0x3031-    EGLSampleBuffers -> 0x3032-    EGLSurfaceType -> 0x3033-    EGLTransparentType -> 0x3034-    EGLTransparentBlueValue -> 0x3035-    EGLTransparentGreenValue -> 0x3036-    EGLTransparentRedValue -> 0x3037-    EGLBindToTextureRGB -> 0x3039-    EGLBindToTextureRGBA -> 0x303A-    EGLMinSwapInterval -> 0x303B-    EGLMaxSwapInterval -> 0x303C-    EGLLuminanceSize -> 0x303D-    EGLAlphaMaskSize -> 0x303E-    EGLColorBufferType -> 0x303F-    EGLRenderableType -> 0x3040-    EGLMatchNativePixmap -> 0x3041-    EGLConformant -> 0x3042+-- | Start using graphics APIs on this thread.+-- EGL context would be recreated if the last context was lost+-- due to power management events.+eglResume+	:: Egl+	-> EGLNativeWindow -- ^ Window handler+	-> IO ()+eglResume egl window = do+	glLog "eglResume..."+	cur@EglCurrent{..} <- readIORef egl+	let share = nullPtr+	if disp == nullPtr then do -- context not initialized+		(display, config) <- setupEgl ndisp confcand+		(surf, w, h) <- setSurface display config window+		cxt <- withAttrList (map (\(EGLContextAttr a,b)->(a,b))cxtconf) $+			eglCreateContext display config share+		eglMakeCurrent display surf surf cxt+		writeIORef egl cur+			{ disp = display+			, chosen = config+			, context = cxt+			, dsurf = surf+			, rsurf = surf+			, nwin = window+			, screenDims = (w, h) }+	else do -- resume+		(surf, w, h) <- setSurface disp chosen window+		when (screenDims /= (w, h)) $+			glLog "screen resized"+		res <- eglMakeCurrent disp surf surf context+		when (res == 0) $ do -- EGL_FALSE+			err <- eglGetError+			glLog $ "eglResume: " ++ showEglError err+			if err == 0x300E then do -- EGL_CONTEXT_LOST+				glLog "Re-creating EGL context..."+				cxt <- withAttrList (map (\(EGLContextAttr a,b)->(a,b))cxtconf) $+					eglCreateContext disp chosen share+				writeIORef egl cur+					{ context = cxt+					, dsurf = surf+					, rsurf = surf+					, nwin = window+					, screenDims = (w, h) }+			else do+				eglInvalidate egl+				-- context reset+				eglResume egl window+{-# NOINLINE eglResume #-} -egl_true = 1 :: Int-egl_false = 0 :: Int--- | EGL_CONFIG_CAVEAT value EGL_NONE | 0x3050 | 0x3051-egl_none = 0x3038 :: Int-egl_slow_config = 0x3050 :: Int-egl_non_conformant_config = 0x3051 :: Int+-- | Stop using graphics APIs on this thread. Should be called before a sleep.+eglSuspend :: Egl -> IO ()+eglSuspend egl = do+	glLog "eglSuspend..."+	c@EglCurrent{..} <- readIORef egl+	when (dsurf /= nullPtr) $ do+		eglDestroySurface disp dsurf+		writeIORef egl c { dsurf = nullPtr }+{-# NOINLINE eglSuspend #-} --- | EGL_TRANSPARENT_TYPE value EGL_NONE | 0x3052-egl_transparent_rgb = 0x3052 :: Int+-- | Invalidate EGL objects and terminates the display on this thread.+-- You can still reuse 'Egl' because 'Egl' is designed for+-- state management.+eglInvalidate :: Egl -> IO ()+eglInvalidate egl = do+	glLog "eglInvalidate..."+	EglCurrent{..} <- readIORef egl+	when (disp /= nullPtr) $ do+		eglMakeCurrent disp nullPtr nullPtr nullPtr+		when (context /= nullPtr) $+			void (eglDestroyContext disp context)+		when (dsurf /= nullPtr) $+			void (eglDestroySurface disp dsurf)+		when (rsurf /= nullPtr && rsurf /= dsurf) $+			void (eglDestroySurface disp rsurf)+		void $ eglTerminate disp+	writeIORef egl $ initial ndisp confcand cxtconf+{-# NOINLINE eglInvalidate #-} --- | EGL_COLOR_BUFFER_TYPE value 0x308E | 0x308F-egl_rgb_buffer = 0x308E :: Int-egl_luminance_buffer = 0x308F :: Int+--  | Create a shared context from given context.+--eglShareContext :: Egl -> IO Egl+--eglShareContext egl = do --- | EGL_RENDERABLE_TYPE bitmask-egl_opengl_es_bit = 1 :: Int-egl_openvg_bit = 2 :: Int-egl_opengl_es2_bit = 4 :: Int-egl_opengl_bit = 8 :: Int -data EGLSurfAttr =-      EGLVGAlphaFormat -- enum Alpha format for OpenVG-    | EGLVGColorspace -- enum Color space for OpenVG-    | EGLConfigId -- Integer ID of EGLConfig surface was created with EGL_HEIGHT integer Height of surface-    | EGLHeight -- Height of surface-    | EGLHorizontalResolution -- integer Horizontal dot pitch-    | EGLLargestPbuffer -- boolean If true, create largest pbuffer possible-    | EGLMipmapTexture -- boolean True if texture has mipmaps-    | EGLMipmapLevel -- integer Mipmap level to render to-    | EGLMultisampleResolve -- enum Multisample resolve behavior-    | EGLPixelAspectRaito -- integer Display aspect ratio-    | EGLRenderBuffer -- enum Render buffer-    | EGLSwapBehavior -- enum Buffer swap behavior-    | EGLTextureFormat -- enum Format of texture: RGB, RGBA, or no texture-    | EGLTextureTarget -- enum Type of texture: 2D or no texture-    | EGLVerticalResolution -- integer Vertical dot pitch-    | EGLWidth -- integer Width of surface+-- * Posting the Color Buffer -instance Enum EGLSurfAttr where-  fromEnum x = case x of-    EGLHeight -> 0x3056-    EGLWidth -> 0x3067-    EGLLargestPbuffer -> 0x3058-    EGLTextureFormat -> 0x3080-    EGLTextureTarget -> 0x3081-    EGLMipmapTexture -> 0x3082-    EGLMipmapLevel -> 0x3083-    EGLRenderBuffer -> 0x3086-    EGLVGColorspace -> 0x3087-    EGLVGAlphaFormat -> 0x3088-    EGLHorizontalResolution -> 0x3090-    EGLVerticalResolution -> 0x3091-    EGLPixelAspectRaito -> 0x3092-    EGLSwapBehavior -> 0x3093-    EGLMultisampleResolve -> 0x3099-    EGLConfigId -> 0x3028+-- | Post EGL surface color buffer to a native window.+eglPostFrame :: Egl -> IO ()+eglPostFrame egl = do+	cur@EglCurrent{..} <- readIORef egl+	b <- eglSwapBuffers disp dsurf+	when (b == 0) $ do+		err <- eglGetError+		glLog $ "eglPostBuffer: " ++ showEglError err+		if err == 0x300D then do -- EGL_BAD_SURFACE+			(display, config) <- setupEgl ndisp confcand+			-- recreate surface+			(surf, w, h) <- setSurface display config nwin+			-- still consider EGL context is valid+			writeIORef egl cur+				{ disp = display+				, dsurf = surf+				, screenDims = (w, h) }+		else do --if err == EGL_CONTEXT_LOST || err == EGL_BAD_CONTEXT then+			-- context has been lost!!+			eglInvalidate egl+			-- reset context+			eglResume egl nwin --- EGLBoolean -> EGLError-toEglErr api = api >>= \eglbool ->-  if isTrue eglbool then return EGLSuccess else eglGetError--- falsy -> Left EGLError, good -> Right result-checkErr api cond f = api >>= \result ->-  if cond result then f result else Left <$> eglGetError-checkPtr api wrap = api >>= \ptr ->-  if ptr /= nullPtr then return (Right $ wrap ptr) else Left <$> eglGetError-checkBool api f = api >>= \bool ->-  if isTrue bool then Right <$> f else Left <$> eglGetError-isTrue = (/= 0)-withAttrList attrs =-  withArray $ foldr (\(k, v) l -> fromEnum k : v : l) [0x3038] attrs+--eglCopyBuffers :: EGLNativePixmap a => EGLDisplay -> EGLSurface -> a -> IO EGLError+--eglCopyBuffers display surface pixmap =+--  toEglErr (eglCopyBuffers (unD display) (unS surface) (getNativePixmap pixmap)) --- * Initialization & Terminating-eglGetDefaultDisplay :: IO EGLDisplay-eglGetDefaultDisplay = EGLDisplay <$> c_eglGetDisplay nullPtr+-- | Specifies the minimum number of video frame periods per buffer swap+-- for the window associated with the current context.+-- Returns False on failure. The default swap interval is 1.+eglPostInterval :: Egl -> Int32 -> IO Bool+eglPostInterval egl interval = do+	display <- disp <$> readIORef egl+	(/= 0) <$> eglSwapInterval display interval -eglGetDisplay :: EGLNativeDisplay a => a -> IO EGLDisplay-eglGetDisplay display = EGLDisplay <$> c_eglGetDisplay (getNativeDisplay display) -eglInitialize :: EGLDisplay -> EGL (Int, Int) -- ^ EGL (major, minor) version-eglInitialize display = alloca $ \major -> alloca $ \minor ->-  checkBool (c_eglInitialize (unD display) major minor) ((,) <$> peek major <*> peek minor)+-- * Query Context -eglTerminate :: EGLDisplay -> IO EGLError-eglTerminate display = toEglErr $ c_eglTerminate (unD display)+eglVendor, eglVersion :: Egl -> IO String+eglVendor = queryString 0x3053+eglVersion = queryString 0x3054 -eglVendor display = c_eglQueryString (unD display) 0x3053 >>= peekCString-eglVersion display = c_eglQueryString (unD display) 0x3054 >>= peekCString-eglExtensions display = words <$> (c_eglQueryString (unD display) 0x3055 >>= peekCString)-eglClientAPIs display = words <$> (c_eglQueryString (unD display) 0x308D >>= peekCString)+eglExtensions, eglClientAPIs :: Egl -> IO [String]+eglExtensions egl = words <$> queryString 0x3055 egl+eglClientAPIs egl = words <$> queryString 0x308D egl -eglQueryString :: EGLDisplay -> Int -> EGL String-eglQueryString display name =-  checkErr (c_eglQueryString (unD display) name) (/= nullPtr) (\str -> Right <$> peekCString str)+eglConfigID, eglContextClientType, eglContextClientVersion, eglRenderBuffer+    :: Egl -> IO Int32+eglConfigID = queryContext 0x3028+eglContextClientType = queryContext 0x3097+eglContextClientVersion = queryContext 0x3098+eglRenderBuffer = queryContext 0x3086 -eglReleaseThread :: IO EGLError-eglReleaseThread = toEglErr c_eglReleaseThread+eglScreenDims :: Num a => Egl -> IO (a, a)+eglScreenDims egl = do+	(w, h) <- screenDims <$> readIORef egl+	return (fromIntegral w, fromIntegral h) --- * Configuration Management-eglGetConfigs :: EGLDisplay -> EGL [EGLConfig]-eglGetConfigs display = alloca $ \num_config ->-  checkErr (c_eglGetConfigs (unD display) nullPtr 0 num_config) isTrue $ \_ -> do-    n <- peek num_config-    allocaArray n $ \configs ->-      checkBool (c_eglGetConfigs (unD display) configs n num_config) (map EGLConfig <$> peekArray n configs)+-- * Attributes -eglChooseConfig :: EGLDisplay -> [(EGLConfAttr, Int)] -> EGL [EGLConfig]-eglChooseConfig display attrs = withArray (const [0x3038] attrs) $ \attrib_list -> alloca $ \num_config ->-  checkErr (c_eglChooseConfig (unD display) attrib_list nullPtr 0 num_config) isTrue $ \_ -> do-    n <- peek num_config-    allocaArray n $ \configs ->-      checkBool (c_eglChooseConfig (unD display) attrib_list configs n num_config) (map EGLConfig <$> peekArray n configs)+egl_True, egl_False, egl_None :: EGLint+egl_True = 1+egl_False = 0+egl_None = 0x3038 -eglGetConfigAttrib :: EGLDisplay -> EGLConfig -> EGLConfAttr -> EGL Int-eglGetConfigAttrib display config attribute = alloca $ \value ->-  checkBool (c_eglGetConfigAttrib (unD display) (unC config) (fromEnum attribute) value) (peek value) --- * Rendering Surfaces--- include EGL_RENDER_BUFFER,EGL_VG_COLORSPACE, and EGL_VG_ALPHA_FORMAT + ext-eglCreateWindowSurface :: EGLNativeWindow a => EGLDisplay -> EGLConfig -> a -> [(EGLSurfAttr, Int)] -> EGL EGLSurface-eglCreateWindowSurface display config win attrs =-  withAttrList attrs $ \attrib_list ->-    checkPtr (c_eglCreateWindowSurface (unD display) (unC config) (getNativeWindow win) attrib_list) EGLSurface+-- ** EGLConfig Attributes --- include EGL_WIDTH,EGL_HEIGHT,EGL_LARGEST_PBUFFER,EGL_TEXTURE_FORMAT,EGL_TEXTURE_TARGET,--- EGL_MIPMAP_TEXTURE,EGL_VG_COLORSPACE, and EGL_VG_ALPHA_FORMAT + ext-eglCreatePbufferSurface :: EGLDisplay -> EGLConfig -> [(EGLSurfAttr, Int)] -> EGL EGLSurface-eglCreatePbufferSurface display config attrs =-  withAttrList attrs $ \attrib_list ->-    checkPtr (c_eglCreatePbufferSurface (unD display) (unC config) attrib_list) EGLSurface+-- 0x3020-0x3042 (Reserved 0x3041-0x304F for additional config attributes)+egl_BufferSize, egl_AlphaSize, egl_BlueSize, egl_GreenSize, egl_RedSize,+    egl_DepthSize, egl_StencilSize, egl_ConfigCaveat, egl_ConfigID, egl_Level,+    egl_MaxPbufferHeight, egl_MaxPbufferPixels, egl_MaxPbufferWidth,+    egl_NativeRenderable, egl_NativeVisualID, egl_NativeVisualType, egl_Samples,+    egl_SampleBuffers, egl_SurfaceType, egl_TransparentType,+    egl_TransparentBlueValue, egl_TransparentGreenValue,+    egl_TransparentRedValue, egl_BindToTextureRGB, egl_BindToTextureRGBA,+    egl_MinSwapInterval, egl_MaxSwapInterval, egl_LuminanceSize,+    egl_AlphaMaskSize, egl_ColorBufferType, egl_RenderableType,+    egl_MatchNativePixmap, egl_Conformant+    :: EGLConfAttr+egl_BufferSize = EGLConfAttr 0x3020+egl_AlphaSize = EGLConfAttr 0x3021+egl_BlueSize = EGLConfAttr 0x3022+egl_GreenSize = EGLConfAttr 0x3023+egl_RedSize = EGLConfAttr 0x3024+egl_DepthSize = EGLConfAttr 0x3025+egl_StencilSize = EGLConfAttr 0x3026+egl_ConfigCaveat = EGLConfAttr 0x3027+egl_ConfigID = EGLConfAttr 0x3028+egl_Level = EGLConfAttr 0x3029+egl_MaxPbufferHeight = EGLConfAttr 0x302A+egl_MaxPbufferPixels = EGLConfAttr 0x302B+egl_MaxPbufferWidth = EGLConfAttr 0x302C+egl_NativeRenderable = EGLConfAttr 0x302D+egl_NativeVisualID = EGLConfAttr 0x302E+egl_NativeVisualType = EGLConfAttr 0x302F+egl_Samples = EGLConfAttr 0x3031+egl_SampleBuffers = EGLConfAttr 0x3032+egl_SurfaceType = EGLConfAttr 0x3033+egl_TransparentType = EGLConfAttr 0x3034+egl_TransparentBlueValue = EGLConfAttr 0x3035+egl_TransparentGreenValue = EGLConfAttr 0x3036+egl_TransparentRedValue = EGLConfAttr 0x3037+egl_BindToTextureRGB = EGLConfAttr 0x3039+egl_BindToTextureRGBA = EGLConfAttr 0x303A+egl_MinSwapInterval = EGLConfAttr 0x303B+egl_MaxSwapInterval = EGLConfAttr 0x303C+egl_LuminanceSize = EGLConfAttr 0x303D+egl_AlphaMaskSize = EGLConfAttr 0x303E+egl_ColorBufferType = EGLConfAttr 0x303F+egl_RenderableType = EGLConfAttr 0x3040+egl_MatchNativePixmap = EGLConfAttr 0x3041+egl_Conformant = EGLConfAttr 0x3042 --- include EGL_TEXTURE_FORMAT,EGL_TEXTURE_TARGET, and EGL_MIPMAP_TEXTURE-eglCreatePbufferFromClientBuffer :: EGLDisplay -> EGLenum -> EGLClientBuffer -> EGLConfig -> [(EGLSurfAttr, Int)] -> EGL EGLSurface-eglCreatePbufferFromClientBuffer display buftype buffer config attrs =-  withAttrList attrs $ \attrib_list ->-    checkPtr (c_eglCreatePbufferFromClientBuffer (unD display) buftype (unB buffer) (unC config) attrib_list) EGLSurface+-- | EGL_CONFIG_CAVEAT value EGL_NONE | 0x3050 | 0x3051+egl_SlowConfig, egl_NonConformantConfig :: EGLint+egl_SlowConfig = 0x3050+egl_NonConformantConfig = 0x3051 -eglDestroySurface :: EGLDisplay -> EGLSurface -> IO EGLError-eglDestroySurface display surface = toEglErr (c_eglDestroySurface (unD display) (unS surface))+-- | EGL_TRANSPARENT_TYPE value EGL_NONE | 0x3052+egl_TransparentRgb :: EGLint+egl_TransparentRgb = 0x3052 --- include EGL_VG_COLORSPACE and EGL_VG_ALPHA_FORMAT + ext-eglCreatePixmapSurface :: EGLNativePixmap a => EGLDisplay -> EGLConfig -> a ->  [(EGLSurfAttr, Int)] -> EGL EGLSurface-eglCreatePixmapSurface display config pixmap attrs =-  withAttrList attrs $ \attrib_list ->-    checkPtr (c_eglCreatePixmapSurface (unD display) (unC config) (getNativePixmap pixmap) attrib_list) EGLSurface+-- | EGL_COLOR_BUFFER_TYPE value+egl_RgbBuffer, egl_LuminanceBuffer :: EGLint+egl_RgbBuffer = 0x308E+egl_LuminanceBuffer = 0x308F -eglSurfaceAttrib :: EGLDisplay -> EGLSurface -> EGLSurfAttr -> Int -> IO EGLError-eglSurfaceAttrib display surface attribute value =-  toEglErr (c_eglSurfaceAttrib (unD display) (unS surface) (fromEnum attribute) value)+-- | EGL_TEXTURE_FORMAT value+egl_NoTexture, egl_TextureRgb, egl_TextureRgba, egl_Texture2D :: EGLint+egl_NoTexture = 0x305C+egl_TextureRgb = 0x305D+egl_TextureRgba = 0x305E+egl_Texture2D = 0x305F -eglQuerySurface :: EGLDisplay -> EGLSurface -> EGLSurfAttr -> EGL Int-eglQuerySurface display surface attribute = alloca $ \value ->-  checkBool (c_eglQuerySurface (unD display) (unS surface) (fromEnum attribute) value) (peek value)+-- | EGL_SURFACE_TYPE mask bits+egl_PBuffer, egl_Pixmap, egl_Window,+    egl_VGColorspaceLinear, egl_VGAlphaFormatPre,+    egl_MultisampleResolveBox, egl_SwapBehaviorPreserved+    :: EGLint+egl_PBuffer = 1+egl_Pixmap = 2+egl_Window = 4+egl_VGColorspaceLinear = 0x20+egl_VGAlphaFormatPre = 0x40+egl_MultisampleResolveBox = 0x200+egl_SwapBehaviorPreserved = 0x400 --- * Rendering Contexts--- 0x30A0 | 0x30A1 | 0x30A2 | 0x3038-data EGLBindAPIValue = EGLOpenGLESAPI | EGLOpenVGAPI | EGLOpenGLAPI | EGLAPINone-instance Enum EGLBindAPIValue where-  fromEnum EGLOpenGLESAPI = 0x30A0-  fromEnum EGLOpenVGAPI = 0x30A1-  fromEnum EGLOpenGLAPI = 0x30A2-  fromEnum EGLAPINone = 0x3038-  toEnum 0x30A0 = EGLOpenGLESAPI-  toEnum 0x30A1 = EGLOpenVGAPI-  toEnum 0x30A2 = EGLOpenGLAPI-  toEnum _ = EGLAPINone+-- | EGL_RENDERABLE_TYPE bitmask+egl_OpenGLES, egl_OpenVG, egl_OpenGLES2, egl_OpenGL :: EGLint+egl_OpenGLES = 1+egl_OpenVG = 2+egl_OpenGLES2 = 4+egl_OpenGL = 8 -eglBindAPI :: EGLBindAPIValue -> IO EGLError-eglBindAPI value = toEglErr (c_eglBindAPI (fromEnum value)) -eglQueryAPI :: IO EGLBindAPIValue-eglQueryAPI = toEnum <$> c_eglQueryAPI+-- ** EGLSurface Attributes --- only EGL_CONTEXT_CLIENT_VERSION 0x3098 = 1 or 2-data EGLContextAttr = EGLContextClientVersion-instance Enum EGLContextAttr where-  fromEnum EGLContextClientVersion = 0x3098-eglCreateContext :: EGLDisplay -> EGLConfig -> [(EGLContextAttr, Int)] -> EGL EGLContext-eglCreateContext display config attrs =-  eglCreateContextWithShareContext display config (EGLContext nullPtr) attrs+egl_Height, egl_Width, egl_LargestPbuffer, egl_TextureFormat, egl_TextureTarget,+    egl_MipmapTexture, egl_MipmapLevel, egl_RenderBuffer, egl_VGColorspace,+    egl_VGAlphaFormat, egl_HorizontalResolution, egl_VerticalResolution,+    egl_PixelAspectRaito, egl_SwapBehavior, egl_MultisampleResolve, egl_ConfigId+    :: EGLSurfAttr+-- | int Height of surface+egl_Height = EGLSurfAttr 0x3056+-- | int Width of surface+egl_Width = EGLSurfAttr 0x3067+-- | boolean If true, create largest pbuffer possible+egl_LargestPbuffer = EGLSurfAttr 0x3058+-- | enum Format of texture: RGB, RGBA, or no texture+egl_TextureFormat = EGLSurfAttr 0x3080+-- | enum Type of texture: 2D or no texture+egl_TextureTarget = EGLSurfAttr 0x3081+-- | boolean True if texture has mipmaps+egl_MipmapTexture = EGLSurfAttr 0x3082+-- | int Mipmap level to render to+egl_MipmapLevel = EGLSurfAttr 0x3083+-- | enum Render buffer+egl_RenderBuffer = EGLSurfAttr 0x3086+-- | enum Color space for OpenVG+egl_VGColorspace = EGLSurfAttr 0x3087+-- | enum Alpha format for OpenVG+egl_VGAlphaFormat = EGLSurfAttr 0x3088+-- | int Horizontal dot pitch+egl_HorizontalResolution = EGLSurfAttr 0x3090+-- | int Vertical dot pitch+egl_VerticalResolution = EGLSurfAttr 0x3091+-- | int Display aspect ratio+egl_PixelAspectRaito = EGLSurfAttr 0x3092+-- | enum Buffer swap behavior+egl_SwapBehavior = EGLSurfAttr 0x3093+-- | enum Multisample resolve behavior+egl_MultisampleResolve = EGLSurfAttr 0x3099+-- | int ID of EGLConfig surface was created with EGL_HEIGHT integer Height of surface+egl_ConfigId = EGLSurfAttr 0x3028 -eglCreateContextWithShareContext :: EGLDisplay -> EGLConfig -> EGLContext -> [(EGLContextAttr, Int)] -> EGL EGLContext-eglCreateContextWithShareContext display config shared_cxt attrs =-  withAttrList attrs $ \attrib_list ->-     checkPtr (c_eglCreateContext (unD display) (unC config) (unX shared_cxt) attrib_list) EGLContext -eglDestroyContext :: EGLDisplay -> EGLContext -> IO EGLError-eglDestroyContext display context =-  toEglErr(c_eglDestroyContext (unD display) (unX context))+-- ** EGLContext Attributes -eglMakeCurrent :: EGLDisplay -> EGLSurface -> EGLSurface -> EGLContext -> IO EGLError-eglMakeCurrent display draw read context =-  toEglErr (c_eglMakeCurrent (unD display) (unS draw) (unS read) (unX context))+-- | specify 2 or later+egl_ContextClientVersion :: EGLContextAttr+egl_ContextClientVersion = EGLContextAttr 0x3098 -eglReleaseCurrent :: EGLDisplay -> IO EGLError-eglReleaseCurrent display = toEglErr (c_eglMakeCurrent (unD display) nullPtr nullPtr nullPtr) -eglGetCurrentContext :: EGL EGLContext-eglGetCurrentContext = checkPtr c_eglGetCurrentContext EGLContext+--  * Synchronization Primitives -data EGLReadDraw = EGLRead | EGLDraw deriving Eq-eglGetCurrentSurface :: EGLReadDraw -> EGL EGLSurface-eglGetCurrentSurface readdraw =-  checkPtr (c_eglGetCurrentSurface $-      if readdraw == EGLDraw then 0x3059 else 0x305A) EGLSurface+--eglWaitClient :: IO EGLError+--eglWaitClient = toEglErr c_eglWaitClient -eglGetCurrentDisplay :: EGL EGLDisplay-eglGetCurrentDisplay = checkPtr c_eglGetCurrentDisplay EGLDisplay+--eglWaitNative :: IO EGLError+--eglWaitNative = toEglErr (c_eglWaitNative 0x305B) --- EGL_CONFIG_ID, EGL_CONTEXT_CLIENT_TYPE, EGL_CONTEXT_CLIENT_VERSION, EGL_RENDER_BUFFER-eglConfigID d c = eglQueryContext d c 0x3028-eglContextClientType d c = eglQueryContext d c 0x3097-eglContextClientVersion d c = eglQueryContext d c 0x3098-eglRenderBuffer d c = eglQueryContext d c 0x3086 -eglQueryContext :: EGLDisplay -> EGLContext -> Int -> EGL Int-eglQueryContext display context attribute = alloca $ \value ->-  checkBool (c_eglQueryContext (unD display) (unX context) attribute value) (peek value)---- * Synchronization Primitives-eglWaitClient :: IO EGLError-eglWaitClient = toEglErr c_eglWaitClient--- eglWaitGL is available for backwards compatibility--- eglWaitGL :: IO EGLError--- eglWaitGL = toEglErr c_eglWaitGL--data EGLWaitEngine = EGLCoreNativeEngine-eglWaitNative :: EGLWaitEngine -> IO EGLError-eglWaitNative engine = toEglErr (c_eglWaitNative 0x305B)---- * Posting the Color Buffer-eglSwapBuffers :: EGLDisplay -> EGLSurface -> IO EGLError-eglSwapBuffers display surface =-  toEglErr (c_eglSwapBuffers (unD display) (unS surface))--eglCopyBuffers :: EGLNativePixmap a => EGLDisplay -> EGLSurface -> a -> IO EGLError-eglCopyBuffers display surface pixmap =-  toEglErr (c_eglCopyBuffers (unD display) (unS surface) (getNativePixmap pixmap))--eglSwapInterval :: EGLDisplay -> Int -> IO EGLError-eglSwapInterval display interval =-  toEglErr (c_eglSwapInterval (unD display) interval)+--  * Render to Textures --- * Render to Textures -- EGL_RENDER_BUFFER value 0x3084 | 0x3085-data EGLBuffer = EGLBackBuffer | EGLSingleBuffer deriving Eq-eglBindTexImage :: EGLDisplay -> EGLSurface -> EGLBuffer -> IO EGLError-eglBindTexImage display surface buffer =-  toEglErr (c_eglBindTexImage (unD display) (unS surface) (if buffer == EGLBackBuffer then 0x3084 else 0x3085))--eglReleaseTexImage :: EGLDisplay -> EGLSurface -> EGLBuffer -> IO EGLError-eglReleaseTexImage display surface buffer =-  toEglErr (c_eglReleaseTexImage (unD display) (unS surface) (if buffer == EGLBackBuffer then 0x3084 else 0x3085))---- * Obtain Extension Function Pointers-eglGetProcAddress :: String -> FunPtr a-eglGetProcAddress procname =-  unsafePerformIO $ withCString procname c_eglGetProcAddress--#if defined(__GLASGOW_HASKELL__)-{-# INLINE [0] eglGetProcAddress #-}-{-# RULES-"EGL eglGetProcAddress/c_eglGetProcAddress" forall s .-   eglGetProcAddress (unpackCString# s) = inlinePerformIO (c_eglGetProcAddress (Ptr s))- #-}--{-# INLINE inlinePerformIO #-}--- | Just like unsafePerformIO, but we inline it. Big performance gains as--- it exposes lots of things to further inlining. /Very unsafe/. In--- particular, you should do no memory allocation inside an--- 'inlinePerformIO' block.----inlinePerformIO :: IO a -> a-inlinePerformIO (IO m) = case m realWorld# of (# _, r #) -> r-#endif----- * Extending EGL-{---- * Helper functions--- | Validate the current internal state.--- may return EGL_BAD_CONTEXT, EGL_BAD_SURFACE, EGL_BAD_NATIVE_WINDOW,--- EGL_BAD_CURRENT_SURFACE, EGL_CONTEXT_LOST, EGL_BAD_DISPLAY,--- EGL_NOT_INITIALIZED-testEGL :: IO EGLError-testEGL = do-  disp <- c_eglGetCurrentDisplay-  cont <- c_eglGetCurrentContext-  draw <- c_eglGetCurrentSurface EGLDraw-  toEglErr (c_eglMakeCurrent disp draw draw cont)-data EGLState a = EGLState (Maybe a) EGLConfig [(EGLSurfAttr, Int)]-eglState = unsafePerformIO $ newIORef (EGLState Nothing) (EGLConfig nullPtr) []---- | Initialize an EGL Context for OpenGL ES 2.0 (eglGetDefaultDisplay - eglMakeCurrent) -initEGL :: EGLNativeWindow a => a -> [(EGLConfAttr, Int)]-  -> [(EGLSurfAttr, Int)] -> IO EGLError-initEGL win confAttrs surfAttrs = do-  disp <- eglGetDefaultDisplay-  Right (major, minor) <- eglInitialize disp-  Right (config : _) <- eglChooseConfig disp-    ((EGLRenderableType, egl_opengl_es2_bit) : confAttrs)-  -- Request OpenGL ES 2.0+-  Right cont <- eglCreateContext disp config [(EGLContextClientVersion, 2)]-  Right surf <- eglCreateWindowSurface disp config win surfAttrs-  eglMakeCurrent disp surf surf cont-  writeIORef eglState $ EGLState win config surfAttrs---- | Tear down the EGL context in use (eglMakeCurrent - eglTerminate)-termEGL :: IO EGLError-termEGL = do-  disp <- eglGetCurrentDisplay-  cont <- eglGetCurrentContext-  surf <- eglGetCurrentSurface EGLDraw-  either return (\disp -> do-    eglReleaseCurrent disp-    either return (eglDestroyContext disp) cont-    either return (eglDestroySurface disp) surf-    eglTerminate disp-    ) disp---- | Short hand for eglSwapBuffers-swapCurrentBuffers :: IO EGLError-swapCurrentBuffers = do-  disp <- eglGetCurrentDisplay-  surf <- eglGetCurrentSurface EGLDraw-  err <- either return (\disp -> either return (\surf -> eglSwapBuffers disp surf) surf) disp-  case err of-    EGLSuccess -> return EGLSuccess-    -- still consider context is valid-    EGLBadSurface -> initEGLSurface >> return EGLSuccess where-      initEGLSurface = do-        EGLState win config surfAttrs <- readIORef eglState-        read <- eglGetCurrentSurface EGLRead-        Right surf <- eglCreateWindowSurface disp config win surfAttrs-        Right cont <- eglGetCurrentContext-        eglMakeCurrent disp surf (either (const surf) id read) cont-    -- EGLBadContext | EGLContextLost-    _ -> termEGL >> initEGL win >> return err---- | Destroy current draw surface-suspendEGL :: IO EGLError-suspendEGL = do-  disp <- eglGetCurrentDisplay-  surf <- eglGetCurrentSurface EGLDraw-  either return (\disp -> either return (eglDestroySurface disp) surf) disp--resumeEGL :: EGLNativeWindow => a -> IO EGLError-resumeEGL win = do-  err <- eglGetCurrentContext-  err' <- case err of-    Left _ -> initEGL win-    Right _ -> initEGLSurface where-      initEGLSurface = do-        Right (config : _) <- eglChooseConfig disp [(EGLRenderableType, egl_opengl_es2_bit)]-        Right cont <- eglGetCurrentContext-        Right surf <- eglCreateWindowSurface disp config win []-        eglMakeCurrent disp surf surf cont -  case err' of-    EGLSuccess -> return ()-    --EGLContextLost -> initEGLContext-    _ -> termEGL >> initEGL win-  return err'--}-withCurrent :: (EGLError -> IO a) -- ^ Error handler-   -> (EGLDisplay -> EGLContext -> EGLSurface -> EGLSurface -> IO a)-   -- ^ Current Display in use -> Current Context -> Current Read Surface -> Current Draw Surface-   -> IO a-withCurrent f g = do-  disp <- eglGetCurrentDisplay-  cont <- eglGetCurrentContext-  read <- eglGetCurrentSurface EGLRead-  draw <- eglGetCurrentSurface EGLDraw-  either f (\d->-    either f (\c->-      either f (\r->-        either f (\s->-          g d c r s) draw) read) cont) disp---- * Types--- from EGL/eglplatform.h--- ** Window-system-dependent types-type EGLNativeWindowType = Ptr ()-type EGLNativePixmapType = Ptr ()--- XXX Symbian platform uses int instead of pointer...-type EGLNativeDisplayType = Ptr ()-class EGLNativeWindow a where getNativeWindow :: a -> EGLNativeWindowType-class EGLNativePixmap a where getNativePixmap :: a -> EGLNativePixmapType-class EGLNativeDisplay a where getNativeDisplay :: a -> EGLNativeDisplayType---- ** EGL Types--- | 32-bit signed integer-type EGLint = Int---- from EGL/egl.h-type EGLBoolean = Int -- actually, Word32-type EGLenum = Int -- actually, Word32-type EGLConfig_ = Ptr ()-type EGLContext_ = Ptr ()-type EGLDisplay_ = Ptr ()-type EGLSurface_ = Ptr ()-type EGLClientBuffer_ = Ptr ()- -newtype EGLConfig = EGLConfig { unC :: EGLConfig_ }-newtype EGLContext = EGLContext { unX :: EGLContext_ }-newtype EGLDisplay = EGLDisplay { unD :: EGLDisplay_ }-newtype EGLSurface = EGLSurface { unS :: EGLSurface_ }-newtype EGLClientBuffer = EGLClientBuffer { unB :: EGLClientBuffer_ }---- * EGL Functions--- ccall unsafe: For more efficient code. These C calls do not call Haskell.-foreign import ccall unsafe "EGL/egl.h eglGetError" c_eglGetError :: IO EGLint--foreign import ccall unsafe "EGL/egl.h eglGetDisplay" c_eglGetDisplay :: EGLNativeDisplayType -> IO EGLDisplay_-foreign import ccall unsafe "EGL/egl.h eglInitialize" c_eglInitialize :: EGLDisplay_ -> Ptr EGLint -> Ptr EGLint -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglTerminate" c_eglTerminate :: EGLDisplay_ -> IO EGLBoolean--foreign import ccall unsafe "EGL/egl.h eglQueryString" c_eglQueryString :: EGLDisplay_ -> EGLint -> IO CString--foreign import ccall unsafe "EGL/egl.h eglGetConfigs" c_eglGetConfigs :: EGLDisplay_ -> Ptr EGLConfig_ -> EGLint -> Ptr EGLint -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglChooseConfig" c_eglChooseConfig :: EGLDisplay_ -> Ptr EGLint -> Ptr EGLConfig_ -> EGLint -> Ptr EGLint -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglGetConfigAttrib" c_eglGetConfigAttrib :: EGLDisplay_ -> EGLConfig_ -> EGLint -> Ptr EGLint -> IO EGLBoolean--foreign import ccall unsafe "EGL/egl.h eglCreateWindowSurface" c_eglCreateWindowSurface :: EGLDisplay_ -> EGLConfig_ -> EGLNativeWindowType -> Ptr EGLint -> IO EGLSurface_-foreign import ccall unsafe "EGL/egl.h eglCreatePbufferSurface" c_eglCreatePbufferSurface :: EGLDisplay_ -> EGLConfig_ -> Ptr EGLint -> IO EGLSurface_-foreign import ccall unsafe "EGL/egl.h eglCreatePixmapSurface" c_eglCreatePixmapSurface :: EGLDisplay_ -> EGLConfig_ -> EGLNativePixmapType -> Ptr EGLint -> IO EGLSurface_-foreign import ccall unsafe "EGL/egl.h eglDestroySurface" c_eglDestroySurface :: EGLDisplay_ -> EGLSurface_ -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglQuerySurface" c_eglQuerySurface :: EGLDisplay_ -> EGLSurface_ -> EGLint -> Ptr EGLint -> IO EGLBoolean--foreign import ccall unsafe "EGL/egl.h eglBindAPI" c_eglBindAPI :: EGLenum -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglQueryAPI" c_eglQueryAPI :: IO EGLenum--foreign import ccall unsafe "EGL/egl.h eglWaitClient" c_eglWaitClient :: IO EGLBoolean--foreign import ccall unsafe "EGL/egl.h eglReleaseThread" c_eglReleaseThread :: IO EGLBoolean--foreign import ccall unsafe "EGL/egl.h eglCreatePbufferFromClientBuffer" c_eglCreatePbufferFromClientBuffer :: EGLDisplay_ -> EGLenum -> EGLClientBuffer_ -> EGLConfig_ -> Ptr EGLint -> IO EGLSurface_--foreign import ccall unsafe "EGL/egl.h eglSurfaceAttrib" c_eglSurfaceAttrib :: EGLDisplay_ -> EGLSurface_ -> EGLint -> EGLint -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglBindTexImage" c_eglBindTexImage :: EGLDisplay_ -> EGLSurface_ -> EGLint -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglReleaseTexImage" c_eglReleaseTexImage :: EGLDisplay_ -> EGLSurface_ -> EGLint -> IO EGLBoolean--foreign import ccall unsafe "EGL/egl.h eglSwapInterval" c_eglSwapInterval :: EGLDisplay_ -> EGLint -> IO EGLBoolean--foreign import ccall unsafe "EGL/egl.h eglCreateContext" c_eglCreateContext :: EGLDisplay_ -> EGLConfig_ -> EGLContext_ -> Ptr EGLint -> IO EGLContext_-foreign import ccall unsafe "EGL/egl.h eglDestroyContext" c_eglDestroyContext :: EGLDisplay_ -> EGLContext_ -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglMakeCurrent" c_eglMakeCurrent :: EGLDisplay_ -> EGLSurface_ -> EGLSurface_ -> EGLContext_ -> IO EGLBoolean--foreign import ccall unsafe "EGL/egl.h eglGetCurrentContext" c_eglGetCurrentContext :: IO EGLContext_-foreign import ccall unsafe "EGL/egl.h eglGetCurrentSurface" c_eglGetCurrentSurface :: EGLint -> IO EGLSurface_-foreign import ccall unsafe "EGL/egl.h eglGetCurrentDisplay" c_eglGetCurrentDisplay :: IO EGLDisplay_-foreign import ccall unsafe "EGL/egl.h eglQueryContext" c_eglQueryContext :: EGLDisplay_ -> EGLContext_ -> EGLint -> Ptr EGLint -> IO EGLBoolean+-- back buffer only?+--data EGLBuffer = EGLBackBuffer | EGLSingleBuffer deriving Eq+--eglBindTexImage :: EGLDisplay -> EGLSurface -> EGLBuffer -> IO EGLError+--eglBindTexImage display surface buffer =+--  toEglErr (c_eglBindTexImage (unD display) (unS surface) (if buffer == EGLBackBuffer then 0x3084 else 0x3085)) ---foreign import ccall unsafe "EGL/egl.h eglWaitGL" c_eglWaitGL :: IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglWaitNative" c_eglWaitNative :: EGLint -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglSwapBuffers" c_eglSwapBuffers :: EGLDisplay_ -> EGLSurface_ -> IO EGLBoolean-foreign import ccall unsafe "EGL/egl.h eglCopyBuffers" c_eglCopyBuffers :: EGLDisplay_ -> EGLSurface_ -> EGLNativePixmapType -> IO EGLBoolean+--eglReleaseTexImage :: EGLDisplay -> EGLSurface -> EGLBuffer -> IO EGLError+--eglReleaseTexImage display surface buffer =+--  toEglErr (c_eglReleaseTexImage (unD display) (unS surface) (if buffer == EGLBackBuffer then 0x3084 else 0x3085)) -foreign import ccall unsafe "EGL/egl.h eglGetProcAddress" c_eglGetProcAddress :: CString -> IO (FunPtr a)

@@ -0,0 +1,215 @@+{-# LANGUAGE CPP #-}+{-# LANGUAGE Unsafe, UnliftedFFITypes, MagicHash, UnboxedTuples #-}+module Graphics.EGL.Base where++import Data.IORef+import Foreign+import Foreign.C.String+import System.IO.Unsafe (unsafePerformIO)+import GHC.Base (realWorld#)+import GHC.CString (unpackCString#)+import GHC.IO (IO (IO))+import GHC.Ptr (Ptr(..))+++-- * EGL Types++-- | 32-bit signed integer+type EGLint = Int32++-- from EGL/egl.h+type EGLboolean = Word32+type EGLenum = Word32+type EGLConfig = Ptr ()+type EGLContext = Ptr ()+type EGLDisplay = Ptr ()+type EGLSurface = Ptr ()+type EGLClientBuffer = Ptr ()++-- from EGL/eglplatform.h+-- ** Window System Types++type EGLNativeWindow = Ptr ()+type EGLNativePixmap = Ptr ()+-- Symbian platform uses int instead of pointer+type EGLNativeDisplay = Ptr ()+++-- * Bindings to EGL++#define EGL14(_name, _type) \+foreign import ccall unsafe "EGL/egl.h" _name :: _type++EGL14(eglGetError, IO EGLint)+EGL14(eglGetDisplay, EGLNativeDisplay -> IO EGLDisplay)+EGL14(eglInitialize, EGLDisplay -> Ptr EGLint -> Ptr EGLint -> IO EGLboolean)+EGL14(eglTerminate, EGLDisplay -> IO EGLboolean)++EGL14(eglQueryString, EGLDisplay -> EGLint -> IO CString)++EGL14(eglGetConfigs, EGLDisplay -> Ptr EGLConfig -> EGLint -> Ptr EGLint -> IO EGLboolean)+EGL14(eglChooseConfig, EGLDisplay -> Ptr EGLint -> Ptr EGLConfig -> EGLint -> Ptr EGLint -> IO EGLboolean)+EGL14(eglGetConfigAttrib, EGLDisplay -> EGLConfig -> EGLint -> Ptr EGLint -> IO EGLboolean)++EGL14(eglCreateWindowSurface, EGLDisplay -> EGLConfig -> EGLNativeWindow -> Ptr EGLint -> IO EGLSurface)+EGL14(eglCreatePbufferSurface, EGLDisplay -> EGLConfig -> Ptr EGLint -> IO EGLSurface)+EGL14(eglCreatePixmapSurface, EGLDisplay -> EGLConfig -> EGLNativePixmap -> Ptr EGLint -> IO EGLSurface)+EGL14(eglDestroySurface, EGLDisplay -> EGLSurface -> IO EGLboolean)+EGL14(eglQuerySurface, EGLDisplay -> EGLSurface -> EGLint -> Ptr EGLint -> IO EGLboolean)++EGL14(eglBindAPI, EGLenum -> IO EGLboolean)+EGL14(eglQueryAPI, IO EGLenum)++EGL14(eglWaitClient, IO EGLboolean)++EGL14(eglReleaseThread, IO EGLboolean)++EGL14(eglCreatePbufferFromClientBuffer, EGLDisplay -> EGLenum -> EGLClientBuffer -> EGLConfig -> Ptr EGLint -> IO EGLSurface)++EGL14(eglSurfaceAttrib, EGLDisplay -> EGLSurface -> EGLint -> EGLint -> IO EGLboolean)+EGL14(eglBindTexImage, EGLDisplay -> EGLSurface -> EGLint -> IO EGLboolean)+EGL14(eglReleaseTexImage, EGLDisplay -> EGLSurface -> EGLint -> IO EGLboolean)++EGL14(eglSwapInterval, EGLDisplay -> EGLint -> IO EGLboolean)++EGL14(eglCreateContext, EGLDisplay -> EGLConfig -> EGLContext -> Ptr EGLint -> IO EGLContext)+EGL14(eglDestroyContext, EGLDisplay -> EGLContext -> IO EGLboolean)+EGL14(eglMakeCurrent, EGLDisplay -> EGLSurface -> EGLSurface -> EGLContext -> IO EGLboolean)++EGL14(eglGetCurrentContext, IO EGLContext)+EGL14(eglGetCurrentSurface, EGLint -> IO EGLSurface)+EGL14(eglGetCurrentDisplay, IO EGLDisplay)+EGL14(eglQueryContext, EGLDisplay -> EGLContext -> EGLint -> Ptr EGLint -> IO EGLboolean)++--EGL14(eglWaitGL, IO EGLboolean)+EGL14(eglWaitNative, EGLint -> IO EGLboolean)+EGL14(eglSwapBuffers, EGLDisplay -> EGLSurface -> IO EGLboolean)+EGL14(eglCopyBuffers, EGLDisplay -> EGLSurface -> EGLNativePixmap -> IO EGLboolean)+++-- * Obtain Extension Function Pointer++-- | Just like unsafePerformIO, but we inline it. Big performance gains as+-- it exposes lots of things to further inlining. /Very unsafe/. In+-- particular, you should do no memory allocation inside an+-- 'inlinePerformIO' block.+inlinePerformIO :: IO a -> a+inlinePerformIO (IO m) = case m realWorld# of (# _, r #) -> r+{-# INLINE inlinePerformIO #-}++foreign import ccall unsafe "EGL/egl.h eglGetProcAddress"+	c_eglGetProcAddress :: CString -> IO (FunPtr a)++eglGetProcAddress :: String -> FunPtr a+eglGetProcAddress procname = unsafePerformIO $+	withCString procname c_eglGetProcAddress+{-# INLINE [0] eglGetProcAddress #-}+{-# RULES+"EGL eglGetProcAddress/c_eglGetProcAddress" forall s .+   eglGetProcAddress (unpackCString# s) = inlinePerformIO (c_eglGetProcAddress (Ptr s))+ #-}+++-- * Misc++newtype EGLConfAttr = EGLConfAttr EGLint+newtype EGLSurfAttr = EGLSurfAttr EGLint+newtype EGLContextAttr = EGLContextAttr EGLint++{-# NOINLINE queryString #-}+queryString :: EGLint -> Egl -> IO String+queryString name egl = do+	display <- fmap disp $ readIORef egl+	eglQueryString display name >>= peekCString++{-# NOINLINE queryContext #-}+queryContext :: EGLint -> Egl -> IO EGLint+queryContext attr egl = do+	EglCurrent{disp=disp, context=context} <- readIORef egl+	alloca $ \value ->+		eglQueryContext disp context attr value >> peek value++type Egl = IORef EglCurrent++data EglCurrent = EglCurrent+	{ disp :: EGLDisplay+	, chosen :: EGLConfig+	, context :: EGLContext+	, dsurf :: EGLSurface+	, rsurf :: EGLSurface+	, nwin :: EGLNativeWindow+	, screenDims :: (Int32, Int32)+	, ndisp :: Maybe EGLNativeDisplay+	, confcand :: [[(EGLConfAttr, Int32)]]+	--, surfconf :: [[(EGLSurfAttr, Int32)]]+	, cxtconf :: [(EGLContextAttr, Int32)]+	}++initial = EglCurrent nullPtr nullPtr nullPtr nullPtr nullPtr nullPtr (0,0)++{-# NOINLINE showEglError #-}+showEglError :: EGLint -> String+showEglError x = case x of+	0x3000 -> "EGLSuccess: Function succeeded."+	0x3001 -> "EGLNotInitialized: EGL is not or could not be initialized, for the specified display."+	0x3002 -> "EGLBadAccess: EGL cannot access a requested resource (for example, a context is bound in another thread)."+	0x3003 -> "EGLBadAlloc: EGL failed to allocate resources for the requested operation."+	0x3004 -> "EGLBadAttribute: An unrecognized attribute or attribute value was passed in an attribute list."+	0x3005 -> "EGLBadConfig: An EGLConfig argument does not name a valid EGLConfig."+	0x3006 -> "EGLBadContext: An EGLContext argument does not name a valid EGLContext."+	0x3007 -> "EGLBadCurrentSurface: The current surface of the calling thread is a window, pbuffer, or pixmap that is no longer valid."+	0x3008 -> "EGLBadDisplay: An EGLDisplay argument does not name a valid EGLDisplay."+	0x3009 -> "EGLBadMatch: Arguments are inconsistent; for example, an otherwise valid context requires buffers (e.g. depth or stencil) not allocated by an otherwise valid surface."+	0x300A -> "EGLBadNativePixmap: An EGLNativePixmapType argument does not refer to a valid native pixmap."+	0x300B -> "EGLBadNativeWindow: An EGLNativeWindowType argument does not refer to a valid native window."+	0x300C -> "EGLBadParameter: One or more argument values are invalid."+	0x300D -> "EGLBadSurface: An EGLSurface argument does not name a valid surface (window, pbuffer, or pixmap) configured for rendering."+	0x300E -> "EGLContextLost: A power management event has occurred. The application must destroy all contexts and reinitialise client API state and objects to continue rendering."+	x | 0x300E < x && x < 0x3020 ->+		"EGLUnknownError: Error " ++ show x ++ " is not defined in EGL 1.4 spec."+	x -> "showEglError: Value out of range: " ++ show x++{-# NOINLINE withAttrList #-}+withAttrList :: [(EGLint, Int32)] -> (Ptr EGLint -> IO b) -> IO b+withAttrList attrs =+	withArray $ foldr (\(k, v) l -> k : v : l) [0x3038] attrs++{-# NOINLINE setupEgl #-}+-- | Get an EGLDisplay and choose a suitable config+setupEgl :: Maybe EGLNativeDisplay -> [[(EGLConfAttr, Int32)]] -> IO (EGLDisplay, EGLConfig)+setupEgl nd attribsList = do+	display <- eglGetDisplay $ maybe nullPtr id nd+	eglInitialize display nullPtr nullPtr++	-- Here specify the attributes of the desired configuration.+	-- Below, we select an EGLConfig with at least 8 bits per color+	-- component compatible with on-screen windows+	let go _ _ [] = return nullPtr -- suitable config not found!+	    go cfg numConfigs (x:xs) = withAttrList (map (\(EGLConfAttr a,b)->(a,b))x) $ \attribs -> do+		eglChooseConfig display attribs cfg 1 numConfigs+		n <- peek numConfigs+		if n /= 0 then peek cfg else go cfg numConfigs xs+	config <- alloca $ \cfg ->+		alloca $ \numConfigs ->+			go cfg numConfigs attribsList++	-- EGL_NATIVE_VISUAL_ID is an attribute of the EGLConfig that is+	-- guaranteed to be accepted by ANativeWindow_setBuffersGeometry.+	-- As soon as we picked a EGLConfig, we can safely reconfigure the+	-- ANativeWindow buffers to match, using EGL_NATIVE_VISUAL_ID.+	--alloca $ \format->+	--	eglGetConfigAttrib display config EGL_NATIVE_VISUAL_ID format+	--	ANativeWindow_setBuffersGeometry window 0 0 format+	return (display, config)++{-# NOINLINE setSurface #-}+setSurface :: EGLDisplay -> EGLConfig -> EGLNativeWindow -> IO (EGLSurface, EGLint, EGLint)+setSurface disp config window = do+	surf <- eglCreateWindowSurface disp config window nullPtr+	alloca $ \ptr -> do+		eglQuerySurface disp surf 0x3057 ptr+		screen_width <- peek ptr+		eglQuerySurface disp surf 0x3056 ptr+		screen_height <- peek ptr+		return (surf, screen_width, screen_height)+

@@ -0,0 +1,2625 @@+{-# LANGUAGE CPP #-}+-- | OpenGL 4.5 Core Profile+-- <https://www.opengl.org/registry/api/GL/glcorearb.h>+module Graphics.OpenGL.CoreArb where+import Foreign+import Foreign.C.String+import Graphics.EGL.Base (eglGetProcAddress)+import Graphics.OpenGLES.Base++-- * Basic Types++-- | 64bit floating-point value+type GLdouble = Double++type GLuint64EXT = GLuint64++-- typedef void (APIENTRY  *GLDEBUGPROC)(GLenum source,GLenum type,GLuint id,GLenum severity,GLsizei length,const GLchar *message,const void *userParam);+-- #define GL_VERSION_4_3 1+type GLDebugProc = GLenum -> GLenum -> GLuint -> GLenum -> GLsizei -> CString -> Ptr () -> GL ()++foreign import ccall unsafe "wrapper"+    wrap_GLDebugProc :: GLDebugProc -> IO (FunPtr GLDebugProc)+++-- * Bindings++#define GLAPI(_procname, _typ) \+foreign import ccall unsafe "dynamic" unwrap_/**/_procname :: FunPtr (_typ) -> _typ; \+_procname :: _typ; \+_procname = unwrap_/**/_procname (eglGetProcAddress "_procname"); \+{-# NOINLINE _procname #-} \++-- foreign import ccall unsafe "dynamic"+--   unwrap_glActiveTexture :: FunPtr (GLenum -> GL ()) -> GLenum -> GL ();+-- glActiveTexture :: GLenum -> GL ();+-- glActiveTexture = unwrap_glActiveTexture (eglGetProcAddress "glActiveTexture");++-- #ifndef __glcorearb_h_+-- #define __glcorearb_h_ 1+-- #if defined(_WIN32) && !defined(APIENTRY) && !defined(__CYGWIN__) && !defined(__SCITECH_SNAP__)+-- #ifndef WIN32_LEAN_AND_MEAN+-- #define WIN32_LEAN_AND_MEAN 1+-- #include <windows.h>+-- #ifndef APIENTRY+-- #define APIENTRY+-- #ifndef APIENTRYP+-- #define APIENTRYP APIENTRY *+-- #ifndef GLAPI+-- #define GLAPI extern+-- #include both <GL/glcorearb.h> and either of <GL/gl.h> or+-- #ifndef GL_VERSION_1_0+-- #define GL_VERSION_1_0 1+GLAPI(glCullFace, GLenum -> GL ())+GLAPI(glFrontFace, GLenum -> GL ())+GLAPI(glHint, GLenum -> GLenum -> GL ())+GLAPI(glLineWidth, GLfloat -> GL ())+GLAPI(glPointSize, GLfloat -> GL ())+GLAPI(glPolygonMode, GLenum -> GLenum -> GL ())+GLAPI(glScissor, GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLAPI(glTexParameterf, GLenum -> GLenum -> GLfloat -> GL ())+GLAPI(glTexParameterfv, GLenum -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glTexParameteri, GLenum -> GLenum -> GLint -> GL ())+GLAPI(glTexParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glTexImage1D, GLenum -> GLint -> GLint -> GLsizei -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glTexImage2D, GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glDrawBuffer, GLenum -> GL ())+GLAPI(glClear, GLbitfield -> GL ())+GLAPI(glClearColor, GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glClearStencil, GLint -> GL ())+GLAPI(glClearDepth, GLdouble -> GL ())+GLAPI(glStencilMask, GLuint -> GL ())+GLAPI(glColorMask, GLboolean -> GLboolean -> GLboolean -> GLboolean -> GL ())+GLAPI(glDepthMask, GLboolean -> GL ())+GLAPI(glDisable, GLenum -> GL ())+GLAPI(glEnable, GLenum -> GL ())+GLAPI(glFinish, GL ())+GLAPI(glFlush, GL ())+GLAPI(glBlendFunc, GLenum -> GLenum -> GL ())+GLAPI(glLogicOp, GLenum -> GL ())+GLAPI(glStencilFunc, GLenum -> GLint -> GLuint -> GL ())+GLAPI(glStencilOp, GLenum -> GLenum -> GLenum -> GL ())+GLAPI(glDepthFunc, GLenum -> GL ())+GLAPI(glPixelStoref, GLenum -> GLfloat -> GL ())+GLAPI(glPixelStorei, GLenum -> GLint -> GL ())+GLAPI(glReadBuffer, GLenum -> GL ())+GLAPI(glReadPixels, GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glGetBooleanv, GLenum -> Ptr GLboolean -> GL ())+GLAPI(glGetDoublev, GLenum -> Ptr GLdouble -> GL ())+GLAPI(glGetError, GL GLenum)+GLAPI(glGetFloatv, GLenum -> Ptr GLfloat -> GL ())+GLAPI(glGetIntegerv, GLenum -> Ptr GLint -> GL ())+GLAPI(glGetString, GLenum -> GL CString)+GLAPI(glGetTexImage, GLenum -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glGetTexParameterfv, GLenum -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glGetTexParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetTexLevelParameterfv, GLenum -> GLint -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glGetTexLevelParameteriv, GLenum -> GLint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glIsEnabled, GLenum -> GL GLboolean)+GLAPI(glDepthRange, GLdouble -> GLdouble -> GL ())+GLAPI(glViewport, GLint -> GLint -> GLsizei -> GLsizei -> GL ())+-- #endif /* GL_VERSION_1_0 */+-- #ifndef GL_VERSION_1_1+-- #define GL_VERSION_1_1 1+-- #define GL_DEPTH_BUFFER_BIT               0x00000100+-- #define GL_STENCIL_BUFFER_BIT             0x00000400+-- #define GL_COLOR_BUFFER_BIT               0x00004000+-- #define GL_FALSE                          0+-- #define GL_TRUE                           1+-- #define GL_POINTS                         0x0000+-- #define GL_LINES                          0x0001+-- #define GL_LINE_LOOP                      0x0002+-- #define GL_LINE_STRIP                     0x0003+-- #define GL_TRIANGLES                      0x0004+-- #define GL_TRIANGLE_STRIP                 0x0005+-- #define GL_TRIANGLE_FAN                   0x0006+-- #define GL_QUADS                          0x0007+-- #define GL_NEVER                          0x0200+-- #define GL_LESS                           0x0201+-- #define GL_EQUAL                          0x0202+-- #define GL_LEQUAL                         0x0203+-- #define GL_GREATER                        0x0204+-- #define GL_NOTEQUAL                       0x0205+-- #define GL_GEQUAL                         0x0206+-- #define GL_ALWAYS                         0x0207+-- #define GL_ZERO                           0+-- #define GL_ONE                            1+-- #define GL_SRC_COLOR                      0x0300+-- #define GL_ONE_MINUS_SRC_COLOR            0x0301+-- #define GL_SRC_ALPHA                      0x0302+-- #define GL_ONE_MINUS_SRC_ALPHA            0x0303+-- #define GL_DST_ALPHA                      0x0304+-- #define GL_ONE_MINUS_DST_ALPHA            0x0305+-- #define GL_DST_COLOR                      0x0306+-- #define GL_ONE_MINUS_DST_COLOR            0x0307+-- #define GL_SRC_ALPHA_SATURATE             0x0308+-- #define GL_NONE                           0+-- #define GL_FRONT_LEFT                     0x0400+-- #define GL_FRONT_RIGHT                    0x0401+-- #define GL_BACK_LEFT                      0x0402+-- #define GL_BACK_RIGHT                     0x0403+-- #define GL_FRONT                          0x0404+-- #define GL_BACK                           0x0405+-- #define GL_LEFT                           0x0406+-- #define GL_RIGHT                          0x0407+-- #define GL_FRONT_AND_BACK                 0x0408+-- #define GL_NO_ERROR                       0+-- #define GL_INVALID_ENUM                   0x0500+-- #define GL_INVALID_VALUE                  0x0501+-- #define GL_INVALID_OPERATION              0x0502+-- #define GL_OUT_OF_MEMORY                  0x0505+-- #define GL_CW                             0x0900+-- #define GL_CCW                            0x0901+-- #define GL_POINT_SIZE                     0x0B11+-- #define GL_POINT_SIZE_RANGE               0x0B12+-- #define GL_POINT_SIZE_GRANULARITY         0x0B13+-- #define GL_LINE_SMOOTH                    0x0B20+-- #define GL_LINE_WIDTH                     0x0B21+-- #define GL_LINE_WIDTH_RANGE               0x0B22+-- #define GL_LINE_WIDTH_GRANULARITY         0x0B23+-- #define GL_POLYGON_MODE                   0x0B40+-- #define GL_POLYGON_SMOOTH                 0x0B41+-- #define GL_CULL_FACE                      0x0B44+-- #define GL_CULL_FACE_MODE                 0x0B45+-- #define GL_FRONT_FACE                     0x0B46+-- #define GL_DEPTH_RANGE                    0x0B70+-- #define GL_DEPTH_TEST                     0x0B71+-- #define GL_DEPTH_WRITEMASK                0x0B72+-- #define GL_DEPTH_CLEAR_VALUE              0x0B73+-- #define GL_DEPTH_FUNC                     0x0B74+-- #define GL_STENCIL_TEST                   0x0B90+-- #define GL_STENCIL_CLEAR_VALUE            0x0B91+-- #define GL_STENCIL_FUNC                   0x0B92+-- #define GL_STENCIL_VALUE_MASK             0x0B93+-- #define GL_STENCIL_FAIL                   0x0B94+-- #define GL_STENCIL_PASS_DEPTH_FAIL        0x0B95+-- #define GL_STENCIL_PASS_DEPTH_PASS        0x0B96+-- #define GL_STENCIL_REF                    0x0B97+-- #define GL_STENCIL_WRITEMASK              0x0B98+-- #define GL_VIEWPORT                       0x0BA2+-- #define GL_DITHER                         0x0BD0+-- #define GL_BLEND_DST                      0x0BE0+-- #define GL_BLEND_SRC                      0x0BE1+-- #define GL_BLEND                          0x0BE2+-- #define GL_LOGIC_OP_MODE                  0x0BF0+-- #define GL_COLOR_LOGIC_OP                 0x0BF2+-- #define GL_DRAW_BUFFER                    0x0C01+-- #define GL_READ_BUFFER                    0x0C02+-- #define GL_SCISSOR_BOX                    0x0C10+-- #define GL_SCISSOR_TEST                   0x0C11+-- #define GL_COLOR_CLEAR_VALUE              0x0C22+-- #define GL_COLOR_WRITEMASK                0x0C23+-- #define GL_DOUBLEBUFFER                   0x0C32+-- #define GL_STEREO                         0x0C33+-- #define GL_LINE_SMOOTH_HINT               0x0C52+-- #define GL_POLYGON_SMOOTH_HINT            0x0C53+-- #define GL_UNPACK_SWAP_BYTES              0x0CF0+-- #define GL_UNPACK_LSB_FIRST               0x0CF1+-- #define GL_UNPACK_ROW_LENGTH              0x0CF2+-- #define GL_UNPACK_SKIP_ROWS               0x0CF3+-- #define GL_UNPACK_SKIP_PIXELS             0x0CF4+-- #define GL_UNPACK_ALIGNMENT               0x0CF5+-- #define GL_PACK_SWAP_BYTES                0x0D00+-- #define GL_PACK_LSB_FIRST                 0x0D01+-- #define GL_PACK_ROW_LENGTH                0x0D02+-- #define GL_PACK_SKIP_ROWS                 0x0D03+-- #define GL_PACK_SKIP_PIXELS               0x0D04+-- #define GL_PACK_ALIGNMENT                 0x0D05+-- #define GL_MAX_TEXTURE_SIZE               0x0D33+-- #define GL_MAX_VIEWPORT_DIMS              0x0D3A+-- #define GL_SUBPIXEL_BITS                  0x0D50+-- #define GL_TEXTURE_1D                     0x0DE0+-- #define GL_TEXTURE_2D                     0x0DE1+-- #define GL_POLYGON_OFFSET_UNITS           0x2A00+-- #define GL_POLYGON_OFFSET_POINT           0x2A01+-- #define GL_POLYGON_OFFSET_LINE            0x2A02+-- #define GL_POLYGON_OFFSET_FILL            0x8037+-- #define GL_POLYGON_OFFSET_FACTOR          0x8038+-- #define GL_TEXTURE_BINDING_1D             0x8068+-- #define GL_TEXTURE_BINDING_2D             0x8069+-- #define GL_TEXTURE_WIDTH                  0x1000+-- #define GL_TEXTURE_HEIGHT                 0x1001+-- #define GL_TEXTURE_INTERNAL_FORMAT        0x1003+-- #define GL_TEXTURE_BORDER_COLOR           0x1004+-- #define GL_TEXTURE_RED_SIZE               0x805C+-- #define GL_TEXTURE_GREEN_SIZE             0x805D+-- #define GL_TEXTURE_BLUE_SIZE              0x805E+-- #define GL_TEXTURE_ALPHA_SIZE             0x805F+-- #define GL_DONT_CARE                      0x1100+-- #define GL_FASTEST                        0x1101+-- #define GL_NICEST                         0x1102+-- #define GL_BYTE                           0x1400+-- #define GL_UNSIGNED_BYTE                  0x1401+-- #define GL_SHORT                          0x1402+-- #define GL_UNSIGNED_SHORT                 0x1403+-- #define GL_INT                            0x1404+-- #define GL_UNSIGNED_INT                   0x1405+-- #define GL_FLOAT                          0x1406+-- #define GL_DOUBLE                         0x140A+-- #define GL_STACK_OVERFLOW                 0x0503+-- #define GL_STACK_UNDERFLOW                0x0504+-- #define GL_CLEAR                          0x1500+-- #define GL_AND                            0x1501+-- #define GL_AND_REVERSE                    0x1502+-- #define GL_COPY                           0x1503+-- #define GL_AND_INVERTED                   0x1504+-- #define GL_NOOP                           0x1505+-- #define GL_XOR                            0x1506+-- #define GL_OR                             0x1507+-- #define GL_NOR                            0x1508+-- #define GL_EQUIV                          0x1509+-- #define GL_INVERT                         0x150A+-- #define GL_OR_REVERSE                     0x150B+-- #define GL_COPY_INVERTED                  0x150C+-- #define GL_OR_INVERTED                    0x150D+-- #define GL_NAND                           0x150E+-- #define GL_SET                            0x150F+-- #define GL_TEXTURE                        0x1702+-- #define GL_COLOR                          0x1800+-- #define GL_DEPTH                          0x1801+-- #define GL_STENCIL                        0x1802+-- #define GL_STENCIL_INDEX                  0x1901+-- #define GL_DEPTH_COMPONENT                0x1902+-- #define GL_RED                            0x1903+-- #define GL_GREEN                          0x1904+-- #define GL_BLUE                           0x1905+-- #define GL_ALPHA                          0x1906+-- #define GL_RGB                            0x1907+-- #define GL_RGBA                           0x1908+-- #define GL_POINT                          0x1B00+-- #define GL_LINE                           0x1B01+-- #define GL_FILL                           0x1B02+-- #define GL_KEEP                           0x1E00+-- #define GL_REPLACE                        0x1E01+-- #define GL_INCR                           0x1E02+-- #define GL_DECR                           0x1E03+-- #define GL_VENDOR                         0x1F00+-- #define GL_RENDERER                       0x1F01+-- #define GL_VERSION                        0x1F02+-- #define GL_EXTENSIONS                     0x1F03+-- #define GL_NEAREST                        0x2600+-- #define GL_LINEAR                         0x2601+-- #define GL_NEAREST_MIPMAP_NEAREST         0x2700+-- #define GL_LINEAR_MIPMAP_NEAREST          0x2701+-- #define GL_NEAREST_MIPMAP_LINEAR          0x2702+-- #define GL_LINEAR_MIPMAP_LINEAR           0x2703+-- #define GL_TEXTURE_MAG_FILTER             0x2800+-- #define GL_TEXTURE_MIN_FILTER             0x2801+-- #define GL_TEXTURE_WRAP_S                 0x2802+-- #define GL_TEXTURE_WRAP_T                 0x2803+-- #define GL_PROXY_TEXTURE_1D               0x8063+-- #define GL_PROXY_TEXTURE_2D               0x8064+-- #define GL_REPEAT                         0x2901+-- #define GL_R3_G3_B2                       0x2A10+-- #define GL_RGB4                           0x804F+-- #define GL_RGB5                           0x8050+-- #define GL_RGB8                           0x8051+-- #define GL_RGB10                          0x8052+-- #define GL_RGB12                          0x8053+-- #define GL_RGB16                          0x8054+-- #define GL_RGBA2                          0x8055+-- #define GL_RGBA4                          0x8056+-- #define GL_RGB5_A1                        0x8057+-- #define GL_RGBA8                          0x8058+-- #define GL_RGB10_A2                       0x8059+-- #define GL_RGBA12                         0x805A+-- #define GL_RGBA16                         0x805B+-- #define GL_VERTEX_ARRAY                   0x8074+GLAPI(glDrawArrays, GLenum -> GLint -> GLsizei -> GL ())+GLAPI(glDrawElements, GLenum -> GLsizei -> GLenum -> Ptr () -> GL ())+GLAPI(glGetPointerv, GLenum -> Ptr (Ptr ()) -> GL ())+GLAPI(glPolygonOffset, GLfloat -> GLfloat -> GL ())+GLAPI(glCopyTexImage1D, GLenum -> GLint -> GLenum -> GLint -> GLint -> GLsizei -> GLint -> GL ())+GLAPI(glCopyTexImage2D, GLenum -> GLint -> GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> GL ())+GLAPI(glCopyTexSubImage1D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GL ())+GLAPI(glCopyTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLAPI(glTexSubImage1D, GLenum -> GLint -> GLint -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glBindTexture, GLenum -> GLuint -> GL ())+GLAPI(glDeleteTextures, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGenTextures, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glIsTexture, GLuint -> GL GLboolean)+-- #endif /* GL_VERSION_1_1 */+-- #ifndef GL_VERSION_1_2+-- #define GL_VERSION_1_2 1+-- #define GL_UNSIGNED_BYTE_3_3_2            0x8032+-- #define GL_UNSIGNED_SHORT_4_4_4_4         0x8033+-- #define GL_UNSIGNED_SHORT_5_5_5_1         0x8034+-- #define GL_UNSIGNED_INT_8_8_8_8           0x8035+-- #define GL_UNSIGNED_INT_10_10_10_2        0x8036+-- #define GL_TEXTURE_BINDING_3D             0x806A+-- #define GL_PACK_SKIP_IMAGES               0x806B+-- #define GL_PACK_IMAGE_HEIGHT              0x806C+-- #define GL_UNPACK_SKIP_IMAGES             0x806D+-- #define GL_UNPACK_IMAGE_HEIGHT            0x806E+-- #define GL_TEXTURE_3D                     0x806F+-- #define GL_PROXY_TEXTURE_3D               0x8070+-- #define GL_TEXTURE_DEPTH                  0x8071+-- #define GL_TEXTURE_WRAP_R                 0x8072+-- #define GL_MAX_3D_TEXTURE_SIZE            0x8073+-- #define GL_UNSIGNED_BYTE_2_3_3_REV        0x8362+-- #define GL_UNSIGNED_SHORT_5_6_5           0x8363+-- #define GL_UNSIGNED_SHORT_5_6_5_REV       0x8364+-- #define GL_UNSIGNED_SHORT_4_4_4_4_REV     0x8365+-- #define GL_UNSIGNED_SHORT_1_5_5_5_REV     0x8366+-- #define GL_UNSIGNED_INT_8_8_8_8_REV       0x8367+-- #define GL_UNSIGNED_INT_2_10_10_10_REV    0x8368+-- #define GL_BGR                            0x80E0+-- #define GL_BGRA                           0x80E1+-- #define GL_MAX_ELEMENTS_VERTICES          0x80E8+-- #define GL_MAX_ELEMENTS_INDICES           0x80E9+-- #define GL_CLAMP_TO_EDGE                  0x812F+-- #define GL_TEXTURE_MIN_LOD                0x813A+-- #define GL_TEXTURE_MAX_LOD                0x813B+-- #define GL_TEXTURE_BASE_LEVEL             0x813C+-- #define GL_TEXTURE_MAX_LEVEL              0x813D+-- #define GL_SMOOTH_POINT_SIZE_RANGE        0x0B12+-- #define GL_SMOOTH_POINT_SIZE_GRANULARITY  0x0B13+-- #define GL_SMOOTH_LINE_WIDTH_RANGE        0x0B22+-- #define GL_SMOOTH_LINE_WIDTH_GRANULARITY  0x0B23+-- #define GL_ALIASED_LINE_WIDTH_RANGE       0x846E+GLAPI(glDrawRangeElements, GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> Ptr () -> GL ())+GLAPI(glTexImage3D, GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glCopyTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+-- #endif /* GL_VERSION_1_2 */+-- #ifndef GL_VERSION_1_3+-- #define GL_VERSION_1_3 1+-- #define GL_TEXTURE0                       0x84C0+-- #define GL_TEXTURE1                       0x84C1+-- #define GL_TEXTURE2                       0x84C2+-- #define GL_TEXTURE3                       0x84C3+-- #define GL_TEXTURE4                       0x84C4+-- #define GL_TEXTURE5                       0x84C5+-- #define GL_TEXTURE6                       0x84C6+-- #define GL_TEXTURE7                       0x84C7+-- #define GL_TEXTURE8                       0x84C8+-- #define GL_TEXTURE9                       0x84C9+-- #define GL_TEXTURE10                      0x84CA+-- #define GL_TEXTURE11                      0x84CB+-- #define GL_TEXTURE12                      0x84CC+-- #define GL_TEXTURE13                      0x84CD+-- #define GL_TEXTURE14                      0x84CE+-- #define GL_TEXTURE15                      0x84CF+-- #define GL_TEXTURE16                      0x84D0+-- #define GL_TEXTURE17                      0x84D1+-- #define GL_TEXTURE18                      0x84D2+-- #define GL_TEXTURE19                      0x84D3+-- #define GL_TEXTURE20                      0x84D4+-- #define GL_TEXTURE21                      0x84D5+-- #define GL_TEXTURE22                      0x84D6+-- #define GL_TEXTURE23                      0x84D7+-- #define GL_TEXTURE24                      0x84D8+-- #define GL_TEXTURE25                      0x84D9+-- #define GL_TEXTURE26                      0x84DA+-- #define GL_TEXTURE27                      0x84DB+-- #define GL_TEXTURE28                      0x84DC+-- #define GL_TEXTURE29                      0x84DD+-- #define GL_TEXTURE30                      0x84DE+-- #define GL_TEXTURE31                      0x84DF+-- #define GL_ACTIVE_TEXTURE                 0x84E0+-- #define GL_MULTISAMPLE                    0x809D+-- #define GL_SAMPLE_ALPHA_TO_COVERAGE       0x809E+-- #define GL_SAMPLE_ALPHA_TO_ONE            0x809F+-- #define GL_SAMPLE_COVERAGE                0x80A0+-- #define GL_SAMPLE_BUFFERS                 0x80A8+-- #define GL_SAMPLES                        0x80A9+-- #define GL_SAMPLE_COVERAGE_VALUE          0x80AA+-- #define GL_SAMPLE_COVERAGE_INVERT         0x80AB+-- #define GL_TEXTURE_CUBE_MAP               0x8513+-- #define GL_TEXTURE_BINDING_CUBE_MAP       0x8514+-- #define GL_TEXTURE_CUBE_MAP_POSITIVE_X    0x8515+-- #define GL_TEXTURE_CUBE_MAP_NEGATIVE_X    0x8516+-- #define GL_TEXTURE_CUBE_MAP_POSITIVE_Y    0x8517+-- #define GL_TEXTURE_CUBE_MAP_NEGATIVE_Y    0x8518+-- #define GL_TEXTURE_CUBE_MAP_POSITIVE_Z    0x8519+-- #define GL_TEXTURE_CUBE_MAP_NEGATIVE_Z    0x851A+-- #define GL_PROXY_TEXTURE_CUBE_MAP         0x851B+-- #define GL_MAX_CUBE_MAP_TEXTURE_SIZE      0x851C+-- #define GL_COMPRESSED_RGB                 0x84ED+-- #define GL_COMPRESSED_RGBA                0x84EE+-- #define GL_TEXTURE_COMPRESSION_HINT       0x84EF+-- #define GL_TEXTURE_COMPRESSED_IMAGE_SIZE  0x86A0+-- #define GL_TEXTURE_COMPRESSED             0x86A1+-- #define GL_NUM_COMPRESSED_TEXTURE_FORMATS 0x86A2+-- #define GL_COMPRESSED_TEXTURE_FORMATS     0x86A3+-- #define GL_CLAMP_TO_BORDER                0x812D+GLAPI(glActiveTexture, GLenum -> GL ())+GLAPI(glSampleCoverage, GLfloat -> GLboolean -> GL ())+GLAPI(glCompressedTexImage3D, GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GLint -> GLsizei -> Ptr () -> GL ())+GLAPI(glCompressedTexImage2D, GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLint -> GLsizei -> Ptr () -> GL ())+GLAPI(glCompressedTexImage1D, GLenum -> GLint -> GLenum -> GLsizei -> GLint -> GLsizei -> Ptr () -> GL ())+GLAPI(glCompressedTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glCompressedTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glCompressedTexSubImage1D, GLenum -> GLint -> GLint -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetCompressedTexImage, GLenum -> GLint -> Ptr () -> GL ())+-- #endif /* GL_VERSION_1_3 */+-- #ifndef GL_VERSION_1_4+-- #define GL_VERSION_1_4 1+-- #define GL_BLEND_DST_RGB                  0x80C8+-- #define GL_BLEND_SRC_RGB                  0x80C9+-- #define GL_BLEND_DST_ALPHA                0x80CA+-- #define GL_BLEND_SRC_ALPHA                0x80CB+-- #define GL_POINT_FADE_THRESHOLD_SIZE      0x8128+-- #define GL_DEPTH_COMPONENT16              0x81A5+-- #define GL_DEPTH_COMPONENT24              0x81A6+-- #define GL_DEPTH_COMPONENT32              0x81A7+-- #define GL_MIRRORED_REPEAT                0x8370+-- #define GL_MAX_TEXTURE_LOD_BIAS           0x84FD+-- #define GL_TEXTURE_LOD_BIAS               0x8501+-- #define GL_INCR_WRAP                      0x8507+-- #define GL_DECR_WRAP                      0x8508+-- #define GL_TEXTURE_DEPTH_SIZE             0x884A+-- #define GL_TEXTURE_COMPARE_MODE           0x884C+-- #define GL_TEXTURE_COMPARE_FUNC           0x884D+-- #define GL_FUNC_ADD                       0x8006+-- #define GL_FUNC_SUBTRACT                  0x800A+-- #define GL_FUNC_REVERSE_SUBTRACT          0x800B+-- #define GL_MIN                            0x8007+-- #define GL_MAX                            0x8008+-- #define GL_CONSTANT_COLOR                 0x8001+-- #define GL_ONE_MINUS_CONSTANT_COLOR       0x8002+-- #define GL_CONSTANT_ALPHA                 0x8003+-- #define GL_ONE_MINUS_CONSTANT_ALPHA       0x8004+GLAPI(glBlendFuncSeparate, GLenum -> GLenum -> GLenum -> GLenum -> GL ())+GLAPI(glMultiDrawArrays, GLenum -> Ptr GLint -> Ptr GLsizei -> GLsizei -> GL ())+GLAPI(glMultiDrawElements, GLenum -> Ptr GLsizei -> GLenum -> Ptr (Ptr ()) -> GLsizei -> GL ())+GLAPI(glPointParameterf, GLenum -> GLfloat -> GL ())+GLAPI(glPointParameterfv, GLenum -> Ptr GLfloat -> GL ())+GLAPI(glPointParameteri, GLenum -> GLint -> GL ())+GLAPI(glPointParameteriv, GLenum -> Ptr GLint -> GL ())+GLAPI(glBlendColor, GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glBlendEquation, GLenum -> GL ())+-- #endif /* GL_VERSION_1_4 */+-- #ifndef GL_VERSION_1_5+-- #define GL_VERSION_1_5 1+-- #include <stddef.h>+-- #define GL_BUFFER_SIZE                    0x8764+-- #define GL_BUFFER_USAGE                   0x8765+-- #define GL_QUERY_COUNTER_BITS             0x8864+-- #define GL_CURRENT_QUERY                  0x8865+-- #define GL_QUERY_RESULT                   0x8866+-- #define GL_QUERY_RESULT_AVAILABLE         0x8867+-- #define GL_ARRAY_BUFFER                   0x8892+-- #define GL_ELEMENT_ARRAY_BUFFER           0x8893+-- #define GL_ARRAY_BUFFER_BINDING           0x8894+-- #define GL_ELEMENT_ARRAY_BUFFER_BINDING   0x8895+-- #define GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING 0x889F+-- #define GL_READ_ONLY                      0x88B8+-- #define GL_WRITE_ONLY                     0x88B9+-- #define GL_READ_WRITE                     0x88BA+-- #define GL_BUFFER_ACCESS                  0x88BB+-- #define GL_BUFFER_MAPPED                  0x88BC+-- #define GL_BUFFER_MAP_POINTER             0x88BD+-- #define GL_STREAM_DRAW                    0x88E0+-- #define GL_STREAM_READ                    0x88E1+-- #define GL_STREAM_COPY                    0x88E2+-- #define GL_STATIC_DRAW                    0x88E4+-- #define GL_STATIC_READ                    0x88E5+-- #define GL_STATIC_COPY                    0x88E6+-- #define GL_DYNAMIC_DRAW                   0x88E8+-- #define GL_DYNAMIC_READ                   0x88E9+-- #define GL_DYNAMIC_COPY                   0x88EA+-- #define GL_SAMPLES_PASSED                 0x8914+-- #define GL_SRC1_ALPHA                     0x8589+GLAPI(glGenQueries, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glDeleteQueries, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glIsQuery, GLuint -> GL GLboolean)+GLAPI(glBeginQuery, GLenum -> GLuint -> GL ())+GLAPI(glEndQuery, GLenum -> GL ())+GLAPI(glGetQueryiv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetQueryObjectiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetQueryObjectuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())+GLAPI(glBindBuffer, GLenum -> GLuint -> GL ())+GLAPI(glDeleteBuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGenBuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glIsBuffer, GLuint -> GL GLboolean)+GLAPI(glBufferData, GLenum -> GLsizeiptr -> Ptr () -> GLenum -> GL ())+GLAPI(glBufferSubData, GLenum -> GLintptr -> GLsizeiptr -> Ptr () -> GL ())+GLAPI(glGetBufferSubData, GLenum -> GLintptr -> GLsizeiptr -> Ptr () -> GL ())+GLAPI(glMapBuffer, GLenum -> GLenum -> GL (Ptr ()))+GLAPI(glUnmapBuffer, GLenum -> GL GLboolean)+GLAPI(glGetBufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetBufferPointerv, GLenum -> GLenum -> Ptr (Ptr ()) -> GL ())+-- #endif /* GL_VERSION_1_5 */+-- #ifndef GL_VERSION_2_0+-- #define GL_VERSION_2_0 1+-- #define GL_BLEND_EQUATION_RGB             0x8009+-- #define GL_VERTEX_ATTRIB_ARRAY_ENABLED    0x8622+-- #define GL_VERTEX_ATTRIB_ARRAY_SIZE       0x8623+-- #define GL_VERTEX_ATTRIB_ARRAY_STRIDE     0x8624+-- #define GL_VERTEX_ATTRIB_ARRAY_TYPE       0x8625+-- #define GL_CURRENT_VERTEX_ATTRIB          0x8626+-- #define GL_VERTEX_PROGRAM_POINT_SIZE      0x8642+-- #define GL_VERTEX_ATTRIB_ARRAY_POINTER    0x8645+-- #define GL_STENCIL_BACK_FUNC              0x8800+-- #define GL_STENCIL_BACK_FAIL              0x8801+-- #define GL_STENCIL_BACK_PASS_DEPTH_FAIL   0x8802+-- #define GL_STENCIL_BACK_PASS_DEPTH_PASS   0x8803+-- #define GL_MAX_DRAW_BUFFERS               0x8824+-- #define GL_DRAW_BUFFER0                   0x8825+-- #define GL_DRAW_BUFFER1                   0x8826+-- #define GL_DRAW_BUFFER2                   0x8827+-- #define GL_DRAW_BUFFER3                   0x8828+-- #define GL_DRAW_BUFFER4                   0x8829+-- #define GL_DRAW_BUFFER5                   0x882A+-- #define GL_DRAW_BUFFER6                   0x882B+-- #define GL_DRAW_BUFFER7                   0x882C+-- #define GL_DRAW_BUFFER8                   0x882D+-- #define GL_DRAW_BUFFER9                   0x882E+-- #define GL_DRAW_BUFFER10                  0x882F+-- #define GL_DRAW_BUFFER11                  0x8830+-- #define GL_DRAW_BUFFER12                  0x8831+-- #define GL_DRAW_BUFFER13                  0x8832+-- #define GL_DRAW_BUFFER14                  0x8833+-- #define GL_DRAW_BUFFER15                  0x8834+-- #define GL_BLEND_EQUATION_ALPHA           0x883D+-- #define GL_MAX_VERTEX_ATTRIBS             0x8869+-- #define GL_VERTEX_ATTRIB_ARRAY_NORMALIZED 0x886A+-- #define GL_MAX_TEXTURE_IMAGE_UNITS        0x8872+-- #define GL_FRAGMENT_SHADER                0x8B30+-- #define GL_VERTEX_SHADER                  0x8B31+-- #define GL_MAX_FRAGMENT_UNIFORM_COMPONENTS 0x8B49+-- #define GL_MAX_VERTEX_UNIFORM_COMPONENTS  0x8B4A+-- #define GL_MAX_VARYING_FLOATS             0x8B4B+-- #define GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS 0x8B4C+-- #define GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS 0x8B4D+-- #define GL_SHADER_TYPE                    0x8B4F+-- #define GL_FLOAT_VEC2                     0x8B50+-- #define GL_FLOAT_VEC3                     0x8B51+-- #define GL_FLOAT_VEC4                     0x8B52+-- #define GL_INT_VEC2                       0x8B53+-- #define GL_INT_VEC3                       0x8B54+-- #define GL_INT_VEC4                       0x8B55+-- #define GL_BOOL                           0x8B56+-- #define GL_BOOL_VEC2                      0x8B57+-- #define GL_BOOL_VEC3                      0x8B58+-- #define GL_BOOL_VEC4                      0x8B59+-- #define GL_FLOAT_MAT2                     0x8B5A+-- #define GL_FLOAT_MAT3                     0x8B5B+-- #define GL_FLOAT_MAT4                     0x8B5C+-- #define GL_SAMPLER_1D                     0x8B5D+-- #define GL_SAMPLER_2D                     0x8B5E+-- #define GL_SAMPLER_3D                     0x8B5F+-- #define GL_SAMPLER_CUBE                   0x8B60+-- #define GL_SAMPLER_1D_SHADOW              0x8B61+-- #define GL_SAMPLER_2D_SHADOW              0x8B62+-- #define GL_DELETE_STATUS                  0x8B80+-- #define GL_COMPILE_STATUS                 0x8B81+-- #define GL_LINK_STATUS                    0x8B82+-- #define GL_VALIDATE_STATUS                0x8B83+-- #define GL_INFO_LOG_LENGTH                0x8B84+-- #define GL_ATTACHED_SHADERS               0x8B85+-- #define GL_ACTIVE_UNIFORMS                0x8B86+-- #define GL_ACTIVE_UNIFORM_MAX_LENGTH      0x8B87+-- #define GL_SHADER_SOURCE_LENGTH           0x8B88+-- #define GL_ACTIVE_ATTRIBUTES              0x8B89+-- #define GL_ACTIVE_ATTRIBUTE_MAX_LENGTH    0x8B8A+-- #define GL_FRAGMENT_SHADER_DERIVATIVE_HINT 0x8B8B+-- #define GL_SHADING_LANGUAGE_VERSION       0x8B8C+-- #define GL_CURRENT_PROGRAM                0x8B8D+-- #define GL_POINT_SPRITE_COORD_ORIGIN      0x8CA0+-- #define GL_LOWER_LEFT                     0x8CA1+-- #define GL_UPPER_LEFT                     0x8CA2+-- #define GL_STENCIL_BACK_REF               0x8CA3+-- #define GL_STENCIL_BACK_VALUE_MASK        0x8CA4+-- #define GL_STENCIL_BACK_WRITEMASK         0x8CA5+GLAPI(glBlendEquationSeparate, GLenum -> GLenum -> GL ())+GLAPI(glDrawBuffers, GLsizei -> Ptr GLenum -> GL ())+GLAPI(glStencilOpSeparate, GLenum -> GLenum -> GLenum -> GLenum -> GL ())+GLAPI(glStencilFuncSeparate, GLenum -> GLenum -> GLint -> GLuint -> GL ())+GLAPI(glStencilMaskSeparate, GLenum -> GLuint -> GL ())+GLAPI(glAttachShader, GLuint -> GLuint -> GL ())+GLAPI(glBindAttribLocation, GLuint -> GLuint -> CString -> GL ())+GLAPI(glCompileShader, GLuint -> GL ())+GLAPI(glCreateProgram, GL GLuint)+GLAPI(glCreateShader, GLenum -> GL GLuint)+GLAPI(glDeleteProgram, GLuint -> GL ())+GLAPI(glDeleteShader, GLuint -> GL ())+GLAPI(glDetachShader, GLuint -> GLuint -> GL ())+GLAPI(glDisableVertexAttribArray, GLuint -> GL ())+GLAPI(glEnableVertexAttribArray, GLuint -> GL ())+GLAPI(glGetActiveAttrib, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLint -> Ptr GLenum -> CString -> GL ())+GLAPI(glGetActiveUniform, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLint -> Ptr GLenum -> CString -> GL ())+GLAPI(glGetAttachedShaders, GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGetAttribLocation, GLuint -> CString -> GL GLint)+GLAPI(glGetProgramiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetProgramInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glGetShaderiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetShaderInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glGetShaderSource, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glGetUniformLocation, GLuint -> CString -> GL GLint)+GLAPI(glGetUniformfv, GLuint -> GLint -> Ptr GLfloat -> GL ())+GLAPI(glGetUniformiv, GLuint -> GLint -> Ptr GLint -> GL ())+GLAPI(glGetVertexAttribdv, GLuint -> GLenum -> Ptr GLdouble -> GL ())+GLAPI(glGetVertexAttribfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glGetVertexAttribiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetVertexAttribPointerv, GLuint -> GLenum -> Ptr (Ptr ()) -> GL ())+GLAPI(glIsProgram, GLuint -> GL GLboolean)+GLAPI(glIsShader, GLuint -> GL GLboolean)+GLAPI(glLinkProgram, GLuint -> GL ())+GLAPI(glShaderSource, GLuint -> GLsizei -> Ptr CString -> Ptr GLint -> GL ())+GLAPI(glUseProgram, GLuint -> GL ())+GLAPI(glUniform1f, GLint -> GLfloat -> GL ())+GLAPI(glUniform2f, GLint -> GLfloat -> GLfloat -> GL ())+GLAPI(glUniform3f, GLint -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glUniform4f, GLint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glUniform1i, GLint -> GLint -> GL ())+GLAPI(glUniform2i, GLint -> GLint -> GLint -> GL ())+GLAPI(glUniform3i, GLint -> GLint -> GLint -> GLint -> GL ())+GLAPI(glUniform4i, GLint -> GLint -> GLint -> GLint -> GLint -> GL ())+GLAPI(glUniform1fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glUniform2fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glUniform3fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glUniform4fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glUniform1iv, GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glUniform2iv, GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glUniform3iv, GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glUniform4iv, GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glUniformMatrix2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glUniformMatrix3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glUniformMatrix4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glValidateProgram, GLuint -> GL ())+GLAPI(glVertexAttrib1d, GLuint -> GLdouble -> GL ())+GLAPI(glVertexAttrib1dv, GLuint -> Ptr GLdouble -> GL ())+GLAPI(glVertexAttrib1f, GLuint -> GLfloat -> GL ())+GLAPI(glVertexAttrib1fv, GLuint -> Ptr GLfloat -> GL ())+GLAPI(glVertexAttrib1s, GLuint -> GLshort -> GL ())+GLAPI(glVertexAttrib1sv, GLuint -> Ptr GLshort -> GL ())+GLAPI(glVertexAttrib2d, GLuint -> GLdouble -> GLdouble -> GL ())+GLAPI(glVertexAttrib2dv, GLuint -> Ptr GLdouble -> GL ())+GLAPI(glVertexAttrib2f, GLuint -> GLfloat -> GLfloat -> GL ())+GLAPI(glVertexAttrib2fv, GLuint -> Ptr GLfloat -> GL ())+GLAPI(glVertexAttrib2s, GLuint -> GLshort -> GLshort -> GL ())+GLAPI(glVertexAttrib2sv, GLuint -> Ptr GLshort -> GL ())+GLAPI(glVertexAttrib3d, GLuint -> GLdouble -> GLdouble -> GLdouble -> GL ())+GLAPI(glVertexAttrib3dv, GLuint -> Ptr GLdouble -> GL ())+GLAPI(glVertexAttrib3f, GLuint -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glVertexAttrib3fv, GLuint -> Ptr GLfloat -> GL ())+GLAPI(glVertexAttrib3s, GLuint -> GLshort -> GLshort -> GLshort -> GL ())+GLAPI(glVertexAttrib3sv, GLuint -> Ptr GLshort -> GL ())+GLAPI(glVertexAttrib4Nbv, GLuint -> Ptr GLbyte -> GL ())+GLAPI(glVertexAttrib4Niv, GLuint -> Ptr GLint -> GL ())+GLAPI(glVertexAttrib4Nsv, GLuint -> Ptr GLshort -> GL ())+GLAPI(glVertexAttrib4Nub, GLuint -> GLubyte -> GLubyte -> GLubyte -> GLubyte -> GL ())+GLAPI(glVertexAttrib4Nubv, GLuint -> Ptr GLubyte -> GL ())+GLAPI(glVertexAttrib4Nuiv, GLuint -> Ptr GLuint -> GL ())+GLAPI(glVertexAttrib4Nusv, GLuint -> Ptr GLushort -> GL ())+GLAPI(glVertexAttrib4bv, GLuint -> Ptr GLbyte -> GL ())+GLAPI(glVertexAttrib4d, GLuint -> GLdouble -> GLdouble -> GLdouble -> GLdouble -> GL ())+GLAPI(glVertexAttrib4dv, GLuint -> Ptr GLdouble -> GL ())+GLAPI(glVertexAttrib4f, GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glVertexAttrib4fv, GLuint -> Ptr GLfloat -> GL ())+GLAPI(glVertexAttrib4iv, GLuint -> Ptr GLint -> GL ())+GLAPI(glVertexAttrib4s, GLuint -> GLshort -> GLshort -> GLshort -> GLshort -> GL ())+GLAPI(glVertexAttrib4sv, GLuint -> Ptr GLshort -> GL ())+GLAPI(glVertexAttrib4ubv, GLuint -> Ptr GLubyte -> GL ())+GLAPI(glVertexAttrib4uiv, GLuint -> Ptr GLuint -> GL ())+GLAPI(glVertexAttrib4usv, GLuint -> Ptr GLushort -> GL ())+GLAPI(glVertexAttribPointer, GLuint -> GLint -> GLenum -> GLboolean -> GLsizei -> Ptr () -> GL ())+-- #endif /* GL_VERSION_2_0 */+-- #ifndef GL_VERSION_2_1+-- #define GL_VERSION_2_1 1+-- #define GL_PIXEL_PACK_BUFFER              0x88EB+-- #define GL_PIXEL_UNPACK_BUFFER            0x88EC+-- #define GL_PIXEL_PACK_BUFFER_BINDING      0x88ED+-- #define GL_PIXEL_UNPACK_BUFFER_BINDING    0x88EF+-- #define GL_FLOAT_MAT2x3                   0x8B65+-- #define GL_FLOAT_MAT2x4                   0x8B66+-- #define GL_FLOAT_MAT3x2                   0x8B67+-- #define GL_FLOAT_MAT3x4                   0x8B68+-- #define GL_FLOAT_MAT4x2                   0x8B69+-- #define GL_FLOAT_MAT4x3                   0x8B6A+-- #define GL_SRGB                           0x8C40+-- #define GL_SRGB8                          0x8C41+-- #define GL_SRGB_ALPHA                     0x8C42+-- #define GL_SRGB8_ALPHA8                   0x8C43+-- #define GL_COMPRESSED_SRGB                0x8C48+-- #define GL_COMPRESSED_SRGB_ALPHA          0x8C49+GLAPI(glUniformMatrix2x3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glUniformMatrix3x2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glUniformMatrix2x4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glUniformMatrix4x2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glUniformMatrix3x4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glUniformMatrix4x3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+-- #endif /* GL_VERSION_2_1 */+-- #ifndef GL_VERSION_3_0+-- #define GL_VERSION_3_0 1+-- #define GL_COMPARE_REF_TO_TEXTURE         0x884E+-- #define GL_CLIP_DISTANCE0                 0x3000+-- #define GL_CLIP_DISTANCE1                 0x3001+-- #define GL_CLIP_DISTANCE2                 0x3002+-- #define GL_CLIP_DISTANCE3                 0x3003+-- #define GL_CLIP_DISTANCE4                 0x3004+-- #define GL_CLIP_DISTANCE5                 0x3005+-- #define GL_CLIP_DISTANCE6                 0x3006+-- #define GL_CLIP_DISTANCE7                 0x3007+-- #define GL_MAX_CLIP_DISTANCES             0x0D32+-- #define GL_MAJOR_VERSION                  0x821B+-- #define GL_MINOR_VERSION                  0x821C+-- #define GL_NUM_EXTENSIONS                 0x821D+-- #define GL_CONTEXT_FLAGS                  0x821E+-- #define GL_COMPRESSED_RED                 0x8225+-- #define GL_COMPRESSED_RG                  0x8226+-- #define GL_CONTEXT_FLAG_FORWARD_COMPATIBLE_BIT 0x00000001+-- #define GL_RGBA32F                        0x8814+-- #define GL_RGB32F                         0x8815+-- #define GL_RGBA16F                        0x881A+-- #define GL_RGB16F                         0x881B+-- #define GL_VERTEX_ATTRIB_ARRAY_INTEGER    0x88FD+-- #define GL_MAX_ARRAY_TEXTURE_LAYERS       0x88FF+-- #define GL_MIN_PROGRAM_TEXEL_OFFSET       0x8904+-- #define GL_MAX_PROGRAM_TEXEL_OFFSET       0x8905+-- #define GL_CLAMP_READ_COLOR               0x891C+-- #define GL_FIXED_ONLY                     0x891D+-- #define GL_MAX_VARYING_COMPONENTS         0x8B4B+-- #define GL_TEXTURE_1D_ARRAY               0x8C18+-- #define GL_PROXY_TEXTURE_1D_ARRAY         0x8C19+-- #define GL_TEXTURE_2D_ARRAY               0x8C1A+-- #define GL_PROXY_TEXTURE_2D_ARRAY         0x8C1B+-- #define GL_TEXTURE_BINDING_1D_ARRAY       0x8C1C+-- #define GL_TEXTURE_BINDING_2D_ARRAY       0x8C1D+-- #define GL_R11F_G11F_B10F                 0x8C3A+-- #define GL_UNSIGNED_INT_10F_11F_11F_REV   0x8C3B+-- #define GL_RGB9_E5                        0x8C3D+-- #define GL_UNSIGNED_INT_5_9_9_9_REV       0x8C3E+-- #define GL_TEXTURE_SHARED_SIZE            0x8C3F+-- #define GL_TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH 0x8C76+-- #define GL_TRANSFORM_FEEDBACK_BUFFER_MODE 0x8C7F+-- #define GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS 0x8C80+-- #define GL_TRANSFORM_FEEDBACK_VARYINGS    0x8C83+-- #define GL_TRANSFORM_FEEDBACK_BUFFER_START 0x8C84+-- #define GL_TRANSFORM_FEEDBACK_BUFFER_SIZE 0x8C85+-- #define GL_PRIMITIVES_GENERATED           0x8C87+-- #define GL_TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN 0x8C88+-- #define GL_RASTERIZER_DISCARD             0x8C89+-- #define GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS 0x8C8A+-- #define GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS 0x8C8B+-- #define GL_INTERLEAVED_ATTRIBS            0x8C8C+-- #define GL_SEPARATE_ATTRIBS               0x8C8D+-- #define GL_TRANSFORM_FEEDBACK_BUFFER      0x8C8E+-- #define GL_TRANSFORM_FEEDBACK_BUFFER_BINDING 0x8C8F+-- #define GL_RGBA32UI                       0x8D70+-- #define GL_RGB32UI                        0x8D71+-- #define GL_RGBA16UI                       0x8D76+-- #define GL_RGB16UI                        0x8D77+-- #define GL_RGBA8UI                        0x8D7C+-- #define GL_RGB8UI                         0x8D7D+-- #define GL_RGBA32I                        0x8D82+-- #define GL_RGB32I                         0x8D83+-- #define GL_RGBA16I                        0x8D88+-- #define GL_RGB16I                         0x8D89+-- #define GL_RGBA8I                         0x8D8E+-- #define GL_RGB8I                          0x8D8F+-- #define GL_RED_INTEGER                    0x8D94+-- #define GL_GREEN_INTEGER                  0x8D95+-- #define GL_BLUE_INTEGER                   0x8D96+-- #define GL_RGB_INTEGER                    0x8D98+-- #define GL_RGBA_INTEGER                   0x8D99+-- #define GL_BGR_INTEGER                    0x8D9A+-- #define GL_BGRA_INTEGER                   0x8D9B+-- #define GL_SAMPLER_1D_ARRAY               0x8DC0+-- #define GL_SAMPLER_2D_ARRAY               0x8DC1+-- #define GL_SAMPLER_1D_ARRAY_SHADOW        0x8DC3+-- #define GL_SAMPLER_2D_ARRAY_SHADOW        0x8DC4+-- #define GL_SAMPLER_CUBE_SHADOW            0x8DC5+-- #define GL_UNSIGNED_INT_VEC2              0x8DC6+-- #define GL_UNSIGNED_INT_VEC3              0x8DC7+-- #define GL_UNSIGNED_INT_VEC4              0x8DC8+-- #define GL_INT_SAMPLER_1D                 0x8DC9+-- #define GL_INT_SAMPLER_2D                 0x8DCA+-- #define GL_INT_SAMPLER_3D                 0x8DCB+-- #define GL_INT_SAMPLER_CUBE               0x8DCC+-- #define GL_INT_SAMPLER_1D_ARRAY           0x8DCE+-- #define GL_INT_SAMPLER_2D_ARRAY           0x8DCF+-- #define GL_UNSIGNED_INT_SAMPLER_1D        0x8DD1+-- #define GL_UNSIGNED_INT_SAMPLER_2D        0x8DD2+-- #define GL_UNSIGNED_INT_SAMPLER_3D        0x8DD3+-- #define GL_UNSIGNED_INT_SAMPLER_CUBE      0x8DD4+-- #define GL_UNSIGNED_INT_SAMPLER_1D_ARRAY  0x8DD6+-- #define GL_UNSIGNED_INT_SAMPLER_2D_ARRAY  0x8DD7+-- #define GL_QUERY_WAIT                     0x8E13+-- #define GL_QUERY_NO_WAIT                  0x8E14+-- #define GL_QUERY_BY_REGION_WAIT           0x8E15+-- #define GL_QUERY_BY_REGION_NO_WAIT        0x8E16+-- #define GL_BUFFER_ACCESS_FLAGS            0x911F+-- #define GL_BUFFER_MAP_LENGTH              0x9120+-- #define GL_BUFFER_MAP_OFFSET              0x9121+-- #define GL_DEPTH_COMPONENT32F             0x8CAC+-- #define GL_DEPTH32F_STENCIL8              0x8CAD+-- #define GL_FLOAT_32_UNSIGNED_INT_24_8_REV 0x8DAD+-- #define GL_INVALID_FRAMEBUFFER_OPERATION  0x0506+-- #define GL_FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING 0x8210+-- #define GL_FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE 0x8211+-- #define GL_FRAMEBUFFER_ATTACHMENT_RED_SIZE 0x8212+-- #define GL_FRAMEBUFFER_ATTACHMENT_GREEN_SIZE 0x8213+-- #define GL_FRAMEBUFFER_ATTACHMENT_BLUE_SIZE 0x8214+-- #define GL_FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE 0x8215+-- #define GL_FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE 0x8216+-- #define GL_FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE 0x8217+-- #define GL_FRAMEBUFFER_DEFAULT            0x8218+-- #define GL_FRAMEBUFFER_UNDEFINED          0x8219+-- #define GL_DEPTH_STENCIL_ATTACHMENT       0x821A+-- #define GL_MAX_RENDERBUFFER_SIZE          0x84E8+-- #define GL_DEPTH_STENCIL                  0x84F9+-- #define GL_UNSIGNED_INT_24_8              0x84FA+-- #define GL_DEPTH24_STENCIL8               0x88F0+-- #define GL_TEXTURE_STENCIL_SIZE           0x88F1+-- #define GL_TEXTURE_RED_TYPE               0x8C10+-- #define GL_TEXTURE_GREEN_TYPE             0x8C11+-- #define GL_TEXTURE_BLUE_TYPE              0x8C12+-- #define GL_TEXTURE_ALPHA_TYPE             0x8C13+-- #define GL_TEXTURE_DEPTH_TYPE             0x8C16+-- #define GL_UNSIGNED_NORMALIZED            0x8C17+-- #define GL_FRAMEBUFFER_BINDING            0x8CA6+-- #define GL_DRAW_FRAMEBUFFER_BINDING       0x8CA6+-- #define GL_RENDERBUFFER_BINDING           0x8CA7+-- #define GL_READ_FRAMEBUFFER               0x8CA8+-- #define GL_DRAW_FRAMEBUFFER               0x8CA9+-- #define GL_READ_FRAMEBUFFER_BINDING       0x8CAA+-- #define GL_RENDERBUFFER_SAMPLES           0x8CAB+-- #define GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE 0x8CD0+-- #define GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME 0x8CD1+-- #define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL 0x8CD2+-- #define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE 0x8CD3+-- #define GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER 0x8CD4+-- #define GL_FRAMEBUFFER_COMPLETE           0x8CD5+-- #define GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT 0x8CD6+-- #define GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT 0x8CD7+-- #define GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER 0x8CDB+-- #define GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER 0x8CDC+-- #define GL_FRAMEBUFFER_UNSUPPORTED        0x8CDD+-- #define GL_MAX_COLOR_ATTACHMENTS          0x8CDF+-- #define GL_COLOR_ATTACHMENT0              0x8CE0+-- #define GL_COLOR_ATTACHMENT1              0x8CE1+-- #define GL_COLOR_ATTACHMENT2              0x8CE2+-- #define GL_COLOR_ATTACHMENT3              0x8CE3+-- #define GL_COLOR_ATTACHMENT4              0x8CE4+-- #define GL_COLOR_ATTACHMENT5              0x8CE5+-- #define GL_COLOR_ATTACHMENT6              0x8CE6+-- #define GL_COLOR_ATTACHMENT7              0x8CE7+-- #define GL_COLOR_ATTACHMENT8              0x8CE8+-- #define GL_COLOR_ATTACHMENT9              0x8CE9+-- #define GL_COLOR_ATTACHMENT10             0x8CEA+-- #define GL_COLOR_ATTACHMENT11             0x8CEB+-- #define GL_COLOR_ATTACHMENT12             0x8CEC+-- #define GL_COLOR_ATTACHMENT13             0x8CED+-- #define GL_COLOR_ATTACHMENT14             0x8CEE+-- #define GL_COLOR_ATTACHMENT15             0x8CEF+-- #define GL_DEPTH_ATTACHMENT               0x8D00+-- #define GL_STENCIL_ATTACHMENT             0x8D20+-- #define GL_FRAMEBUFFER                    0x8D40+-- #define GL_RENDERBUFFER                   0x8D41+-- #define GL_RENDERBUFFER_WIDTH             0x8D42+-- #define GL_RENDERBUFFER_HEIGHT            0x8D43+-- #define GL_RENDERBUFFER_INTERNAL_FORMAT   0x8D44+-- #define GL_STENCIL_INDEX1                 0x8D46+-- #define GL_STENCIL_INDEX4                 0x8D47+-- #define GL_STENCIL_INDEX8                 0x8D48+-- #define GL_STENCIL_INDEX16                0x8D49+-- #define GL_RENDERBUFFER_RED_SIZE          0x8D50+-- #define GL_RENDERBUFFER_GREEN_SIZE        0x8D51+-- #define GL_RENDERBUFFER_BLUE_SIZE         0x8D52+-- #define GL_RENDERBUFFER_ALPHA_SIZE        0x8D53+-- #define GL_RENDERBUFFER_DEPTH_SIZE        0x8D54+-- #define GL_RENDERBUFFER_STENCIL_SIZE      0x8D55+-- #define GL_FRAMEBUFFER_INCOMPLETE_MULTISAMPLE 0x8D56+-- #define GL_MAX_SAMPLES                    0x8D57+-- #define GL_FRAMEBUFFER_SRGB               0x8DB9+-- #define GL_HALF_FLOAT                     0x140B+-- #define GL_MAP_READ_BIT                   0x0001+-- #define GL_MAP_WRITE_BIT                  0x0002+-- #define GL_MAP_INVALIDATE_RANGE_BIT       0x0004+-- #define GL_MAP_INVALIDATE_BUFFER_BIT      0x0008+-- #define GL_MAP_FLUSH_EXPLICIT_BIT         0x0010+-- #define GL_MAP_UNSYNCHRONIZED_BIT         0x0020+-- #define GL_COMPRESSED_RED_RGTC1           0x8DBB+-- #define GL_COMPRESSED_SIGNED_RED_RGTC1    0x8DBC+-- #define GL_COMPRESSED_RG_RGTC2            0x8DBD+-- #define GL_COMPRESSED_SIGNED_RG_RGTC2     0x8DBE+-- #define GL_RG                             0x8227+-- #define GL_RG_INTEGER                     0x8228+-- #define GL_R8                             0x8229+-- #define GL_R16                            0x822A+-- #define GL_RG8                            0x822B+-- #define GL_RG16                           0x822C+-- #define GL_R16F                           0x822D+-- #define GL_R32F                           0x822E+-- #define GL_RG16F                          0x822F+-- #define GL_RG32F                          0x8230+-- #define GL_R8I                            0x8231+-- #define GL_R8UI                           0x8232+-- #define GL_R16I                           0x8233+-- #define GL_R16UI                          0x8234+-- #define GL_R32I                           0x8235+-- #define GL_R32UI                          0x8236+-- #define GL_RG8I                           0x8237+-- #define GL_RG8UI                          0x8238+-- #define GL_RG16I                          0x8239+-- #define GL_RG16UI                         0x823A+-- #define GL_RG32I                          0x823B+-- #define GL_RG32UI                         0x823C+-- #define GL_VERTEX_ARRAY_BINDING           0x85B5+GLAPI(glColorMaski, GLuint -> GLboolean -> GLboolean -> GLboolean -> GLboolean -> GL ())+GLAPI(glGetBooleani_v, GLenum -> GLuint -> Ptr GLboolean -> GL ())+GLAPI(glGetIntegeri_v, GLenum -> GLuint -> Ptr GLint -> GL ())+GLAPI(glEnablei, GLenum -> GLuint -> GL ())+GLAPI(glDisablei, GLenum -> GLuint -> GL ())+GLAPI(glIsEnabledi, GLenum -> GLuint -> GL GLboolean)+GLAPI(glBeginTransformFeedback, GLenum -> GL ())+GLAPI(glEndTransformFeedback, GL ())+GLAPI(glBindBufferRange, GLenum -> GLuint -> GLuint -> GLintptr -> GLsizeiptr -> GL ())+GLAPI(glBindBufferBase, GLenum -> GLuint -> GLuint -> GL ())+GLAPI(glTransformFeedbackVaryings, GLuint -> GLsizei -> Ptr CString -> GLenum -> GL ())+GLAPI(glGetTransformFeedbackVarying, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLsizei -> Ptr GLenum -> CString -> GL ())+GLAPI(glClampColor, GLenum -> GLenum -> GL ())+GLAPI(glBeginConditionalRender, GLuint -> GLenum -> GL ())+GLAPI(glEndConditionalRender, GL ())+GLAPI(glVertexAttribIPointer, GLuint -> GLint -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetVertexAttribIiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetVertexAttribIuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())+GLAPI(glVertexAttribI1i, GLuint -> GLint -> GL ())+GLAPI(glVertexAttribI2i, GLuint -> GLint -> GLint -> GL ())+GLAPI(glVertexAttribI3i, GLuint -> GLint -> GLint -> GLint -> GL ())+GLAPI(glVertexAttribI4i, GLuint -> GLint -> GLint -> GLint -> GLint -> GL ())+GLAPI(glVertexAttribI1ui, GLuint -> GLuint -> GL ())+GLAPI(glVertexAttribI2ui, GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glVertexAttribI3ui, GLuint -> GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glVertexAttribI4ui, GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glVertexAttribI1iv, GLuint -> Ptr GLint -> GL ())+GLAPI(glVertexAttribI2iv, GLuint -> Ptr GLint -> GL ())+GLAPI(glVertexAttribI3iv, GLuint -> Ptr GLint -> GL ())+GLAPI(glVertexAttribI4iv, GLuint -> Ptr GLint -> GL ())+GLAPI(glVertexAttribI1uiv, GLuint -> Ptr GLuint -> GL ())+GLAPI(glVertexAttribI2uiv, GLuint -> Ptr GLuint -> GL ())+GLAPI(glVertexAttribI3uiv, GLuint -> Ptr GLuint -> GL ())+GLAPI(glVertexAttribI4uiv, GLuint -> Ptr GLuint -> GL ())+GLAPI(glVertexAttribI4bv, GLuint -> Ptr GLbyte -> GL ())+GLAPI(glVertexAttribI4sv, GLuint -> Ptr GLshort -> GL ())+GLAPI(glVertexAttribI4ubv, GLuint -> Ptr GLubyte -> GL ())+GLAPI(glVertexAttribI4usv, GLuint -> Ptr GLushort -> GL ())+GLAPI(glGetUniformuiv, GLuint -> GLint -> Ptr GLuint -> GL ())+GLAPI(glBindFragDataLocation, GLuint -> GLuint -> CString -> GL ())+GLAPI(glGetFragDataLocation, GLuint -> CString -> GL GLint)+GLAPI(glUniform1ui, GLint -> GLuint -> GL ())+GLAPI(glUniform2ui, GLint -> GLuint -> GLuint -> GL ())+GLAPI(glUniform3ui, GLint -> GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glUniform4ui, GLint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glUniform1uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glUniform2uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glUniform3uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glUniform4uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glTexParameterIiv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glTexParameterIuiv, GLenum -> GLenum -> Ptr GLuint -> GL ())+GLAPI(glGetTexParameterIiv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetTexParameterIuiv, GLenum -> GLenum -> Ptr GLuint -> GL ())+GLAPI(glClearBufferiv, GLenum -> GLint -> Ptr GLint -> GL ())+GLAPI(glClearBufferuiv, GLenum -> GLint -> Ptr GLuint -> GL ())+GLAPI(glClearBufferfv, GLenum -> GLint -> Ptr GLfloat -> GL ())+GLAPI(glClearBufferfi, GLenum -> GLint -> GLfloat -> GLint -> GL ())+GLAPI(glGetStringi, GLenum -> GLuint -> GL CString)+GLAPI(glIsRenderbuffer, GLuint -> GL GLboolean)+GLAPI(glBindRenderbuffer, GLenum -> GLuint -> GL ())+GLAPI(glDeleteRenderbuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGenRenderbuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glRenderbufferStorage, GLenum -> GLenum -> GLsizei -> GLsizei -> GL ())+GLAPI(glGetRenderbufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glIsFramebuffer, GLuint -> GL GLboolean)+GLAPI(glBindFramebuffer, GLenum -> GLuint -> GL ())+GLAPI(glDeleteFramebuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGenFramebuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glCheckFramebufferStatus, GLenum -> GL GLenum)+GLAPI(glFramebufferTexture1D, GLenum -> GLenum -> GLenum -> GLuint -> GLint -> GL ())+GLAPI(glFramebufferTexture2D, GLenum -> GLenum -> GLenum -> GLuint -> GLint -> GL ())+GLAPI(glFramebufferTexture3D, GLenum -> GLenum -> GLenum -> GLuint -> GLint -> GLint -> GL ())+GLAPI(glFramebufferRenderbuffer, GLenum -> GLenum -> GLenum -> GLuint -> GL ())+GLAPI(glGetFramebufferAttachmentParameteriv, GLenum -> GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGenerateMipmap, GLenum -> GL ())+GLAPI(glBlitFramebuffer, GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> GL ())+GLAPI(glRenderbufferStorageMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GL ())+GLAPI(glFramebufferTextureLayer, GLenum -> GLenum -> GLuint -> GLint -> GLint -> GL ())+GLAPI(glMapBufferRange, GLenum -> GLintptr -> GLsizeiptr -> GLbitfield -> GL (Ptr ()))+GLAPI(glFlushMappedBufferRange, GLenum -> GLintptr -> GLsizeiptr -> GL ())+GLAPI(glBindVertexArray, GLuint -> GL ())+GLAPI(glDeleteVertexArrays, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGenVertexArrays, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glIsVertexArray, GLuint -> GL GLboolean)+-- #endif /* GL_VERSION_3_0 */+-- #ifndef GL_VERSION_3_1+-- #define GL_VERSION_3_1 1+-- #define GL_SAMPLER_2D_RECT                0x8B63+-- #define GL_SAMPLER_2D_RECT_SHADOW         0x8B64+-- #define GL_SAMPLER_BUFFER                 0x8DC2+-- #define GL_INT_SAMPLER_2D_RECT            0x8DCD+-- #define GL_INT_SAMPLER_BUFFER             0x8DD0+-- #define GL_UNSIGNED_INT_SAMPLER_2D_RECT   0x8DD5+-- #define GL_UNSIGNED_INT_SAMPLER_BUFFER    0x8DD8+-- #define GL_TEXTURE_BUFFER                 0x8C2A+-- #define GL_MAX_TEXTURE_BUFFER_SIZE        0x8C2B+-- #define GL_TEXTURE_BINDING_BUFFER         0x8C2C+-- #define GL_TEXTURE_BUFFER_DATA_STORE_BINDING 0x8C2D+-- #define GL_TEXTURE_RECTANGLE              0x84F5+-- #define GL_TEXTURE_BINDING_RECTANGLE      0x84F6+-- #define GL_PROXY_TEXTURE_RECTANGLE        0x84F7+-- #define GL_MAX_RECTANGLE_TEXTURE_SIZE     0x84F8+-- #define GL_R8_SNORM                       0x8F94+-- #define GL_RG8_SNORM                      0x8F95+-- #define GL_RGB8_SNORM                     0x8F96+-- #define GL_RGBA8_SNORM                    0x8F97+-- #define GL_R16_SNORM                      0x8F98+-- #define GL_RG16_SNORM                     0x8F99+-- #define GL_RGB16_SNORM                    0x8F9A+-- #define GL_RGBA16_SNORM                   0x8F9B+-- #define GL_SIGNED_NORMALIZED              0x8F9C+-- #define GL_PRIMITIVE_RESTART              0x8F9D+-- #define GL_PRIMITIVE_RESTART_INDEX        0x8F9E+-- #define GL_COPY_READ_BUFFER               0x8F36+-- #define GL_COPY_WRITE_BUFFER              0x8F37+-- #define GL_UNIFORM_BUFFER                 0x8A11+-- #define GL_UNIFORM_BUFFER_BINDING         0x8A28+-- #define GL_UNIFORM_BUFFER_START           0x8A29+-- #define GL_UNIFORM_BUFFER_SIZE            0x8A2A+-- #define GL_MAX_VERTEX_UNIFORM_BLOCKS      0x8A2B+-- #define GL_MAX_GEOMETRY_UNIFORM_BLOCKS    0x8A2C+-- #define GL_MAX_FRAGMENT_UNIFORM_BLOCKS    0x8A2D+-- #define GL_MAX_COMBINED_UNIFORM_BLOCKS    0x8A2E+-- #define GL_MAX_UNIFORM_BUFFER_BINDINGS    0x8A2F+-- #define GL_MAX_UNIFORM_BLOCK_SIZE         0x8A30+-- #define GL_MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS 0x8A31+-- #define GL_MAX_COMBINED_GEOMETRY_UNIFORM_COMPONENTS 0x8A32+-- #define GL_MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS 0x8A33+-- #define GL_UNIFORM_BUFFER_OFFSET_ALIGNMENT 0x8A34+-- #define GL_ACTIVE_UNIFORM_BLOCK_MAX_NAME_LENGTH 0x8A35+-- #define GL_ACTIVE_UNIFORM_BLOCKS          0x8A36+-- #define GL_UNIFORM_TYPE                   0x8A37+-- #define GL_UNIFORM_SIZE                   0x8A38+-- #define GL_UNIFORM_NAME_LENGTH            0x8A39+-- #define GL_UNIFORM_BLOCK_INDEX            0x8A3A+-- #define GL_UNIFORM_OFFSET                 0x8A3B+-- #define GL_UNIFORM_ARRAY_STRIDE           0x8A3C+-- #define GL_UNIFORM_MATRIX_STRIDE          0x8A3D+-- #define GL_UNIFORM_IS_ROW_MAJOR           0x8A3E+-- #define GL_UNIFORM_BLOCK_BINDING          0x8A3F+-- #define GL_UNIFORM_BLOCK_DATA_SIZE        0x8A40+-- #define GL_UNIFORM_BLOCK_NAME_LENGTH      0x8A41+-- #define GL_UNIFORM_BLOCK_ACTIVE_UNIFORMS  0x8A42+-- #define GL_UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES 0x8A43+-- #define GL_UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER 0x8A44+-- #define GL_UNIFORM_BLOCK_REFERENCED_BY_GEOMETRY_SHADER 0x8A45+-- #define GL_UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER 0x8A46+-- #define GL_INVALID_INDEX                  0xFFFFFFFFu+GLAPI(glDrawArraysInstanced, GLenum -> GLint -> GLsizei -> GLsizei -> GL ())+GLAPI(glDrawElementsInstanced, GLenum -> GLsizei -> GLenum -> Ptr () -> GLsizei -> GL ())+GLAPI(glTexBuffer, GLenum -> GLenum -> GLuint -> GL ())+GLAPI(glPrimitiveRestartIndex, GLuint -> GL ())+GLAPI(glCopyBufferSubData, GLenum -> GLenum -> GLintptr -> GLintptr -> GLsizeiptr -> GL ())+GLAPI(glGetUniformIndices, GLuint -> GLsizei -> Ptr CString -> Ptr GLuint -> GL ())+GLAPI(glGetActiveUniformsiv, GLuint -> GLsizei -> Ptr GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetActiveUniformName, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glGetUniformBlockIndex, GLuint -> CString -> GL GLuint)+GLAPI(glGetActiveUniformBlockiv, GLuint -> GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetActiveUniformBlockName, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glUniformBlockBinding, GLuint -> GLuint -> GLuint -> GL ())+-- #endif /* GL_VERSION_3_1 */+-- #ifndef GL_VERSION_3_2+-- #define GL_VERSION_3_2 1+-- #ifndef GLEXT_64_TYPES_DEFINED+-- #define GLEXT_64_TYPES_DEFINED+-- #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L+-- #include <inttypes.h>+-- #elif defined(__sun__) || defined(__digital__)+-- #include <inttypes.h>+-- #if defined(__STDC__)+-- #if defined(__arch64__) || defined(_LP64)+-- #else+-- #endif /* __arch64__ */+-- #endif /* __STDC__ */+-- #elif defined( __VMS ) || defined(__sgi)+-- #include <inttypes.h>+-- #elif defined(__SCO__) || defined(__USLC__)+-- #include <stdint.h>+-- #elif defined(__UNIXOS2__) || defined(__SOL64__)+-- #elif defined(_WIN32) && defined(__GNUC__)+-- #include <stdint.h>+-- #elif defined(_WIN32)+-- #else+-- #include <inttypes.h>+-- #define GL_CONTEXT_CORE_PROFILE_BIT       0x00000001+-- #define GL_CONTEXT_COMPATIBILITY_PROFILE_BIT 0x00000002+-- #define GL_LINES_ADJACENCY                0x000A+-- #define GL_LINE_STRIP_ADJACENCY           0x000B+-- #define GL_TRIANGLES_ADJACENCY            0x000C+-- #define GL_TRIANGLE_STRIP_ADJACENCY       0x000D+-- #define GL_PROGRAM_POINT_SIZE             0x8642+-- #define GL_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS 0x8C29+-- #define GL_FRAMEBUFFER_ATTACHMENT_LAYERED 0x8DA7+-- #define GL_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS 0x8DA8+-- #define GL_GEOMETRY_SHADER                0x8DD9+-- #define GL_GEOMETRY_VERTICES_OUT          0x8916+-- #define GL_GEOMETRY_INPUT_TYPE            0x8917+-- #define GL_GEOMETRY_OUTPUT_TYPE           0x8918+-- #define GL_MAX_GEOMETRY_UNIFORM_COMPONENTS 0x8DDF+-- #define GL_MAX_GEOMETRY_OUTPUT_VERTICES   0x8DE0+-- #define GL_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS 0x8DE1+-- #define GL_MAX_VERTEX_OUTPUT_COMPONENTS   0x9122+-- #define GL_MAX_GEOMETRY_INPUT_COMPONENTS  0x9123+-- #define GL_MAX_GEOMETRY_OUTPUT_COMPONENTS 0x9124+-- #define GL_MAX_FRAGMENT_INPUT_COMPONENTS  0x9125+-- #define GL_CONTEXT_PROFILE_MASK           0x9126+-- #define GL_DEPTH_CLAMP                    0x864F+-- #define GL_QUADS_FOLLOW_PROVOKING_VERTEX_CONVENTION 0x8E4C+-- #define GL_FIRST_VERTEX_CONVENTION        0x8E4D+-- #define GL_LAST_VERTEX_CONVENTION         0x8E4E+-- #define GL_PROVOKING_VERTEX               0x8E4F+-- #define GL_TEXTURE_CUBE_MAP_SEAMLESS      0x884F+-- #define GL_MAX_SERVER_WAIT_TIMEOUT        0x9111+-- #define GL_OBJECT_TYPE                    0x9112+-- #define GL_SYNC_CONDITION                 0x9113+-- #define GL_SYNC_STATUS                    0x9114+-- #define GL_SYNC_FLAGS                     0x9115+-- #define GL_SYNC_FENCE                     0x9116+-- #define GL_SYNC_GPU_COMMANDS_COMPLETE     0x9117+-- #define GL_UNSIGNALED                     0x9118+-- #define GL_SIGNALED                       0x9119+-- #define GL_ALREADY_SIGNALED               0x911A+-- #define GL_TIMEOUT_EXPIRED                0x911B+-- #define GL_CONDITION_SATISFIED            0x911C+-- #define GL_WAIT_FAILED                    0x911D+-- #define GL_TIMEOUT_IGNORED                0xFFFFFFFFFFFFFFFFull+-- #define GL_SYNC_FLUSH_COMMANDS_BIT        0x00000001+-- #define GL_SAMPLE_POSITION                0x8E50+-- #define GL_SAMPLE_MASK                    0x8E51+-- #define GL_SAMPLE_MASK_VALUE              0x8E52+-- #define GL_MAX_SAMPLE_MASK_WORDS          0x8E59+-- #define GL_TEXTURE_2D_MULTISAMPLE         0x9100+-- #define GL_PROXY_TEXTURE_2D_MULTISAMPLE   0x9101+-- #define GL_TEXTURE_2D_MULTISAMPLE_ARRAY   0x9102+-- #define GL_PROXY_TEXTURE_2D_MULTISAMPLE_ARRAY 0x9103+-- #define GL_TEXTURE_BINDING_2D_MULTISAMPLE 0x9104+-- #define GL_TEXTURE_BINDING_2D_MULTISAMPLE_ARRAY 0x9105+-- #define GL_TEXTURE_SAMPLES                0x9106+-- #define GL_TEXTURE_FIXED_SAMPLE_LOCATIONS 0x9107+-- #define GL_SAMPLER_2D_MULTISAMPLE         0x9108+-- #define GL_INT_SAMPLER_2D_MULTISAMPLE     0x9109+-- #define GL_UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE 0x910A+-- #define GL_SAMPLER_2D_MULTISAMPLE_ARRAY   0x910B+-- #define GL_INT_SAMPLER_2D_MULTISAMPLE_ARRAY 0x910C+-- #define GL_UNSIGNED_INT_SAMPLER_2D_MULTISAMPLE_ARRAY 0x910D+-- #define GL_MAX_COLOR_TEXTURE_SAMPLES      0x910E+-- #define GL_MAX_DEPTH_TEXTURE_SAMPLES      0x910F+-- #define GL_MAX_INTEGER_SAMPLES            0x9110+GLAPI(glDrawElementsBaseVertex, GLenum -> GLsizei -> GLenum -> Ptr () -> GLint -> GL ())+GLAPI(glDrawRangeElementsBaseVertex, GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> Ptr () -> GLint -> GL ())+GLAPI(glDrawElementsInstancedBaseVertex, GLenum -> GLsizei -> GLenum -> Ptr () -> GLsizei -> GLint -> GL ())+GLAPI(glMultiDrawElementsBaseVertex, GLenum -> Ptr GLsizei -> GLenum -> Ptr (Ptr ()) -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glProvokingVertex, GLenum -> GL ())+GLAPI(glFenceSync, GLenum -> GLbitfield -> GL GLsync)+GLAPI(glIsSync, GLsync -> GL GLboolean)+GLAPI(glDeleteSync, GLsync -> GL ())+GLAPI(glClientWaitSync, GLsync -> GLbitfield -> GLuint64 -> GL GLenum)+GLAPI(glWaitSync, GLsync -> GLbitfield -> GLuint64 -> GL ())+GLAPI(glGetInteger64v, GLenum -> Ptr GLint64 -> GL ())+GLAPI(glGetSynciv, GLsync -> GLenum -> GLsizei -> Ptr GLsizei -> Ptr GLint -> GL ())+GLAPI(glGetInteger64i_v, GLenum -> GLuint -> Ptr GLint64 -> GL ())+GLAPI(glGetBufferParameteri64v, GLenum -> GLenum -> Ptr GLint64 -> GL ())+GLAPI(glFramebufferTexture, GLenum -> GLenum -> GLuint -> GLint -> GL ())+GLAPI(glTexImage2DMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLboolean -> GL ())+GLAPI(glTexImage3DMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GLboolean -> GL ())+GLAPI(glGetMultisamplefv, GLenum -> GLuint -> Ptr GLfloat -> GL ())+GLAPI(glSampleMaski, GLuint -> GLbitfield -> GL ())+-- #endif /* GL_VERSION_3_2 */+-- #ifndef GL_VERSION_3_3+-- #define GL_VERSION_3_3 1+-- #define GL_VERTEX_ATTRIB_ARRAY_DIVISOR    0x88FE+-- #define GL_SRC1_COLOR                     0x88F9+-- #define GL_ONE_MINUS_SRC1_COLOR           0x88FA+-- #define GL_ONE_MINUS_SRC1_ALPHA           0x88FB+-- #define GL_MAX_DUAL_SOURCE_DRAW_BUFFERS   0x88FC+-- #define GL_ANY_SAMPLES_PASSED             0x8C2F+-- #define GL_SAMPLER_BINDING                0x8919+-- #define GL_RGB10_A2UI                     0x906F+-- #define GL_TEXTURE_SWIZZLE_R              0x8E42+-- #define GL_TEXTURE_SWIZZLE_G              0x8E43+-- #define GL_TEXTURE_SWIZZLE_B              0x8E44+-- #define GL_TEXTURE_SWIZZLE_A              0x8E45+-- #define GL_TEXTURE_SWIZZLE_RGBA           0x8E46+-- #define GL_TIME_ELAPSED                   0x88BF+-- #define GL_TIMESTAMP                      0x8E28+-- #define GL_INT_2_10_10_10_REV             0x8D9F+GLAPI(glBindFragDataLocationIndexed, GLuint -> GLuint -> GLuint -> CString -> GL ())+GLAPI(glGetFragDataIndex, GLuint -> CString -> GL GLint)+GLAPI(glGenSamplers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glDeleteSamplers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glIsSampler, GLuint -> GL GLboolean)+GLAPI(glBindSampler, GLuint -> GLuint -> GL ())+GLAPI(glSamplerParameteri, GLuint -> GLenum -> GLint -> GL ())+GLAPI(glSamplerParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glSamplerParameterf, GLuint -> GLenum -> GLfloat -> GL ())+GLAPI(glSamplerParameterfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glSamplerParameterIiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glSamplerParameterIuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())+GLAPI(glGetSamplerParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetSamplerParameterIiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetSamplerParameterfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glGetSamplerParameterIuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())+GLAPI(glQueryCounter, GLuint -> GLenum -> GL ())+GLAPI(glGetQueryObjecti64v, GLuint -> GLenum -> Ptr GLint64 -> GL ())+GLAPI(glGetQueryObjectui64v, GLuint -> GLenum -> Ptr GLuint64 -> GL ())+GLAPI(glVertexAttribDivisor, GLuint -> GLuint -> GL ())+GLAPI(glVertexAttribP1ui, GLuint -> GLenum -> GLboolean -> GLuint -> GL ())+GLAPI(glVertexAttribP1uiv, GLuint -> GLenum -> GLboolean -> Ptr GLuint -> GL ())+GLAPI(glVertexAttribP2ui, GLuint -> GLenum -> GLboolean -> GLuint -> GL ())+GLAPI(glVertexAttribP2uiv, GLuint -> GLenum -> GLboolean -> Ptr GLuint -> GL ())+GLAPI(glVertexAttribP3ui, GLuint -> GLenum -> GLboolean -> GLuint -> GL ())+GLAPI(glVertexAttribP3uiv, GLuint -> GLenum -> GLboolean -> Ptr GLuint -> GL ())+GLAPI(glVertexAttribP4ui, GLuint -> GLenum -> GLboolean -> GLuint -> GL ())+GLAPI(glVertexAttribP4uiv, GLuint -> GLenum -> GLboolean -> Ptr GLuint -> GL ())+-- #endif /* GL_VERSION_3_3 */+-- #ifndef GL_VERSION_4_0+-- #define GL_VERSION_4_0 1+-- #define GL_SAMPLE_SHADING                 0x8C36+-- #define GL_MIN_SAMPLE_SHADING_VALUE       0x8C37+-- #define GL_MIN_PROGRAM_TEXTURE_GATHER_OFFSET 0x8E5E+-- #define GL_MAX_PROGRAM_TEXTURE_GATHER_OFFSET 0x8E5F+-- #define GL_TEXTURE_CUBE_MAP_ARRAY         0x9009+-- #define GL_TEXTURE_BINDING_CUBE_MAP_ARRAY 0x900A+-- #define GL_PROXY_TEXTURE_CUBE_MAP_ARRAY   0x900B+-- #define GL_SAMPLER_CUBE_MAP_ARRAY         0x900C+-- #define GL_SAMPLER_CUBE_MAP_ARRAY_SHADOW  0x900D+-- #define GL_INT_SAMPLER_CUBE_MAP_ARRAY     0x900E+-- #define GL_UNSIGNED_INT_SAMPLER_CUBE_MAP_ARRAY 0x900F+-- #define GL_DRAW_INDIRECT_BUFFER           0x8F3F+-- #define GL_DRAW_INDIRECT_BUFFER_BINDING   0x8F43+-- #define GL_GEOMETRY_SHADER_INVOCATIONS    0x887F+-- #define GL_MAX_GEOMETRY_SHADER_INVOCATIONS 0x8E5A+-- #define GL_MIN_FRAGMENT_INTERPOLATION_OFFSET 0x8E5B+-- #define GL_MAX_FRAGMENT_INTERPOLATION_OFFSET 0x8E5C+-- #define GL_FRAGMENT_INTERPOLATION_OFFSET_BITS 0x8E5D+-- #define GL_MAX_VERTEX_STREAMS             0x8E71+-- #define GL_DOUBLE_VEC2                    0x8FFC+-- #define GL_DOUBLE_VEC3                    0x8FFD+-- #define GL_DOUBLE_VEC4                    0x8FFE+-- #define GL_DOUBLE_MAT2                    0x8F46+-- #define GL_DOUBLE_MAT3                    0x8F47+-- #define GL_DOUBLE_MAT4                    0x8F48+-- #define GL_DOUBLE_MAT2x3                  0x8F49+-- #define GL_DOUBLE_MAT2x4                  0x8F4A+-- #define GL_DOUBLE_MAT3x2                  0x8F4B+-- #define GL_DOUBLE_MAT3x4                  0x8F4C+-- #define GL_DOUBLE_MAT4x2                  0x8F4D+-- #define GL_DOUBLE_MAT4x3                  0x8F4E+-- #define GL_ACTIVE_SUBROUTINES             0x8DE5+-- #define GL_ACTIVE_SUBROUTINE_UNIFORMS     0x8DE6+-- #define GL_ACTIVE_SUBROUTINE_UNIFORM_LOCATIONS 0x8E47+-- #define GL_ACTIVE_SUBROUTINE_MAX_LENGTH   0x8E48+-- #define GL_ACTIVE_SUBROUTINE_UNIFORM_MAX_LENGTH 0x8E49+-- #define GL_MAX_SUBROUTINES                0x8DE7+-- #define GL_MAX_SUBROUTINE_UNIFORM_LOCATIONS 0x8DE8+-- #define GL_NUM_COMPATIBLE_SUBROUTINES     0x8E4A+-- #define GL_COMPATIBLE_SUBROUTINES         0x8E4B+-- #define GL_PATCHES                        0x000E+-- #define GL_PATCH_VERTICES                 0x8E72+-- #define GL_PATCH_DEFAULT_INNER_LEVEL      0x8E73+-- #define GL_PATCH_DEFAULT_OUTER_LEVEL      0x8E74+-- #define GL_TESS_CONTROL_OUTPUT_VERTICES   0x8E75+-- #define GL_TESS_GEN_MODE                  0x8E76+-- #define GL_TESS_GEN_SPACING               0x8E77+-- #define GL_TESS_GEN_VERTEX_ORDER          0x8E78+-- #define GL_TESS_GEN_POINT_MODE            0x8E79+-- #define GL_ISOLINES                       0x8E7A+-- #define GL_FRACTIONAL_ODD                 0x8E7B+-- #define GL_FRACTIONAL_EVEN                0x8E7C+-- #define GL_MAX_PATCH_VERTICES             0x8E7D+-- #define GL_MAX_TESS_GEN_LEVEL             0x8E7E+-- #define GL_MAX_TESS_CONTROL_UNIFORM_COMPONENTS 0x8E7F+-- #define GL_MAX_TESS_EVALUATION_UNIFORM_COMPONENTS 0x8E80+-- #define GL_MAX_TESS_CONTROL_TEXTURE_IMAGE_UNITS 0x8E81+-- #define GL_MAX_TESS_EVALUATION_TEXTURE_IMAGE_UNITS 0x8E82+-- #define GL_MAX_TESS_CONTROL_OUTPUT_COMPONENTS 0x8E83+-- #define GL_MAX_TESS_PATCH_COMPONENTS      0x8E84+-- #define GL_MAX_TESS_CONTROL_TOTAL_OUTPUT_COMPONENTS 0x8E85+-- #define GL_MAX_TESS_EVALUATION_OUTPUT_COMPONENTS 0x8E86+-- #define GL_MAX_TESS_CONTROL_UNIFORM_BLOCKS 0x8E89+-- #define GL_MAX_TESS_EVALUATION_UNIFORM_BLOCKS 0x8E8A+-- #define GL_MAX_TESS_CONTROL_INPUT_COMPONENTS 0x886C+-- #define GL_MAX_TESS_EVALUATION_INPUT_COMPONENTS 0x886D+-- #define GL_MAX_COMBINED_TESS_CONTROL_UNIFORM_COMPONENTS 0x8E1E+-- #define GL_MAX_COMBINED_TESS_EVALUATION_UNIFORM_COMPONENTS 0x8E1F+-- #define GL_UNIFORM_BLOCK_REFERENCED_BY_TESS_CONTROL_SHADER 0x84F0+-- #define GL_UNIFORM_BLOCK_REFERENCED_BY_TESS_EVALUATION_SHADER 0x84F1+-- #define GL_TESS_EVALUATION_SHADER         0x8E87+-- #define GL_TESS_CONTROL_SHADER            0x8E88+-- #define GL_TRANSFORM_FEEDBACK             0x8E22+-- #define GL_TRANSFORM_FEEDBACK_BUFFER_PAUSED 0x8E23+-- #define GL_TRANSFORM_FEEDBACK_BUFFER_ACTIVE 0x8E24+-- #define GL_TRANSFORM_FEEDBACK_BINDING     0x8E25+-- #define GL_MAX_TRANSFORM_FEEDBACK_BUFFERS 0x8E70+GLAPI(glMinSampleShading, GLfloat -> GL ())+GLAPI(glBlendEquationi, GLuint -> GLenum -> GL ())+GLAPI(glBlendEquationSeparatei, GLuint -> GLenum -> GLenum -> GL ())+GLAPI(glBlendFunci, GLuint -> GLenum -> GLenum -> GL ())+GLAPI(glBlendFuncSeparatei, GLuint -> GLenum -> GLenum -> GLenum -> GLenum -> GL ())+GLAPI(glDrawArraysIndirect, GLenum -> Ptr () -> GL ())+GLAPI(glDrawElementsIndirect, GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glUniform1d, GLint -> GLdouble -> GL ())+GLAPI(glUniform2d, GLint -> GLdouble -> GLdouble -> GL ())+GLAPI(glUniform3d, GLint -> GLdouble -> GLdouble -> GLdouble -> GL ())+GLAPI(glUniform4d, GLint -> GLdouble -> GLdouble -> GLdouble -> GLdouble -> GL ())+GLAPI(glUniform1dv, GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glUniform2dv, GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glUniform3dv, GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glUniform4dv, GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix2dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix3dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix4dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix2x3dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix2x4dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix3x2dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix3x4dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix4x2dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glUniformMatrix4x3dv, GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glGetUniformdv, GLuint -> GLint -> Ptr GLdouble -> GL ())+GLAPI(glGetSubroutineUniformLocation, GLuint -> GLenum -> CString -> GL GLint)+GLAPI(glGetSubroutineIndex, GLuint -> GLenum -> CString -> GL GLuint)+GLAPI(glGetActiveSubroutineUniformiv, GLuint -> GLenum -> GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetActiveSubroutineUniformName, GLuint -> GLenum -> GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glGetActiveSubroutineName, GLuint -> GLenum -> GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glUniformSubroutinesuiv, GLenum -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGetUniformSubroutineuiv, GLenum -> GLint -> Ptr GLuint -> GL ())+GLAPI(glGetProgramStageiv, GLuint -> GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glPatchParameteri, GLenum -> GLint -> GL ())+GLAPI(glPatchParameterfv, GLenum -> Ptr GLfloat -> GL ())+GLAPI(glBindTransformFeedback, GLenum -> GLuint -> GL ())+GLAPI(glDeleteTransformFeedbacks, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGenTransformFeedbacks, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glIsTransformFeedback, GLuint -> GL GLboolean)+GLAPI(glPauseTransformFeedback, GL ())+GLAPI(glResumeTransformFeedback, GL ())+GLAPI(glDrawTransformFeedback, GLenum -> GLuint -> GL ())+GLAPI(glDrawTransformFeedbackStream, GLenum -> GLuint -> GLuint -> GL ())+GLAPI(glBeginQueryIndexed, GLenum -> GLuint -> GLuint -> GL ())+GLAPI(glEndQueryIndexed, GLenum -> GLuint -> GL ())+GLAPI(glGetQueryIndexediv, GLenum -> GLuint -> GLenum -> Ptr GLint -> GL ())+-- #endif /* GL_VERSION_4_0 */+-- #ifndef GL_VERSION_4_1+-- #define GL_VERSION_4_1 1+-- #define GL_FIXED                          0x140C+-- #define GL_IMPLEMENTATION_COLOR_READ_TYPE 0x8B9A+-- #define GL_IMPLEMENTATION_COLOR_READ_FORMAT 0x8B9B+-- #define GL_LOW_FLOAT                      0x8DF0+-- #define GL_MEDIUM_FLOAT                   0x8DF1+-- #define GL_HIGH_FLOAT                     0x8DF2+-- #define GL_LOW_INT                        0x8DF3+-- #define GL_MEDIUM_INT                     0x8DF4+-- #define GL_HIGH_INT                       0x8DF5+-- #define GL_SHADER_COMPILER                0x8DFA+-- #define GL_SHADER_BINARY_FORMATS          0x8DF8+-- #define GL_NUM_SHADER_BINARY_FORMATS      0x8DF9+-- #define GL_MAX_VERTEX_UNIFORM_VECTORS     0x8DFB+-- #define GL_MAX_VARYING_VECTORS            0x8DFC+-- #define GL_MAX_FRAGMENT_UNIFORM_VECTORS   0x8DFD+-- #define GL_RGB565                         0x8D62+-- #define GL_PROGRAM_BINARY_RETRIEVABLE_HINT 0x8257+-- #define GL_PROGRAM_BINARY_LENGTH          0x8741+-- #define GL_NUM_PROGRAM_BINARY_FORMATS     0x87FE+-- #define GL_PROGRAM_BINARY_FORMATS         0x87FF+-- #define GL_VERTEX_SHADER_BIT              0x00000001+-- #define GL_FRAGMENT_SHADER_BIT            0x00000002+-- #define GL_GEOMETRY_SHADER_BIT            0x00000004+-- #define GL_TESS_CONTROL_SHADER_BIT        0x00000008+-- #define GL_TESS_EVALUATION_SHADER_BIT     0x00000010+-- #define GL_ALL_SHADER_BITS                0xFFFFFFFF+-- #define GL_PROGRAM_SEPARABLE              0x8258+-- #define GL_ACTIVE_PROGRAM                 0x8259+-- #define GL_PROGRAM_PIPELINE_BINDING       0x825A+-- #define GL_MAX_VIEWPORTS                  0x825B+-- #define GL_VIEWPORT_SUBPIXEL_BITS         0x825C+-- #define GL_VIEWPORT_BOUNDS_RANGE          0x825D+-- #define GL_LAYER_PROVOKING_VERTEX         0x825E+-- #define GL_VIEWPORT_INDEX_PROVOKING_VERTEX 0x825F+-- #define GL_UNDEFINED_VERTEX               0x8260+GLAPI(glReleaseShaderCompiler, GL ())+GLAPI(glShaderBinary, GLsizei -> Ptr GLuint -> GLenum -> Ptr () -> GLsizei -> GL ())+GLAPI(glGetShaderPrecisionFormat, GLenum -> GLenum -> Ptr GLint -> Ptr GLint -> GL ())+GLAPI(glDepthRangef, GLfloat -> GLfloat -> GL ())+GLAPI(glClearDepthf, GLfloat -> GL ())+GLAPI(glGetProgramBinary, GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLenum -> Ptr () -> GL ())+GLAPI(glProgramBinary, GLuint -> GLenum -> Ptr () -> GLsizei -> GL ())+GLAPI(glProgramParameteri, GLuint -> GLenum -> GLint -> GL ())+GLAPI(glUseProgramStages, GLuint -> GLbitfield -> GLuint -> GL ())+GLAPI(glActiveShaderProgram, GLuint -> GLuint -> GL ())+GLAPI(glCreateShaderProgramv, GLenum -> GLsizei -> Ptr CString -> GL GLuint)+GLAPI(glBindProgramPipeline, GLuint -> GL ())+GLAPI(glDeleteProgramPipelines, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGenProgramPipelines, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glIsProgramPipeline, GLuint -> GL GLboolean)+GLAPI(glGetProgramPipelineiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glProgramUniform1i, GLuint -> GLint -> GLint -> GL ())+GLAPI(glProgramUniform1iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glProgramUniform1f, GLuint -> GLint -> GLfloat -> GL ())+GLAPI(glProgramUniform1fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniform1d, GLuint -> GLint -> GLdouble -> GL ())+GLAPI(glProgramUniform1dv, GLuint -> GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniform1ui, GLuint -> GLint -> GLuint -> GL ())+GLAPI(glProgramUniform1uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glProgramUniform2i, GLuint -> GLint -> GLint -> GLint -> GL ())+GLAPI(glProgramUniform2iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glProgramUniform2f, GLuint -> GLint -> GLfloat -> GLfloat -> GL ())+GLAPI(glProgramUniform2fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniform2d, GLuint -> GLint -> GLdouble -> GLdouble -> GL ())+GLAPI(glProgramUniform2dv, GLuint -> GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniform2ui, GLuint -> GLint -> GLuint -> GLuint -> GL ())+GLAPI(glProgramUniform2uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glProgramUniform3i, GLuint -> GLint -> GLint -> GLint -> GLint -> GL ())+GLAPI(glProgramUniform3iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glProgramUniform3f, GLuint -> GLint -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glProgramUniform3fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniform3d, GLuint -> GLint -> GLdouble -> GLdouble -> GLdouble -> GL ())+GLAPI(glProgramUniform3dv, GLuint -> GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniform3ui, GLuint -> GLint -> GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glProgramUniform3uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glProgramUniform4i, GLuint -> GLint -> GLint -> GLint -> GLint -> GLint -> GL ())+GLAPI(glProgramUniform4iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glProgramUniform4f, GLuint -> GLint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glProgramUniform4fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniform4d, GLuint -> GLint -> GLdouble -> GLdouble -> GLdouble -> GLdouble -> GL ())+GLAPI(glProgramUniform4dv, GLuint -> GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniform4ui, GLuint -> GLint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glProgramUniform4uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glProgramUniformMatrix2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix2dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniformMatrix3dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniformMatrix4dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniformMatrix2x3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix3x2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix2x4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix4x2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix3x4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix4x3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLAPI(glProgramUniformMatrix2x3dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniformMatrix3x2dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniformMatrix2x4dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniformMatrix4x2dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniformMatrix3x4dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glProgramUniformMatrix4x3dv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLdouble -> GL ())+GLAPI(glValidateProgramPipeline, GLuint -> GL ())+GLAPI(glGetProgramPipelineInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glVertexAttribL1d, GLuint -> GLdouble -> GL ())+GLAPI(glVertexAttribL2d, GLuint -> GLdouble -> GLdouble -> GL ())+GLAPI(glVertexAttribL3d, GLuint -> GLdouble -> GLdouble -> GLdouble -> GL ())+GLAPI(glVertexAttribL4d, GLuint -> GLdouble -> GLdouble -> GLdouble -> GLdouble -> GL ())+GLAPI(glVertexAttribL1dv, GLuint -> Ptr GLdouble -> GL ())+GLAPI(glVertexAttribL2dv, GLuint -> Ptr GLdouble -> GL ())+GLAPI(glVertexAttribL3dv, GLuint -> Ptr GLdouble -> GL ())+GLAPI(glVertexAttribL4dv, GLuint -> Ptr GLdouble -> GL ())+GLAPI(glVertexAttribLPointer, GLuint -> GLint -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetVertexAttribLdv, GLuint -> GLenum -> Ptr GLdouble -> GL ())+GLAPI(glViewportArrayv, GLuint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glViewportIndexedf, GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLAPI(glViewportIndexedfv, GLuint -> Ptr GLfloat -> GL ())+GLAPI(glScissorArrayv, GLuint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glScissorIndexed, GLuint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLAPI(glScissorIndexedv, GLuint -> Ptr GLint -> GL ())+GLAPI(glDepthRangeArrayv, GLuint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glDepthRangeIndexed, GLuint -> GLdouble -> GLdouble -> GL ())+GLAPI(glGetFloati_v, GLenum -> GLuint -> Ptr GLfloat -> GL ())+GLAPI(glGetDoublei_v, GLenum -> GLuint -> Ptr GLdouble -> GL ())+-- #endif /* GL_VERSION_4_1 */+-- #ifndef GL_VERSION_4_2+-- #define GL_VERSION_4_2 1+-- #define GL_COPY_READ_BUFFER_BINDING       0x8F36+-- #define GL_COPY_WRITE_BUFFER_BINDING      0x8F37+-- #define GL_TRANSFORM_FEEDBACK_ACTIVE      0x8E24+-- #define GL_TRANSFORM_FEEDBACK_PAUSED      0x8E23+-- #define GL_UNPACK_COMPRESSED_BLOCK_WIDTH  0x9127+-- #define GL_UNPACK_COMPRESSED_BLOCK_HEIGHT 0x9128+-- #define GL_UNPACK_COMPRESSED_BLOCK_DEPTH  0x9129+-- #define GL_UNPACK_COMPRESSED_BLOCK_SIZE   0x912A+-- #define GL_PACK_COMPRESSED_BLOCK_WIDTH    0x912B+-- #define GL_PACK_COMPRESSED_BLOCK_HEIGHT   0x912C+-- #define GL_PACK_COMPRESSED_BLOCK_DEPTH    0x912D+-- #define GL_PACK_COMPRESSED_BLOCK_SIZE     0x912E+-- #define GL_NUM_SAMPLE_COUNTS              0x9380+-- #define GL_MIN_MAP_BUFFER_ALIGNMENT       0x90BC+-- #define GL_ATOMIC_COUNTER_BUFFER          0x92C0+-- #define GL_ATOMIC_COUNTER_BUFFER_BINDING  0x92C1+-- #define GL_ATOMIC_COUNTER_BUFFER_START    0x92C2+-- #define GL_ATOMIC_COUNTER_BUFFER_SIZE     0x92C3+-- #define GL_ATOMIC_COUNTER_BUFFER_DATA_SIZE 0x92C4+-- #define GL_ATOMIC_COUNTER_BUFFER_ACTIVE_ATOMIC_COUNTERS 0x92C5+-- #define GL_ATOMIC_COUNTER_BUFFER_ACTIVE_ATOMIC_COUNTER_INDICES 0x92C6+-- #define GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_VERTEX_SHADER 0x92C7+-- #define GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_TESS_CONTROL_SHADER 0x92C8+-- #define GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_TESS_EVALUATION_SHADER 0x92C9+-- #define GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_GEOMETRY_SHADER 0x92CA+-- #define GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_FRAGMENT_SHADER 0x92CB+-- #define GL_MAX_VERTEX_ATOMIC_COUNTER_BUFFERS 0x92CC+-- #define GL_MAX_TESS_CONTROL_ATOMIC_COUNTER_BUFFERS 0x92CD+-- #define GL_MAX_TESS_EVALUATION_ATOMIC_COUNTER_BUFFERS 0x92CE+-- #define GL_MAX_GEOMETRY_ATOMIC_COUNTER_BUFFERS 0x92CF+-- #define GL_MAX_FRAGMENT_ATOMIC_COUNTER_BUFFERS 0x92D0+-- #define GL_MAX_COMBINED_ATOMIC_COUNTER_BUFFERS 0x92D1+-- #define GL_MAX_VERTEX_ATOMIC_COUNTERS     0x92D2+-- #define GL_MAX_TESS_CONTROL_ATOMIC_COUNTERS 0x92D3+-- #define GL_MAX_TESS_EVALUATION_ATOMIC_COUNTERS 0x92D4+-- #define GL_MAX_GEOMETRY_ATOMIC_COUNTERS   0x92D5+-- #define GL_MAX_FRAGMENT_ATOMIC_COUNTERS   0x92D6+-- #define GL_MAX_COMBINED_ATOMIC_COUNTERS   0x92D7+-- #define GL_MAX_ATOMIC_COUNTER_BUFFER_SIZE 0x92D8+-- #define GL_MAX_ATOMIC_COUNTER_BUFFER_BINDINGS 0x92DC+-- #define GL_ACTIVE_ATOMIC_COUNTER_BUFFERS  0x92D9+-- #define GL_UNIFORM_ATOMIC_COUNTER_BUFFER_INDEX 0x92DA+-- #define GL_UNSIGNED_INT_ATOMIC_COUNTER    0x92DB+-- #define GL_VERTEX_ATTRIB_ARRAY_BARRIER_BIT 0x00000001+-- #define GL_ELEMENT_ARRAY_BARRIER_BIT      0x00000002+-- #define GL_UNIFORM_BARRIER_BIT            0x00000004+-- #define GL_TEXTURE_FETCH_BARRIER_BIT      0x00000008+-- #define GL_SHADER_IMAGE_ACCESS_BARRIER_BIT 0x00000020+-- #define GL_COMMAND_BARRIER_BIT            0x00000040+-- #define GL_PIXEL_BUFFER_BARRIER_BIT       0x00000080+-- #define GL_TEXTURE_UPDATE_BARRIER_BIT     0x00000100+-- #define GL_BUFFER_UPDATE_BARRIER_BIT      0x00000200+-- #define GL_FRAMEBUFFER_BARRIER_BIT        0x00000400+-- #define GL_TRANSFORM_FEEDBACK_BARRIER_BIT 0x00000800+-- #define GL_ATOMIC_COUNTER_BARRIER_BIT     0x00001000+-- #define GL_ALL_BARRIER_BITS               0xFFFFFFFF+-- #define GL_MAX_IMAGE_UNITS                0x8F38+-- #define GL_MAX_COMBINED_IMAGE_UNITS_AND_FRAGMENT_OUTPUTS 0x8F39+-- #define GL_IMAGE_BINDING_NAME             0x8F3A+-- #define GL_IMAGE_BINDING_LEVEL            0x8F3B+-- #define GL_IMAGE_BINDING_LAYERED          0x8F3C+-- #define GL_IMAGE_BINDING_LAYER            0x8F3D+-- #define GL_IMAGE_BINDING_ACCESS           0x8F3E+-- #define GL_IMAGE_1D                       0x904C+-- #define GL_IMAGE_2D                       0x904D+-- #define GL_IMAGE_3D                       0x904E+-- #define GL_IMAGE_2D_RECT                  0x904F+-- #define GL_IMAGE_CUBE                     0x9050+-- #define GL_IMAGE_BUFFER                   0x9051+-- #define GL_IMAGE_1D_ARRAY                 0x9052+-- #define GL_IMAGE_2D_ARRAY                 0x9053+-- #define GL_IMAGE_CUBE_MAP_ARRAY           0x9054+-- #define GL_IMAGE_2D_MULTISAMPLE           0x9055+-- #define GL_IMAGE_2D_MULTISAMPLE_ARRAY     0x9056+-- #define GL_INT_IMAGE_1D                   0x9057+-- #define GL_INT_IMAGE_2D                   0x9058+-- #define GL_INT_IMAGE_3D                   0x9059+-- #define GL_INT_IMAGE_2D_RECT              0x905A+-- #define GL_INT_IMAGE_CUBE                 0x905B+-- #define GL_INT_IMAGE_BUFFER               0x905C+-- #define GL_INT_IMAGE_1D_ARRAY             0x905D+-- #define GL_INT_IMAGE_2D_ARRAY             0x905E+-- #define GL_INT_IMAGE_CUBE_MAP_ARRAY       0x905F+-- #define GL_INT_IMAGE_2D_MULTISAMPLE       0x9060+-- #define GL_INT_IMAGE_2D_MULTISAMPLE_ARRAY 0x9061+-- #define GL_UNSIGNED_INT_IMAGE_1D          0x9062+-- #define GL_UNSIGNED_INT_IMAGE_2D          0x9063+-- #define GL_UNSIGNED_INT_IMAGE_3D          0x9064+-- #define GL_UNSIGNED_INT_IMAGE_2D_RECT     0x9065+-- #define GL_UNSIGNED_INT_IMAGE_CUBE        0x9066+-- #define GL_UNSIGNED_INT_IMAGE_BUFFER      0x9067+-- #define GL_UNSIGNED_INT_IMAGE_1D_ARRAY    0x9068+-- #define GL_UNSIGNED_INT_IMAGE_2D_ARRAY    0x9069+-- #define GL_UNSIGNED_INT_IMAGE_CUBE_MAP_ARRAY 0x906A+-- #define GL_UNSIGNED_INT_IMAGE_2D_MULTISAMPLE 0x906B+-- #define GL_UNSIGNED_INT_IMAGE_2D_MULTISAMPLE_ARRAY 0x906C+-- #define GL_MAX_IMAGE_SAMPLES              0x906D+-- #define GL_IMAGE_BINDING_FORMAT           0x906E+-- #define GL_IMAGE_FORMAT_COMPATIBILITY_TYPE 0x90C7+-- #define GL_IMAGE_FORMAT_COMPATIBILITY_BY_SIZE 0x90C8+-- #define GL_IMAGE_FORMAT_COMPATIBILITY_BY_CLASS 0x90C9+-- #define GL_MAX_VERTEX_IMAGE_UNIFORMS      0x90CA+-- #define GL_MAX_TESS_CONTROL_IMAGE_UNIFORMS 0x90CB+-- #define GL_MAX_TESS_EVALUATION_IMAGE_UNIFORMS 0x90CC+-- #define GL_MAX_GEOMETRY_IMAGE_UNIFORMS    0x90CD+-- #define GL_MAX_FRAGMENT_IMAGE_UNIFORMS    0x90CE+-- #define GL_MAX_COMBINED_IMAGE_UNIFORMS    0x90CF+-- #define GL_COMPRESSED_RGBA_BPTC_UNORM     0x8E8C+-- #define GL_COMPRESSED_SRGB_ALPHA_BPTC_UNORM 0x8E8D+-- #define GL_COMPRESSED_RGB_BPTC_SIGNED_FLOAT 0x8E8E+-- #define GL_COMPRESSED_RGB_BPTC_UNSIGNED_FLOAT 0x8E8F+-- #define GL_TEXTURE_IMMUTABLE_FORMAT       0x912F+GLAPI(glDrawArraysInstancedBaseInstance, GLenum -> GLint -> GLsizei -> GLsizei -> GLuint -> GL ())+GLAPI(glDrawElementsInstancedBaseInstance, GLenum -> GLsizei -> GLenum -> Ptr () -> GLsizei -> GLuint -> GL ())+GLAPI(glDrawElementsInstancedBaseVertexBaseInstance, GLenum -> GLsizei -> GLenum -> Ptr () -> GLsizei -> GLint -> GLuint -> GL ())+GLAPI(glGetInternalformativ, GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glGetActiveAtomicCounterBufferiv, GLuint -> GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glBindImageTexture, GLuint -> GLuint -> GLint -> GLboolean -> GLint -> GLenum -> GLenum -> GL ())+GLAPI(glMemoryBarrier, GLbitfield -> GL ())+GLAPI(glTexStorage1D, GLenum -> GLsizei -> GLenum -> GLsizei -> GL ())+GLAPI(glTexStorage2D, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GL ())+GLAPI(glTexStorage3D, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GL ())+GLAPI(glDrawTransformFeedbackInstanced, GLenum -> GLuint -> GLsizei -> GL ())+GLAPI(glDrawTransformFeedbackStreamInstanced, GLenum -> GLuint -> GLuint -> GLsizei -> GL ())+-- #endif /* GL_VERSION_4_2 */+-- #ifndef GL_VERSION_4_3+-- #define GL_VERSION_4_3 1+-- #define GL_NUM_SHADING_LANGUAGE_VERSIONS  0x82E9+-- #define GL_VERTEX_ATTRIB_ARRAY_LONG       0x874E+-- #define GL_COMPRESSED_RGB8_ETC2           0x9274+-- #define GL_COMPRESSED_SRGB8_ETC2          0x9275+-- #define GL_COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2 0x9276+-- #define GL_COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2 0x9277+-- #define GL_COMPRESSED_RGBA8_ETC2_EAC      0x9278+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ETC2_EAC 0x9279+-- #define GL_COMPRESSED_R11_EAC             0x9270+-- #define GL_COMPRESSED_SIGNED_R11_EAC      0x9271+-- #define GL_COMPRESSED_RG11_EAC            0x9272+-- #define GL_COMPRESSED_SIGNED_RG11_EAC     0x9273+-- #define GL_PRIMITIVE_RESTART_FIXED_INDEX  0x8D69+-- #define GL_ANY_SAMPLES_PASSED_CONSERVATIVE 0x8D6A+-- #define GL_MAX_ELEMENT_INDEX              0x8D6B+-- #define GL_COMPUTE_SHADER                 0x91B9+-- #define GL_MAX_COMPUTE_UNIFORM_BLOCKS     0x91BB+-- #define GL_MAX_COMPUTE_TEXTURE_IMAGE_UNITS 0x91BC+-- #define GL_MAX_COMPUTE_IMAGE_UNIFORMS     0x91BD+-- #define GL_MAX_COMPUTE_SHARED_MEMORY_SIZE 0x8262+-- #define GL_MAX_COMPUTE_UNIFORM_COMPONENTS 0x8263+-- #define GL_MAX_COMPUTE_ATOMIC_COUNTER_BUFFERS 0x8264+-- #define GL_MAX_COMPUTE_ATOMIC_COUNTERS    0x8265+-- #define GL_MAX_COMBINED_COMPUTE_UNIFORM_COMPONENTS 0x8266+-- #define GL_MAX_COMPUTE_WORK_GROUP_INVOCATIONS 0x90EB+-- #define GL_MAX_COMPUTE_WORK_GROUP_COUNT   0x91BE+-- #define GL_MAX_COMPUTE_WORK_GROUP_SIZE    0x91BF+-- #define GL_COMPUTE_WORK_GROUP_SIZE        0x8267+-- #define GL_UNIFORM_BLOCK_REFERENCED_BY_COMPUTE_SHADER 0x90EC+-- #define GL_ATOMIC_COUNTER_BUFFER_REFERENCED_BY_COMPUTE_SHADER 0x90ED+-- #define GL_DISPATCH_INDIRECT_BUFFER       0x90EE+-- #define GL_DISPATCH_INDIRECT_BUFFER_BINDING 0x90EF+-- #define GL_COMPUTE_SHADER_BIT             0x00000020+-- #define GL_DEBUG_OUTPUT_SYNCHRONOUS       0x8242+-- #define GL_DEBUG_NEXT_LOGGED_MESSAGE_LENGTH 0x8243+-- #define GL_DEBUG_CALLBACK_FUNCTION        0x8244+-- #define GL_DEBUG_CALLBACK_USER_PARAM      0x8245+-- #define GL_DEBUG_SOURCE_API               0x8246+-- #define GL_DEBUG_SOURCE_WINDOW_SYSTEM     0x8247+-- #define GL_DEBUG_SOURCE_SHADER_COMPILER   0x8248+-- #define GL_DEBUG_SOURCE_THIRD_PARTY       0x8249+-- #define GL_DEBUG_SOURCE_APPLICATION       0x824A+-- #define GL_DEBUG_SOURCE_OTHER             0x824B+-- #define GL_DEBUG_TYPE_ERROR               0x824C+-- #define GL_DEBUG_TYPE_DEPRECATED_BEHAVIOR 0x824D+-- #define GL_DEBUG_TYPE_UNDEFINED_BEHAVIOR  0x824E+-- #define GL_DEBUG_TYPE_PORTABILITY         0x824F+-- #define GL_DEBUG_TYPE_PERFORMANCE         0x8250+-- #define GL_DEBUG_TYPE_OTHER               0x8251+-- #define GL_MAX_DEBUG_MESSAGE_LENGTH       0x9143+-- #define GL_MAX_DEBUG_LOGGED_MESSAGES      0x9144+-- #define GL_DEBUG_LOGGED_MESSAGES          0x9145+-- #define GL_DEBUG_SEVERITY_HIGH            0x9146+-- #define GL_DEBUG_SEVERITY_MEDIUM          0x9147+-- #define GL_DEBUG_SEVERITY_LOW             0x9148+-- #define GL_DEBUG_TYPE_MARKER              0x8268+-- #define GL_DEBUG_TYPE_PUSH_GROUP          0x8269+-- #define GL_DEBUG_TYPE_POP_GROUP           0x826A+-- #define GL_DEBUG_SEVERITY_NOTIFICATION    0x826B+-- #define GL_MAX_DEBUG_GROUP_STACK_DEPTH    0x826C+-- #define GL_DEBUG_GROUP_STACK_DEPTH        0x826D+-- #define GL_BUFFER                         0x82E0+-- #define GL_SHADER                         0x82E1+-- #define GL_PROGRAM                        0x82E2+-- #define GL_QUERY                          0x82E3+-- #define GL_PROGRAM_PIPELINE               0x82E4+-- #define GL_SAMPLER                        0x82E6+-- #define GL_MAX_LABEL_LENGTH               0x82E8+-- #define GL_DEBUG_OUTPUT                   0x92E0+-- #define GL_CONTEXT_FLAG_DEBUG_BIT         0x00000002+-- #define GL_MAX_UNIFORM_LOCATIONS          0x826E+-- #define GL_FRAMEBUFFER_DEFAULT_WIDTH      0x9310+-- #define GL_FRAMEBUFFER_DEFAULT_HEIGHT     0x9311+-- #define GL_FRAMEBUFFER_DEFAULT_LAYERS     0x9312+-- #define GL_FRAMEBUFFER_DEFAULT_SAMPLES    0x9313+-- #define GL_FRAMEBUFFER_DEFAULT_FIXED_SAMPLE_LOCATIONS 0x9314+-- #define GL_MAX_FRAMEBUFFER_WIDTH          0x9315+-- #define GL_MAX_FRAMEBUFFER_HEIGHT         0x9316+-- #define GL_MAX_FRAMEBUFFER_LAYERS         0x9317+-- #define GL_MAX_FRAMEBUFFER_SAMPLES        0x9318+-- #define GL_INTERNALFORMAT_SUPPORTED       0x826F+-- #define GL_INTERNALFORMAT_PREFERRED       0x8270+-- #define GL_INTERNALFORMAT_RED_SIZE        0x8271+-- #define GL_INTERNALFORMAT_GREEN_SIZE      0x8272+-- #define GL_INTERNALFORMAT_BLUE_SIZE       0x8273+-- #define GL_INTERNALFORMAT_ALPHA_SIZE      0x8274+-- #define GL_INTERNALFORMAT_DEPTH_SIZE      0x8275+-- #define GL_INTERNALFORMAT_STENCIL_SIZE    0x8276+-- #define GL_INTERNALFORMAT_SHARED_SIZE     0x8277+-- #define GL_INTERNALFORMAT_RED_TYPE        0x8278+-- #define GL_INTERNALFORMAT_GREEN_TYPE      0x8279+-- #define GL_INTERNALFORMAT_BLUE_TYPE       0x827A+-- #define GL_INTERNALFORMAT_ALPHA_TYPE      0x827B+-- #define GL_INTERNALFORMAT_DEPTH_TYPE      0x827C+-- #define GL_INTERNALFORMAT_STENCIL_TYPE    0x827D+-- #define GL_MAX_WIDTH                      0x827E+-- #define GL_MAX_HEIGHT                     0x827F+-- #define GL_MAX_DEPTH                      0x8280+-- #define GL_MAX_LAYERS                     0x8281+-- #define GL_MAX_COMBINED_DIMENSIONS        0x8282+-- #define GL_COLOR_COMPONENTS               0x8283+-- #define GL_DEPTH_COMPONENTS               0x8284+-- #define GL_STENCIL_COMPONENTS             0x8285+-- #define GL_COLOR_RENDERABLE               0x8286+-- #define GL_DEPTH_RENDERABLE               0x8287+-- #define GL_STENCIL_RENDERABLE             0x8288+-- #define GL_FRAMEBUFFER_RENDERABLE         0x8289+-- #define GL_FRAMEBUFFER_RENDERABLE_LAYERED 0x828A+-- #define GL_FRAMEBUFFER_BLEND              0x828B+-- #define GL_READ_PIXELS                    0x828C+-- #define GL_READ_PIXELS_FORMAT             0x828D+-- #define GL_READ_PIXELS_TYPE               0x828E+-- #define GL_TEXTURE_IMAGE_FORMAT           0x828F+-- #define GL_TEXTURE_IMAGE_TYPE             0x8290+-- #define GL_GET_TEXTURE_IMAGE_FORMAT       0x8291+-- #define GL_GET_TEXTURE_IMAGE_TYPE         0x8292+-- #define GL_MIPMAP                         0x8293+-- #define GL_MANUAL_GENERATE_MIPMAP         0x8294+-- #define GL_AUTO_GENERATE_MIPMAP           0x8295+-- #define GL_COLOR_ENCODING                 0x8296+-- #define GL_SRGB_READ                      0x8297+-- #define GL_SRGB_WRITE                     0x8298+-- #define GL_FILTER                         0x829A+-- #define GL_VERTEX_TEXTURE                 0x829B+-- #define GL_TESS_CONTROL_TEXTURE           0x829C+-- #define GL_TESS_EVALUATION_TEXTURE        0x829D+-- #define GL_GEOMETRY_TEXTURE               0x829E+-- #define GL_FRAGMENT_TEXTURE               0x829F+-- #define GL_COMPUTE_TEXTURE                0x82A0+-- #define GL_TEXTURE_SHADOW                 0x82A1+-- #define GL_TEXTURE_GATHER                 0x82A2+-- #define GL_TEXTURE_GATHER_SHADOW          0x82A3+-- #define GL_SHADER_IMAGE_LOAD              0x82A4+-- #define GL_SHADER_IMAGE_STORE             0x82A5+-- #define GL_SHADER_IMAGE_ATOMIC            0x82A6+-- #define GL_IMAGE_TEXEL_SIZE               0x82A7+-- #define GL_IMAGE_COMPATIBILITY_CLASS      0x82A8+-- #define GL_IMAGE_PIXEL_FORMAT             0x82A9+-- #define GL_IMAGE_PIXEL_TYPE               0x82AA+-- #define GL_SIMULTANEOUS_TEXTURE_AND_DEPTH_TEST 0x82AC+-- #define GL_SIMULTANEOUS_TEXTURE_AND_STENCIL_TEST 0x82AD+-- #define GL_SIMULTANEOUS_TEXTURE_AND_DEPTH_WRITE 0x82AE+-- #define GL_SIMULTANEOUS_TEXTURE_AND_STENCIL_WRITE 0x82AF+-- #define GL_TEXTURE_COMPRESSED_BLOCK_WIDTH 0x82B1+-- #define GL_TEXTURE_COMPRESSED_BLOCK_HEIGHT 0x82B2+-- #define GL_TEXTURE_COMPRESSED_BLOCK_SIZE  0x82B3+-- #define GL_CLEAR_BUFFER                   0x82B4+-- #define GL_TEXTURE_VIEW                   0x82B5+-- #define GL_VIEW_COMPATIBILITY_CLASS       0x82B6+-- #define GL_FULL_SUPPORT                   0x82B7+-- #define GL_CAVEAT_SUPPORT                 0x82B8+-- #define GL_IMAGE_CLASS_4_X_32             0x82B9+-- #define GL_IMAGE_CLASS_2_X_32             0x82BA+-- #define GL_IMAGE_CLASS_1_X_32             0x82BB+-- #define GL_IMAGE_CLASS_4_X_16             0x82BC+-- #define GL_IMAGE_CLASS_2_X_16             0x82BD+-- #define GL_IMAGE_CLASS_1_X_16             0x82BE+-- #define GL_IMAGE_CLASS_4_X_8              0x82BF+-- #define GL_IMAGE_CLASS_2_X_8              0x82C0+-- #define GL_IMAGE_CLASS_1_X_8              0x82C1+-- #define GL_IMAGE_CLASS_11_11_10           0x82C2+-- #define GL_IMAGE_CLASS_10_10_10_2         0x82C3+-- #define GL_VIEW_CLASS_128_BITS            0x82C4+-- #define GL_VIEW_CLASS_96_BITS             0x82C5+-- #define GL_VIEW_CLASS_64_BITS             0x82C6+-- #define GL_VIEW_CLASS_48_BITS             0x82C7+-- #define GL_VIEW_CLASS_32_BITS             0x82C8+-- #define GL_VIEW_CLASS_24_BITS             0x82C9+-- #define GL_VIEW_CLASS_16_BITS             0x82CA+-- #define GL_VIEW_CLASS_8_BITS              0x82CB+-- #define GL_VIEW_CLASS_S3TC_DXT1_RGB       0x82CC+-- #define GL_VIEW_CLASS_S3TC_DXT1_RGBA      0x82CD+-- #define GL_VIEW_CLASS_S3TC_DXT3_RGBA      0x82CE+-- #define GL_VIEW_CLASS_S3TC_DXT5_RGBA      0x82CF+-- #define GL_VIEW_CLASS_RGTC1_RED           0x82D0+-- #define GL_VIEW_CLASS_RGTC2_RG            0x82D1+-- #define GL_VIEW_CLASS_BPTC_UNORM          0x82D2+-- #define GL_VIEW_CLASS_BPTC_FLOAT          0x82D3+-- #define GL_UNIFORM                        0x92E1+-- #define GL_UNIFORM_BLOCK                  0x92E2+-- #define GL_PROGRAM_INPUT                  0x92E3+-- #define GL_PROGRAM_OUTPUT                 0x92E4+-- #define GL_BUFFER_VARIABLE                0x92E5+-- #define GL_SHADER_STORAGE_BLOCK           0x92E6+-- #define GL_VERTEX_SUBROUTINE              0x92E8+-- #define GL_TESS_CONTROL_SUBROUTINE        0x92E9+-- #define GL_TESS_EVALUATION_SUBROUTINE     0x92EA+-- #define GL_GEOMETRY_SUBROUTINE            0x92EB+-- #define GL_FRAGMENT_SUBROUTINE            0x92EC+-- #define GL_COMPUTE_SUBROUTINE             0x92ED+-- #define GL_VERTEX_SUBROUTINE_UNIFORM      0x92EE+-- #define GL_TESS_CONTROL_SUBROUTINE_UNIFORM 0x92EF+-- #define GL_TESS_EVALUATION_SUBROUTINE_UNIFORM 0x92F0+-- #define GL_GEOMETRY_SUBROUTINE_UNIFORM    0x92F1+-- #define GL_FRAGMENT_SUBROUTINE_UNIFORM    0x92F2+-- #define GL_COMPUTE_SUBROUTINE_UNIFORM     0x92F3+-- #define GL_TRANSFORM_FEEDBACK_VARYING     0x92F4+-- #define GL_ACTIVE_RESOURCES               0x92F5+-- #define GL_MAX_NAME_LENGTH                0x92F6+-- #define GL_MAX_NUM_ACTIVE_VARIABLES       0x92F7+-- #define GL_MAX_NUM_COMPATIBLE_SUBROUTINES 0x92F8+-- #define GL_NAME_LENGTH                    0x92F9+-- #define GL_TYPE                           0x92FA+-- #define GL_ARRAY_SIZE                     0x92FB+-- #define GL_OFFSET                         0x92FC+-- #define GL_BLOCK_INDEX                    0x92FD+-- #define GL_ARRAY_STRIDE                   0x92FE+-- #define GL_MATRIX_STRIDE                  0x92FF+-- #define GL_IS_ROW_MAJOR                   0x9300+-- #define GL_ATOMIC_COUNTER_BUFFER_INDEX    0x9301+-- #define GL_BUFFER_BINDING                 0x9302+-- #define GL_BUFFER_DATA_SIZE               0x9303+-- #define GL_NUM_ACTIVE_VARIABLES           0x9304+-- #define GL_ACTIVE_VARIABLES               0x9305+-- #define GL_REFERENCED_BY_VERTEX_SHADER    0x9306+-- #define GL_REFERENCED_BY_TESS_CONTROL_SHADER 0x9307+-- #define GL_REFERENCED_BY_TESS_EVALUATION_SHADER 0x9308+-- #define GL_REFERENCED_BY_GEOMETRY_SHADER  0x9309+-- #define GL_REFERENCED_BY_FRAGMENT_SHADER  0x930A+-- #define GL_REFERENCED_BY_COMPUTE_SHADER   0x930B+-- #define GL_TOP_LEVEL_ARRAY_SIZE           0x930C+-- #define GL_TOP_LEVEL_ARRAY_STRIDE         0x930D+-- #define GL_LOCATION                       0x930E+-- #define GL_LOCATION_INDEX                 0x930F+-- #define GL_IS_PER_PATCH                   0x92E7+-- #define GL_SHADER_STORAGE_BUFFER          0x90D2+-- #define GL_SHADER_STORAGE_BUFFER_BINDING  0x90D3+-- #define GL_SHADER_STORAGE_BUFFER_START    0x90D4+-- #define GL_SHADER_STORAGE_BUFFER_SIZE     0x90D5+-- #define GL_MAX_VERTEX_SHADER_STORAGE_BLOCKS 0x90D6+-- #define GL_MAX_GEOMETRY_SHADER_STORAGE_BLOCKS 0x90D7+-- #define GL_MAX_TESS_CONTROL_SHADER_STORAGE_BLOCKS 0x90D8+-- #define GL_MAX_TESS_EVALUATION_SHADER_STORAGE_BLOCKS 0x90D9+-- #define GL_MAX_FRAGMENT_SHADER_STORAGE_BLOCKS 0x90DA+-- #define GL_MAX_COMPUTE_SHADER_STORAGE_BLOCKS 0x90DB+-- #define GL_MAX_COMBINED_SHADER_STORAGE_BLOCKS 0x90DC+-- #define GL_MAX_SHADER_STORAGE_BUFFER_BINDINGS 0x90DD+-- #define GL_MAX_SHADER_STORAGE_BLOCK_SIZE  0x90DE+-- #define GL_SHADER_STORAGE_BUFFER_OFFSET_ALIGNMENT 0x90DF+-- #define GL_SHADER_STORAGE_BARRIER_BIT     0x00002000+-- #define GL_MAX_COMBINED_SHADER_OUTPUT_RESOURCES 0x8F39+-- #define GL_DEPTH_STENCIL_TEXTURE_MODE     0x90EA+-- #define GL_TEXTURE_BUFFER_OFFSET          0x919D+-- #define GL_TEXTURE_BUFFER_SIZE            0x919E+-- #define GL_TEXTURE_BUFFER_OFFSET_ALIGNMENT 0x919F+-- #define GL_TEXTURE_VIEW_MIN_LEVEL         0x82DB+-- #define GL_TEXTURE_VIEW_NUM_LEVELS        0x82DC+-- #define GL_TEXTURE_VIEW_MIN_LAYER         0x82DD+-- #define GL_TEXTURE_VIEW_NUM_LAYERS        0x82DE+-- #define GL_TEXTURE_IMMUTABLE_LEVELS       0x82DF+-- #define GL_VERTEX_ATTRIB_BINDING          0x82D4+-- #define GL_VERTEX_ATTRIB_RELATIVE_OFFSET  0x82D5+-- #define GL_VERTEX_BINDING_DIVISOR         0x82D6+-- #define GL_VERTEX_BINDING_OFFSET          0x82D7+-- #define GL_VERTEX_BINDING_STRIDE          0x82D8+-- #define GL_MAX_VERTEX_ATTRIB_RELATIVE_OFFSET 0x82D9+-- #define GL_MAX_VERTEX_ATTRIB_BINDINGS     0x82DA+-- #define GL_VERTEX_BINDING_BUFFER          0x8F4F+GLAPI(glClearBufferData, GLenum -> GLenum -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glClearBufferSubData, GLenum -> GLenum -> GLintptr -> GLsizeiptr -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glDispatchCompute, GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glDispatchComputeIndirect, GLintptr -> GL ())+GLAPI(glCopyImageSubData, GLuint -> GLenum -> GLint -> GLint -> GLint -> GLint -> GLuint -> GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GL ())+GLAPI(glFramebufferParameteri, GLenum -> GLenum -> GLint -> GL ())+GLAPI(glGetFramebufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetInternalformati64v, GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLint64 -> GL ())+GLAPI(glInvalidateTexSubImage, GLuint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GL ())+GLAPI(glInvalidateTexImage, GLuint -> GLint -> GL ())+GLAPI(glInvalidateBufferSubData, GLuint -> GLintptr -> GLsizeiptr -> GL ())+GLAPI(glInvalidateBufferData, GLuint -> GL ())+GLAPI(glInvalidateFramebuffer, GLenum -> GLsizei -> Ptr GLenum -> GL ())+GLAPI(glInvalidateSubFramebuffer, GLenum -> GLsizei -> Ptr GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLAPI(glMultiDrawArraysIndirect, GLenum -> Ptr () -> GLsizei -> GLsizei -> GL ())+GLAPI(glMultiDrawElementsIndirect, GLenum -> GLenum -> Ptr () -> GLsizei -> GLsizei -> GL ())+GLAPI(glGetProgramInterfaceiv, GLuint -> GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetProgramResourceIndex, GLuint -> GLenum -> CString -> GL GLuint)+GLAPI(glGetProgramResourceName, GLuint -> GLenum -> GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glGetProgramResourceiv, GLuint -> GLenum -> GLuint -> GLsizei -> Ptr GLenum -> GLsizei -> Ptr GLsizei -> Ptr GLint -> GL ())+GLAPI(glGetProgramResourceLocation, GLuint -> GLenum -> CString -> GL GLint)+GLAPI(glGetProgramResourceLocationIndex, GLuint -> GLenum -> CString -> GL GLint)+GLAPI(glShaderStorageBlockBinding, GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glTexBufferRange, GLenum -> GLenum -> GLuint -> GLintptr -> GLsizeiptr -> GL ())+GLAPI(glTexStorage2DMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLboolean -> GL ())+GLAPI(glTexStorage3DMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GLboolean -> GL ())+GLAPI(glTextureView, GLuint -> GLenum -> GLuint -> GLenum -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glBindVertexBuffer, GLuint -> GLuint -> GLintptr -> GLsizei -> GL ())+GLAPI(glVertexAttribFormat, GLuint -> GLint -> GLenum -> GLboolean -> GLuint -> GL ())+GLAPI(glVertexAttribIFormat, GLuint -> GLint -> GLenum -> GLuint -> GL ())+GLAPI(glVertexAttribLFormat, GLuint -> GLint -> GLenum -> GLuint -> GL ())+GLAPI(glVertexAttribBinding, GLuint -> GLuint -> GL ())+GLAPI(glVertexBindingDivisor, GLuint -> GLuint -> GL ())+GLAPI(glDebugMessageControl, GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLuint -> GLboolean -> GL ())+GLAPI(glDebugMessageInsert, GLenum -> GLenum -> GLuint -> GLenum -> GLsizei -> CString -> GL ())+GLAPI(glDebugMessageCallback, FunPtr GLDebugProc -> Ptr () -> GL ())+GLAPI(glGetDebugMessageLog, GLuint -> GLsizei -> Ptr GLenum -> Ptr GLenum -> Ptr GLuint -> Ptr GLenum -> Ptr GLsizei -> CString -> GL GLuint)+GLAPI(glPushDebugGroup, GLenum -> GLuint -> GLsizei -> CString -> GL ())+GLAPI(glPopDebugGroup, GL ())+GLAPI(glObjectLabel, GLenum -> GLuint -> GLsizei -> CString -> GL ())+GLAPI(glGetObjectLabel, GLenum -> GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLAPI(glObjectPtrLabel, Ptr () -> GLsizei -> CString -> GL ())+GLAPI(glGetObjectPtrLabel, Ptr () -> GLsizei -> Ptr GLsizei -> CString -> GL ())+-- #endif /* GL_VERSION_4_3 */+-- #ifndef GL_VERSION_4_4+-- #define GL_VERSION_4_4 1+-- #define GL_MAX_VERTEX_ATTRIB_STRIDE       0x82E5+-- #define GL_PRIMITIVE_RESTART_FOR_PATCHES_SUPPORTED 0x8221+-- #define GL_TEXTURE_BUFFER_BINDING         0x8C2A+-- #define GL_MAP_PERSISTENT_BIT             0x0040+-- #define GL_MAP_COHERENT_BIT               0x0080+-- #define GL_DYNAMIC_STORAGE_BIT            0x0100+-- #define GL_CLIENT_STORAGE_BIT             0x0200+-- #define GL_CLIENT_MAPPED_BUFFER_BARRIER_BIT 0x00004000+-- #define GL_BUFFER_IMMUTABLE_STORAGE       0x821F+-- #define GL_BUFFER_STORAGE_FLAGS           0x8220+-- #define GL_CLEAR_TEXTURE                  0x9365+-- #define GL_LOCATION_COMPONENT             0x934A+-- #define GL_TRANSFORM_FEEDBACK_BUFFER_INDEX 0x934B+-- #define GL_TRANSFORM_FEEDBACK_BUFFER_STRIDE 0x934C+-- #define GL_QUERY_BUFFER                   0x9192+-- #define GL_QUERY_BUFFER_BARRIER_BIT       0x00008000+-- #define GL_QUERY_BUFFER_BINDING           0x9193+-- #define GL_QUERY_RESULT_NO_WAIT           0x9194+-- #define GL_MIRROR_CLAMP_TO_EDGE           0x8743+GLAPI(glBufferStorage, GLenum -> GLsizeiptr -> Ptr () -> GLbitfield -> GL ())+GLAPI(glClearTexImage, GLuint -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glClearTexSubImage, GLuint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glBindBuffersBase, GLenum -> GLuint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glBindBuffersRange, GLenum -> GLuint -> GLsizei -> Ptr GLuint -> Ptr GLintptr -> Ptr GLsizeiptr -> GL ())+GLAPI(glBindTextures, GLuint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glBindSamplers, GLuint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glBindImageTextures, GLuint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glBindVertexBuffers, GLuint -> GLsizei -> Ptr GLuint -> Ptr GLintptr -> Ptr GLsizei -> GL ())+-- #endif /* GL_VERSION_4_4 */+-- #ifndef GL_VERSION_4_5+-- #define GL_VERSION_4_5 1+-- #define GL_CONTEXT_LOST                   0x0507+-- #define GL_NEGATIVE_ONE_TO_ONE            0x935E+-- #define GL_ZERO_TO_ONE                    0x935F+-- #define GL_CLIP_ORIGIN                    0x935C+-- #define GL_CLIP_DEPTH_MODE                0x935D+-- #define GL_QUERY_WAIT_INVERTED            0x8E17+-- #define GL_QUERY_NO_WAIT_INVERTED         0x8E18+-- #define GL_QUERY_BY_REGION_WAIT_INVERTED  0x8E19+-- #define GL_QUERY_BY_REGION_NO_WAIT_INVERTED 0x8E1A+-- #define GL_MAX_CULL_DISTANCES             0x82F9+-- #define GL_MAX_COMBINED_CLIP_AND_CULL_DISTANCES 0x82FA+-- #define GL_TEXTURE_TARGET                 0x1006+-- #define GL_QUERY_TARGET                   0x82EA+-- #define GL_TEXTURE_BINDING                0x82EB+-- #define GL_GUILTY_CONTEXT_RESET           0x8253+-- #define GL_INNOCENT_CONTEXT_RESET         0x8254+-- #define GL_UNKNOWN_CONTEXT_RESET          0x8255+-- #define GL_RESET_NOTIFICATION_STRATEGY    0x8256+-- #define GL_LOSE_CONTEXT_ON_RESET          0x8252+-- #define GL_NO_RESET_NOTIFICATION          0x8261+-- #define GL_CONTEXT_FLAG_ROBUST_ACCESS_BIT 0x00000004+-- #define GL_CONTEXT_RELEASE_BEHAVIOR       0x82FB+-- #define GL_CONTEXT_RELEASE_BEHAVIOR_FLUSH 0x82FC+GLAPI(glClipControl, GLenum -> GLenum -> GL ())+GLAPI(glCreateTransformFeedbacks, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glTransformFeedbackBufferBase, GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glTransformFeedbackBufferRange, GLuint -> GLuint -> GLuint -> GLintptr -> GLsizei -> GL ())+GLAPI(glGetTransformFeedbackiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetTransformFeedbacki_v, GLuint -> GLenum -> GLuint -> Ptr GLint -> GL ())+GLAPI(glGetTransformFeedbacki64_v, GLuint -> GLenum -> GLuint -> Ptr GLint64 -> GL ())+GLAPI(glCreateBuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glNamedBufferStorage, GLuint -> GLsizei -> Ptr () -> GLbitfield -> GL ())+GLAPI(glNamedBufferData, GLuint -> GLsizei -> Ptr () -> GLenum -> GL ())+GLAPI(glNamedBufferSubData, GLuint -> GLintptr -> GLsizei -> Ptr () -> GL ())+GLAPI(glCopyNamedBufferSubData, GLuint -> GLuint -> GLintptr -> GLintptr -> GLsizei -> GL ())+GLAPI(glClearNamedBufferData, GLuint -> GLenum -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glClearNamedBufferSubData, GLuint -> GLenum -> GLintptr -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glMapNamedBuffer, GLuint -> GLenum -> GL (Ptr ()))+GLAPI(glMapNamedBufferRange, GLuint -> GLintptr -> GLsizei -> GLbitfield -> GL (Ptr ()))+GLAPI(glUnmapNamedBuffer, GLuint -> GL GLboolean)+GLAPI(glFlushMappedNamedBufferRange, GLuint -> GLintptr -> GLsizei -> GL ())+GLAPI(glGetNamedBufferParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetNamedBufferParameteri64v, GLuint -> GLenum -> Ptr GLint64 -> GL ())+GLAPI(glGetNamedBufferPointerv, GLuint -> GLenum -> Ptr (Ptr ()) -> GL ())+GLAPI(glGetNamedBufferSubData, GLuint -> GLintptr -> GLsizei -> Ptr () -> GL ())+GLAPI(glCreateFramebuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glNamedFramebufferRenderbuffer, GLuint -> GLenum -> GLenum -> GLuint -> GL ())+GLAPI(glNamedFramebufferParameteri, GLuint -> GLenum -> GLint -> GL ())+GLAPI(glNamedFramebufferTexture, GLuint -> GLenum -> GLuint -> GLint -> GL ())+GLAPI(glNamedFramebufferTextureLayer, GLuint -> GLenum -> GLuint -> GLint -> GLint -> GL ())+GLAPI(glNamedFramebufferDrawBuffer, GLuint -> GLenum -> GL ())+GLAPI(glNamedFramebufferDrawBuffers, GLuint -> GLsizei -> Ptr GLenum -> GL ())+GLAPI(glNamedFramebufferReadBuffer, GLuint -> GLenum -> GL ())+GLAPI(glInvalidateNamedFramebufferData, GLuint -> GLsizei -> Ptr GLenum -> GL ())+GLAPI(glInvalidateNamedFramebufferSubData, GLuint -> GLsizei -> Ptr GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLAPI(glClearNamedFramebufferiv, GLuint -> GLenum -> GLint -> Ptr GLint -> GL ())+GLAPI(glClearNamedFramebufferuiv, GLuint -> GLenum -> GLint -> Ptr GLuint -> GL ())+GLAPI(glClearNamedFramebufferfv, GLuint -> GLenum -> GLint -> Ptr GLfloat -> GL ())+GLAPI(glClearNamedFramebufferfi, GLuint -> GLenum -> GLfloat -> GLint -> GL ())+GLAPI(glBlitNamedFramebuffer, GLuint -> GLuint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> GL ())+GLAPI(glCheckNamedFramebufferStatus, GLuint -> GLenum -> GL GLenum)+GLAPI(glGetNamedFramebufferParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetNamedFramebufferAttachmentParameteriv, GLuint -> GLenum -> GLenum -> Ptr GLint -> GL ())+GLAPI(glCreateRenderbuffers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glNamedRenderbufferStorage, GLuint -> GLenum -> GLsizei -> GLsizei -> GL ())+GLAPI(glNamedRenderbufferStorageMultisample, GLuint -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GL ())+GLAPI(glGetNamedRenderbufferParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glCreateTextures, GLenum -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glTextureBuffer, GLuint -> GLenum -> GLuint -> GL ())+GLAPI(glTextureBufferRange, GLuint -> GLenum -> GLuint -> GLintptr -> GLsizei -> GL ())+GLAPI(glTextureStorage1D, GLuint -> GLsizei -> GLenum -> GLsizei -> GL ())+GLAPI(glTextureStorage2D, GLuint -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GL ())+GLAPI(glTextureStorage3D, GLuint -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GL ())+GLAPI(glTextureStorage2DMultisample, GLuint -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLboolean -> GL ())+GLAPI(glTextureStorage3DMultisample, GLuint -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GLboolean -> GL ())+GLAPI(glTextureSubImage1D, GLuint -> GLint -> GLint -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glTextureSubImage2D, GLuint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glTextureSubImage3D, GLuint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLAPI(glCompressedTextureSubImage1D, GLuint -> GLint -> GLint -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glCompressedTextureSubImage2D, GLuint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glCompressedTextureSubImage3D, GLuint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glCopyTextureSubImage1D, GLuint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GL ())+GLAPI(glCopyTextureSubImage2D, GLuint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLAPI(glCopyTextureSubImage3D, GLuint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLAPI(glTextureParameterf, GLuint -> GLenum -> GLfloat -> GL ())+GLAPI(glTextureParameterfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glTextureParameteri, GLuint -> GLenum -> GLint -> GL ())+GLAPI(glTextureParameterIiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glTextureParameterIuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())+GLAPI(glTextureParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGenerateTextureMipmap, GLuint -> GL ())+GLAPI(glBindTextureUnit, GLuint -> GLuint -> GL ())+GLAPI(glGetTextureImage, GLuint -> GLint -> GLenum -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetCompressedTextureImage, GLuint -> GLint -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetTextureLevelParameterfv, GLuint -> GLint -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glGetTextureLevelParameteriv, GLuint -> GLint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetTextureParameterfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())+GLAPI(glGetTextureParameterIiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetTextureParameterIuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())+GLAPI(glGetTextureParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glCreateVertexArrays, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glDisableVertexArrayAttrib, GLuint -> GLuint -> GL ())+GLAPI(glEnableVertexArrayAttrib, GLuint -> GLuint -> GL ())+GLAPI(glVertexArrayElementBuffer, GLuint -> GLuint -> GL ())+GLAPI(glVertexArrayVertexBuffer, GLuint -> GLuint -> GLuint -> GLintptr -> GLsizei -> GL ())+GLAPI(glVertexArrayVertexBuffers, GLuint -> GLuint -> GLsizei -> Ptr GLuint -> Ptr GLintptr -> Ptr GLsizei -> GL ())+GLAPI(glVertexArrayAttribBinding, GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glVertexArrayAttribFormat, GLuint -> GLuint -> GLint -> GLenum -> GLboolean -> GLuint -> GL ())+GLAPI(glVertexArrayAttribIFormat, GLuint -> GLuint -> GLint -> GLenum -> GLuint -> GL ())+GLAPI(glVertexArrayAttribLFormat, GLuint -> GLuint -> GLint -> GLenum -> GLuint -> GL ())+GLAPI(glVertexArrayBindingDivisor, GLuint -> GLuint -> GLuint -> GL ())+GLAPI(glGetVertexArrayiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetVertexArrayIndexediv, GLuint -> GLuint -> GLenum -> Ptr GLint -> GL ())+GLAPI(glGetVertexArrayIndexed64iv, GLuint -> GLuint -> GLenum -> Ptr GLint64 -> GL ())+GLAPI(glCreateSamplers, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glCreateProgramPipelines, GLsizei -> Ptr GLuint -> GL ())+GLAPI(glCreateQueries, GLenum -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGetQueryBufferObjecti64v, GLuint -> GLuint -> GLenum -> GLintptr -> GL ())+GLAPI(glGetQueryBufferObjectiv, GLuint -> GLuint -> GLenum -> GLintptr -> GL ())+GLAPI(glGetQueryBufferObjectui64v, GLuint -> GLuint -> GLenum -> GLintptr -> GL ())+GLAPI(glGetQueryBufferObjectuiv, GLuint -> GLuint -> GLenum -> GLintptr -> GL ())+GLAPI(glMemoryBarrierByRegion, GLbitfield -> GL ())+GLAPI(glGetTextureSubImage, GLuint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetCompressedTextureSubImage, GLuint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetGraphicsResetStatus, GL GLenum)+GLAPI(glGetnCompressedTexImage, GLenum -> GLint -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetnTexImage, GLenum -> GLint -> GLenum -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetnUniformdv, GLuint -> GLint -> GLsizei -> Ptr GLdouble -> GL ())+GLAPI(glGetnUniformfv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glGetnUniformiv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glGetnUniformuiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glReadnPixels, GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glTextureBarrier, GL ())+-- #endif /* GL_VERSION_4_5 */+-- #ifndef GL_ARB_ES2_compatibility+-- #define GL_ARB_ES2_compatibility 1+-- #endif /* GL_ARB_ES2_compatibility */+-- #ifndef GL_ARB_ES3_1_compatibility+-- #define GL_ARB_ES3_1_compatibility 1+-- #endif /* GL_ARB_ES3_1_compatibility */+-- #ifndef GL_ARB_ES3_compatibility+-- #define GL_ARB_ES3_compatibility 1+-- #endif /* GL_ARB_ES3_compatibility */+-- #ifndef GL_ARB_arrays_of_arrays+-- #define GL_ARB_arrays_of_arrays 1+-- #endif /* GL_ARB_arrays_of_arrays */+-- #ifndef GL_ARB_base_instance+-- #define GL_ARB_base_instance 1+-- #endif /* GL_ARB_base_instance */+-- #ifndef GL_ARB_bindless_texture+-- #define GL_ARB_bindless_texture 1+-- #define GL_UNSIGNED_INT64_ARB             0x140F+GLAPI(glGetTextureHandleARB, GLuint -> GL GLuint64)+GLAPI(glGetTextureSamplerHandleARB, GLuint -> GLuint -> GL GLuint64)+GLAPI(glMakeTextureHandleResidentARB, GLuint64 -> GL ())+GLAPI(glMakeTextureHandleNonResidentARB, GLuint64 -> GL ())+GLAPI(glGetImageHandleARB, GLuint -> GLint -> GLboolean -> GLint -> GLenum -> GL GLuint64)+GLAPI(glMakeImageHandleResidentARB, GLuint64 -> GLenum -> GL ())+GLAPI(glMakeImageHandleNonResidentARB, GLuint64 -> GL ())+GLAPI(glUniformHandleui64ARB, GLint -> GLuint64 -> GL ())+GLAPI(glUniformHandleui64vARB, GLint -> GLsizei -> Ptr GLuint64 -> GL ())+GLAPI(glProgramUniformHandleui64ARB, GLuint -> GLint -> GLuint64 -> GL ())+GLAPI(glProgramUniformHandleui64vARB, GLuint -> GLint -> GLsizei -> Ptr GLuint64 -> GL ())+GLAPI(glIsTextureHandleResidentARB, GLuint64 -> GL GLboolean)+GLAPI(glIsImageHandleResidentARB, GLuint64 -> GL GLboolean)+GLAPI(glVertexAttribL1ui64ARB, GLuint -> GLuint64EXT -> GL ())+GLAPI(glVertexAttribL1ui64vARB, GLuint -> Ptr GLuint64EXT -> GL ())+GLAPI(glGetVertexAttribLui64vARB, GLuint -> GLenum -> Ptr GLuint64EXT -> GL ())+-- #endif /* GL_ARB_bindless_texture */+-- #ifndef GL_ARB_blend_func_extended+-- #define GL_ARB_blend_func_extended 1+-- #endif /* GL_ARB_blend_func_extended */+-- #ifndef GL_ARB_buffer_storage+-- #define GL_ARB_buffer_storage 1+-- #endif /* GL_ARB_buffer_storage */+-- #ifndef GL_ARB_cl_event+-- #define GL_ARB_cl_event 1+-- #define GL_SYNC_CL_EVENT_ARB              0x8240+-- #define GL_SYNC_CL_EVENT_COMPLETE_ARB     0x8241+-- GLAPI(glCreateSyncFromCLeventARB, Ptr OpenCLContext -> Ptr OpenCLEvent -> GLbitfield -> GL GLsync)+-- #endif /* GL_ARB_cl_event */+-- #ifndef GL_ARB_clear_buffer_object+-- #define GL_ARB_clear_buffer_object 1+-- #endif /* GL_ARB_clear_buffer_object */+-- #ifndef GL_ARB_clear_texture+-- #define GL_ARB_clear_texture 1+-- #endif /* GL_ARB_clear_texture */+-- #ifndef GL_ARB_clip_control+-- #define GL_ARB_clip_control 1+-- #endif /* GL_ARB_clip_control */+-- #ifndef GL_ARB_compressed_texture_pixel_storage+-- #define GL_ARB_compressed_texture_pixel_storage 1+-- #endif /* GL_ARB_compressed_texture_pixel_storage */+-- #ifndef GL_ARB_compute_shader+-- #define GL_ARB_compute_shader 1+-- #endif /* GL_ARB_compute_shader */+-- #ifndef GL_ARB_compute_variable_group_size+-- #define GL_ARB_compute_variable_group_size 1+-- #define GL_MAX_COMPUTE_VARIABLE_GROUP_INVOCATIONS_ARB 0x9344+-- #define GL_MAX_COMPUTE_FIXED_GROUP_INVOCATIONS_ARB 0x90EB+-- #define GL_MAX_COMPUTE_VARIABLE_GROUP_SIZE_ARB 0x9345+-- #define GL_MAX_COMPUTE_FIXED_GROUP_SIZE_ARB 0x91BF+GLAPI(glDispatchComputeGroupSizeARB, GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())+-- #endif /* GL_ARB_compute_variable_group_size */+-- #ifndef GL_ARB_conditional_render_inverted+-- #define GL_ARB_conditional_render_inverted 1+-- #endif /* GL_ARB_conditional_render_inverted */+-- #ifndef GL_ARB_conservative_depth+-- #define GL_ARB_conservative_depth 1+-- #endif /* GL_ARB_conservative_depth */+-- #ifndef GL_ARB_copy_buffer+-- #define GL_ARB_copy_buffer 1+-- #endif /* GL_ARB_copy_buffer */+-- #ifndef GL_ARB_copy_image+-- #define GL_ARB_copy_image 1+-- #endif /* GL_ARB_copy_image */+-- #ifndef GL_ARB_cull_distance+-- #define GL_ARB_cull_distance 1+-- #endif /* GL_ARB_cull_distance */+-- #ifndef GL_ARB_debug_output+-- #define GL_ARB_debug_output 1+-- #define GL_DEBUG_OUTPUT_SYNCHRONOUS_ARB   0x8242+-- #define GL_DEBUG_NEXT_LOGGED_MESSAGE_LENGTH_ARB 0x8243+-- #define GL_DEBUG_CALLBACK_FUNCTION_ARB    0x8244+-- #define GL_DEBUG_CALLBACK_USER_PARAM_ARB  0x8245+-- #define GL_DEBUG_SOURCE_API_ARB           0x8246+-- #define GL_DEBUG_SOURCE_WINDOW_SYSTEM_ARB 0x8247+-- #define GL_DEBUG_SOURCE_SHADER_COMPILER_ARB 0x8248+-- #define GL_DEBUG_SOURCE_THIRD_PARTY_ARB   0x8249+-- #define GL_DEBUG_SOURCE_APPLICATION_ARB   0x824A+-- #define GL_DEBUG_SOURCE_OTHER_ARB         0x824B+-- #define GL_DEBUG_TYPE_ERROR_ARB           0x824C+-- #define GL_DEBUG_TYPE_DEPRECATED_BEHAVIOR_ARB 0x824D+-- #define GL_DEBUG_TYPE_UNDEFINED_BEHAVIOR_ARB 0x824E+-- #define GL_DEBUG_TYPE_PORTABILITY_ARB     0x824F+-- #define GL_DEBUG_TYPE_PERFORMANCE_ARB     0x8250+-- #define GL_DEBUG_TYPE_OTHER_ARB           0x8251+-- #define GL_MAX_DEBUG_MESSAGE_LENGTH_ARB   0x9143+-- #define GL_MAX_DEBUG_LOGGED_MESSAGES_ARB  0x9144+-- #define GL_DEBUG_LOGGED_MESSAGES_ARB      0x9145+-- #define GL_DEBUG_SEVERITY_HIGH_ARB        0x9146+-- #define GL_DEBUG_SEVERITY_MEDIUM_ARB      0x9147+-- #define GL_DEBUG_SEVERITY_LOW_ARB         0x9148+GLAPI(glDebugMessageControlARB, GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLuint -> GLboolean -> GL ())+GLAPI(glDebugMessageInsertARB, GLenum -> GLenum -> GLuint -> GLenum -> GLsizei -> CString -> GL ())+GLAPI(glDebugMessageCallbackARB, FunPtr GLDebugProc -> Ptr () -> GL ())+GLAPI(glGetDebugMessageLogARB, GLuint -> GLsizei -> Ptr GLenum -> Ptr GLenum -> Ptr GLuint -> Ptr GLenum -> Ptr GLsizei -> CString -> GL GLuint)+-- #endif /* GL_ARB_debug_output */+-- #ifndef GL_ARB_depth_buffer_float+-- #define GL_ARB_depth_buffer_float 1+-- #endif /* GL_ARB_depth_buffer_float */+-- #ifndef GL_ARB_depth_clamp+-- #define GL_ARB_depth_clamp 1+-- #endif /* GL_ARB_depth_clamp */+-- #ifndef GL_ARB_derivative_control+-- #define GL_ARB_derivative_control 1+-- #endif /* GL_ARB_derivative_control */+-- #ifndef GL_ARB_direct_state_access+-- #define GL_ARB_direct_state_access 1+-- #endif /* GL_ARB_direct_state_access */+-- #ifndef GL_ARB_draw_buffers_blend+-- #define GL_ARB_draw_buffers_blend 1+GLAPI(glBlendEquationiARB, GLuint -> GLenum -> GL ())+GLAPI(glBlendEquationSeparateiARB, GLuint -> GLenum -> GLenum -> GL ())+GLAPI(glBlendFunciARB, GLuint -> GLenum -> GLenum -> GL ())+GLAPI(glBlendFuncSeparateiARB, GLuint -> GLenum -> GLenum -> GLenum -> GLenum -> GL ())+-- #endif /* GL_ARB_draw_buffers_blend */+-- #ifndef GL_ARB_draw_elements_base_vertex+-- #define GL_ARB_draw_elements_base_vertex 1+-- #endif /* GL_ARB_draw_elements_base_vertex */+-- #ifndef GL_ARB_draw_indirect+-- #define GL_ARB_draw_indirect 1+-- #endif /* GL_ARB_draw_indirect */+-- #ifndef GL_ARB_enhanced_layouts+-- #define GL_ARB_enhanced_layouts 1+-- #endif /* GL_ARB_enhanced_layouts */+-- #ifndef GL_ARB_explicit_attrib_location+-- #define GL_ARB_explicit_attrib_location 1+-- #endif /* GL_ARB_explicit_attrib_location */+-- #ifndef GL_ARB_explicit_uniform_location+-- #define GL_ARB_explicit_uniform_location 1+-- #endif /* GL_ARB_explicit_uniform_location */+-- #ifndef GL_ARB_fragment_coord_conventions+-- #define GL_ARB_fragment_coord_conventions 1+-- #endif /* GL_ARB_fragment_coord_conventions */+-- #ifndef GL_ARB_fragment_layer_viewport+-- #define GL_ARB_fragment_layer_viewport 1+-- #endif /* GL_ARB_fragment_layer_viewport */+-- #ifndef GL_ARB_framebuffer_no_attachments+-- #define GL_ARB_framebuffer_no_attachments 1+-- #endif /* GL_ARB_framebuffer_no_attachments */+-- #ifndef GL_ARB_framebuffer_object+-- #define GL_ARB_framebuffer_object 1+-- #endif /* GL_ARB_framebuffer_object */+-- #ifndef GL_ARB_framebuffer_sRGB+-- #define GL_ARB_framebuffer_sRGB 1+-- #endif /* GL_ARB_framebuffer_sRGB */+-- #ifndef GL_ARB_get_program_binary+-- #define GL_ARB_get_program_binary 1+-- #endif /* GL_ARB_get_program_binary */+-- #ifndef GL_ARB_get_texture_sub_image+-- #define GL_ARB_get_texture_sub_image 1+-- #endif /* GL_ARB_get_texture_sub_image */+-- #ifndef GL_ARB_gpu_shader5+-- #define GL_ARB_gpu_shader5 1+-- #endif /* GL_ARB_gpu_shader5 */+-- #ifndef GL_ARB_gpu_shader_fp64+-- #define GL_ARB_gpu_shader_fp64 1+-- #endif /* GL_ARB_gpu_shader_fp64 */+-- #ifndef GL_ARB_half_float_vertex+-- #define GL_ARB_half_float_vertex 1+-- #endif /* GL_ARB_half_float_vertex */+-- #ifndef GL_ARB_imaging+-- #define GL_ARB_imaging 1+-- #define GL_BLEND_COLOR                    0x8005+-- #define GL_BLEND_EQUATION                 0x8009+-- #endif /* GL_ARB_imaging */+-- #ifndef GL_ARB_indirect_parameters+-- #define GL_ARB_indirect_parameters 1+-- #define GL_PARAMETER_BUFFER_ARB           0x80EE+-- #define GL_PARAMETER_BUFFER_BINDING_ARB   0x80EF+GLAPI(glMultiDrawArraysIndirectCountARB, GLenum -> GLintptr -> GLintptr -> GLsizei -> GLsizei -> GL ())+GLAPI(glMultiDrawElementsIndirectCountARB, GLenum -> GLenum -> GLintptr -> GLintptr -> GLsizei -> GLsizei -> GL ())+-- #endif /* GL_ARB_indirect_parameters */+-- #ifndef GL_ARB_internalformat_query+-- #define GL_ARB_internalformat_query 1+-- #endif /* GL_ARB_internalformat_query */+-- #ifndef GL_ARB_internalformat_query2+-- #define GL_ARB_internalformat_query2 1+-- #define GL_SRGB_DECODE_ARB                0x8299+-- #endif /* GL_ARB_internalformat_query2 */+-- #ifndef GL_ARB_invalidate_subdata+-- #define GL_ARB_invalidate_subdata 1+-- #endif /* GL_ARB_invalidate_subdata */+-- #ifndef GL_ARB_map_buffer_alignment+-- #define GL_ARB_map_buffer_alignment 1+-- #endif /* GL_ARB_map_buffer_alignment */+-- #ifndef GL_ARB_map_buffer_range+-- #define GL_ARB_map_buffer_range 1+-- #endif /* GL_ARB_map_buffer_range */+-- #ifndef GL_ARB_multi_bind+-- #define GL_ARB_multi_bind 1+-- #endif /* GL_ARB_multi_bind */+-- #ifndef GL_ARB_multi_draw_indirect+-- #define GL_ARB_multi_draw_indirect 1+-- #endif /* GL_ARB_multi_draw_indirect */+-- #ifndef GL_ARB_occlusion_query2+-- #define GL_ARB_occlusion_query2 1+-- #endif /* GL_ARB_occlusion_query2 */+-- #ifndef GL_ARB_pipeline_statistics_query+-- #define GL_ARB_pipeline_statistics_query 1+-- #define GL_VERTICES_SUBMITTED_ARB         0x82EE+-- #define GL_PRIMITIVES_SUBMITTED_ARB       0x82EF+-- #define GL_VERTEX_SHADER_INVOCATIONS_ARB  0x82F0+-- #define GL_TESS_CONTROL_SHADER_PATCHES_ARB 0x82F1+-- #define GL_TESS_EVALUATION_SHADER_INVOCATIONS_ARB 0x82F2+-- #define GL_GEOMETRY_SHADER_PRIMITIVES_EMITTED_ARB 0x82F3+-- #define GL_FRAGMENT_SHADER_INVOCATIONS_ARB 0x82F4+-- #define GL_COMPUTE_SHADER_INVOCATIONS_ARB 0x82F5+-- #define GL_CLIPPING_INPUT_PRIMITIVES_ARB  0x82F6+-- #define GL_CLIPPING_OUTPUT_PRIMITIVES_ARB 0x82F7+-- #endif /* GL_ARB_pipeline_statistics_query */+-- #ifndef GL_ARB_program_interface_query+-- #define GL_ARB_program_interface_query 1+-- #endif /* GL_ARB_program_interface_query */+-- #ifndef GL_ARB_provoking_vertex+-- #define GL_ARB_provoking_vertex 1+-- #endif /* GL_ARB_provoking_vertex */+-- #ifndef GL_ARB_query_buffer_object+-- #define GL_ARB_query_buffer_object 1+-- #endif /* GL_ARB_query_buffer_object */+-- #ifndef GL_ARB_robust_buffer_access_behavior+-- #define GL_ARB_robust_buffer_access_behavior 1+-- #endif /* GL_ARB_robust_buffer_access_behavior */+-- #ifndef GL_ARB_robustness+-- #define GL_ARB_robustness 1+-- #define GL_CONTEXT_FLAG_ROBUST_ACCESS_BIT_ARB 0x00000004+-- #define GL_LOSE_CONTEXT_ON_RESET_ARB      0x8252+-- #define GL_GUILTY_CONTEXT_RESET_ARB       0x8253+-- #define GL_INNOCENT_CONTEXT_RESET_ARB     0x8254+-- #define GL_UNKNOWN_CONTEXT_RESET_ARB      0x8255+-- #define GL_RESET_NOTIFICATION_STRATEGY_ARB 0x8256+-- #define GL_NO_RESET_NOTIFICATION_ARB      0x8261+GLAPI(glGetGraphicsResetStatusARB, GL GLenum)+GLAPI(glGetnTexImageARB, GLenum -> GLint -> GLenum -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glReadnPixelsARB, GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetnCompressedTexImageARB, GLenum -> GLint -> GLsizei -> Ptr () -> GL ())+GLAPI(glGetnUniformfvARB, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLAPI(glGetnUniformivARB, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLAPI(glGetnUniformuivARB, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLAPI(glGetnUniformdvARB, GLuint -> GLint -> GLsizei -> Ptr GLdouble -> GL ())+-- #endif /* GL_ARB_robustness */+-- #ifndef GL_ARB_robustness_isolation+-- #define GL_ARB_robustness_isolation 1+-- #endif /* GL_ARB_robustness_isolation */+-- #ifndef GL_ARB_sample_shading+-- #define GL_ARB_sample_shading 1+-- #define GL_SAMPLE_SHADING_ARB             0x8C36+-- #define GL_MIN_SAMPLE_SHADING_VALUE_ARB   0x8C37+GLAPI(glMinSampleShadingARB, GLfloat -> GL ())+-- #endif /* GL_ARB_sample_shading */+-- #ifndef GL_ARB_sampler_objects+-- #define GL_ARB_sampler_objects 1+-- #endif /* GL_ARB_sampler_objects */+-- #ifndef GL_ARB_seamless_cube_map+-- #define GL_ARB_seamless_cube_map 1+-- #endif /* GL_ARB_seamless_cube_map */+-- #ifndef GL_ARB_seamless_cubemap_per_texture+-- #define GL_ARB_seamless_cubemap_per_texture 1+-- #endif /* GL_ARB_seamless_cubemap_per_texture */+-- #ifndef GL_ARB_separate_shader_objects+-- #define GL_ARB_separate_shader_objects 1+-- #endif /* GL_ARB_separate_shader_objects */+-- #ifndef GL_ARB_shader_atomic_counters+-- #define GL_ARB_shader_atomic_counters 1+-- #endif /* GL_ARB_shader_atomic_counters */+-- #ifndef GL_ARB_shader_bit_encoding+-- #define GL_ARB_shader_bit_encoding 1+-- #endif /* GL_ARB_shader_bit_encoding */+-- #ifndef GL_ARB_shader_draw_parameters+-- #define GL_ARB_shader_draw_parameters 1+-- #endif /* GL_ARB_shader_draw_parameters */+-- #ifndef GL_ARB_shader_group_vote+-- #define GL_ARB_shader_group_vote 1+-- #endif /* GL_ARB_shader_group_vote */+-- #ifndef GL_ARB_shader_image_load_store+-- #define GL_ARB_shader_image_load_store 1+-- #endif /* GL_ARB_shader_image_load_store */+-- #ifndef GL_ARB_shader_image_size+-- #define GL_ARB_shader_image_size 1+-- #endif /* GL_ARB_shader_image_size */+-- #ifndef GL_ARB_shader_precision+-- #define GL_ARB_shader_precision 1+-- #endif /* GL_ARB_shader_precision */+-- #ifndef GL_ARB_shader_stencil_export+-- #define GL_ARB_shader_stencil_export 1+-- #endif /* GL_ARB_shader_stencil_export */+-- #ifndef GL_ARB_shader_storage_buffer_object+-- #define GL_ARB_shader_storage_buffer_object 1+-- #endif /* GL_ARB_shader_storage_buffer_object */+-- #ifndef GL_ARB_shader_subroutine+-- #define GL_ARB_shader_subroutine 1+-- #endif /* GL_ARB_shader_subroutine */+-- #ifndef GL_ARB_shader_texture_image_samples+-- #define GL_ARB_shader_texture_image_samples 1+-- #endif /* GL_ARB_shader_texture_image_samples */+-- #ifndef GL_ARB_shading_language_420pack+-- #define GL_ARB_shading_language_420pack 1+-- #endif /* GL_ARB_shading_language_420pack */+-- #ifndef GL_ARB_shading_language_include+-- #define GL_ARB_shading_language_include 1+-- #define GL_SHADER_INCLUDE_ARB             0x8DAE+-- #define GL_NAMED_STRING_LENGTH_ARB        0x8DE9+-- #define GL_NAMED_STRING_TYPE_ARB          0x8DEA+GLAPI(glNamedStringARB, GLenum -> GLint -> CString -> GLint -> CString -> GL ())+GLAPI(glDeleteNamedStringARB, GLint -> CString -> GL ())+GLAPI(glCompileShaderIncludeARB, GLuint -> GLsizei -> Ptr CString -> Ptr GLint -> GL ())+GLAPI(glIsNamedStringARB, GLint -> CString -> GL GLboolean)+GLAPI(glGetNamedStringARB, GLint -> CString -> GLsizei -> Ptr GLint -> CString -> GL ())+GLAPI(glGetNamedStringivARB, GLint -> CString -> GLenum -> Ptr GLint -> GL ())+-- #endif /* GL_ARB_shading_language_include */+-- #ifndef GL_ARB_shading_language_packing+-- #define GL_ARB_shading_language_packing 1+-- #endif /* GL_ARB_shading_language_packing */+-- #ifndef GL_ARB_sparse_buffer+-- #define GL_ARB_sparse_buffer 1+-- #define GL_SPARSE_STORAGE_BIT_ARB         0x0400+-- #define GL_SPARSE_BUFFER_PAGE_SIZE_ARB    0x82F8+GLAPI(glBufferPageCommitmentARB, GLenum -> GLintptr -> GLsizeiptr -> GLboolean -> GL ())+GLAPI(glNamedBufferPageCommitmentEXT, GLuint -> GLintptr -> GLsizeiptr -> GLboolean -> GL ())+GLAPI(glNamedBufferPageCommitmentARB, GLuint -> GLintptr -> GLsizeiptr -> GLboolean -> GL ())+-- #endif /* GL_ARB_sparse_buffer */+-- #ifndef GL_ARB_sparse_texture+-- #define GL_ARB_sparse_texture 1+-- #define GL_TEXTURE_SPARSE_ARB             0x91A6+-- #define GL_VIRTUAL_PAGE_SIZE_INDEX_ARB    0x91A7+-- #define GL_NUM_SPARSE_LEVELS_ARB          0x91AA+-- #define GL_NUM_VIRTUAL_PAGE_SIZES_ARB     0x91A8+-- #define GL_VIRTUAL_PAGE_SIZE_X_ARB        0x9195+-- #define GL_VIRTUAL_PAGE_SIZE_Y_ARB        0x9196+-- #define GL_VIRTUAL_PAGE_SIZE_Z_ARB        0x9197+-- #define GL_MAX_SPARSE_TEXTURE_SIZE_ARB    0x9198+-- #define GL_MAX_SPARSE_3D_TEXTURE_SIZE_ARB 0x9199+-- #define GL_MAX_SPARSE_ARRAY_TEXTURE_LAYERS_ARB 0x919A+-- #define GL_SPARSE_TEXTURE_FULL_ARRAY_CUBE_MIPMAPS_ARB 0x91A9+GLAPI(glTexPageCommitmentARB, GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLboolean -> GL ())+-- #endif /* GL_ARB_sparse_texture */+-- #ifndef GL_ARB_stencil_texturing+-- #define GL_ARB_stencil_texturing 1+-- #endif /* GL_ARB_stencil_texturing */+-- #ifndef GL_ARB_sync+-- #define GL_ARB_sync 1+-- #endif /* GL_ARB_sync */+-- #ifndef GL_ARB_tessellation_shader+-- #define GL_ARB_tessellation_shader 1+-- #endif /* GL_ARB_tessellation_shader */+-- #ifndef GL_ARB_texture_barrier+-- #define GL_ARB_texture_barrier 1+-- #endif /* GL_ARB_texture_barrier */+-- #ifndef GL_ARB_texture_buffer_object_rgb32+-- #define GL_ARB_texture_buffer_object_rgb32 1+-- #endif /* GL_ARB_texture_buffer_object_rgb32 */+-- #ifndef GL_ARB_texture_buffer_range+-- #define GL_ARB_texture_buffer_range 1+-- #endif /* GL_ARB_texture_buffer_range */+-- #ifndef GL_ARB_texture_compression_bptc+-- #define GL_ARB_texture_compression_bptc 1+-- #define GL_COMPRESSED_RGBA_BPTC_UNORM_ARB 0x8E8C+-- #define GL_COMPRESSED_SRGB_ALPHA_BPTC_UNORM_ARB 0x8E8D+-- #define GL_COMPRESSED_RGB_BPTC_SIGNED_FLOAT_ARB 0x8E8E+-- #define GL_COMPRESSED_RGB_BPTC_UNSIGNED_FLOAT_ARB 0x8E8F+-- #endif /* GL_ARB_texture_compression_bptc */+-- #ifndef GL_ARB_texture_compression_rgtc+-- #define GL_ARB_texture_compression_rgtc 1+-- #endif /* GL_ARB_texture_compression_rgtc */+-- #ifndef GL_ARB_texture_cube_map_array+-- #define GL_ARB_texture_cube_map_array 1+-- #define GL_TEXTURE_CUBE_MAP_ARRAY_ARB     0x9009+-- #define GL_TEXTURE_BINDING_CUBE_MAP_ARRAY_ARB 0x900A+-- #define GL_PROXY_TEXTURE_CUBE_MAP_ARRAY_ARB 0x900B+-- #define GL_SAMPLER_CUBE_MAP_ARRAY_ARB     0x900C+-- #define GL_SAMPLER_CUBE_MAP_ARRAY_SHADOW_ARB 0x900D+-- #define GL_INT_SAMPLER_CUBE_MAP_ARRAY_ARB 0x900E+-- #define GL_UNSIGNED_INT_SAMPLER_CUBE_MAP_ARRAY_ARB 0x900F+-- #endif /* GL_ARB_texture_cube_map_array */+-- #ifndef GL_ARB_texture_gather+-- #define GL_ARB_texture_gather 1+-- #define GL_MIN_PROGRAM_TEXTURE_GATHER_OFFSET_ARB 0x8E5E+-- #define GL_MAX_PROGRAM_TEXTURE_GATHER_OFFSET_ARB 0x8E5F+-- #define GL_MAX_PROGRAM_TEXTURE_GATHER_COMPONENTS_ARB 0x8F9F+-- #endif /* GL_ARB_texture_gather */+-- #ifndef GL_ARB_texture_mirror_clamp_to_edge+-- #define GL_ARB_texture_mirror_clamp_to_edge 1+-- #endif /* GL_ARB_texture_mirror_clamp_to_edge */+-- #ifndef GL_ARB_texture_multisample+-- #define GL_ARB_texture_multisample 1+-- #endif /* GL_ARB_texture_multisample */+-- #ifndef GL_ARB_texture_query_levels+-- #define GL_ARB_texture_query_levels 1+-- #endif /* GL_ARB_texture_query_levels */+-- #ifndef GL_ARB_texture_query_lod+-- #define GL_ARB_texture_query_lod 1+-- #endif /* GL_ARB_texture_query_lod */+-- #ifndef GL_ARB_texture_rg+-- #define GL_ARB_texture_rg 1+-- #endif /* GL_ARB_texture_rg */+-- #ifndef GL_ARB_texture_rgb10_a2ui+-- #define GL_ARB_texture_rgb10_a2ui 1+-- #endif /* GL_ARB_texture_rgb10_a2ui */+-- #ifndef GL_ARB_texture_stencil8+-- #define GL_ARB_texture_stencil8 1+-- #endif /* GL_ARB_texture_stencil8 */+-- #ifndef GL_ARB_texture_storage+-- #define GL_ARB_texture_storage 1+-- #endif /* GL_ARB_texture_storage */+-- #ifndef GL_ARB_texture_storage_multisample+-- #define GL_ARB_texture_storage_multisample 1+-- #endif /* GL_ARB_texture_storage_multisample */+-- #ifndef GL_ARB_texture_swizzle+-- #define GL_ARB_texture_swizzle 1+-- #endif /* GL_ARB_texture_swizzle */+-- #ifndef GL_ARB_texture_view+-- #define GL_ARB_texture_view 1+-- #endif /* GL_ARB_texture_view */+-- #ifndef GL_ARB_timer_query+-- #define GL_ARB_timer_query 1+-- #endif /* GL_ARB_timer_query */+-- #ifndef GL_ARB_transform_feedback2+-- #define GL_ARB_transform_feedback2 1+-- #endif /* GL_ARB_transform_feedback2 */+-- #ifndef GL_ARB_transform_feedback3+-- #define GL_ARB_transform_feedback3 1+-- #endif /* GL_ARB_transform_feedback3 */+-- #ifndef GL_ARB_transform_feedback_instanced+-- #define GL_ARB_transform_feedback_instanced 1+-- #endif /* GL_ARB_transform_feedback_instanced */+-- #ifndef GL_ARB_transform_feedback_overflow_query+-- #define GL_ARB_transform_feedback_overflow_query 1+-- #define GL_TRANSFORM_FEEDBACK_OVERFLOW_ARB 0x82EC+-- #define GL_TRANSFORM_FEEDBACK_STREAM_OVERFLOW_ARB 0x82ED+-- #endif /* GL_ARB_transform_feedback_overflow_query */+-- #ifndef GL_ARB_uniform_buffer_object+-- #define GL_ARB_uniform_buffer_object 1+-- #endif /* GL_ARB_uniform_buffer_object */+-- #ifndef GL_ARB_vertex_array_bgra+-- #define GL_ARB_vertex_array_bgra 1+-- #endif /* GL_ARB_vertex_array_bgra */+-- #ifndef GL_ARB_vertex_array_object+-- #define GL_ARB_vertex_array_object 1+-- #endif /* GL_ARB_vertex_array_object */+-- #ifndef GL_ARB_vertex_attrib_64bit+-- #define GL_ARB_vertex_attrib_64bit 1+-- #endif /* GL_ARB_vertex_attrib_64bit */+-- #ifndef GL_ARB_vertex_attrib_binding+-- #define GL_ARB_vertex_attrib_binding 1+-- #endif /* GL_ARB_vertex_attrib_binding */+-- #ifndef GL_ARB_vertex_type_10f_11f_11f_rev+-- #define GL_ARB_vertex_type_10f_11f_11f_rev 1+-- #endif /* GL_ARB_vertex_type_10f_11f_11f_rev */+-- #ifndef GL_ARB_vertex_type_2_10_10_10_rev+-- #define GL_ARB_vertex_type_2_10_10_10_rev 1+-- #endif /* GL_ARB_vertex_type_2_10_10_10_rev */+-- #ifndef GL_ARB_viewport_array+-- #define GL_ARB_viewport_array 1+-- #endif /* GL_ARB_viewport_array */+-- #ifndef GL_KHR_context_flush_control+-- #define GL_KHR_context_flush_control 1+-- #endif /* GL_KHR_context_flush_control */+-- #ifndef GL_KHR_debug+-- #define GL_KHR_debug 1+-- #endif /* GL_KHR_debug */+-- #ifndef GL_KHR_robust_buffer_access_behavior+-- #define GL_KHR_robust_buffer_access_behavior 1+-- #endif /* GL_KHR_robust_buffer_access_behavior */+-- #ifndef GL_KHR_robustness+-- #define GL_KHR_robustness 1+-- #define GL_CONTEXT_ROBUST_ACCESS          0x90F3+-- #endif /* GL_KHR_robustness */+-- #ifndef GL_KHR_texture_compression_astc_hdr+-- #define GL_KHR_texture_compression_astc_hdr 1+-- #define GL_COMPRESSED_RGBA_ASTC_4x4_KHR   0x93B0+-- #define GL_COMPRESSED_RGBA_ASTC_5x4_KHR   0x93B1+-- #define GL_COMPRESSED_RGBA_ASTC_5x5_KHR   0x93B2+-- #define GL_COMPRESSED_RGBA_ASTC_6x5_KHR   0x93B3+-- #define GL_COMPRESSED_RGBA_ASTC_6x6_KHR   0x93B4+-- #define GL_COMPRESSED_RGBA_ASTC_8x5_KHR   0x93B5+-- #define GL_COMPRESSED_RGBA_ASTC_8x6_KHR   0x93B6+-- #define GL_COMPRESSED_RGBA_ASTC_8x8_KHR   0x93B7+-- #define GL_COMPRESSED_RGBA_ASTC_10x5_KHR  0x93B8+-- #define GL_COMPRESSED_RGBA_ASTC_10x6_KHR  0x93B9+-- #define GL_COMPRESSED_RGBA_ASTC_10x8_KHR  0x93BA+-- #define GL_COMPRESSED_RGBA_ASTC_10x10_KHR 0x93BB+-- #define GL_COMPRESSED_RGBA_ASTC_12x10_KHR 0x93BC+-- #define GL_COMPRESSED_RGBA_ASTC_12x12_KHR 0x93BD+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_4x4_KHR 0x93D0+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_5x4_KHR 0x93D1+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_5x5_KHR 0x93D2+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_6x5_KHR 0x93D3+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_6x6_KHR 0x93D4+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_8x5_KHR 0x93D5+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_8x6_KHR 0x93D6+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_8x8_KHR 0x93D7+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_10x5_KHR 0x93D8+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_10x6_KHR 0x93D9+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_10x8_KHR 0x93DA+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_10x10_KHR 0x93DB+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_12x10_KHR 0x93DC+-- #define GL_COMPRESSED_SRGB8_ALPHA8_ASTC_12x12_KHR 0x93DD+-- #endif /* GL_KHR_texture_compression_astc_hdr */+-- #ifndef GL_KHR_texture_compression_astc_ldr+-- #define GL_KHR_texture_compression_astc_ldr 1+-- #endif /* GL_KHR_texture_compression_astc_ldr */

@@ -0,0 +1,77 @@+{-# LANGUAGE CPP, FlexibleInstances #-}+module Graphics.OpenGL.Types (+  +  -- * Shading Language Double Types+  DVec2, DVec3, DVec4,+  DMat2, DMat3, DMat4,+  DMat2x3, DMat2x4, DMat3x2,+  DMat3x4, DMat4x2, DMat4x3+  +  -- * Additional Instances++  ) where+import Foreign+import Graphics.OpenGL.CoreArb+import Graphics.OpenGLES.Base+import Graphics.OpenGLES.Internal+import Graphics.OpenGLES.Types+import Linear++type DVec2 = V2 Double+type DVec3 = V3 Double+type DVec4 = V4 Double+type DMat2 = M22 Double+type DMat3 = M33 Double+type DMat4 = M44 Double+type DMat2x3 = M23 Double+type DMat2x4 = M24 Double+type DMat3x2 = M32 Double+type DMat3x4 = M34 Double+type DMat4x2 = M42 Double+type DMat4x3 = M43 Double++#define Uniform(_typ, _arg, _suffix, _rhs) \+instance UnifVal (_typ) where \+	glUniform (loc, _, _) _arg = glUniform/**/_suffix loc _rhs \++Uniform(Double,x,1d,x)+Uniform(DVec2,(V2 x y),2d,x y)+Uniform(DVec3,(V3 x y z),3d,x y z)+Uniform(DVec4,(V4 x y z w),4d,x y z w)++{-# NOINLINE pokeUniformArray #-}+pokeUniformArray+	:: Storable b => (GLint -> GLsizei -> Ptr a -> GL ())+	-> (GLint, GLsizei, Ptr ()) -> [b] -> GL ()+pokeUniformArray glUniformV (loc, len, ptr) values = do+	pokeArray (castPtr ptr) (take (fromIntegral len) values)+	glUniformV loc len (castPtr ptr)++instance UnifVal [Double] where glUniform = pokeUniformArray glUniform1dv+instance UnifVal [DVec2] where glUniform = pokeUniformArray glUniform2dv+instance UnifVal [DVec3] where glUniform = pokeUniformArray glUniform3dv+instance UnifVal [DVec4] where glUniform = pokeUniformArray glUniform4dv++castMat a b c d e = a b c d (castPtr e)++instance UnifMat DMat2 where glUnifMat = castMat glUniformMatrix2dv+instance UnifMat DMat3 where glUnifMat = castMat glUniformMatrix3dv+instance UnifMat DMat4 where glUnifMat = castMat glUniformMatrix4dv+instance UnifMat DMat2x3 where glUnifMat = castMat glUniformMatrix2x3dv+instance UnifMat DMat2x4 where glUnifMat = castMat glUniformMatrix2x4dv+instance UnifMat DMat3x2 where glUnifMat = castMat glUniformMatrix3x2dv+instance UnifMat DMat3x4 where glUnifMat = castMat glUniformMatrix3x4dv+instance UnifMat DMat4x2 where glUnifMat = castMat glUniformMatrix4x2dv+instance UnifMat DMat4x3 where glUnifMat = castMat glUniformMatrix4x3dv++instance VertexAttribute Double where+	glVertexAttrib ix x = glVertexAttrib1d ix x+instance VertexAttribute DVec2 where+	glVertexAttrib ix (V2 x y) = glVertexAttrib2d ix x y+instance VertexAttribute DVec3 where+	glVertexAttrib ix (V3 x y z) = glVertexAttrib3d ix x y z+instance VertexAttribute DVec4 where+	glVertexAttrib ix (V4 x y z w) = glVertexAttrib4d ix x y z w++instance AttrElement Double+

@@ -14,11 +14,12 @@   module Data.Int,   module Data.Word,   module Graphics.OpenGLES.Buffer,-  module Graphics.OpenGLES.Framebuffer,+  module Graphics.OpenGLES.Caps,   module Graphics.OpenGLES.Core,-  module Graphics.OpenGLES.Env,+  module Graphics.OpenGLES.Framebuffer,   module Graphics.OpenGLES.PixelFormat,   module Graphics.OpenGLES.State,+  module Graphics.OpenGLES.Sync,   module Graphics.OpenGLES.Texture,   module Graphics.OpenGLES.Types,   module Linear@@ -27,11 +28,12 @@ import Data.Int import Data.Word import Graphics.OpenGLES.Buffer-import Graphics.OpenGLES.Framebuffer+import Graphics.OpenGLES.Caps import Graphics.OpenGLES.Core-import Graphics.OpenGLES.Env+import Graphics.OpenGLES.Framebuffer import Graphics.OpenGLES.PixelFormat import Graphics.OpenGLES.State+import Graphics.OpenGLES.Sync import Graphics.OpenGLES.Texture import Graphics.OpenGLES.Types import Linear

@@ -361,7 +361,7 @@ 	) where import Foreign import Foreign.C.String-import Graphics.EGL (eglGetProcAddress)+import Graphics.EGL.Base (eglGetProcAddress) --XXX unify Wrappers by args -- * Basic Types 

@@ -13,10 +13,12 @@   GLArray,   GLSource(..),   glLoad, glReload, glUnsafeRead, glModify, glMap,+   -- ** Updating Mutable Buffers-  withStorableArraySize,+  unsafeWithLen,   BufferUsage, app2gl, app2glDyn, app2glStream,   gl2app, gl2appDyn, gl2appStream, gl2gl, gl2glDyn, gl2glStream,+     -- ** Raw Buffer Operations   bindBuffer, bindBufferRange, bindBufferBase,   bufferData, bufferSubData, @@ -41,20 +43,18 @@   ) where  import Control.Applicative-import Data.Array.Storable-import Data.Array.Storable.Internals import qualified Data.ByteString as B import qualified Data.ByteString.Internal as B import Data.IORef+import qualified Data.Vector.Storable as V import Graphics.OpenGLES.Base+import Graphics.OpenGLES.Caps import Graphics.OpenGLES.Internal-import Graphics.OpenGLES.Env import Graphics.OpenGLES.Types-import Foreign hiding (newArray)+import Foreign --- ** Constructing Mutable Buffers -type GLArray a = StorableArray Int a+-- ** Constructing Mutable Buffers  type family Content a x :: * type instance Content Int x = x@@ -74,11 +74,11 @@ 			>> return (), len)  instance Storable a => GLSource ([a], Int) a where-	makeAref (xs, len) = Left <$> newListArray (0, len - 1) (cycle xs)+	makeAref (xs, len) = return . Left $ V.fromListN len (cycle xs) 	makeWriter (xs, len) = (\ptr -> pokeArray ptr xs, len)  instance Storable a => GLSource [a] a where-	makeAref xs = Left <$> newListArray (0, length xs - 1) xs+	makeAref xs = return . Left $ V.fromList xs 	makeWriter xs = (\ptr -> pokeArray ptr xs, length xs)  instance Storable b => GLSource B.ByteString b where@@ -86,8 +86,8 @@ 		let fp | offset == 0 = foreignPtr 		       | otherwise = case B.copy bs of (B.PS f _ _) -> f 		let elems = (len `div` sizeOf (undefined :: b))-		let array = StorableArray 0 (elems-1) elems (castForeignPtr fp)-		return (Left array)+		let vec = V.unsafeFromForeignPtr0 (castForeignPtr fp) elems+		return (Left vec) 	makeWriter (B.PS fp offset len) = (\dst -> 		withForeignPtr fp $ \src -> 			B.memcpy (castPtr dst) (advancePtr (castPtr src) offset) len@@ -95,11 +95,12 @@  instance Storable a => GLSource (GLArray a) a where 	makeAref = return . Left-	makeWriter sa@(StorableArray _ _ len fp) =+	makeWriter vec = 		(\dst -> withForeignPtr fp $ \src ->-			B.memcpy (castPtr dst) (castPtr src)+				B.memcpy (castPtr dst) (castPtr src) 			(len * sizeOf (undefined :: a)) 		, len)+		where (fp, len) = V.unsafeToForeignPtr0 vec  --instance GLSource (Buffer a) a where --	makeAref (Buffer aref glo) = return . Left =<< go =<< readIORef aref@@ -133,8 +134,8 @@ 	Buffer aref <$> newBuffer (do 		array <- readIORef aref 		case array of-			Left sa ->-				withStorableArraySize sa (bufferData array_buffer usage)+			Left vector ->+				unsafeWithLen vector (bufferData array_buffer usage) 			Right elems -> 				bufferData array_buffer usage (elems * unit) nullPtr 		void $ showError "glBufferData"@@ -144,11 +145,10 @@ newBuffer init = newGLO glGenBuffers glDeleteBuffers 	(\i -> glBindBuffer 0x8892 i >> init) -- GL_ARRAY_BUFFER -newArrayLen elems unit = do-	sa@(StorableArray _ _ _ fp) <- newArray_ (0, elems - 1)-	withForeignPtr fp $ \dst ->-		B.memset (castPtr dst) 0 (fromIntegral $ elems * unit)-	return sa+newVector :: Storable a => Int -> Int -> IO (GLArray a)+newVector elems unit = do+	let B.PS fp _ _ = B.replicate (elems * unit) 0+	return $ V.unsafeFromForeignPtr0 (castForeignPtr fp) elems  glReload :: forall a b. GLSource a b => Buffer b -> Int -> a -> GL () glReload buf@(Buffer aref glo) offsetIx src = do@@ -164,18 +164,18 @@ 		fillSubArray ptr 		unmapBuffer array_buffer 		showError "glUnmapBuffer"-		case aref' of Left (StorableArray _ _ len _) ->-				writeIORef aref (Right (len * unit))+		case aref' of Left vec ->+				writeIORef aref (Right (V.length vec * unit)) 	else do-		sa@(StorableArray _ _ len fp) <- case aref' of+		vector <- case aref' of 			Left array -> return array-			Right elems -> newArrayLen elems unit-		withForeignPtr fp $ \p -> do+			Right elems -> newVector elems unit+		V.unsafeWith vector $ \p -> do 			let ptr = advancePtr p (offsetIx * unit) 			fillSubArray ptr 			bufferSubData array_buffer (offsetIx * unit) size ptr 			showError "glBufferSubData"-		writeIORef aref (Left sa)+		writeIORef aref (Left vector)   glUnsafeRead :: forall a. Storable a => Buffer a -> (Int, Int) -> GL (GLArray a)@@ -183,65 +183,61 @@ 	bindBuffer array_buffer buf 	array <- readIORef aref 	case array of-		Left (StorableArray s e l fp) -> -- unsafe!-			return (StorableArray s e l fp)+		Left vector -> -- unsafe!+			return vector 		Right elems -> do-			sa <- newArrayLen (min len (elems - offsetIx)) unit+			vec <- newVector (min len (elems - offsetIx)) unit 			if hasES3 then do 				src <- mapBufferRange array_buffer (offsetIx * unit) (len * unit) 					(map_read_bit {- + map_unsynchronized_bit-})-				withStorableArray sa $ \dst ->+				V.unsafeWith vec $ \dst -> 					B.memcpy (castPtr dst) src (len * unit) 				unmapBuffer array_buffer-				writeIORef aref (Left sa) -- backup-				return sa-			else return sa+				writeIORef aref (Left vec) -- backup+				return vec+			else return vec 	where unit = sizeOf (undefined :: a) -glModify :: forall a. Storable a => Buffer a -> (Int, Int) -> (GLArray a -> GL ()) -> GL ()-glModify buf@(Buffer aref glo) (offsetIx, len) f = do+glModify :: forall a. Storable a => Buffer a -> Int -> Int -> (GLArray a -> GL ()) -> GL ()+glModify buf@(Buffer aref glo) offsetIx len f = do 	bindBuffer array_buffer buf 	if hasES3 then do 		a <- readIORef aref 		let elems = case a of 			Right elems -> elems-			Left (StorableArray _ _ elems _) -> elems +			Left vector -> V.length vector 		ptr <- mapBufferRange array_buffer 0 (len * unit) 					(map_read_bit + map_write_bit {- + map_unsynchronized_bit-}) 		fp <- newForeignPtr_ ptr-		f $ StorableArray 0 (elems-1) elems fp+		f $ V.unsafeFromForeignPtr0 fp elems 		unmapBuffer array_buffer 		writeIORef aref (Right elems) 	else do 		a <- readIORef aref 		case a of -			Left sa -> do-				f sa-				withStorableArraySize sa (bufferSubData array_buffer 0)+			Left vector -> do+				f vector+				unsafeWithLen vector (bufferSubData array_buffer 0) 			Right elems -> do-				sa <- newArrayLen elems unit-				f sa-				withStorableArraySize sa (bufferSubData array_buffer 0)+				vec <- newVector elems unit+				f vec+				unsafeWithLen vec (bufferSubData array_buffer 0) 	where unit = sizeOf (undefined :: a) -glMap :: Storable a => (a -> GL a) -> Buffer a -> (Int, Int) -> GL ()-glMap f buffer offLen = glModify buffer offLen $-	\(StorableArray _ _ len fp) ->- 	withForeignPtr fp $ \ptr ->-		sequence_-			[ peekElemOff ptr i >>= f >>= pokeElemOff ptr i-			| i <- [0..len-1] ]+glMap :: Storable a => (a -> GL a) -> Buffer a -> Int -> Int -> GL ()+glMap f buffer off len = glModify buffer off len (V.mapM_ f)   -- ** Updating Mutable Buffers  -withStorableArraySize-	:: forall i e a. Storable e-	=> StorableArray i e -> (Int -> Ptr e -> IO a) -> IO a-withStorableArraySize (StorableArray _ _ n fp) f =+unsafeWithLen+	:: forall a b. Storable a+	=> GLArray a -> (Int -> Ptr a -> IO b) -> IO b+unsafeWithLen vector f = do+	let (fp, len) = V.unsafeToForeignPtr0 vector+	let size = len * sizeOf (undefined :: a) 	withForeignPtr fp (f size)-	where size = n * sizeOf (undefined :: e)  -- hasMapBufferRange = hasES3 -- GL_NV_map_buffer_range	5devices	2%

@@ -0,0 +1,508 @@+-- | Retriving implementation limits.+-- Do NOT call below APIs out of OpenGL threads.+-- (glGetString may return null pointer!)+module Graphics.OpenGLES.Caps where+import Foreign+import Foreign.C.String+import Graphics.OpenGLES.Base+import Graphics.OpenGLES.Internal (Shader(..))+import System.IO.Unsafe (unsafePerformIO)+++-- * Extension detection++{-# NOINLINE glExtensions #-}+-- | The list of available extensions on this GL implementation.+glExtensions :: [String]+glExtensions = unsafePerformIO $+	glGetString 0x1F03 >>= peekCString >>= return.words++{-# NOINLINE hasExt #-}+-- | True if this GL has the extension.+hasExt :: String -> Bool+hasExt ext = ext `elem` glExtensions+--hasExt :: CString -> Bool+--glGetString 0x1F03 >>= indexOf ext /= -1++{-# NOINLINE hasES3 #-}+-- | True if this GL version is 3 or later. +hasES3 :: Bool+hasES3 = glCap majorVersion > 2++-- | Internally used.+extVAO :: Maybe (GLsizei -> Ptr GLuint -> GL (),+	GLuint -> GL (),+	GLsizei -> Ptr GLuint -> GL ())+extVAO+	| hasES3 =+		Just (glGenVertexArrays, glBindVertexArray, glDeleteVertexArrays)+	| hasExt "GL_OES_vertex_array_object" =+		Just (glGenVertexArraysOES, glBindVertexArrayOES, glDeleteVertexArraysOES)+	| otherwise = Nothing+++-- * String Parameters++glVendor, glRenderer, glVersion, glShadingLanguageVersion :: String+-- | The company responsible for this GL implementation. This name does not change from release to release.+glVendor = unsafePerformIO $ glGetString 0x1F00 >>= peekCString++-- | The renderer name typically specific to a particular configuration of a hardware platform. It does not change from release to release.+glRenderer = unsafePerformIO $ glGetString 0x1F01 >>= peekCString++-- | A version or release number of the form \"OpenGL ES (version number) (vendor-specific information)\"+glVersion = unsafePerformIO $ glGetString 0x1F02 >>= peekCString++-- | A version or release number for the shading language of the form \"OpenGL ES GLSL ES (version number) (vendor-specific information)\"+glShadingLanguageVersion = unsafePerformIO $ glGetString 0x8B8C >>= peekCString+++-- * Two-valued Parameters++newtype GLParamP = GLParamP GLenum++glPair :: GLParamP -> (Float, Float)+glPair (GLParamP param) = unsafePerformIO $+	with (0 :: Double) $ \ptr -> do+		let p = castPtr ptr+		glGetFloatv param p+		r1 <- peek p+		r2 <- peekByteOff p 4+		return (r1, r2)++aliasedPointSizeRange, aliasedLineWidthRange, maxViewportDims :: GLParamP++-- | The (smallest, largest) supported sizes for points.+-- The smallest size must be \<= 1, and the largest size must be \>= 1.+aliasedPointSizeRange = GLParamP 0x846D++-- | The range of widths supported for aliased lines.+aliasedLineWidthRange = GLParamP 0x846E++-- | The maximum supported width and height of the viewport. These must be at least as large as the visible dimensions of the display being rendered to.+maxViewportDims = GLParamP 0x0D3A+++-- * List Parameters++--GL_COMPRESSED_TEXTURE_FORMATS+--params returns a list of symbolic+--                        constants of length GL_NUM_COMPRESSED_TEXTURE_FORMATS +--                        indicating which compressed texture formats are available.+--                        See glCompressedTexImage2D.+--compressedTextureFormats = GLParamL 0x86A3+--GL_SHADER_BINARY_FORMATS+--                        params returns a list of symbolic+--                        constants of length GL_NUM_SHADER_BINARY_FORMATS +--                        indicating which shader binary formats are available.+--                        See glShaderBinary.+--shaderBinaryFormats = GLParamL 0x8DF8++-- ES3.0+--GL_PROGRAM_BINARY_FORMATS+--    params returns a list of symbolic constants of length GL_NUM_PROGRAM_BINARY_FORMATS indicating which program binary formats are available. See glProgramBinary.+--programBinaryFormats = GLParamL 0x87FF++-- * Integer Parameters++newtype GLParam = GLParam GLenum+-- glGetBooleanv glGetFloatv glGetIntegerv glGetInteger64v+-- glGetBooleani_v glGetIntegeri_v glGetInteger64i_v+-- As of 3.1, 188 + ext parameters are queriable.++--void glGetInteger64v( 	GLenum pname,+--  	GLint64 * data);+--void glGetBooleani_v( 	GLenum target,+--  	GLuint index,+--  	GLboolean * data);+-- GL_INVALID_ENUM is generated if pname is not an accepted value.++-- | Returns the implementation dependent value or 0 if unsupported.+glCap :: GLParam -> Int32+glCap (GLParam param) = unsafePerformIO $+	with 0 $ \ptr -> glGetIntegerv param ptr >> peek ptr++-- !!! add version for ES3+ or Ext, copy desc from man, least value for each version++{-- | a rough estimate of the largest 3D texture that the GL can handle. The value must be at least 256.+max3DTextureSize = GLParam ++GL_MAX_3D_TEXTURE_SIZE++	params returns one value,  See glTexImage3D.+GL_MAX_ARRAY_TEXTURE_LAYERS++	params returns one value. +GL_MAX_AtomicCounter_BUFFER_BINDINGS++	params returns one value, the maximum number of atomic counter buffer binding points. The value must be at least 1. See glBindBuffer, glBindBufferBase, and glBindBufferRange.+GL_MAX_COLOR_ATTACHMENTS++	params returns one value, the maximum number of color attachment points in a framebuffer object. The value must be at least 4. See glFramebufferRenderbuffer and glFramebufferTexture2D.+GL_MAX_COMBINED_FRAGMENT_UniformCOMPONENTS++	params returns one value, the number of words for fragment shader uniform variables in all uniform blocks (including default). The value must be at least GL_MAX_FRAGMENT_UniformCOMPONENTS + GL_MAX_UNIFORM_BLOCK_SIZE * GL_MAX_FRAGMENT_UNIFORM_BLOCKS / 4. See glUniform.+GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS++	params returns one value, the maximum supported texture image units that can be used to access texture maps from the vertex shader and the fragment processor combined. If both the vertex shader and the fragment processing stage access the same texture image unit, then that counts as using two texture image units against this limit. The value must be at least 32. See glActiveTexture.+GL_MAX_COMBINED_UNIFORM_BLOCKS++	params returns one value, the maximum number of uniform blocks per program. The value must be at least 24. See glUniformBlockBinding.+GL_MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS++	params returns one value, the number of words for vertex shader uniform variables in all uniform blocks (including default). The value must be at least . GL_MAX_VERTEX_UNIFORM_COMPONENTS + GL_MAX_UNIFORM_BLOCK_SIZE * GL_MAX_VERTEX_UNIFORM_BLOCKS / 4. See glUniform.+GL_MAX_CUBE_MAP_TEXTURE_SIZE++	params returns one value. The value gives a rough estimate of the largest cube-map texture that the GL can handle. The value must be at least 2048. See glTexImage2D.+GL_MAX_DRAW_BUFFERS++	params returns one value, the maximum number of simultaneous outputs that may be written in a fragment shader. The value must be at least 4. See glDrawBuffers.+GL_MAX_ELEMENT_INDEX++	params returns one value, the maximum index supported by the implementation. The value must be at least 2 24 - 1 .+GL_MAX_ELEMENTS_INDICES++	params returns one value, the recommended maximum number of vertex array indices. See glDrawRangeElements.+GL_MAX_ELEMENTS_VERTICES++	params returns one value, the recommended maximum number of vertex array vertices. See glDrawRangeElements.+GL_MAX_FRAGMENT_INPUT_COMPONENTS++	params returns one value, the maximum number of components of the inputs read by the fragment shader, which must be at least 60.+GL_MAX_FRAGMENT_UNIFORM_BLOCKS++	params returns one value, the maximum number of uniform blocks per fragment shader. The value must be at least 12. See glUniformBlockBinding.+GL_MAX_FRAGMENT_UNIFORM_COMPONENTS++	params returns one value, the maximum number of individual floating-point, integer, or boolean values that can be held in uniform variable storage for a fragment shader. The value must be at least 896. See glUniform.+GL_MAX_FRAGMENT_UNIFORM_VECTORS++	params returns one value, the maximum number of vector floating-point, integer, or boolean values that can be held in uniform variable storage for a fragment shader. The value must be at least 224. See glUniform.+GL_MAX_PROGRAM_TEXEL_OFFSET++	params returns one value, the maximum texel offset allowed in a texture lookup, which must be at least 7.+GL_MAX_RENDERBUFFER_SIZE++	params returns one value. The value indicates the maximum supported size for renderbuffers and must be at least 2048. See glFramebufferRenderbuffer.+GL_MAX_SAMPLE_MASK_WORDS++	params returns one value, the maximum number of sample mask words.+GL_MAX_SAMPLES++	params returns one value. The value indicates the maximum supported number of samples for multisampling. The value must be at least 4. See glGetInternalformativ.+GL_MAX_SERVER_WAIT_TIMEOUT++	params returns one value, the maximum glWaitSync timeout interval.+GL_MAX_SHADER_STORAGE_BLOCK_SIZE++	params returns one value, the maximum size in basic machine units of a shader storage block. The value must be at least 2 27 .+GL_MAX_TEXTURE_IMAGE_UNITS++	params returns one value, the maximum supported texture image units that can be used to access texture maps from the fragment shader. The value must be at least 16. See glActiveTexture.+GL_MAX_TEXTURE_LOD_BIAS++	params returns one value, the maximum, absolute value of the texture level-of-detail bias. The value must be at least 2.0.+GL_MAX_TEXTURE_SIZE++	params returns one value. The value gives a rough estimate of the largest texture that the GL can handle. The value must be at least 2048. See glTexImage2D.+GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS++	params returns one value, the maximum number of components which can be written to a single transform feedback buffer in interleaved mode. The value must be at least 64. See glTransformFeedbackVaryings.+GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS++	params returns one value, the maximum separate attributes or outputs which can be captured in separate transform feedback mode. The value must be at least 4. See glTransformFeedbackVaryings.+GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS++	params returns one value, the maximum number of components which can be written per attribute or output in separate transform feedback mode. The value must be at least 4. See glTransformFeedbackVaryings.+GL_MAX_UNIFORM_BLOCK_SIZE++	params returns one value, the maximum size in basic machine units of a uniform block. The value must be at least 16384. See glUniformBlockBinding.+GL_MAX_UNIFORM_BUFFER_BINDINGS++	params returns one value, the maximum number of uniform buffer binding points on the context, which must be at least 24.+GL_MAX_VARYING_COMPONENTS++	params returns one value, the number components for varying variables, which must be at least 60.+GL_MAX_VARYING_VECTORS++	params returns one value, the maximum number of interpolators available for processing varying variables used by vertex and fragment shaders. This value represents the number of vector values that can be interpolated; varying variables declared as matrices and arrays will consume multiple interpolators. The value must be at least 15.+GL_MAX_VERTEX_ATTRIBS++	params returns one value, the maximum number of 4-component generic vertex attributes accessible to a vertex shader. The value must be at least 16. See glVertexAttrib.+GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS++	params returns one value, the maximum supported texture image units that can be used to access texture maps from the vertex shader. The value may be at least 16. See glActiveTexture.+GL_MAX_VERTEX_OUTPUT_COMPONENTS++	params returns one value, the maximum number of components of output written by a vertex shader, which must be at least 64.+GL_MAX_VERTEX_UNIFORM_BLOCKS++	params returns one value, the maximum number of uniform blocks per vertex shader. The value must be at least 12. See glUniformBlockBinding.+GL_MAX_VERTEX_UNIFORM_COMPONENTS++	params returns one value, the maximum number of individual floating-point, integer, or boolean values that can be held in uniform variable storage for a vertex shader. The value must be at least 1024. See glUniform.+GL_MAX_VERTEX_UNIFORM_VECTORS++	params returns one value, the maximum number of vector floating-point, integer, or boolean values that can be held in uniform variable storage for a vertex shader. The value must be at least 256. See glUniform.+GL_MIN_PROGRAM_TEXEL_OFFSET++	params returns one value, the minimum texel offset allowed in a texture lookup, which must be at most -8.+-}+++-- ** Since ES 2.0++-- | The format chosen by the implementation in which pixels may be read from the color buffer of the currently bound framebuffer in conjunction with GL_IMPLEMENTATION_COLOR_READ_TYPE. In addition to this implementation-dependent format/type pair, format GL_RGBA in conjunction with type GL_UNSIGNED_BYTE is always allowed by every                       implementation, regardless of the currently bound render surface. See glReadPixels.+implementationColorReadFormat = GLParam 0x8B9B++-- | The type chosen by the implementation with which pixels may be read from the color buffer of the currently bound framebuffer in conjunction with GL_IMPLEMENTATION_COLOR_READ_FORMAT. In addition to this implementation-dependent format/type pair, format  GL_RGBA in conjunction with type  GL_UNSIGNED_BYTE is always allowed by every implementation, regardless of the currently bound render surface. See glReadPixels.+implementationColorReadType = GLParam 0x8B9A++-- | The maximum supported texture image units that can be used to access texture maps from the vertex shader and the fragment processor combined. If both the vertex shader and the fragment processing stage access the same texture image unit, then that counts as using two texture image units against this limit. The minimum value is 8-32-32.+maxCombinedTextureImageUnits = GLParam 0x8B4D++-- | The value gives a rough estimate of the largest cube-map texture that the GL can handle. The minimum value is 16-2048-2048.+maxCubeMapTextureSize = GLParam 0x851C++-- | The maximum number of vector floating-point, integer, or boolean values that can be held in uniform variable storage for a fragment shader. The minimum value is 16-224-224.+maxFragmentUniformVectors = GLParam 0x8DFD++-- | The value indicates the maximum supported size for renderbuffers and must be at least 1-?-2048.+maxRenderbufferSize = GLParam 0x84E8++-- | The maximum supported texture image units that can be used to access texture maps from the fragment shader. The minimum value is 8-?-16.+maxTextureImageUnits = GLParam 0x8872++-- | The value gives a rough estimate of the largest texture that the GL can handle. The minimum value is 64-?-2048.+maxTextureSize = GLParam 0x0D33++-- | The maximum number of interpolators available for processing varying variables used by vertex and fragment shaders. This value represents the number of vector values that can be interpolated; varying variables declared as matrices and arrays will consume multiple interpolators. The minimum value is 8-?-15.+maxVaryingVectors = GLParam 0x8DFC++-- | The maximum number of 4-component generic vertex attributes accessible to a vertex shader. The minimum value is 8-?-16.+maxVertexAttribs = GLParam 0x8869++-- | The maximum supported texture image units that can be used to access texture maps from the vertex shader. The minimum value is 0-?-16.+maxVertexTextureImageUnits = GLParam 0x8B4C++-- | The maximum number of vector floating-point, integer, or boolean values that can be held in uniform variable storage for a vertex shader. The minimum value is 128-?-256.+maxVertexUniformVectors = GLParam 0x8DFB++-- | The number of available compressed texture formats.+-- The minimum value is 0-10-10.+numCompressedTextureFormats = GLParam 0x86A2++-- | The number of available shader binary formats.+-- The minimum value is 0-0-0.+-- Note: Not supported on most platforms.+numShaderBinaryFormats = GLParam 0x8DF9++-- | An estimate of the number of bits of subpixel resolution that are used to position rasterized geometry in window coordinates. The minimum value is 4-?-?.+subpixelBits = GLParam 0x0D50+++-- ** Since ES 3.0++-- | A rough estimate of the largest 3D texture that the GL can handle. The minimum value is 0-256-256.+max3DTextureSize = GLParam 0x8073++-- | The value indicates the maximum number of layers allowed in an array texture. The minimum value is 0-256-256.+maxArrayTextureLayers = GLParam 0x88FF++-- | The maximum number of color attachment points in a framebuffer object. The minimum value is 0-4-4.+maxColorAttachments = GLParam 0x8CDF++-- | The number of words for fragment shader uniform variables in all uniform blocks (including default). The value must be at least GL_MAX_FRAGMENT_UNIFORM_COMPONENTS + GL_MAX_UNIFORM_BLOCK_SIZE * GL_MAX_FRAGMENT_UNIFORM_BLOCKS / 4.+maxCombinedFragmentUniformComponents = GLParam 0x8A33++-- | The maximum number of uniform blocks per program. The minimum value is 0-24-24.+maxCombinedUniformBlocks = GLParam 0x8A2E++-- | The number of words for vertex shader uniform variables in all uniform blocks (including default). The value must be at least GL_MAX_VERTEX_UNIFORM_COMPONENTS + GL_MAX_UNIFORM_BLOCK_SIZE * GL_MAX_VERTEX_UNIFORM_BLOCKS / 4.+maxCombinedVertexUniformComponents = GLParam 0x8A31++-- XXX 20 more+++++-- | The major version number of the OpenGL ES API supported by the+-- current context. Note: ES 2 does not support this param thus returns 0.+-- (ES2 -> 0, ES3 and ES3_1 -> 3)+majorVersion = GLParam 0x821B++-- | The minor version number of the OpenGL ES API supported by the+-- current context. (ES3 -> 0, ES3_1 -> 1)+minorVersion = GLParam 0x821C++-- | The number of extensions supported by the GL implementation for the current+-- context.+numExtensions = GLParam 0x821D++-- | __GL_OES_get_program_binary or ES3+__+-- The number of available program binary formats.+-- If the value is 0, program binary is not available.+-- The minimum value is 0-0-0.+numProgramBinaryFormats = GLParam 0x87FE+++-- ** Since ES 3.1++-- | The maximum number of uniform blocks per compute shader. The value must be at least 14. See glUniformBlockBinding.+maxComputeUniformBlocks = GLParam 0x91BB++-- | The maximum supported texture image units that can be used to access texture maps from the compute shader. The value may be at least 16. See glActiveTexture.+maxComputeTextureImageUnits = GLParam 0x91BC++-- | The maximum number of image variables in compute shaders. The value must be at least 8.+maxComputeImageUniforms = GLParam 0x91BD++-- | +maxComputeSharedMemorySize = GLParam 0x8262++-- | The maximum number of individual floating-point, integer, or boolean values that can be held in uniform variable storage for a compute shader. The value must be at least 1024. See glUniform.+maxComputeUniformComponents = GLParam 0x8263++-- | The maximum number of atomic counter buffers that may be accessed by a compute shader.+maxComputeAtomicCounterBuffers = GLParam 0x8264++-- | The maximum number of atomic counters available to compute shaders.+maxComputeAtomicCounters = GLParam 0x8265++-- | The number of words for compute shader uniform variables in all uniform blocks (including default). The value must be at least 1. See glUniform.+maxCombinedComputeUniformComponents = GLParam 0x8266++-- | The number of invocations in a single local work group (i.e., the product of the three dimensions) that may be dispatched to a compute shader.+maxComputeWorkGroupInvocations = GLParam 0x90EB++-- -- | The maximum number of work groups that may be dispatched to a compute shader. Indices 0, 1, and 2 correspond to the X, Y and Z dimensions, respectively.+-- maxComputeWorkGroupCount = GLParamIx? 0x91BE++-- -- | The maximum size of a work groups that may be used during compilation of a compute shader. Indices 0, 1, and 2 correspond to the X, Y and Z dimensions, respectively.+-- maxComputeWorkGroupSize = GLParamXYZ? 0x91BF++-- | The maximum number of explicitly assignable uniform locations, which must be at least 1024.+maxUniformLocations = GLParam 0x826E++-- | The maximum width for a framebuffer that has no attachments, which must be at least 16384. See glFramebufferParameteri.+maxFramebufferWidth = GLParam 0x9315++-- | The maximum height for a framebuffer that has no attachments, which must be at least 16384. See glFramebufferParameteri.+maxFramebufferHeight = GLParam 0x9316++-- | The maximum samples in a framebuffer that has no attachments, which must be at least 4. See glFramebufferParameteri.+maxFramebufferSamples = GLParam 0x9318++-- |+maxVertexAtomicCounterBuffers = GLParam 0x92CC++-- |+maxFragmentAtomicCountersBuffers = GLParam 0x92D0++-- |+maxCombinedAtomicCountersBuffers = GLParam 0x92D1++-- | The maximum number of atomic counters available to vertex shaders.+maxVertexAtomicCounters = GLParam 0x92D2++-- | The maximum number of atomic counters available to fragment shaders.+maxFragmentAtomicCounters = GLParam 0x92D6++-- | The maximum number of atomic counters available to all active shaders.+maxCombinedAtomicCounters = GLParam 0x92D7++-- |+maxAtomicCounterBufferSize = GLParam 0x92D8++-- |+maxAtomicCounterBufferBindings = GLParam 0x92DC++-- |+maxImageUnits = GLParam 0x8F38++-- |+maxVertexImageUniforms = GLParam 0x90CA++-- |+maxFragmentImageUniforms = GLParam 0x90CE++-- |+maxCombinedImageUniforms = GLParam 0x90CF++-- | The maximum number of active shader storage blocks that may be accessed by a vertex shader.+maxVertexShaderStorageBlocks = GLParam 0x90D6++-- | The maximum number of active shader storage blocks that may be accessed by a fragment shader.+maxFragmentShaderStorageBlocks = GLParam 0x90DA++-- | The maximum number of active shader storage blocks that may be accessed by a compute shader.+maxComputeShaderStorageBlocks = GLParam 0x90DB++-- | The maximum total number of active shader storage blocks that may be accessed by all active shaders.+maxCombinedShaderStorageBlocks = GLParam 0x90DC++-- | The maximum number of shader storage buffer binding points on the context, which must be at least 8.+maxShaderStorageBufferBindings = GLParam 0x90DD++-- |+maxShaderStorageBlockSize = GLParam 0x90DE++-- |+maxCombinedShaderOutputResources = GLParam 0x8F39++-- |+minProgramTextureGatherOffset = GLParam 0x8E5E++-- |+maxProgramTextureGatherOffset = GLParam 0x8E5F++-- | +maxSampleMaskWords = GLParam 0x8E59++-- | The maximum number of samples in a color multisample texture.+maxColorTextureSamples = GLParam 0x910E++-- | +maxDepthTextureSamples = GLParam 0x910F++-- | The maximum number of samples supported in integer format multisample buffers.+maxIntegerSamples = GLParam 0x9110++-- | The maximum offset that may be added to a vertex binding offset.+maxVertexAttribRelativeOffset = GLParam 0x82D9++-- | The maximum number of vertex buffers that may be bound.+maxVertexAttribBindings = GLParam 0x82DA++-- | /Undocumented constant/, perhaps /does not exist?/+maxVertexAttribStride = GLParam 0x82E5+++-- ** Ext++--  | /(extname)/ (desc) Float?Int?+--maxTextureMaxAnisotropyExt = GLParam 0x84FF+++-- * Shader Precision++-- | > shaderPrecision vertexShader highFp == (min, max, precision)+shaderPrecision :: (GLName -> a -> Shader) -> PrecisionType -> GL (Int32, Int32, Int32)+shaderPrecision shader (Prec precTyp) = +	allocaArray 3 $ \range -> do+		let shaderType = case shader "" undefined of Shader x _ _ -> x+		let prec = advancePtr range 8+		glGetShaderPrecisionFormat shaderType precTyp range prec+		rmin <- peek range+		rmax <- peekByteOff range 4+		precision <- peek prec+		return (rmin, rmax, precision)++newtype PrecisionType = Prec GLenum+lowFp = Prec 0x8DF0+midiumFp = Prec 0x8DF1+highFp = Prec 0x8DF2+lowInt = Prec 0x8DF3+midiumInt = Prec 0x8DF4+highInt = Prec 0x8DF5+

@@ -29,20 +29,19 @@      -- * Draw Operation   -- ** Clear Screen-  clear, BufferMask,-  depthBuffer, stencilBuffer, colorBuffer,+  -- | See "Graphics.OpenGLES.Framebuffer"      -- ** Draw   glDraw,-+     -- ** Draw Mode   DrawMode, drawPoints, drawLines,   drawLineLoop, drawLineStrip,   drawTriangles, triangleStrip, triangleFan,-+     -- ** Graphics State   RenderConfig, renderTo,-+     -- ** Programmable Shader   Shader, vertexShader, fragmentShader, pixelShader,   computeShader, geometryShader,@@ -64,7 +63,7 @@      -- ** Texture   -- | See "Graphics.OpenGLES.Texture"-+     -- ** Vertex Picker   VertexPicker, takeFrom,   takeFromInstanced, takeFromMany,@@ -85,7 +84,7 @@ import Foreign.C.String (peekCStringLen) import Graphics.OpenGLES.Base import Graphics.OpenGLES.Buffer-import Graphics.OpenGLES.Env+import Graphics.OpenGLES.Caps import Graphics.OpenGLES.Internal  @@ -119,7 +118,6 @@ 		Just _ -> nop 		Nothing -> waitGLThread 	waitGLThread-	writeIORef frameCounter 0 	putStrLn "Rendering has stopped."  --destroyGL :: IO ()@@ -170,12 +168,13 @@ nop :: Monad m => m () nop = return () -glFrameCount :: IO Int+glFrameCount :: IO Int64 glFrameCount = readIORef frameCounter  glFlipping :: IO Bool glFlipping = fmap odd glFrameCount +-- XXX bindFb defaultFramebuffer needed -- | > GLFW.setFramebufferSizeCallback win $ Just (const framesize) framesize :: Int -> Int -> IO () framesize w h = runGL $ glViewport 0 0 (f w) (f h)@@ -184,20 +183,6 @@  -- * Drawing --- |--- > clear [] colorBuffer--- > clear [bindFb framebuffer] (colorBuffer+depthBuffer)-clear-	:: [RenderConfig]-	-> BufferMask-	-> GL ()-clear gs (BufferMask flags) = sequence gs >> glClear flags--depthBuffer, stencilBuffer, colorBuffer :: BufferMask-depthBuffer = BufferMask 0x100-stencilBuffer = BufferMask 0x400-colorBuffer = BufferMask 0x4000- glDraw :: Typeable p 	=> DrawMode 	-> Program p@@ -217,9 +202,6 @@ 	--glValidate prog 	picker mode --- | See "Graphics.OpenGLES.State"-type RenderConfig = GL ()- -- | -- > renderTo $ do -- >     bindFb defaultFramebuffer@@ -313,6 +295,7 @@ 			ptr <- mallocArray (fromIntegral size) :: IO (Ptr Float) 			return $ Uniform (loc, size, castPtr ptr) +infix 0 $= ($=) :: UnifVal a => Uniform p a -> a -> UniformAssignment p Uniform desc $= value = glUniform desc value @@ -346,6 +329,7 @@  type SetVertexAttr p = GL () +infix 0 &= (&=) :: AttrStruct a p b => a -> Buffer b -> SetVertexAttr p attribs &= buf = do 	bindBuffer array_buffer buf@@ -401,7 +385,7 @@ sizePtr = intPtrToPtr . fromIntegral  -- Wrapping glDrawElements-byIndex :: VertexIx a => (Buffer a) -> Int32 -> Int32 -> VertexPicker+byIndex :: VertexIx a => Buffer a -> Int32 -> Int32 -> VertexPicker byIndex buf first count = 	let (typ, stride) = vxix buf in 	VertexPicker $ \mode -> do@@ -410,7 +394,7 @@ 		showError "glDrawElements"  -- Wrapping glDrawElementsInstanced[EXT]-byIndexInstanced :: VertexIx a => (Buffer a) -> Int32 -> Int32 -> Int32 -> VertexPicker+byIndexInstanced :: VertexIx a => Buffer a -> Int32 -> Int32 -> Int32 -> VertexPicker byIndexInstanced buf first count instances = 	let (typ, stride) = vxix buf in 	VertexPicker $ \mode -> do@@ -420,7 +404,7 @@ 		showError "glDrawElementsInstanced"  -- Wrapping glMultiDrawElementsEXT-byIndices :: VertexIx a => (Buffer a) -> [(Int32, Int32)] -> VertexPicker+byIndices :: VertexIx a => Buffer a -> [(Int32, Int32)] -> VertexPicker byIndices buf list = 	let (typ, stride) = vxix buf in 	VertexPicker $ \mode -> do@@ -435,7 +419,7 @@ -- ByIndicesRaw (Buffer w) (Buffer Word32) (Buffer Word32)  -- Wrapping glDrawRangeElements[EXT]-byIndexLimited :: VertexIx a => (Buffer a) -> Int32 -> Int32 -> Word32 -> Word32 -> VertexPicker+byIndexLimited :: VertexIx a => Buffer a -> Int32 -> Int32 -> Word32 -> Word32 -> VertexPicker byIndexLimited buf first count min max = 	let (typ, stride) = vxix buf in 	VertexPicker $ \mode -> do

@@ -1,386 +0,0 @@--- | Retriving implementation depend constant values.--- Do NOT call below APIs out of OpenGL threads.--- (glGetString could return null pointer!)-module Graphics.OpenGLES.Env where-import Foreign-import Foreign.C.String-import Graphics.OpenGLES.Base-import System.IO.Unsafe (unsafePerformIO)---- * Extension detection--{-# NOINLINE glExtensions #-}-glExtensions :: [String]-glExtensions = unsafePerformIO $-	glGetString 0x1F03 >>= peekCString >>= return.words--{-# NOINLINE hasExt #-}-hasExt :: String -> Bool-hasExt ext = ext `elem` glExtensions---hasExt :: CString -> Bool---glGetString 0x1F03 >>= indexOf ext /= -1--hasES3 :: Bool-hasES3 = glEnv majorVersion > 2--extVAO :: Maybe (GLsizei -> Ptr GLuint -> GL (),-	GLuint -> GL (),-	GLsizei -> Ptr GLuint -> GL ())-extVAO | hasES3 =-		Just (glGenVertexArrays, glBindVertexArray, glDeleteVertexArrays)-        | hasExt "GL_OES_vertex_array_object" =-		Just (glGenVertexArraysOES, glBindVertexArrayOES, glDeleteVertexArraysOES)-        | otherwise = Nothing----- * String Parameters--glVendor, glRenderer, glVersion, glShadingLanguageVersion :: String-glVendor = unsafePerformIO $ glGetString 0x1F00 >>= peekCString-glRenderer = unsafePerformIO $ glGetString 0x1F01 >>= peekCString-glVersion = unsafePerformIO $ glGetString 0x1F02 >>= peekCString-glShadingLanguageVersion = unsafePerformIO $ glGetString 0x8B8C >>= peekCString----- * Integer Parameters--newtype GLParam = GLParam GLenum--- glGetBooleanv glGetFloatv glGetIntegerv glGetInteger64v--- glGetBooleani_v glGetIntegeri_v glGetInteger64i_v--- As of 3.1, 188 + ext parameters are queriable.----void glGetInteger64v( 	GLenum pname,---  	GLint64 * data);---void glGetBooleani_v( 	GLenum target,---  	GLuint index,---  	GLboolean * data);--- GL_INVALID_ENUM is generated if pname is not an accepted value.---- ??? add failure value?-glEnv :: GLParam -> Int32-glEnv (GLParam param) = unsafePerformIO $-	with 0 $ \ptr -> glGetIntegerv param ptr >> peek ptr---- !!! add version for ES3+ or Ext, copy desc from man, least value for each version--majorVersion, minorVersion, numExtensions,-	numProgramBinaryFormats :: GLParam--{--GL_MAX_3D_TEXTURE_SIZE--    params returns one value, a rough estimate of the largest 3D texture that the GL can handle. The value must be at least 256. See glTexImage3D.-GL_MAX_ARRAY_TEXTURE_LAYERS--    params returns one value. The value indicates the maximum number of layers allowed in an array texture, and must be at least 256. See glTexImage2D.-GL_MAX_AtomicCounter_BUFFER_BINDINGS--    params returns one value, the maximum number of atomic counter buffer binding points. The value must be at least 1. See glBindBuffer, glBindBufferBase, and glBindBufferRange.-GL_MAX_COLOR_ATTACHMENTS--    params returns one value, the maximum number of color attachment points in a framebuffer object. The value must be at least 4. See glFramebufferRenderbuffer and glFramebufferTexture2D.-GL_MAX_COMBINED_FRAGMENT_UniformCOMPONENTS--    params returns one value, the number of words for fragment shader uniform variables in all uniform blocks (including default). The value must be at least GL_MAX_FRAGMENT_UniformCOMPONENTS + GL_MAX_UNIFORM_BLOCK_SIZE * GL_MAX_FRAGMENT_UNIFORM_BLOCKS / 4. See glUniform.-GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS--    params returns one value, the maximum supported texture image units that can be used to access texture maps from the vertex shader and the fragment processor combined. If both the vertex shader and the fragment processing stage access the same texture image unit, then that counts as using two texture image units against this limit. The value must be at least 32. See glActiveTexture.-GL_MAX_COMBINED_UNIFORM_BLOCKS--    params returns one value, the maximum number of uniform blocks per program. The value must be at least 24. See glUniformBlockBinding.-GL_MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS--    params returns one value, the number of words for vertex shader uniform variables in all uniform blocks (including default). The value must be at least . GL_MAX_VERTEX_UNIFORM_COMPONENTS + GL_MAX_UNIFORM_BLOCK_SIZE * GL_MAX_VERTEX_UNIFORM_BLOCKS / 4. See glUniform.-GL_MAX_CUBE_MAP_TEXTURE_SIZE--    params returns one value. The value gives a rough estimate of the largest cube-map texture that the GL can handle. The value must be at least 2048. See glTexImage2D.-GL_MAX_DRAW_BUFFERS--    params returns one value, the maximum number of simultaneous outputs that may be written in a fragment shader. The value must be at least 4. See glDrawBuffers.-GL_MAX_ELEMENT_INDEX--    params returns one value, the maximum index supported by the implementation. The value must be at least 2 24 - 1 .-GL_MAX_ELEMENTS_INDICES--    params returns one value, the recommended maximum number of vertex array indices. See glDrawRangeElements.-GL_MAX_ELEMENTS_VERTICES--    params returns one value, the recommended maximum number of vertex array vertices. See glDrawRangeElements.-GL_MAX_FRAGMENT_INPUT_COMPONENTS--    params returns one value, the maximum number of components of the inputs read by the fragment shader, which must be at least 60.-GL_MAX_FRAGMENT_UNIFORM_BLOCKS--    params returns one value, the maximum number of uniform blocks per fragment shader. The value must be at least 12. See glUniformBlockBinding.-GL_MAX_FRAGMENT_UNIFORM_COMPONENTS--    params returns one value, the maximum number of individual floating-point, integer, or boolean values that can be held in uniform variable storage for a fragment shader. The value must be at least 896. See glUniform.-GL_MAX_FRAGMENT_UNIFORM_VECTORS--    params returns one value, the maximum number of vector floating-point, integer, or boolean values that can be held in uniform variable storage for a fragment shader. The value must be at least 224. See glUniform.-GL_MAX_PROGRAM_TEXEL_OFFSET--    params returns one value, the maximum texel offset allowed in a texture lookup, which must be at least 7.-GL_MAX_RENDERBUFFER_SIZE--    params returns one value. The value indicates the maximum supported size for renderbuffers and must be at least 2048. See glFramebufferRenderbuffer.-GL_MAX_SAMPLE_MASK_WORDS--    params returns one value, the maximum number of sample mask words.-GL_MAX_SAMPLES--    params returns one value. The value indicates the maximum supported number of samples for multisampling. The value must be at least 4. See glGetInternalformativ.-GL_MAX_SERVER_WAIT_TIMEOUT--    params returns one value, the maximum glWaitSync timeout interval.-GL_MAX_SHADER_STORAGE_BLOCK_SIZE--    params returns one value, the maximum size in basic machine units of a shader storage block. The value must be at least 2 27 .-GL_MAX_TEXTURE_IMAGE_UNITS--    params returns one value, the maximum supported texture image units that can be used to access texture maps from the fragment shader. The value must be at least 16. See glActiveTexture.-GL_MAX_TEXTURE_LOD_BIAS--    params returns one value, the maximum, absolute value of the texture level-of-detail bias. The value must be at least 2.0.-GL_MAX_TEXTURE_SIZE--    params returns one value. The value gives a rough estimate of the largest texture that the GL can handle. The value must be at least 2048. See glTexImage2D.-GL_MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS--    params returns one value, the maximum number of components which can be written to a single transform feedback buffer in interleaved mode. The value must be at least 64. See glTransformFeedbackVaryings.-GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS--    params returns one value, the maximum separate attributes or outputs which can be captured in separate transform feedback mode. The value must be at least 4. See glTransformFeedbackVaryings.-GL_MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS--    params returns one value, the maximum number of components which can be written per attribute or output in separate transform feedback mode. The value must be at least 4. See glTransformFeedbackVaryings.-GL_MAX_UNIFORM_BLOCK_SIZE--    params returns one value, the maximum size in basic machine units of a uniform block. The value must be at least 16384. See glUniformBlockBinding.-GL_MAX_UNIFORM_BUFFER_BINDINGS--    params returns one value, the maximum number of uniform buffer binding points on the context, which must be at least 24.-GL_MAX_VARYING_COMPONENTS--    params returns one value, the number components for varying variables, which must be at least 60.-GL_MAX_VARYING_VECTORS--    params returns one value, the maximum number of interpolators available for processing varying variables used by vertex and fragment shaders. This value represents the number of vector values that can be interpolated; varying variables declared as matrices and arrays will consume multiple interpolators. The value must be at least 15.-GL_MAX_VERTEX_ATTRIBS--    params returns one value, the maximum number of 4-component generic vertex attributes accessible to a vertex shader. The value must be at least 16. See glVertexAttrib.-GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS--    params returns one value, the maximum supported texture image units that can be used to access texture maps from the vertex shader. The value may be at least 16. See glActiveTexture.-GL_MAX_VERTEX_OUTPUT_COMPONENTS--    params returns one value, the maximum number of components of output written by a vertex shader, which must be at least 64.-GL_MAX_VERTEX_UNIFORM_BLOCKS--    params returns one value, the maximum number of uniform blocks per vertex shader. The value must be at least 12. See glUniformBlockBinding.-GL_MAX_VERTEX_UNIFORM_COMPONENTS--    params returns one value, the maximum number of individual floating-point, integer, or boolean values that can be held in uniform variable storage for a vertex shader. The value must be at least 1024. See glUniform.-GL_MAX_VERTEX_UNIFORM_VECTORS--    params returns one value, the maximum number of vector floating-point, integer, or boolean values that can be held in uniform variable storage for a vertex shader. The value must be at least 256. See glUniform.-GL_MIN_PROGRAM_TEXEL_OFFSET--    params returns one value, the minimum texel offset allowed in a texture lookup, which must be at most -8.--}---- ** Since ES 2.0---- | the number of available compressed texture formats.--- The minimum value is 0-10-10.-numCompressedTextureFormats = GLParam 0x86A2---- | The number of available shader binary formats.--- The minimum value is 0-0-0.--- Note: Not supported on most platforms.-numShaderBinaryFormats = GLParam 0x8DF9----- ** Since ES 3.0---- | The major version number of the OpenGL ES API supported by the--- current context. Note: ES 2 does not support this param thus returns 0.--- (ES2 -> 0, ES3 and ES3_1 -> 3)-majorVersion = GLParam 0x821B---- | The minor version number of the OpenGL ES API supported by the--- current context. (ES3 -> 0, ES3_1 -> 1)-minorVersion = GLParam 0x821C---- | The number of extensions supported by the GL implementation for the current--- context.-numExtensions = GLParam 0x821D---- | __GL_OES_get_program_binary or ES3+__--- The number of available program binary formats.--- If the value is 0, program binary is not available.--- The minimum value is X-0-0-numProgramBinaryFormats = GLParam 0x87FE----- ** Since ES 3.1---- | The maximum number of uniform blocks per compute shader. The value must be at least 14. See glUniformBlockBinding.-maxComputeUniformBlocks = GLParam 0x91BB---- | The maximum supported texture image units that can be used to access texture maps from the compute shader. The value may be at least 16. See glActiveTexture.-maxComputeTextureImageUnits = GLParam 0x91BC---- | The maximum number of image variables in compute shaders. The value must be at least 8.-maxComputeImageUniforms = GLParam 0x91BD---- | -maxComputeSharedMemorySize = GLParam 0x8262---- | The maximum number of individual floating-point, integer, or boolean values that can be held in uniform variable storage for a compute shader. The value must be at least 1024. See glUniform.-maxComputeUniformComponents = GLParam 0x8263---- | The maximum number of atomic counter buffers that may be accessed by a compute shader.-maxComputeAtomicCounterBuffers = GLParam 0x8264---- | The maximum number of atomic counters available to compute shaders.-maxComputeAtomicCounters = GLParam 0x8265---- | The number of words for compute shader uniform variables in all uniform blocks (including default). The value must be at least 1. See glUniform.-maxCombinedComputeUniformComponents = GLParam 0x8266---- | The number of invocations in a single local work group (i.e., the product of the three dimensions) that may be dispatched to a compute shader.-maxComputeWorkGroupInvocations = GLParam 0x90EB---- -- | The maximum number of work groups that may be dispatched to a compute shader. Indices 0, 1, and 2 correspond to the X, Y and Z dimensions, respectively.--- maxComputeWorkGroupCount = GLParamIx? 0x91BE---- -- | The maximum size of a work groups that may be used during compilation of a compute shader. Indices 0, 1, and 2 correspond to the X, Y and Z dimensions, respectively.--- maxComputeWorkGroupSize = GLParamXYZ? 0x91BF---- | The maximum number of explicitly assignable uniform locations, which must be at least 1024.-maxUniformLocations = GLParam 0x826E---- | The maximum width for a framebuffer that has no attachments, which must be at least 16384. See glFramebufferParameteri.-maxFramebufferWidth = GLParam 0x9315---- | The maximum height for a framebuffer that has no attachments, which must be at least 16384. See glFramebufferParameteri.-maxFramebufferHeight = GLParam 0x9316---- | The maximum samples in a framebuffer that has no attachments, which must be at least 4. See glFramebufferParameteri.-maxFramebufferSamples = GLParam 0x9318---- |-maxVertexAtomicCounterBuffers = GLParam 0x92CC---- |-maxFragmentAtomicCountersBuffers = GLParam 0x92D0---- |-maxCombinedAtomicCountersBuffers = GLParam 0x92D1---- | The maximum number of atomic counters available to vertex shaders.-maxVertexAtomicCounters = GLParam 0x92D2---- | The maximum number of atomic counters available to fragment shaders.-maxFragmentAtomicCounters = GLParam 0x92D6---- | The maximum number of atomic counters available to all active shaders.-maxCombinedAtomicCounters = GLParam 0x92D7---- |-maxAtomicCounterBufferSize = GLParam 0x92D8---- |-maxAtomicCounterBufferBindings = GLParam 0x92DC---- |-maxImageUnits = GLParam 0x8F38---- |-maxVertexImageUniforms = GLParam 0x90CA---- |-maxFragmentImageUniforms = GLParam 0x90CE---- |-maxCombinedImageUniforms = GLParam 0x90CF---- | The maximum number of active shader storage blocks that may be accessed by a vertex shader.-maxVertexShaderStorageBlocks = GLParam 0x90D6---- | The maximum number of active shader storage blocks that may be accessed by a fragment shader.-maxFragmentShaderStorageBlocks = GLParam 0x90DA---- | The maximum number of active shader storage blocks that may be accessed by a compute shader.-maxComputeShaderStorageBlocks = GLParam 0x90DB---- | The maximum total number of active shader storage blocks that may be accessed by all active shaders.-maxCombinedShaderStorageBlocks = GLParam 0x90DC---- | The maximum number of shader storage buffer binding points on the context, which must be at least 8.-maxShaderStorageBufferBindings = GLParam 0x90DD---- |-maxShaderStorageBlockSize = GLParam 0x90DE---- |-maxCombinedShaderOutputResources = GLParam 0x8F39---- |-minProgramTextureGatherOffset = GLParam 0x8E5E---- |-maxProgramTextureGatherOffset = GLParam 0x8E5F---- | -maxSampleMaskWords = GLParam 0x8E59---- | The maximum number of samples in a color multisample texture.-maxColorTextureSamples = GLParam 0x910E---- | -maxDepthTextureSamples = GLParam 0x910F---- | The maximum number of samples supported in integer format multisample buffers.-maxIntegerSamples = GLParam 0x9110---- | The maximum offset that may be added to a vertex binding offset.-maxVertexAttribRelativeOffset = GLParam 0x82D9---- | The maximum number of vertex buffers that may be bound.-maxVertexAttribBindings = GLParam 0x82DA---- | /Undocumented constant/, perhaps /does not exist?/-maxVertexAttribStride = GLParam 0x82E5----- * Ranged Parameters (since ES 2.0)--newtype GLParamP = GLParamP GLenum--glPair :: GLParamP -> (Float, Float)-glPair (GLParamP param) = unsafePerformIO $-	with (0 :: Double) $ \ptr -> do-		let p = castPtr ptr-		glGetFloatv param p-		r1 <- peek p-		r2 <- peekByteOff p 4-		return (r1, r2)--aliasedPointSizeRange, aliasedLineWidthRange, maxViewportDims :: GLParamP---- | The (smallest, largest) supported sizes for points.--- The smallest size must be \<= 1, and the largest size must be \>= 1.-aliasedPointSizeRange = GLParamP 0x846D---- | The range of widths supported for aliased lines.-aliasedLineWidthRange = GLParamP 0x846E---- | The maximum supported width and height of the viewport.--- These must be at least as large as the visible dimensions of the display--- being rendered to.-maxViewportDims = GLParamP 0x0D3A---- Ext---MAX_TEXTURE_MAX_ANISOTROPY_EXT      0x84FF

@@ -3,6 +3,15 @@ {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE ScopedTypeVariables #-} module Graphics.OpenGLES.Framebuffer (+  -- * Whole Framebuffer Operations+  -- ** Clearing the Buffers+  clear, clearColor, clearDepth, clearStencil,+  BufferMask,+  colorBuffer, depthBuffer, stencilBuffer,+  +  -- ** Fine Control of Buffer Updates+  colorMask, depthMask, stencilMask, stencilMaskSep,+     -- * Renderbuffer   glRenderbuffer,   unsafeRenderbuffer,@@ -22,12 +31,60 @@ import Data.IORef import Foreign import Graphics.OpenGLES.Base-import Graphics.OpenGLES.Env (hasES3)+import Graphics.OpenGLES.Caps (hasES3) import Graphics.OpenGLES.Internal import Graphics.OpenGLES.PixelFormat+import Graphics.OpenGLES.State import Graphics.TextureContainer.KTX import Linear.V2 import Linear.V4+++-- |+-- > clear [] colorBuffer+-- > clear [bindFb framebuffer] (colorBuffer+depthBuffer)+clear+	:: [RenderConfig]+	-> BufferMask+	-> GL ()+clear gs (BufferMask flags) = sequence gs >> glClear flags++clearColor :: Float -> Float -> Float -> Float -> GL ()+clearColor = glClearColor++clearDepth :: Float -> GL ()+clearDepth = glClearDepthf++clearStencil :: Int32 -> GL ()+clearStencil = glClearStencil++depthBuffer, stencilBuffer, colorBuffer :: BufferMask+depthBuffer = BufferMask 0x100+stencilBuffer = BufferMask 0x400+colorBuffer = BufferMask 0x4000++colorMask :: V4 Bool -> GL ()+colorMask (V4 r g b a) = glColorMask (f r) (f g) (f b) (f a)+	where f c = if c then 1 else 0++depthMask :: Bool -> GL ()+depthMask = glDepthMask . (\d -> if d then 1 else 0)++stencilMask :: Word32 -> GL ()+stencilMask = glStencilMask++stencilMaskSep :: CullFace -> Word32 -> GL ()+stencilMaskSep (Culling face) = glStencilMaskSeparate face++-- /ES3+/+-- Selecting a Buffer for Writing+-- void DrawBuffers(sizei n, const enum *bufs);+-- bufs points to an array of n BACK, NONE, or COLOR_ATTACHMENTi+-- where i = [0,MAX_COLOR_ATTACHMENTS - 1]+-- void ClearBuffer{if ui}v(enum buffer, int drawbuffer, const T *value);+-- buffer: COLOR, DEPTH, STENCIL+-- void ClearBufferfi(enum buffer, int drawbuffer, float depth, int stencil);+-- buffer: DEPTH_STENCIL. drawbuffer: 0  -- | -- New Renderbuffer with specified sample count and dimentions.

@@ -7,10 +7,10 @@ import Control.Monad import Control.Concurrent.Chan import Control.Future-import Data.Array.Storable (StorableArray) import qualified Data.ByteString as B import Data.IORef import Data.Typeable+import qualified Data.Vector.Storable as V import Foreign hiding (newForeignPtr, addForeignPtrFinalizer, void) import Foreign.C.String (peekCString, peekCStringLen) import Foreign.Concurrent (newForeignPtr, addForeignPtrFinalizer)@@ -19,6 +19,7 @@ import Linear.V2 import System.IO.Unsafe (unsafePerformIO) + -- * Internal  -- glRestoreLostObjects :: GL ()@@ -27,7 +28,7 @@ -- bufferArchive = unsafePerformIO $ newIORef [] -- addCompiledProgramResources -frameCounter :: IORef Int+frameCounter :: IORef Int64 frameCounter = unsafePerformIO $ newIORef 0  @@ -59,7 +60,7 @@  showError :: String -> GL Bool showError location = do-	putStrLn location -- tmp+	--putStrLn location -- tmp 	getError >>= maybe (return False) (\err -> do 		glLog ("E " ++ location ++ ": " ++ show err) 		return True )@@ -140,6 +141,7 @@ instance GLType Word32 where glType _ = 0x1405  instance GLType Float where glType _ = 0x1406+instance GLType Double where glType _ = 0x140A -- OpenGL instance GLType HalfFloat where glType _ = 0x140B instance GLType FixedFloat where glType _ = 0x140C instance GLType Int2_10x3 where glType _ = 0x8D9F@@ -170,8 +172,10 @@  -- ** Buffer +type GLArray a = V.Vector a+ -- Buffer usage id (latestArray or length)-data Buffer a = Buffer 	(IORef (Either (StorableArray Int a) Int)) GLO+data Buffer a = Buffer 	(IORef (Either (GLArray a) Int)) GLO -- DoubleBuffer GLO GLO (IORef (GLArray a))  newtype BufferUsage = BufferUsage GLenum@@ -186,6 +190,8 @@  -- ** Graphics State +-- | See "Graphics.OpenGLES.State"+type RenderConfig = GL () newtype Capability = Capability GLenum newtype CullFace = Culling GLenum newtype CompFunc = CompFunc GLenum@@ -422,6 +428,9 @@ class UnifVal a where 	glUniform :: (GLint, GLsizei, Ptr ()) -> a -> GL () +class UnifMat a where+	glUnifMat :: GLint -> GLsizei -> GLboolean -> Ptr a -> GL ()+ --class GLVar m v a where --	($=) :: m p a -> a -> (m (), v ()) --	($-) :: m p a -> v a -> (m (), v ())@@ -450,6 +459,8 @@ class AttrStruct a p b | a -> p where 	glVertexBuffer :: a -> Buffer b -> GL () +-- | The 3rd argument of glVertexAttribI?Pointer+class GLType a => AttrElement a where  -- ** Vertex Array Object 

@@ -145,7 +145,7 @@ opZero     = StencilOp 0x0000 opKeep     = StencilOp 0x1E00 opReplace  = StencilOp 0x1E01-opIncr      = StencilOp 0x1E02+opIncr     = StencilOp 0x1E02 opDecr     = StencilOp 0x1E03 opInvert   = StencilOp 0x150A opIncrWrap = StencilOp 0x8507

@@ -0,0 +1,101 @@+module Graphics.OpenGLES.Sync where++import Control.Applicative+import Control.Monad+import Data.IORef+import Foreign+import Graphics.OpenGLES.Base+import Graphics.OpenGLES.Internal+++data Sync = Sync Word64 (IORef GLsync)++-- | Obtain new 'Sync' with or without timeout in nanoseconds.+-- Fence sync objects are used to wait for partial completion of the GL+-- command stream, as a more flexible form of glFinish.+-- +-- > -- Sync objects can be used many times+-- > sync1 <- getSync (Just 16000)+-- > sync2 <- getSync Nothing+-- +-- For each frame:+-- +-- > glFence sync1 $ \isTimedOut -> do+-- >   {- modify buffers, textures, etc -}+-- > glFence sync2 $ \isTimedOut -> do+-- >   {- modify buffers, textures, etc -}+-- > endFrameGL+getSync :: Maybe Word64 -> IO Sync+getSync timeout_ns = Sync timeout <$> newIORef nullPtr+	where+		timeout = maybe timeoutIgnored id timeout_ns+		-- GL_TIMEOUT_IGNORED+		timeoutIgnored = 0xFFFFFFFFFFFFFFFF++-- | Block and wait for GPU commands issued here complete.+-- Better glFinish for /ES 3+/.+-- Block and wait for a 'Sync' object to become signaled, then run specified block.+glFence :: Sync -> (Bool -> GL a) -> GL a+glFence sync io = do+	isExpired <- waitFence False sync +	result <- io isExpired+	createFence sync+	return result++-- | Blocks on GPU until GL commands issued here complete.+-- Better glFlush for /ES 3+/. Sync timeout is ignored.+-- Instruct the GL server to block (on the GPU) until the previous call of+-- glFence* with specified 'Sync' object becomes finished on the GL server,+-- then run specified block.+glFenceInGpu :: Sync -> GL a -> GL a+glFenceInGpu sync io = do+	waitFenceAtGpu sync+	result <- io+	createFence sync+	return result++waitFence :: Bool -> Sync -> GL Bool+waitFence flushCmdQ (Sync timeout ref) = do+	sync <- readIORef ref+	if sync /= nullPtr then do+		result <- glClientWaitSync sync flushBit timeout+		glDeleteSync sync+		writeIORef ref nullPtr+		return $ case result of+			-- GL_ALREADY_SIGNALED+			0x911A -> False -- error "glFence: AlreadySignaled"+			-- GL_CONDITION_SATISFIED+			0x911C -> False+			-- GL_TIMEOUT_EXPIRED+			0x911B -> True+			-- GL_WAIT_FAILED+			0x911D -> error "glFence: WaitFailed"+			-- GL_INVALID_VALUE+			_ {-0x0501-} -> error "glFence: InvalidValue"+	else return False+	where+		-- GL_SYNC_FLUSH_COMMANDS_BIT+		flushBit = if flushCmdQ then 1 else 0++createFence :: Sync -> GL ()+createFence (Sync _ ref) = do+	-- GL_SYNC_GPU_COMMANDS_COMPLETE+	sync <- glFenceSync 0x9117 0+	writeIORef ref sync++waitFenceAtGpu :: Sync -> GL ()+waitFenceAtGpu (Sync _ ref) = do+	sync <- readIORef ref+	when (sync /= nullPtr) $ do+		result <- glWaitSync sync 0 0xFFFFFFFFFFFFFFFF+		glDeleteSync sync+		writeIORef ref nullPtr++-- | Same as glFlush+glFlushCommandQ :: GL ()+glFlushCommandQ = glFlush++-- | Same as glFinish+glWaitComplete :: GL ()+glWaitComplete = glFinish+

@@ -1,11 +1,18 @@ {-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE ScopedTypeVariables #-} module Graphics.OpenGLES.Texture (   -- * Texture   Texture,+  texSlot,+     glLoadKtx,   glLoadKtxFile,--  texSlot,+  +  -- ** Unsafe Operations+  glLoadTex2D,+  --glLoadCubeMap,+  glLoadTex3D,+  glLoadTex2DArray,    -- * Sampler   setSampler,@@ -31,16 +38,18 @@ import Control.Applicative import Control.Monad import qualified Data.ByteString as B+import qualified Data.ByteString.Internal as B import Data.Int import Data.Word import Data.IORef+import Data.Proxy import Graphics.OpenGLES.Base-import Graphics.OpenGLES.Env+import Graphics.OpenGLES.Caps import Graphics.OpenGLES.Internal---import Graphics.OpenGLES.PixelFormat+import Graphics.OpenGLES.PixelFormat import Graphics.TextureContainer.KTX-import Foreign.Ptr (castPtr)-+import Foreign hiding (void)+import Linear -- XXX Texture DoubleBufferring  newtype Texture3D a = Texture3D (Texture a)@@ -80,18 +89,10 @@ glLoadKtx :: Maybe (Texture a) -> Ktx -> GL (Texture a) glLoadKtx oldtex ktx@Ktx{..} = do 	--putStrLn.show $ ktx-	let newTexture target = case oldtex of-		Just (Texture _ ref glo) -> do-			writeIORef ref ktx-			glBindTexture target =<< getObjId glo-			return (Texture target ref glo)-		Nothing -> Texture target-			<$> newIORef ktx-			<*> newGLO glGenTextures glDeleteTextures (glBindTexture target) 	case checkKtx ktx of-		Left msg -> glLog (msg ++ ": " ++ ktxName) >> newTexture 0+		Left msg -> glLog (msg ++ ": " ++ ktxName) >> newTexture oldtex 0 ktx 		Right (comp, target, genmip) -> do-			tex <- newTexture target+			tex <- newTexture oldtex target ktx 			-- ES2 compat; 			let fmt = if comp || sizedFormats 				then if ktxGlInternalFormat == 0x8D64 && hasETC2 -- ETC1_RGB8_OES@@ -152,6 +153,14 @@ glLoadKtxFile :: FilePath -> GL (Texture a) glLoadKtxFile path = ktxFromFile path >>= glLoadKtx Nothing +newTexture :: Maybe (Texture a) -> GLenum -> Ktx -> GL (Texture a)+newTexture (Just (Texture _ ref glo)) target ktx = do+	writeIORef ref ktx+	glBindTexture target =<< getObjId glo+	return $ Texture target ref glo+newTexture Nothing target ktx =+	Texture target <$> newIORef ktx <*> newGLO glGenTextures glDeleteTextures (glBindTexture target)+ -- glPixelStorei(GL_UNPACK_ALIGNMENT, 4) --hasES2 = --	supportsSwizzle = GL_FALSE;@@ -203,7 +212,70 @@ needsGenMipmap _ = Right False  --- ** Sampler+-- ** Unsafe Operations++-- | Upload 2D texture of raw memory bitmap.+glLoadTex2D+	:: forall a b. (Storable a, ExternalFormat a b)+	=> Maybe (Texture b) -- ^ if any, reuse the texture+	-> Bool -- ^ needs mipmap update?+	-> ForeignPtr a -- ^ pixel base components+	-> V2 Word32 -- ^ width, height+	-> GL (Texture b)+glLoadTex2D oldtex newmip fp (V2 w h) = do+	let (fmt, typ, ifmt) = efmt (Proxy :: Proxy (a, b))+	let n = sizeOf (undefined :: a)+	let ktx = Ktx "" B.empty typ 4 fmt ifmt fmt w h 0 0 1 0 []+		[[B.PS (castForeignPtr fp) 0 (fromIntegral (w*h)*n)]]+	let target = 0x0DE1+	tex <- newTexture oldtex target ktx+	withForeignPtr fp $ \ptr ->+		glTexImage2D target 0 ifmt w h 0 fmt typ (castPtr ptr)+	when newmip (glGenerateMipmap target)+	return tex++-- | Upload 3D texture of raw memory bitmap.+glLoadTex3D+	:: forall a b. (Storable a, ExternalFormat a b)+	=> Maybe (Texture b) -- ^ if any, reuse the texture+	-> Bool -- ^ needs mipmap update?+	-> ForeignPtr a -- ^ pixel base components+	-> V3 Word32 -- ^ width, height, depth+	-> GL (Texture b)+glLoadTex3D oldtex newmip fp (V3 w h d) = do+	let (fmt, typ, ifmt) = efmt (Proxy :: Proxy (a, b))+	let n = sizeOf (undefined :: a)+	let ktx = Ktx "" B.empty typ 4 fmt ifmt fmt w h d 0 1 0 []+		[[B.PS (castForeignPtr fp) 0 (fromIntegral (w*h*d)*n)]]+	let target = 0x806F+	tex <- newTexture oldtex target ktx+	withForeignPtr fp $ \ptr ->+		glTexImage3D target 0 ifmt w h d 0 fmt typ (castPtr ptr)+	when newmip (glGenerateMipmap target)+	return tex++-- | Upload 2DArray texture of raw memory bitmap.+glLoadTex2DArray+	:: forall a b. (Storable a, ExternalFormat a b)+	=> Maybe (Texture b) -- ^ if any, reuse the texture+	-> Bool -- ^ needs mipmap update?+	-> ForeignPtr a -- ^ pixel base components+	-> V3 Word32 -- ^ width, height, layer depth+	-> GL (Texture b)+glLoadTex2DArray oldtex newmip fp (V3 w h d) = do+	let (fmt, typ, ifmt) = efmt (Proxy :: Proxy (a, b))+	let n = sizeOf (undefined :: a)+	let ktx = Ktx "" B.empty typ 4 fmt ifmt fmt w h 0 d 1 0 []+		[[B.PS (castForeignPtr fp) 0 (fromIntegral (w*h*d)*n)]]+	let target = 0x8C1A+	tex <- newTexture oldtex target ktx+	withForeignPtr fp $ \ptr ->+		glTexImage3D target 0 ifmt w h d 0 fmt typ (castPtr ptr)+	when newmip (glGenerateMipmap target)+	return tex+++-- * Sampler  -- 2d vs. 3d / mag + min vs. max -- | (Texture wrap mode, A number of ANISOTROPY filter sampling points

@@ -12,7 +12,6 @@ module Graphics.OpenGLES.Types (    -- * Shading Language Base Types-  M23, M24, M32, M34, M42,   Vec2, Vec3, Vec4,   -- BVec2, BVec3, BVec4,   IVec2, IVec3, IVec4,@@ -57,11 +56,7 @@ import Linear import Unsafe.Coerce -type M23 a = V2 (V3 a)-type M24 a = V2 (V4 a)-type M32 a = V3 (V2 a)-type M34 a = V3 (V4 a)-type M42 a = V4 (V2 a)+ type Vec2 = V2 Float type Vec3 = V3 Float type Vec4 = V4 Float@@ -105,6 +100,7 @@ 	SizeOf (V2 a) = 2 * SizeOf a 	SizeOf (V3 a) = 3 * SizeOf a 	SizeOf (V4 a) = 4 * SizeOf a+	SizeOf Double = 8 -- OpenGL  type family Aligned (x :: Nat) :: Nat where 	Aligned 0 = 0@@ -181,8 +177,6 @@ instance UnifVal [UVec3] where glUniform = pokeUniformArray glUniform3uiv instance UnifVal [UVec4] where glUniform = pokeUniformArray glUniform4uiv -class UnifMat a where-	glUnifMat :: GLint -> GLsizei -> GLboolean -> Ptr a -> GL () castMat a b c d e = a b c d (castPtr e)  instance UnifMat Mat2 where glUnifMat = castMat glUniformMatrix2fv@@ -241,16 +235,14 @@ 	glVertexAttrib ix (V1 x) = glVertexAttrib ix x  -- | Matrices __Not tested!!!__-instance (Functor f, VertexAttribute (f Float), FoldableWithIndex (E V4) g,-		Distributive g) => VertexAttribute (f (g Float)) where+instance (Functor f, Floating a, Distributive g, VertexAttribute (f a),+		FoldableWithIndex (E V4) g) => VertexAttribute (f (g a)) where 	glVertexAttrib ix m = iforM_ (distribute m) $ 		\(E i) v -> do 			let index = ix + (V4 0 1 2 3)^.i 			glDisableVertexAttribArray index 			glVertexAttrib index v --- | The 3rd argument of glVertexAttribI?Pointer-class GLType a => AttrElement a where instance AttrElement Word8 instance AttrElement Word16 instance AttrElement Word32@@ -313,14 +305,15 @@  -- XXX (V4 Int2_10x3) (V3 Word2_10x3) cannot match here instance-	( VertexAttribute (f (g Float))+	( VertexAttribute (f (g a)) 	, Applicative g+	, Floating a -- Float or Double 	, FoldableWithIndex (E V4) g 	, KnownNat (VDim f) 	, KnownNat (SizeOf (f a)) 	, KnownNat (SizeOf (f (g a))) -- (Aligned (SizeOf (f (g a)))) 	, AttrElement a )-	=> AttrStruct (Attrib p (f (g Float))) p (f (g a)) where+	=> AttrStruct (Attrib p (f (g a))) p (f (g a)) where  	glVertexBuffer (Attrib (index, length, normalize, divisor)) buf = do 		iforM_ (pure () :: g ()) $ \(E e) _ -> do

@@ -66,3 +66,15 @@  xEqual g from to = [V2 (g y) y | y <- [from..to]] +-- | Billboard helper+simpleQuad = [V2 (-1) 1, V2 1 1, V2 (-1) (-1), V2 1 (-1)]++-- | Whole texture+uvWhole = [V2 0 0, V2 1 0, V2 0 1, V2 1 1]++-- | Modify 2D aspect raito+scale2 xScale yScale = V2 (V2 xScale 0) (V2 0 yScale)++-- | 2D rotation matrix+rotate2 a = V2 (V2 (cos a) (sin a)) (V2 (-sin a) (cos a))+

@@ -1,5 +1,5 @@ name:                opengles-version:             0.6.0+version:             0.7.0 synopsis:            OpenGL ES 2.0 and 3.0 with EGL 1.4 description:         A simplified OpenGL ES core wrapper library.                      The mission statement of this library is three F: Fun, Fast, yet Flexible.@@ -33,15 +33,19 @@    exposed-modules:     Graphics.EGL,+    Graphics.EGL.Base,+    Graphics.OpenGL.CoreArb,+    Graphics.OpenGL.Types,     Graphics.OpenGLES,     Graphics.OpenGLES.Base,     Graphics.OpenGLES.Buffer,+    Graphics.OpenGLES.Caps,     Graphics.OpenGLES.Core,-    Graphics.OpenGLES.Env,     Graphics.OpenGLES.Framebuffer,     Graphics.OpenGLES.Internal,     Graphics.OpenGLES.PixelFormat,     Graphics.OpenGLES.State,+    Graphics.OpenGLES.Sync,     Graphics.OpenGLES.Texture,     Graphics.OpenGLES.Types,     Graphics.TextureContainer.KTX,@@ -51,19 +55,19 @@   other-extensions: ForeignFunctionInterface   extra-libraries: EGL, GLESv2   build-depends:-    base >= 4.6 && < 5,-    array >= 0.5 && < 0.6,+    base >= 4.7 && < 5,     bytestring >= 0.10 && < 1,     distributive >= 0.4 && < 0.5,     future-resource >= 0.3,     ghc-prim,-    linear >= 1.10 && < 1.12,-    lens >= 4.4 && < 4.5,-    packer >= 0.1 && < 0.2+    linear >= 1.15 && < 2,+    lens >= 4.6 && < 4.10,+    packer >= 0.1 && < 0.2,+    vector >= 0.10 && < 0.12      include-dirs: include      if os(ios)     frameworks: QuartzCore, OpenGLES-  ghc-options: -Wall -fexcess-precision  -funbox-strict-fields+  ghc-options: -Wall -threaded -fexcess-precision  -funbox-strict-fields