opengles 0.7.0 → 0.8.2
raw patch · 49 files changed
+8516/−9332 lines, 49 filesdep +GLFW-bdep +fixeddep +halfdep ~basedep ~bytestringdep ~distributivenew-component:exe:glsl-sandbox-playernew-component:exe:windmill
Dependencies added: GLFW-b, fixed, half, opengles, random, time, transformers
Dependency ranges changed: base, bytestring, distributive, future-resource, ghc-prim, lens, linear, packer, vector
Files
- Graphics/EGL.hs +0/−369
- Graphics/EGL/Base.hs +0/−215
- Graphics/OpenGL/CoreArb.hs +0/−2625
- Graphics/OpenGL/Types.hs +0/−77
- Graphics/OpenGLES.hs +0/−39
- Graphics/OpenGLES/Base.hs +0/−808
- Graphics/OpenGLES/Buffer.hs +0/−336
- Graphics/OpenGLES/Caps.hs +0/−508
- Graphics/OpenGLES/Core.hs +0/−437
- Graphics/OpenGLES/Framebuffer.hs +0/−217
- Graphics/OpenGLES/Internal.hs +0/−526
- Graphics/OpenGLES/PixelFormat.hs +0/−231
- Graphics/OpenGLES/State.hs +0/−207
- Graphics/OpenGLES/Sync.hs +0/−101
- Graphics/OpenGLES/Texture.hs +0/−341
- Graphics/OpenGLES/Types.hs +0/−363
- Graphics/TextureContainer/KTX.hs +0/−124
- Graphics/TextureContainer/PKM.hs +0/−89
- Linear/Graphics.hs +0/−80
- examples/billboard.hs +0/−103
- examples/billboard2.hs +0/−101
- examples/glsl-sandbox-player.hs +2/−1
- examples/windmill.hs +123/−0
- include/EGL/egl.h +0/−329
- include/EGL/eglext.h +0/−657
- include/EGL/eglplatform.h +0/−125
- include/KHR/khrplatform.h +0/−282
- opengles.cabal +121/−41
- src/Graphics/EGL.hs +503/−0
- src/Graphics/EGL/Base.hs +335/−0
- src/Graphics/OpenGL/CoreArb.hs +2625/−0
- src/Graphics/OpenGL/Types.hs +77/−0
- src/Graphics/OpenGLES.hs +41/−0
- src/Graphics/OpenGLES/Base.hs +830/−0
- src/Graphics/OpenGLES/Base/Proc.hs +57/−0
- src/Graphics/OpenGLES/Buffer.hs +396/−0
- src/Graphics/OpenGLES/Caps.hs +501/−0
- src/Graphics/OpenGLES/Core.hs +485/−0
- src/Graphics/OpenGLES/Framebuffer.hs +244/−0
- src/Graphics/OpenGLES/Internal.hs +536/−0
- src/Graphics/OpenGLES/PixelFormat.hs +246/−0
- src/Graphics/OpenGLES/State.hs +284/−0
- src/Graphics/OpenGLES/Sync.hs +101/−0
- src/Graphics/OpenGLES/Texture.hs +364/−0
- src/Graphics/OpenGLES/Types.hs +376/−0
- src/Graphics/TextureContainer/KTX.hs +136/−0
- src/Graphics/TextureContainer/PKM.hs +95/−0
- src/Linear/Graphics.hs +36/−0
- test/Spec.hs +2/−0
− Graphics/EGL.hs
@@ -1,369 +0,0 @@-{-# LANGUAGE RecordWildCards #-}--- | EGL 1.4, carefully reconstructed.--- You can still use the rest of C APIs via "Graphics.EGL.Base".--- --- - <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 Control.Monad-import Data.IORef-import Foreign hiding (void)-import Graphics.EGL.Base-import Graphics.OpenGLES.Internal (glLog)----init--- setupEgl--- setSurface--- eglCreateContext--- eglMakeCurrent---eglswap--- trySwap--- BADSUR -> setupEgl, setSurface--- CLOST, BADCXT -> reset---resume--- setSurface--- eglMakeCurrent--- CLOST -> eglCreateContext--- OTHER -> reset----- * EGL Lifecycle---- | 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)]---- | 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---- | 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 #-}---- | 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 #-}---- | 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 #-}---- | Create a shared context from given context.---eglShareContext :: Egl -> IO Egl---eglShareContext egl = do----- * Posting the Color Buffer---- | 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----eglCopyBuffers :: EGLNativePixmap a => EGLDisplay -> EGLSurface -> a -> IO EGLError---eglCopyBuffers display surface pixmap =--- toEglErr (eglCopyBuffers (unD display) (unS surface) (getNativePixmap pixmap))---- | 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----- * Query Context--eglVendor, eglVersion :: Egl -> IO String-eglVendor = queryString 0x3053-eglVersion = queryString 0x3054--eglExtensions, eglClientAPIs :: Egl -> IO [String]-eglExtensions egl = words <$> queryString 0x3055 egl-eglClientAPIs egl = words <$> queryString 0x308D egl--eglConfigID, eglContextClientType, eglContextClientVersion, eglRenderBuffer- :: Egl -> IO Int32-eglConfigID = queryContext 0x3028-eglContextClientType = queryContext 0x3097-eglContextClientVersion = queryContext 0x3098-eglRenderBuffer = queryContext 0x3086--eglScreenDims :: Num a => Egl -> IO (a, a)-eglScreenDims egl = do- (w, h) <- screenDims <$> readIORef egl- return (fromIntegral w, fromIntegral h)---- * Attributes--egl_True, egl_False, egl_None :: EGLint-egl_True = 1-egl_False = 0-egl_None = 0x3038----- ** EGLConfig Attributes---- 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---- | EGL_CONFIG_CAVEAT value EGL_NONE | 0x3050 | 0x3051-egl_SlowConfig, egl_NonConformantConfig :: EGLint-egl_SlowConfig = 0x3050-egl_NonConformantConfig = 0x3051---- | EGL_TRANSPARENT_TYPE value EGL_NONE | 0x3052-egl_TransparentRgb :: EGLint-egl_TransparentRgb = 0x3052---- | EGL_COLOR_BUFFER_TYPE value-egl_RgbBuffer, egl_LuminanceBuffer :: EGLint-egl_RgbBuffer = 0x308E-egl_LuminanceBuffer = 0x308F---- | 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---- | 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---- | 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----- ** EGLSurface Attributes--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----- ** EGLContext Attributes---- | specify 2 or later-egl_ContextClientVersion :: EGLContextAttr-egl_ContextClientVersion = EGLContextAttr 0x3098----- * Synchronization Primitives----eglWaitClient :: IO EGLError---eglWaitClient = toEglErr c_eglWaitClient----eglWaitNative :: IO EGLError---eglWaitNative = toEglErr (c_eglWaitNative 0x305B)----- * Render to Textures---- EGL_RENDER_BUFFER value 0x3084 | 0x3085--- 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))----eglReleaseTexImage :: EGLDisplay -> EGLSurface -> EGLBuffer -> IO EGLError---eglReleaseTexImage display surface buffer =--- toEglErr (c_eglReleaseTexImage (unD display) (unS surface) (if buffer == EGLBackBuffer then 0x3084 else 0x3085))-
− Graphics/EGL/Base.hs
@@ -1,215 +0,0 @@-{-# 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)-
− Graphics/OpenGL/CoreArb.hs
@@ -1,2625 +0,0 @@-{-# 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 */
− Graphics/OpenGL/Types.hs
@@ -1,77 +0,0 @@-{-# 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-
− Graphics/OpenGLES.hs
@@ -1,39 +0,0 @@--- | OpenGL ES (ES for Embed Systems) 2.0 and 3.0--- --- - <https://www.khronos.org/registry/gles/specs/3.1/es_spec_3.1.withchanges.pdf OpenGL® ES Version 3.1 (June 4, 2014) [PDF]>--- - <http://www.khronos.org/opengles/sdk/docs/man31/ OpenGL ES 3.1 Manual>--- - <http://www.khronos.org/files/opengles3-quick-reference-card.pdf OpenGL ES 3.0 Quick Reference [PDF]>--- - <http://www.khronos.org/opengles/sdk/docs/man3/ OpenGL ES 3.0 Manual>--- - <http://www.khronos.org/opengles/sdk/docs/reference_cards/OpenGL-ES-2_0-Reference-card.pdf OpenGL ES 2.0 Quick Reference [PDF]>--- - <http://www.khronos.org/opengles/sdk/docs/man/ OpenGL ES 2.0 Manual>--- - <http://code.google.com/p/angleproject/ ANGLE>--- OpenGL ES backend for Windows.--module Graphics.OpenGLES (- module Control.Future,- module Data.Int,- module Data.Word,- module Graphics.OpenGLES.Buffer,- module Graphics.OpenGLES.Caps,- module Graphics.OpenGLES.Core,- 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- ) where-import Control.Future-import Data.Int-import Data.Word-import Graphics.OpenGLES.Buffer-import Graphics.OpenGLES.Caps-import Graphics.OpenGLES.Core-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
− Graphics/OpenGLES/Base.hs
@@ -1,808 +0,0 @@-{-# LANGUAGE CPP #-}--- | definition from gl3.h-module Graphics.OpenGLES.Base (- -- * Basic Types- GL,- GLName,- -- ** OpenGL ES 2.0- GLboolean,- GLbyte,- GLubyte,- GLchar,- GLshort,- GLushort,- GLint,- GLuint,- GLfixed,- GLsizei,- GLenum,- GLintptr,- GLsizeiptr,- GLbitfield,- GLfloat,- GLclampf,- -- ** OpenGL ES 3.0- GLint64,- GLuint64,- GLsync,- GLhalf,-- -- * Bindings- --isGLProcAvailable,-- -- ** OpenGL ES 2.0- glActiveTexture,- glAttachShader,- glBindAttribLocation,- glBindBuffer,- glBindFramebuffer,- glBindRenderbuffer,- glBindTexture,- glBlendColor,- glBlendEquation,- glBlendEquationSeparate,- glBlendFunc,- glBlendFuncSeparate,- glBufferData,- glBufferSubData,- glCheckFramebufferStatus,- glClear,- glClearColor,- glClearDepthf,- glClearStencil,- glColorMask,- glCompileShader,- glCompressedTexImage2D,- glCompressedTexSubImage2D,- glCopyTexImage2D,- glCopyTexSubImage2D,- glCreateProgram,- glCreateShader,- glCullFace,- glDeleteBuffers,- glDeleteFramebuffers,- glDeleteProgram,- glDeleteRenderbuffers,- glDeleteShader,- glDeleteTextures,- glDepthFunc,- glDepthMask,- glDepthRangef,- glDetachShader,- glDisable,- glDisableVertexAttribArray,- glDrawArrays,- glDrawElements,- glEnable,- glEnableVertexAttribArray,- glFinish,- glFlush,- glFramebufferRenderbuffer,- glFramebufferTexture2D,- glFrontFace,- glGenBuffers,- glGenerateMipmap,- glGenFramebuffers,- glGenRenderbuffers,- glGenTextures,- glGetActiveAttrib,- glGetActiveUniform,- glGetAttachedShaders,- glGetAttribLocation,- glGetBooleanv,- glGetBufferParameteriv,- glGetError,- glGetFloatv,- glGetFramebufferAttachmentParameteriv,- glGetIntegerv,- glGetProgramiv,- glGetProgramInfoLog,- glGetRenderbufferParameteriv,- glGetShaderiv,- glGetShaderInfoLog,- glGetShaderPrecisionFormat,- glGetShaderSource,- glGetString,- glGetTexParameterfv,- glGetTexParameteriv,- glGetUniformfv,- glGetUniformiv,- glGetUniformLocation,- glGetVertexAttribfv,- glGetVertexAttribiv,- glGetVertexAttribPointerv,- glHint,- glIsBuffer,- glIsEnabled,- glIsFramebuffer,- glIsProgram,- glIsRenderbuffer,- glIsShader,- glIsTexture,- glLineWidth,- glLinkProgram,- glPixelStorei,- glPolygonOffset,- glReadPixels,- glReleaseShaderCompiler,- glRenderbufferStorage,- glSampleCoverage,- glScissor,- glShaderBinary,- glShaderSource,- glStencilFunc,- glStencilFuncSeparate,- glStencilMask,- glStencilMaskSeparate,- glStencilOp,- glStencilOpSeparate,- glTexImage2D,- glTexParameterf,- glTexParameterfv,- glTexParameteri,- glTexParameteriv,- glTexSubImage2D,- glUniform1f,- glUniform1fv,- glUniform1i,- glUniform1iv,- glUniform2f,- glUniform2fv,- glUniform2i,- glUniform2iv,- glUniform3f,- glUniform3fv,- glUniform3i,- glUniform3iv,- glUniform4f,- glUniform4fv,- glUniform4i,- glUniform4iv,- glUniformMatrix2fv,- glUniformMatrix3fv,- glUniformMatrix4fv,- glUseProgram,- glValidateProgram,- glVertexAttrib1f,- glVertexAttrib1fv,- glVertexAttrib2f,- glVertexAttrib2fv,- glVertexAttrib3f,- glVertexAttrib3fv,- glVertexAttrib4f,- glVertexAttrib4fv,- glVertexAttribPointer,- glViewport,-- -- ** OpenGL ES 3.0- glReadBuffer,- glDrawRangeElements,- glTexImage3D,- glTexSubImage3D,- glCopyTexSubImage3D,- glCompressedTexImage3D,- glCompressedTexSubImage3D,- glGenQueries,- glDeleteQueries,- glIsQuery,- glBeginQuery,- glEndQuery,- glGetQueryiv,- glGetQueryObjectuiv,- glUnmapBuffer,- glGetBufferPointerv,- glDrawBuffers,- glUniformMatrix2x3fv,- glUniformMatrix3x2fv,- glUniformMatrix2x4fv,- glUniformMatrix4x2fv,- glUniformMatrix3x4fv,- glUniformMatrix4x3fv,- glBlitFramebuffer,- glRenderbufferStorageMultisample,- glFramebufferTextureLayer,- glMapBufferRange,- glFlushMappedBufferRange,- glBindVertexArray,- glDeleteVertexArrays,- glGenVertexArrays,- glIsVertexArray,- glGetIntegeri_v,- glBeginTransformFeedback,- glEndTransformFeedback,- glBindBufferRange,- glBindBufferBase,- glTransformFeedbackVaryings,- glGetTransformFeedbackVarying,- glVertexAttribIPointer,- glGetVertexAttribIiv,- glGetVertexAttribIuiv,- glVertexAttribI4i,- glVertexAttribI4ui,- glVertexAttribI4iv,- glVertexAttribI4uiv,- glGetUniformuiv,- glGetFragDataLocation,- glUniform1ui,- glUniform2ui,- glUniform3ui,- glUniform4ui,- glUniform1uiv,- glUniform2uiv,- glUniform3uiv,- glUniform4uiv,- glClearBufferiv,- glClearBufferuiv,- glClearBufferfv,- glClearBufferfi,- glGetStringi,- glCopyBufferSubData,- glGetUniformIndices,- glGetActiveUniformsiv,- glGetUniformBlockIndex,- glGetActiveUniformBlockiv,- glGetActiveUniformBlockName,- glUniformBlockBinding,- glDrawArraysInstanced,- glDrawElementsInstanced,- glFenceSync,- glIsSync,- glDeleteSync,- glClientWaitSync,- glWaitSync,- glGetInteger64v,- glGetSynciv,- glGetInteger64i_v,- glGetBufferParameteri64v,- glGenSamplers,- glDeleteSamplers,- glIsSampler,- glBindSampler,- glSamplerParameteri,- glSamplerParameteriv,- glSamplerParameterf,- glSamplerParameterfv,- glGetSamplerParameteriv,- glGetSamplerParameterfv,- glVertexAttribDivisor,- glBindTransformFeedback,- glDeleteTransformFeedbacks,- glGenTransformFeedbacks,- glIsTransformFeedback,- glPauseTransformFeedback,- glResumeTransformFeedback,- glGetProgramBinary,- glProgramBinary,- glProgramParameteri,- glInvalidateFramebuffer,- glInvalidateSubFramebuffer,- glTexStorage2D,- glTexStorage3D,- glGetInternalformativ,-- -- ** Extensions- glDrawTexiOES,- glMultiDrawArraysEXT,- glMultiDrawElementsEXT,- glGenVertexArraysOES,- glBindVertexArrayOES,- glDeleteVertexArraysOES,- glIsVertexArrayOES,-- -- ** OpenGL ES 3.1- glDispatchCompute,- glDispatchComputeIndirect,- glDrawArraysIndirect,- glDrawElementsIndirect,- glFramebufferParameteri,- glGetFramebufferParameteriv,- glGetProgramInterfaceiv,- glGetProgramResourceIndex,- glGetProgramResourceName,- glGetProgramResourceiv,- glGetProgramResourceLocation,- glUseProgramStages,- glActiveShaderProgram,- glCreateShaderProgramv,- glBindProgramPipeline,- glDeleteProgramPipelines,- glGenProgramPipelines,- glIsProgramPipeline,- glGetProgramPipelineiv,- glProgramUniform1i,- glProgramUniform2i,- glProgramUniform3i,- glProgramUniform4i,- glProgramUniform1ui,- glProgramUniform2ui,- glProgramUniform3ui,- glProgramUniform4ui,- glProgramUniform1f,- glProgramUniform2f,- glProgramUniform3f,- glProgramUniform4f,- glProgramUniform1iv,- glProgramUniform2iv,- glProgramUniform3iv,- glProgramUniform4iv,- glProgramUniform1uiv,- glProgramUniform2uiv,- glProgramUniform3uiv,- glProgramUniform4uiv,- glProgramUniform1fv,- glProgramUniform2fv,- glProgramUniform3fv,- glProgramUniform4fv,- glProgramUniformMatrix2fv,- glProgramUniformMatrix3fv,- glProgramUniformMatrix4fv,- glProgramUniformMatrix2x3fv,- glProgramUniformMatrix3x2fv,- glProgramUniformMatrix2x4fv,- glProgramUniformMatrix4x2fv,- glProgramUniformMatrix3x4fv,- glProgramUniformMatrix4x3fv,- glValidateProgramPipeline,- glGetProgramPipelineInfoLog,- glBindImageTexture,- glGetBooleani_v,- glMemoryBarrier,- glMemoryBarrierByRegion,- glTexStorage2DMultisample,- glGetMultisamplefv,- glSampleMaski,- glGetTexLevelParameteriv,- glGetTexLevelParameterfv,- glBindVertexBuffer,- glVertexAttribFormat,- glVertexAttribIFormat,- glVertexAttribBinding,- glVertexBindingDivisor- ) where-import Foreign-import Foreign.C.String-import Graphics.EGL.Base (eglGetProcAddress)---XXX unify Wrappers by args--- * Basic Types---- | IO actions run in GL thread.-type GL = IO---- | Name of a shader, program, and variable.-type GLName = String---- ** OpenGL ES 2.0---- | 1bit boolean-type GLboolean = Word8---- | 8bit signed two\'s complement binary integer-type GLbyte = Int8---- | 8bit unsigned binary integer-type GLubyte = Word8---- | (Unused) 8bit characters making up strings-type GLchar = Int8---- | 16bit signed two\'s complement binary integer-type GLshort = Int16---- | 16bit unsigned binary integer-type GLushort = Word16---- | 32bit signed two\'s complement binary integer-type GLint = Int32---- | 32bit unsigned binary integer-type GLuint = Word32---- | 32bit signed two\'s complement 16.16 scaled integer-type GLfixed = Int32---- | 32bit non-negative binary integer size-type GLsizei = Int32---- | 32bit enumerated binary integer value-type GLenum = Word32---- | Pointer-sized signed two\'s complement binary integer-type GLintptr = Int---- | Pointer-sized non-negative binary integer size-type GLsizeiptr = Int---- | 32bit bit field-type GLbitfield = Word32---- | 32bit floating-point value-type GLfloat = Float---- | 32bit floating-point value clamped to [0,1]-type GLclampf = Float---- ** OpenGL ES 3.0---- | 64bit signed two\'s complement binary integer-type GLint64 = Int64---- | 64bit unsigned binary integer-type GLuint64 = Word64---- | Pointer-sized sync object handle-type GLsync = Ptr ()---- | 16bit half-precision floating-point value encoded in an unsigned scalar-type GLhalf = Word16----- * Bindings--{-isGLProcAvailable :: String -> Bool-isGLProcAvailable name = let- proc = castFunPtrToPtr (eglGetProcAddress name)- undef = castFunPtrToPtr (eglGetProcAddress "glUndefined")- in abs (proc `minusPtr` undef) > 0x10000- -- eglGetProcAddress may return an useless pointer when- -- given name starts with "gl" but not implemented.--}--- Declere must-have functions-#define GLES2(_procname, _typ) \-foreign import ccall unsafe "GLES2/gl2.h" _procname :: _typ; \---{- avoid inlining to save size # INLINE _procname #-} \---- Work around for a runtime link error-#define GL_EXT(_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");----- Share unwrap_* with a mother function-#define GL_DUP(_procname, _mother, _typ) \-_procname :: _typ; \-_procname = unwrap_/**/_mother (eglGetProcAddress "_procname") ; \-{-# NOINLINE _procname #-} \----- ** OpenGL ES 2.0--GLES2(glActiveTexture, GLenum -> GL ())-GLES2(glAttachShader, GLuint -> GLuint -> GL ())-GLES2(glBindAttribLocation, GLuint -> GLuint -> CString -> GL ())-GLES2(glBindBuffer, GLenum -> GLuint -> GL ())-GLES2(glBindFramebuffer, GLenum -> GLuint -> GL ())-GLES2(glBindRenderbuffer, GLenum -> GLuint -> GL ())-GLES2(glBindTexture, GLenum -> GLuint -> GL ())-GLES2(glBlendColor, GLclampf -> GLclampf -> GLclampf -> GLclampf -> GL ())-GLES2(glBlendEquation, GLenum -> GL ())-GLES2(glBlendEquationSeparate, GLenum -> GLenum -> GL ())-GLES2(glBlendFunc, GLenum -> GLenum -> GL ())-GLES2(glBlendFuncSeparate, GLenum -> GLenum -> GLenum -> GLenum -> GL ())-GLES2(glBufferData, GLenum -> GLsizeiptr -> Ptr () -> GLenum -> GL ())-GLES2(glBufferSubData, GLenum -> GLintptr -> GLsizeiptr -> Ptr () -> GL ())-GLES2(glCheckFramebufferStatus, GLenum -> GL GLenum)-GLES2(glClear, GLbitfield -> GL ())-GLES2(glClearColor, GLclampf -> GLclampf -> GLclampf -> GLclampf -> GL ())-GLES2(glClearDepthf, GLclampf -> GL ())-GLES2(glClearStencil, GLint -> GL ())-GLES2(glColorMask, GLboolean -> GLboolean -> GLboolean -> GLboolean -> GL ())-GLES2(glCompileShader, GLuint -> GL ())---GLES2(glCompressedTexImage2D, GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLint -> GLsizei -> Ptr () -> GL ())-GLES2(glCompressedTexImage2D, GLenum -> GLint -> GLenum -> GLuint -> GLuint -> GLint -> GLsizei -> CString -> GL ())-GLES2(glCompressedTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())-GLES2(glCopyTexImage2D, GLenum -> GLint -> GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> GL ())-GLES2(glCopyTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())-GLES2(glCreateProgram, GL GLuint)-GLES2(glCreateShader, GLenum -> GL GLuint)-GLES2(glCullFace, GLenum -> GL ())-GLES2(glDeleteBuffers, GLsizei -> Ptr GLuint -> GL ())-GLES2(glDeleteFramebuffers, GLsizei -> Ptr GLuint -> GL ())-GLES2(glDeleteProgram, GLuint -> GL ())-GLES2(glDeleteRenderbuffers, GLsizei -> Ptr GLuint -> GL ())-GLES2(glDeleteShader, GLuint -> GL ())-GLES2(glDeleteTextures, GLsizei -> Ptr GLuint -> GL ())-GLES2(glDepthFunc, GLenum -> GL ())-GLES2(glDepthMask, GLboolean -> GL ())-GLES2(glDepthRangef, GLclampf -> GLclampf -> GL ())-GLES2(glDetachShader, GLuint -> GLuint -> GL ())-GLES2(glDisable, GLenum -> GL ())-GLES2(glDisableVertexAttribArray, GLuint -> GL ())-GLES2(glDrawArrays, GLenum -> GLint -> GLsizei -> GL ())-GLES2(glDrawElements, GLenum -> GLsizei -> GLenum -> Ptr () -> GL ())-GLES2(glEnable, GLenum -> GL ())-GLES2(glEnableVertexAttribArray, GLuint -> GL ())-GLES2(glFinish, GL ())-GLES2(glFlush, GL ())-GLES2(glFramebufferRenderbuffer, GLenum -> GLenum -> GLenum -> GLuint -> GL ())-GLES2(glFramebufferTexture2D, GLenum -> GLenum -> GLenum -> GLuint -> GLint -> GL ())-GLES2(glFrontFace, GLenum -> GL ())-GLES2(glGenBuffers, GLsizei -> Ptr GLuint -> GL ())-GLES2(glGenerateMipmap, GLenum -> GL ())-GLES2(glGenFramebuffers, GLsizei -> Ptr GLuint -> GL ())-GLES2(glGenRenderbuffers, GLsizei -> Ptr GLuint -> GL ())-GLES2(glGenTextures, GLsizei -> Ptr GLuint -> GL ())-GLES2(glGetActiveAttrib, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLint -> Ptr GLenum -> CString -> GL ())-GLES2(glGetActiveUniform, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLint -> Ptr GLenum -> CString -> GL ())-GLES2(glGetAttachedShaders, GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLuint -> GL ())-GLES2(glGetAttribLocation, GLuint -> CString -> GL GLint)-GLES2(glGetBooleanv, GLenum -> Ptr GLboolean -> GL ())-GLES2(glGetBufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())-GLES2(glGetError, GL GLenum)-GLES2(glGetFloatv, GLenum -> Ptr GLfloat -> GL ())-GLES2(glGetFramebufferAttachmentParameteriv, GLenum -> GLenum -> GLenum -> Ptr GLint -> GL ())-GLES2(glGetIntegerv, GLenum -> Ptr GLint -> GL ())-GLES2(glGetProgramiv, GLuint -> GLenum -> Ptr GLint -> GL ())-GLES2(glGetProgramInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())-GLES2(glGetRenderbufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())-GLES2(glGetShaderiv, GLuint -> GLenum -> Ptr GLint -> GL ())-GLES2(glGetShaderInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())-GLES2(glGetShaderPrecisionFormat, GLenum -> GLenum -> Ptr GLint -> Ptr GLint -> GL ())-GLES2(glGetShaderSource, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())-GLES2(glGetString, GLenum -> GL CString)-GLES2(glGetTexParameterfv, GLenum -> GLenum -> Ptr GLfloat -> GL ())-GLES2(glGetTexParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())-GLES2(glGetUniformfv, GLuint -> GLint -> Ptr GLfloat -> GL ())-GLES2(glGetUniformiv, GLuint -> GLint -> Ptr GLint -> GL ())-GLES2(glGetUniformLocation, GLuint -> CString -> GL GLint)-GLES2(glGetVertexAttribfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())-GLES2(glGetVertexAttribiv, GLuint -> GLenum -> Ptr GLint -> GL ())-GLES2(glGetVertexAttribPointerv, GLuint -> GLenum -> Ptr (Ptr ()) -> GL ())-GLES2(glHint, GLenum -> GLenum -> GL ())-GLES2(glIsBuffer, GLuint -> GL GLboolean)-GLES2(glIsEnabled, GLenum -> GL GLboolean)-GLES2(glIsFramebuffer, GLuint -> GL GLboolean)-GLES2(glIsProgram, GLuint -> GL GLboolean)-GLES2(glIsRenderbuffer, GLuint -> GL GLboolean)-GLES2(glIsShader, GLuint -> GL GLboolean)-GLES2(glIsTexture, GLuint -> GL GLboolean)-GLES2(glLineWidth, GLfloat -> GL ())-GLES2(glLinkProgram, GLuint -> GL ())-GLES2(glPixelStorei, GLenum -> GLint -> GL ())-GLES2(glPolygonOffset, GLfloat -> GLfloat -> GL ())-GLES2(glReadPixels, GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())-GLES2(glReleaseShaderCompiler, GL ())-GLES2(glRenderbufferStorage, GLenum -> GLenum -> GLsizei -> GLsizei -> GL ())-GLES2(glSampleCoverage, GLclampf -> GLboolean -> GL ())-GLES2(glScissor, GLint -> GLint -> GLsizei -> GLsizei -> GL ())-GLES2(glShaderBinary, GLsizei -> Ptr GLuint -> GLenum -> Ptr () -> GLsizei -> GL ())-GLES2(glShaderSource, GLuint -> GLsizei -> Ptr CString -> Ptr GLint -> GL ())-GLES2(glStencilFunc, GLenum -> GLint -> GLuint -> GL ())-GLES2(glStencilFuncSeparate, GLenum -> GLenum -> GLint -> GLuint -> GL ())-GLES2(glStencilMask, GLuint -> GL ())-GLES2(glStencilMaskSeparate, GLenum -> GLuint -> GL ())-GLES2(glStencilOp, GLenum -> GLenum -> GLenum -> GL ())-GLES2(glStencilOpSeparate, GLenum -> GLenum -> GLenum -> GLenum -> GL ())--- GLES2(glTexImage2D, GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())-GLES2(glTexImage2D, GLenum -> GLint -> GLenum -> GLuint -> GLuint -> GLint -> GLenum -> GLenum -> CString -> GL ())-GLES2(glTexParameterf, GLenum -> GLenum -> GLfloat -> GL ())-GLES2(glTexParameterfv, GLenum -> GLenum -> Ptr GLfloat -> GL ())-GLES2(glTexParameteri, GLenum -> GLenum -> GLint -> GL ())-GLES2(glTexParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())-GLES2(glTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())-GLES2(glUniform1f, GLint -> GLfloat -> GL ())-GLES2(glUniform1fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())-GLES2(glUniform1i, GLint -> GLint -> GL ())-GLES2(glUniform1iv, GLint -> GLsizei -> Ptr GLint -> GL ())-GLES2(glUniform2f, GLint -> GLfloat -> GLfloat -> GL ())-GLES2(glUniform2fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())-GLES2(glUniform2i, GLint -> GLint -> GLint -> GL ())-GLES2(glUniform2iv, GLint -> GLsizei -> Ptr GLint -> GL ())-GLES2(glUniform3f, GLint -> GLfloat -> GLfloat -> GLfloat -> GL ())-GLES2(glUniform3fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())-GLES2(glUniform3i, GLint -> GLint -> GLint -> GLint -> GL ())-GLES2(glUniform3iv, GLint -> GLsizei -> Ptr GLint -> GL ())-GLES2(glUniform4f, GLint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())-GLES2(glUniform4fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())-GLES2(glUniform4i, GLint -> GLint -> GLint -> GLint -> GLint -> GL ())-GLES2(glUniform4iv, GLint -> GLsizei -> Ptr GLint -> GL ())-GLES2(glUniformMatrix2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GLES2(glUniformMatrix3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GLES2(glUniformMatrix4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GLES2(glUseProgram, GLuint -> GL ())-GLES2(glValidateProgram, GLuint -> GL ())-GLES2(glVertexAttrib1f, GLuint -> GLfloat -> GL ())-GLES2(glVertexAttrib1fv, GLuint -> Ptr GLfloat -> GL ())-GLES2(glVertexAttrib2f, GLuint -> GLfloat -> GLfloat -> GL ())-GLES2(glVertexAttrib2fv, GLuint -> Ptr GLfloat -> GL ())-GLES2(glVertexAttrib3f, GLuint -> GLfloat -> GLfloat -> GLfloat -> GL ())-GLES2(glVertexAttrib3fv, GLuint -> Ptr GLfloat -> GL ())-GLES2(glVertexAttrib4f, GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())-GLES2(glVertexAttrib4fv, GLuint -> Ptr GLfloat -> GL ())-GLES2(glVertexAttribPointer, GLuint -> GLint -> GLenum -> GLboolean -> GLsizei -> Ptr () -> GL ())-GLES2(glViewport, GLint -> GLint -> GLsizei -> GLsizei -> GL ())---- ** OpenGL ES 3.0--GL_EXT(glReadBuffer, GLenum -> GL ())-GL_EXT(glDrawRangeElements, GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> Ptr (()) -> GL ())---GL_EXT(glTexImage3D, GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())-GL_EXT(glTexImage3D, GLenum -> GLint -> GLenum -> GLuint -> GLuint -> GLuint -> GLint -> GLenum -> GLenum -> CString -> GL ())-GL_EXT(glTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())-GL_EXT(glCopyTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())---GL_EXT(glCompressedTexImage3D, GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GLint -> GLsizei -> Ptr () -> GL ())-GL_EXT(glCompressedTexImage3D, GLenum -> GLint -> GLenum -> GLuint -> GLuint -> GLuint -> GLint -> GLsizei -> CString -> GL ())-GL_EXT(glCompressedTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())-GL_EXT(glGenQueries, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glDeleteQueries, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glIsQuery, GLuint -> GL GLboolean)-GL_EXT(glBeginQuery, GLenum -> GLuint -> GL ())-GL_EXT(glEndQuery, GLenum -> GL ())-GL_EXT(glGetQueryiv, GLenum -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glGetQueryObjectuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())-GL_EXT(glUnmapBuffer, GLenum -> GL GLboolean)-GL_EXT(glGetBufferPointerv, GLenum -> GLenum -> Ptr (Ptr ()) -> GL ())-GL_EXT(glDrawBuffers, GLsizei -> Ptr GLenum -> GL ())-GL_EXT(glUniformMatrix2x3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glUniformMatrix3x2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glUniformMatrix2x4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glUniformMatrix4x2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glUniformMatrix3x4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glUniformMatrix4x3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glBlitFramebuffer, GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> GL ())-GL_EXT(glRenderbufferStorageMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GL ())-GL_EXT(glFramebufferTextureLayer, GLenum -> GLenum -> GLuint -> GLint -> GLint -> GL ())-GL_EXT(glMapBufferRange, GLenum -> GLintptr -> GLsizeiptr -> GLbitfield -> GL (Ptr ()))-GL_EXT(glFlushMappedBufferRange, GLenum -> GLintptr -> GLsizeiptr -> GL ())-GL_EXT(glBindVertexArray, GLuint -> GL ())-GL_EXT(glDeleteVertexArrays, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glGenVertexArrays, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glIsVertexArray, GLuint -> GL GLboolean)-GL_EXT(glGetIntegeri_v, GLenum -> GLuint -> Ptr GLint -> GL ())-GL_EXT(glBeginTransformFeedback, GLenum -> GL ())-GL_EXT(glEndTransformFeedback, GL ())-GL_EXT(glBindBufferRange, GLenum -> GLuint -> GLuint -> GLintptr -> GLsizeiptr -> GL ())-GL_EXT(glBindBufferBase, GLenum -> GLuint -> GLuint -> GL ())-GL_EXT(glTransformFeedbackVaryings, GLuint -> GLsizei -> Ptr CString -> GLenum -> GL ())-GL_EXT(glGetTransformFeedbackVarying, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLsizei -> Ptr GLenum -> CString -> GL ())-GL_EXT(glVertexAttribIPointer, GLuint -> GLint -> GLenum -> GLsizei -> Ptr () -> GL ())-GL_EXT(glGetVertexAttribIiv, GLuint -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glGetVertexAttribIuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())-GL_EXT(glVertexAttribI4i, GLuint -> GLint -> GLint -> GLint -> GLint -> GL ())-GL_EXT(glVertexAttribI4ui, GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())-GL_EXT(glVertexAttribI4iv, GLuint -> Ptr GLint -> GL ())-GL_EXT(glVertexAttribI4uiv, GLuint -> Ptr GLuint -> GL ())-GL_EXT(glGetUniformuiv, GLuint -> GLint -> Ptr GLuint -> GL ())-GL_EXT(glGetFragDataLocation, GLuint -> CString-> GL GLint)-GL_EXT(glUniform1ui, GLint -> GLuint -> GL ())-GL_EXT(glUniform2ui, GLint -> GLuint -> GLuint -> GL ())-GL_EXT(glUniform3ui, GLint -> GLuint -> GLuint -> GLuint -> GL ())-GL_EXT(glUniform4ui, GLint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())-GL_EXT(glUniform1uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glUniform2uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glUniform3uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glUniform4uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glClearBufferiv, GLenum -> GLint -> Ptr GLint -> GL ())-GL_EXT(glClearBufferuiv, GLenum -> GLint -> Ptr GLuint -> GL ())-GL_EXT(glClearBufferfv, GLenum -> GLint -> Ptr GLfloat -> GL ())-GL_EXT(glClearBufferfi, GLenum -> GLint -> GLfloat -> GLint -> GL ())-GL_EXT(glGetStringi, GLenum -> GLuint -> GL CString)-GL_EXT(glCopyBufferSubData, GLenum -> GLenum -> GLintptr -> GLintptr -> GLsizeiptr -> GL ())-GL_EXT(glGetUniformIndices, GLuint -> GLsizei -> Ptr CString -> Ptr GLuint -> GL ())-GL_EXT(glGetActiveUniformsiv, GLuint -> GLsizei -> Ptr GLuint -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glGetUniformBlockIndex, GLuint -> CString -> GL GLuint)-GL_EXT(glGetActiveUniformBlockiv, GLuint -> GLuint -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glGetActiveUniformBlockName, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())-GL_EXT(glUniformBlockBinding, GLuint -> GLuint -> GLuint -> GL ())-GL_EXT(glDrawArraysInstanced, GLenum -> GLint -> GLsizei -> GLsizei -> GL ())-GL_EXT(glDrawElementsInstanced, GLenum -> GLsizei -> GLenum -> Ptr () -> GLsizei -> GL ())-GL_EXT(glFenceSync, GLenum -> GLbitfield -> GL GLsync)-GL_EXT(glIsSync, GLsync -> GL GLboolean)-GL_EXT(glDeleteSync, GLsync -> GL ())-GL_EXT(glClientWaitSync, GLsync -> GLbitfield -> GLuint64 -> GL GLenum)-GL_EXT(glWaitSync, GLsync -> GLbitfield -> GLuint64 -> GL ())-GL_EXT(glGetInteger64v, GLenum -> Ptr GLint64 -> GL ())-GL_EXT(glGetSynciv, GLsync -> GLenum -> GLsizei -> Ptr GLsizei -> Ptr GLint -> GL ())-GL_EXT(glGetInteger64i_v, GLenum -> GLuint -> Ptr GLint64 -> GL ())-GL_EXT(glGetBufferParameteri64v, GLenum -> GLenum -> Ptr GLint64 -> GL ())-GL_EXT(glGenSamplers, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glDeleteSamplers, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glIsSampler, GLuint -> GL GLboolean)-GL_EXT(glBindSampler, GLuint -> GLuint -> GL ())-GL_EXT(glSamplerParameteri, GLuint -> GLenum -> GLint -> GL ())-GL_EXT(glSamplerParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glSamplerParameterf, GLuint -> GLenum -> GLfloat -> GL ())-GL_EXT(glSamplerParameterfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())-GL_EXT(glGetSamplerParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glGetSamplerParameterfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())-GL_EXT(glVertexAttribDivisor, GLuint -> GLuint -> GL ())-GL_EXT(glBindTransformFeedback, GLenum -> GLuint -> GL ())-GL_EXT(glDeleteTransformFeedbacks, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glGenTransformFeedbacks, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glIsTransformFeedback, GLuint -> GL GLboolean)-GL_EXT(glPauseTransformFeedback, GL ())-GL_EXT(glResumeTransformFeedback, GL ())-GL_EXT(glGetProgramBinary, GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLenum -> Ptr () -> GL ())-GL_EXT(glProgramBinary, GLuint -> GLenum -> Ptr () -> GLsizei -> GL ())-GL_EXT(glProgramParameteri, GLuint -> GLenum -> GLint -> GL ())-GL_EXT(glInvalidateFramebuffer, GLenum -> GLsizei -> Ptr GLenum -> GL ())-GL_EXT(glInvalidateSubFramebuffer, GLenum -> GLsizei -> Ptr GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())-GL_EXT(glTexStorage2D, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GL ())-GL_EXT(glTexStorage3D, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GL ())-GL_EXT(glGetInternalformativ, GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLint -> GL ())---- ** Extensions--GL_EXT(glDrawTexiOES, GLint -> GLint -> GLint -> GLint -> GLint -> GL ())-GL_EXT(glMultiDrawArraysEXT, GLenum -> Ptr GLint -> Ptr GLsizei -> GLsizei -> GL ())-GL_EXT(glMultiDrawElementsEXT, GLenum -> Ptr GLsizei -> GLenum -> Ptr (Ptr ()) -> GLsizei -> GL ())-GL_DUP(glBindVertexArrayOES,glBindVertexArray, GLuint -> GL ())-GL_DUP(glDeleteVertexArraysOES,glDeleteVertexArrays, GLsizei -> Ptr GLuint -> GL ())-GL_DUP(glGenVertexArraysOES,glGenVertexArrays, GLsizei -> Ptr GLuint -> GL ())-GL_DUP(glIsVertexArrayOES,glIsVertexArray, GLuint -> GL GLboolean)---- ** OpenGL ES 3.1--GL_EXT(glDispatchCompute, GLuint -> GLuint -> GLuint -> GL ())-GL_EXT(glDispatchComputeIndirect, GLintptr -> GL ())-GL_EXT(glDrawArraysIndirect, GLenum -> Ptr () -> GL ())-GL_EXT(glDrawElementsIndirect, GLenum -> GLenum -> Ptr () -> GL ())-GL_EXT(glFramebufferParameteri, GLenum -> GLenum -> GLint -> GL ())-GL_EXT(glGetFramebufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glGetProgramInterfaceiv, GLuint -> GLenum -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glGetProgramResourceIndex, GLuint -> GLenum -> Ptr GLchar -> GL ())-GL_EXT(glGetProgramResourceName, GLuint -> GLenum -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLchar -> GL ())-GL_EXT(glGetProgramResourceiv, GLuint -> GLenum -> GLuint -> GLsizei -> Ptr GLenum -> GLsizei -> Ptr GLsizei -> Ptr GLint -> GL ())-GL_EXT(glGetProgramResourceLocation, GLuint -> GLenum -> Ptr GLchar -> GL ())-GL_EXT(glUseProgramStages, GLuint -> GLbitfield -> GLuint -> GL ())-GL_EXT(glActiveShaderProgram, GLuint -> GLuint -> GL ())-GL_EXT(glCreateShaderProgramv, GLenum -> GLsizei -> Ptr CString -> GL ())-GL_EXT(glBindProgramPipeline, GLuint -> GL ())-GL_EXT(glDeleteProgramPipelines, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glGenProgramPipelines, GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glIsProgramPipeline, GLuint -> GL ())-GL_EXT(glGetProgramPipelineiv, GLuint -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glProgramUniform1i, GLuint -> GLint -> GLint -> GL ())-GL_EXT(glProgramUniform2i, GLuint -> GLint -> GLint -> GLint -> GL ())-GL_EXT(glProgramUniform3i, GLuint -> GLint -> GLint -> GLint -> GLint -> GL ())-GL_EXT(glProgramUniform4i, GLuint -> GLint -> GLint -> GLint -> GLint -> GLint -> GL ())-GL_EXT(glProgramUniform1ui, GLuint -> GLint -> GLuint -> GL ())-GL_EXT(glProgramUniform2ui, GLuint -> GLint -> GLuint -> GLuint -> GL ())-GL_EXT(glProgramUniform3ui, GLuint -> GLint -> GLuint -> GLuint -> GLuint -> GL ())-GL_EXT(glProgramUniform4ui, GLuint -> GLint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())-GL_EXT(glProgramUniform1f, GLuint -> GLint -> GLfloat -> GL ())-GL_EXT(glProgramUniform2f, GLuint -> GLint -> GLfloat -> GLfloat -> GL ())-GL_EXT(glProgramUniform3f, GLuint -> GLint -> GLfloat -> GLfloat -> GLfloat -> GL ())-GL_EXT(glProgramUniform4f, GLuint -> GLint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())-GL_EXT(glProgramUniform1iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())-GL_EXT(glProgramUniform2iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())-GL_EXT(glProgramUniform3iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())-GL_EXT(glProgramUniform4iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())-GL_EXT(glProgramUniform1uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glProgramUniform2uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glProgramUniform3uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glProgramUniform4uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())-GL_EXT(glProgramUniform1fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniform2fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniform3fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniform4fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix2x3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix3x2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix2x4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix4x2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix3x4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glProgramUniformMatrix4x3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())-GL_EXT(glValidateProgramPipeline, GLuint -> GL ())-GL_EXT(glGetProgramPipelineInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLchar -> GL ())-GL_EXT(glBindImageTexture, GLuint -> GLuint -> GLint -> GLboolean -> GLint -> GLenum -> GLenum -> GL ())-GL_EXT(glGetBooleani_v, GLenum -> GLuint -> Ptr GLboolean -> GL ())-GL_EXT(glMemoryBarrier, GLbitfield -> GL ())-GL_EXT(glMemoryBarrierByRegion, GLbitfield -> GL ())-GL_EXT(glTexStorage2DMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLboolean -> GL ())-GL_EXT(glGetMultisamplefv, GLenum -> GLuint -> Ptr GLfloat -> GL ())-GL_EXT(glSampleMaski, GLuint -> GLbitfield -> GL ())-GL_EXT(glGetTexLevelParameteriv, GLenum -> GLint -> GLenum -> Ptr GLint -> GL ())-GL_EXT(glGetTexLevelParameterfv, GLenum -> GLint -> GLenum -> Ptr GLfloat -> GL ())-GL_EXT(glBindVertexBuffer, GLuint -> GLuint -> GLintptr -> GLsizei -> GL ())-GL_EXT(glVertexAttribFormat, GLuint -> GLint -> GLenum -> GLboolean -> GLuint -> GL ())-GL_EXT(glVertexAttribIFormat, GLuint -> GLint -> GLenum -> GLuint -> GL ())-GL_EXT(glVertexAttribBinding, GLuint -> GLuint -> GL ())-GL_EXT(glVertexBindingDivisor, GLuint -> GLuint -> GL ())
− Graphics/OpenGLES/Buffer.hs
@@ -1,336 +0,0 @@-{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE MultiParamTypeClasses #-}-{-# LANGUAGE ScopedTypeVariables #-}-{-# LANGUAGE OverlappingInstances #-}-{-# LANGUAGE KindSignatures #-}-{-# LANGUAGE TypeFamilies #-}--module Graphics.OpenGLES.Buffer (-- -- * Buffer- -- ** Constructing Mutable Buffers- Buffer,- GLArray,- GLSource(..),- glLoad, glReload, glUnsafeRead, glModify, glMap,-- -- ** Updating Mutable Buffers- unsafeWithLen,- BufferUsage, app2gl, app2glDyn, app2glStream,- gl2app, gl2appDyn, gl2appStream, gl2gl, gl2glDyn, gl2glStream,- - -- ** Raw Buffer Operations- bindBuffer, bindBufferRange, bindBufferBase,- bufferData, bufferSubData, - -- | /3+ | GL_OES_mapbuffer/ glUnmapBufferOES- unmapBuffer,- -- | /GL_OES_mapbuffer/- -- (*GL_APIENTRY glMapBufferOES (GLenum target, GLenum access);- -- define GL_WRITE_ONLY_OES 0x88B9- -- | /3+ | GL_EXT_map_buffer_range/- -- glMapBufferRangeEXT glFlushMappedBufferRangeEXT- mapBufferRange, flashMappedBufferRange,- map_read_bit, map_write_bit, map_invalidate_range_bit,- map_invalidate_buffer_bit, map_flush_explicit_bit, map_unsynchronized_bit,- -- | /3+ | GL_NV_copy_buffer/ glCopyBufferSubDataNV- copyBufferSubData,- BufferSlot, array_buffer, element_array_buffer,- -- | /ES 3+/- pixel_pack_buffer, pixel_unpack_buffer,- uniform_buffer, transform_feedback_buffer,- -- | /3+ or GL_NV_copy_buffer/- copy_read_buffer, copy_write_buffer- ) where--import Control.Applicative-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.Types-import Foreign----- ** Constructing Mutable Buffers--type family Content a x :: *-type instance Content Int x = x-type instance Content B.ByteString x = x-type instance Content [a] x = a-type instance Content ([a], Int) x = a-type instance Content (GLArray a) x = a--class (Storable b, b ~ Content a b) => GLSource a b where- makeAref :: a -> GL (Either (GLArray (Content a b)) Int)- makeWriter :: a -> (Ptr (Content a b) -> GL (), Int)--instance Storable b => GLSource Int b where- makeAref = return . Right- makeWriter len = (\ptr -> B.memset (castPtr ptr) 0- (fromIntegral $ len * sizeOf (undefined :: b))- >> return (), len)--instance Storable a => GLSource ([a], Int) a where- 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 = return . Left $ V.fromList xs- makeWriter xs = (\ptr -> pokeArray ptr xs, length xs)--instance Storable b => GLSource B.ByteString b where- makeAref bs@(B.PS foreignPtr offset len) = do- let fp | offset == 0 = foreignPtr- | otherwise = case B.copy bs of (B.PS f _ _) -> f- let elems = (len `div` sizeOf (undefined :: b))- 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- , len `div` sizeOf (undefined :: b))--instance Storable a => GLSource (GLArray a) a where- makeAref = return . Left- makeWriter vec =- (\dst -> withForeignPtr fp $ \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--- where--- go (Left)--- go (Right) ----- |--- Create and initialize a 'Buffer' storage on GPU working memory.--- --- - Int → /O(1)/--- New Buffer with specified number of elements initialized to zeros.--- - ([a], Int) → /O(n)/--- New Buffer made of given list upto n th element.--- - [a] → /O(n)/--- New Buffer made of given list. Same as (xs, length xs)--- - 'ByteString' → /head O(1) otherwise O(n)/--- New Buffer from 'ByteString'. Might be copied when necessary.--- - 'GLArray' → __Unsafe__ /O(1)/--- Use passed 'StorableArray' as client-side Buffer.--- --- > glLoad app2gl (10::Int) :: GL (Buffer Vec4)--- > glLoad app2gl ([V2 1 1],4::Int) :: GL (Buffer Vec2)--- > glLoad app2gl uv :: GL (Buffer (V2 Word8))--- > glLoad app2gl bs :: GL (Buffer Float)--- > glLoad app2gl (model :: GLArray Model) :: GL (Buffer Model)-glLoad :: forall a b. GLSource a b => BufferUsage -> a -> GL (Buffer b)-glLoad usage src = do- aref <- newIORef =<< makeAref src- Buffer aref <$> newBuffer (do- array <- readIORef aref- case array of- Left vector ->- unsafeWithLen vector (bufferData array_buffer usage)- Right elems ->- bufferData array_buffer usage (elems * unit) nullPtr- void $ showError "glBufferData"- ) where unit = sizeOf (undefined :: b)- -- TODO BufferArchive--newBuffer init = newGLO glGenBuffers glDeleteBuffers- (\i -> glBindBuffer 0x8892 i >> init) -- GL_ARRAY_BUFFER--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- bindBuffer array_buffer buf- aref' <- readIORef aref- let unit = sizeOf (undefined :: b)- let (fillSubArray, size') = makeWriter src- let size = size' * unit- if hasES3 then do- ptr <- mapBufferRange array_buffer (offsetIx * unit) size- (map_write_bit + map_invalidate_range_bit + map_unsynchronized_bit)- showError "glMapBufferRange"- fillSubArray ptr- unmapBuffer array_buffer- showError "glUnmapBuffer"- case aref' of Left vec ->- writeIORef aref (Right (V.length vec * unit))- else do- vector <- case aref' of- Left array -> return array- 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 vector)---glUnsafeRead :: forall a. Storable a => Buffer a -> (Int, Int) -> GL (GLArray a)-glUnsafeRead buf@(Buffer aref glo) (offsetIx, len) = do- bindBuffer array_buffer buf- array <- readIORef aref- case array of- Left vector -> -- unsafe!- return vector- Right elems -> do- 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-})- V.unsafeWith vec $ \dst ->- B.memcpy (castPtr dst) src (len * unit)- unmapBuffer array_buffer- 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- bindBuffer array_buffer buf- if hasES3 then do- a <- readIORef aref- let elems = case a of- Right 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 $ V.unsafeFromForeignPtr0 fp elems- unmapBuffer array_buffer- writeIORef aref (Right elems)- else do- a <- readIORef aref- case a of - Left vector -> do- f vector- unsafeWithLen vector (bufferSubData array_buffer 0)- Right elems -> do- 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 off len = glModify buffer off len (V.mapM_ f)----- ** Updating Mutable Buffers---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)---- hasMapBufferRange = hasES3--- GL_NV_map_buffer_range 5devices 2%--- GL_EXT_map_buffer_range 2devices 1%---- Performance hint http://www.opentk.com/node/1930----- ** Buffer Slots---- | STATIC_DRAW (Default)-app2gl = BufferUsage 0x88E4--- | DYNAMIC_DRAW-app2glDyn = BufferUsage 0x88E8--- | STREAM_DRAW-app2glStream = BufferUsage 0x88E0--- *** GL ES 3+--- | STATIC_READ-gl2app = BufferUsage 0x88E5--- | DYNAMIC_READ-gl2appDyn = BufferUsage 0x88E9--- | STREAM_READ-gl2appStream = BufferUsage 0x88E1--- | STATIC_COPY-gl2gl = BufferUsage 0x88E6--- | DYNAMIC_COPY-gl2glDyn = BufferUsage 0x88EA--- | STREAM_COPY-gl2glStream = BufferUsage 0x88E2----- ** Raw Buffer Operations--bindBuffer :: BufferSlot -> Buffer a -> GL ()-bindBuffer (BufferSlot target) (Buffer _ glo) =- glBindBuffer target =<< getObjId glo--bindBufferRange :: BufferSlot -> GLuint -> Buffer a -> Int -> Int -> GL ()-bindBufferRange (BufferSlot t) index (Buffer _ glo) offset size = do- buf <- getObjId glo- glBindBufferRange t index buf offset size--bindBufferBase :: BufferSlot -> GLuint -> Buffer a -> GL ()-bindBufferBase (BufferSlot t) index (Buffer _ glo) = do- glBindBufferBase t index =<< getObjId glo--bufferData :: BufferSlot -> BufferUsage -> Int -> Ptr a -> GL ()-bufferData (BufferSlot target) (BufferUsage usage) size ptr =- glBufferData target size (castPtr ptr) usage--bufferSubData :: BufferSlot -> Int -> Int -> Ptr a -> GL ()-bufferSubData (BufferSlot target) offset size ptr =- glBufferSubData target offset size (castPtr ptr)---- *** 3+ | GL_OES_mapbuffer glUnmapBufferOES-unmapBuffer :: BufferSlot -> GL Bool-unmapBuffer (BufferSlot target) =- glUnmapBuffer target >>= return . (/= 0)---- *** GL_OES_mapbuffer --- (*GL_APIENTRY glMapBufferOES (GLenum target, GLenum access);--- define GL_WRITE_ONLY_OES 0x88B9---- *** 3+ | GL_EXT_map_buffer_range--- glMapBufferRangeEXT glFlushMappedBufferRangeEXT-mapBufferRange :: BufferSlot -> Int -> Int -> GLbitfield -> GL (Ptr a)-mapBufferRange (BufferSlot target) offset size access =- fmap castPtr $ glMapBufferRange target offset size access--flashMappedBufferRange :: BufferSlot -> Int -> Int -> GL ()-flashMappedBufferRange (BufferSlot target) offset size =- glFlushMappedBufferRange target offset size--map_read_bit = 1 :: GLbitfield-map_write_bit = 2 :: GLbitfield-map_invalidate_range_bit = 4 :: GLbitfield-map_invalidate_buffer_bit = 8 :: GLbitfield-map_flush_explicit_bit = 16 :: GLbitfield-map_unsynchronized_bit = 32 :: GLbitfield---- *** 3+ | GL_NV_copy_buffer glCopyBufferSubDataNV-copyBufferSubData :: BufferSlot -> BufferSlot -> Int -> Int -> Int -> GL ()-copyBufferSubData (BufferSlot read) (BufferSlot write) roffset woffset size =- glCopyBufferSubData read write roffset woffset size--array_buffer = BufferSlot 0x8892-element_array_buffer = BufferSlot 0x8893--- *** 3+-pixel_pack_buffer = BufferSlot 0x88EB-pixel_unpack_buffer = BufferSlot 0x88EC-uniform_buffer = BufferSlot 0x8A11-transform_feedback_buffer = BufferSlot 0x8C8E--- *** 3+ | GL_NV_copy_buffer-copy_read_buffer = BufferSlot 0x8F36-copy_write_buffer = BufferSlot 0x8F37-
− Graphics/OpenGLES/Caps.hs
@@ -1,508 +0,0 @@--- | 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-
− Graphics/OpenGLES/Core.hs
@@ -1,437 +0,0 @@--------------------------------------------------------------------------------- |--- Module : Graphics.OpenGLES.Core--- Copyright : (c) capsjac 2014--- License : LGPL-3 (see the file LICENSE)--- --- The neat and easy to use wrapper for OpenGL EmbedSystems (ES).--- The wrapper is optimised for mobile and have small footprint.--- Assuming OpenGL ES 2.0 or any later version, however, also works--- with OpenGL 4.1/4.3+ on desktop.-----------------------------------------------------------------------------------{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}-{-# LANGUAGE LambdaCase #-}-{-# LANGUAGE ScopedTypeVariables #-}-{-# LANGUAGE TypeOperators #-}-{-# LANGUAGE TypeFamilies #-}-module Graphics.OpenGLES.Core (- GL,- -- * Lifecycle- forkGL, stopGL, --destroyGL,- endFrameGL, runGL, --runGLRes- withGL, resetDrawQueue,- glLog, glReadLogs, glLogContents,- flushCommandQ, finishCommands,- glFrameCount, glFlipping, framesize,- - -- * Draw Operation- -- ** Clear Screen- -- | 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,- tessellationEvalS, tessellationCtrlS,- Program, module Data.Typeable,- TransformFeedback(..), ProgramBinary,- glCompile, glValidate,- - -- ** Uniform Variable- Uniform, uniform, ($=), UnifVal, UniformAssignment,- - -- ** Vertex Attribute Array- Attrib, attrib, normalized, divisor, (&=),- VertexArray, glVA,- VertexAttribute, AttrStruct, SetVertexAttr,- - -- ** Constant Vertex Attribute- constAttrib,- - -- ** Texture- -- | See "Graphics.OpenGLES.Texture"- - -- ** Vertex Picker- VertexPicker, takeFrom,- takeFromInstanced, takeFromMany,- VertexIx, byIndex, byIndexInstanced,- byIndices, byIndexLimited,- drawCallSequence- ) where-import Control.Applicative-import Control.Monad-import Control.Concurrent (forkOS, ThreadId, myThreadId, killThread)-import Control.Concurrent.Chan-import Control.Exception (catch, SomeException)-import Control.Future-import qualified Data.ByteString as B-import Data.IORef-import Data.Typeable-import Foreign-import Foreign.C.String (peekCStringLen)-import Graphics.OpenGLES.Base-import Graphics.OpenGLES.Buffer-import Graphics.OpenGLES.Caps-import Graphics.OpenGLES.Internal----- * Initialization--forkGL- :: IO Bool- -> GL ()- -> GL ()- -> IO ThreadId-forkGL resumeGL suspendGL swapBuffers = forkOS $ do- writeIORef drawOrExit (Just swapBuffers)- resumeGL -- Note: implicit glFlush here- putStrLn "bindEGL"- -- glRestoreLostObjects- let loop count = do- putStrLn $ "start draw " ++ show count- readChan drawQueue >>= id- loop (count + 1 :: Integer)- catch (loop 0) $ \(e :: SomeException) -> do- glLog $ "Rendering thread terminated: " ++ show e- suspendGL- putStrLn "unbindEGL"- writeIORef drawOrExit (Just (glLog "Fatal lifecycle bug"))--stopGL :: IO ()-stopGL = do- putStrLn "stopGL"- writeIORef drawOrExit Nothing- let waitGLThread = readIORef drawOrExit >>= \case- Just _ -> nop- Nothing -> waitGLThread- waitGLThread- putStrLn "Rendering has stopped."----destroyGL :: IO ()---destroyGL = runGL $ eglMakeCurrent Nothing, eglDestroyXXX ...--endFrameGL :: IO ()-endFrameGL = withGL go >>= waitFuture >> nop- where go = do- readIORef drawOrExit >>= \case- Just eglSwapBuffer -> do- eglSwapBuffer- modifyIORef frameCounter (+1)- Nothing -> myThreadId >>= killThread--runGL :: GL () -> IO ()-runGL io = writeChan drawQueue io----runGLRes :: GL () -> IO ()---runGLRes io = forkOS--withGL :: GL a -> IO (Future' a)-withGL io = asyncIO $ \update -> runGL (io >>= update . Finished)---- | drawQueue may have drawcalls that use previous context,--- so make it sure they are removed from the queue.-resetDrawQueue :: IO ()-resetDrawQueue = do- isEmpty <- isEmptyChan drawQueue- when (not isEmpty) (readChan drawQueue >> resetDrawQueue)--glReadLogs :: IO [String]-glReadLogs = do- isEmpty <- isEmptyChan errorQueue- if isEmpty- then return []- else (:) <$> readChan errorQueue <*> glReadLogs--glLogContents :: IO [String]-glLogContents = getChanContents errorQueue--flushCommandQ :: IO ()-flushCommandQ = runGL glFlush--finishCommands :: IO ()-finishCommands = runGL glFinish---- | @return ()@-nop :: Monad m => m ()-nop = return ()--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)- where f = fromIntegral----- * Drawing--glDraw :: Typeable p- => DrawMode- -> Program p- -> [RenderConfig]- -> [UniformAssignment p]- -> VertexArray p- -> VertexPicker- -> GL Bool-glDraw (DrawMode mode) prog@(Program pobj _ _ _) setState unifs- (VertexArray (vao, setVA)) (VertexPicker picker) = do- glUseProgram =<< getObjId pobj- sequence setState- sequence unifs- case extVAO of- Nothing -> setVA- Just (_, bind, _) -> getObjId vao >>= bind- --glValidate prog- picker mode---- |--- > renderTo $ do--- > bindFb defaultFramebuffer--- > viewport $ V4 0 0 512 512--- > depthRange $ V2 0.1 10.0--- > begin culling--- > cullFace hideBack-renderTo :: RenderConfig -> GL ()-renderTo = id----- ** Draw Mode--drawPoints, drawLines, drawLineLoop, drawLineStrip,- drawTriangles, triangleStrip, triangleFan :: DrawMode-drawPoints = DrawMode 0-drawLines = DrawMode 1-drawLineLoop = DrawMode 2-drawLineStrip = DrawMode 3-drawTriangles = DrawMode 4-triangleStrip = DrawMode 5-triangleFan = DrawMode 6----- ** Programmable Shader--vertexShader, fragmentShader, pixelShader,- computeShader, geometryShader,- tessellationEvalS, tessellationCtrlS- :: GLName -> B.ByteString -> Shader-vertexShader = Shader 0x8B31-fragmentShader = Shader 0x8B30--- | Same as 'fragmentShader'-pixelShader = fragmentShader--- | Compute shader requires /ES3.1+/-computeShader = Shader 0x91B9--- | Geometry shader requires /GL_EXT_geometry_shader (ES3.1)/-geometryShader = Shader 0x8DD9--- | Tessellation Shader requires /GL_EXT_tessellation_shader (ES3.1)/-tessellationEvalS = Shader 0x8E87--- | Tessellation Shader requires /GL_EXT_tessellation_shader (ES3.1)/-tessellationCtrlS = Shader 0x8E88---glCompile- :: Typeable p- => TransformFeedback- -> [Shader]- -> (Program p -> Int -> String -> Maybe ProgramBinary -> GL ())- -> GL (Progress [String] (Program p))-glCompile tf shaders progressLogger = do- glo <- newIORef undefined- let prog = Program glo tf shaders ([],[])- loadProgram prog (progressLogger prog)---- | glValidateProgram checks to see whether the executables contained in--- program can execute given the current OpenGL state.-glValidate :: Program p -> GL String-glValidate prog = alloca $ \intptr -> do- pid <- getObjId $ programGLO prog- glValidateProgram pid- glGetProgramiv pid c_info_log_length intptr- len <- fmap fromIntegral $ peek intptr- info <- allocaBytes len $ \buf -> do- glGetProgramInfoLog pid (fromIntegral len) nullPtr buf- peekCStringLen (buf, len-1)- glLog $ "validateProgram: " ++ info- return info----- ** Uniform Variable--type UniformAssignment p = GL ()--uniform- :: forall p a. (UnifVal a, Typeable p)- => GLName -> IO (Uniform p a)-uniform name = do- desc <- lookupVarDesc typ- case desc of- Nothing -> return $ Uniform (-1, 0, nullPtr)- Just (unifs, _) ->- case lookup name unifs of- Just unif -> validateType unif- Nothing -> glLog errmsg >> return (Uniform (-1, 0, nullPtr))- where- typ = typeRep (undefined :: Program p)- errmsg = "Uniform not found: " ++ name ++ " (" ++ show typ ++ ")"- validateType (loc, size, gltyp) = do- -- Prevent drawtime allocation (it leaks, though)- 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----- ** Vertex Attribute---- | @normalized color `divisor` 1 &= buffer@-attrib- :: forall p a. (VertexAttribute a, Typeable p)- => GLName -> IO (Attrib p a)-attrib name = do- desc <- lookupVarDesc typ- case desc of- Nothing -> return $ Attrib (-1, 0, 0, 0)- Just (_, attrs) ->- case lookup name attrs of- Just attr -> validateType attr- Nothing -> glLog errmsg >> return (Attrib (-1, 0, 0, 0))- where- typ = typeRep (undefined :: Program p)- errmsg = "Attribute not found: " ++ name ++ " (" ++ show typ ++ ")"- validateType (loc, size, gltyp) =- return $ Attrib (fromIntegral loc, size, 0, 0)--normalized :: Attrib p a -> Attrib p a-normalized (Attrib (i, s, 0, d)) = Attrib (i, s, 1, d)-normalized _ = error "inapplicable use of 'normalized'"--divisor :: Attrib p a -> Word32 -> Attrib p a-divisor (Attrib (i, s, n, _)) d = Attrib (i, s, n, d)--type SetVertexAttr p = GL ()--infix 0 &=-(&=) :: AttrStruct a p b => a -> Buffer b -> SetVertexAttr p-attribs &= buf = do- bindBuffer array_buffer buf- glVertexBuffer attribs buf---glVA :: [SetVertexAttr p] -> GL (VertexArray p)-glVA attrs = do- let setVA = sequence_ attrs- glo <- case extVAO of- Nothing -> return (error "GLO not used")- Just (gen, bind, del) ->- newGLO gen del (\i -> bind i >> setVA)- return $ VertexArray (glo, setVA)----- ** Constant Vertex Attribute--constAttrib :: VertexAttribute a => Attrib p a -> a -> SetVertexAttr p-constAttrib (Attrib (ix, _, _, _)) val = do- glDisableVertexAttribArray ix- glVertexAttrib ix val----- ** Vertex Picker---- Wrapping glDrawArrays-takeFrom :: Int32 -> Int32 -> VertexPicker-takeFrom first count =- VertexPicker $ \mode -> do- glDrawArrays mode first count- showError "glDrawArrays"---- Wrapping glDrawArraysInstanced[EXT]-takeFromInstanced :: Int32 -> Int32 -> Int32 -> VertexPicker-takeFromInstanced first count numInstances =- VertexPicker $ \mode -> do- glDrawArraysInstanced mode first count numInstances- showError "glDrawArraysInstanced"---- Wrapping glMultiDrawArraysEXT-takeFromMany :: [(Int32, Int32)] -> VertexPicker-takeFromMany list =- VertexPicker $ \mode -> do- forM_ list $ \(first, count) -> do- glDrawArrays mode first count- showError "glDrawArrays[]"- -- showError "glMultiDrawElementsEXT"- return True--- TakeFromManyRaw (Buffer Int32) (Buffer Word32)--sizePtr :: Int32 -> Ptr ()-sizePtr = intPtrToPtr . fromIntegral---- Wrapping glDrawElements-byIndex :: VertexIx a => Buffer a -> Int32 -> Int32 -> VertexPicker-byIndex buf first count =- let (typ, stride) = vxix buf in- VertexPicker $ \mode -> do- bindBuffer element_array_buffer buf- glDrawElements mode count typ (sizePtr $ first * stride)- showError "glDrawElements"---- Wrapping glDrawElementsInstanced[EXT]-byIndexInstanced :: VertexIx a => Buffer a -> Int32 -> Int32 -> Int32 -> VertexPicker-byIndexInstanced buf first count instances =- let (typ, stride) = vxix buf in- VertexPicker $ \mode -> do- bindBuffer element_array_buffer buf- glDrawElementsInstanced mode count typ- (sizePtr $ first * stride) instances- showError "glDrawElementsInstanced"---- Wrapping glMultiDrawElementsEXT-byIndices :: VertexIx a => Buffer a -> [(Int32, Int32)] -> VertexPicker-byIndices buf list =- let (typ, stride) = vxix buf in- VertexPicker $ \mode -> do- bindBuffer element_array_buffer buf- forM_ list $ \(first, count) -> do- glDrawElements mode count typ (sizePtr $ first * stride)- showError "glDrawElements[]"- return True- --withFirstCountArray list $ \cptr iptr clen -> do- -- glMultiDrawElementsEXT mode cptr typ iptr (clen * stride)- -- showError "glMultiDrawElementsEXT"--- ByIndicesRaw (Buffer w) (Buffer Word32) (Buffer Word32)---- Wrapping glDrawRangeElements[EXT]-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- bindBuffer element_array_buffer buf- glDrawElements mode count typ (sizePtr $ first * stride)- showError "glDrawElements'"- --showError "glDrawRangeElements[EXT]"--- FromToIndexRaw !BufferRef !Int !Int !GLsizei !GLenum !Int--drawCallSequence :: [VertexPicker] -> VertexPicker-drawCallSequence xs =- VertexPicker $ \mode ->- mapM_ (\(VertexPicker f) -> f mode) xs >> return True--
− Graphics/OpenGLES/Framebuffer.hs
@@ -1,217 +0,0 @@-{-# LANGUAGE ExistentialQuantification #-}-{-# LANGUAGE FlexibleInstances #-}-{-# 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,- - -- * Framebuffer- glFramebuffer,- CR(..), Attachable, DepthStencil,- colorOnly, depthImage, stencilImage, depthStencil,- - -- * Framebuffer Settings- bindFb, withFb,- defaultFramebuffer,- viewport, getViewport, withViewport,- depthRange, getDepthRange, withDepthRange- ) where-import Control.Applicative-import Data.IORef-import Foreign-import Graphics.OpenGLES.Base-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.-glRenderbuffer :: forall a b. InternalFormat a b => Int32 -> GL (V2 Int32) -> GL (Renderbuffer b)-glRenderbuffer sample askSize = do- let (_, _, internalformat) = ifmt ([] :: [(a,b)])- unsafeRenderbuffer sample askSize internalformat--unsafeRenderbuffer :: Int32 -> GL (V2 Int32) -> GLenum -> GL (Renderbuffer a)-unsafeRenderbuffer samples askSize internalformat = do- let sample = if hasES3 then samples else 0- dim <- newIORef undefined- Renderbuffer samples internalformat dim- <$> (newGLO glGenRenderbuffers glDeleteRenderbuffers $ \rb -> do- glBindRenderbuffer 0x8D41 rb- win@(V2 w h) <- askSize- writeIORef dim win- case sample of- 0 -> glRenderbufferStorage 0x8D41 internalformat w h- _ -> glRenderbufferStorageMultisample 0x8D41 samples internalformat w h- -- XXX restore content on EGL_CONTEXT_LOST if possible- )--instance Attachable Renderbuffer a where- glAttachToFramebuffer attachment (Renderbuffer _ _ dim glo) maxDims = do- rb <- getObjId glo- V2 w h <- readIORef dim- modifyIORef maxDims (\(V2 mw mh)-> V2 (max w mw) (max h mh))- glFramebufferRenderbuffer 0x8D40 attachment 0x8D41 rb--instance Attachable Texture a where- glAttachToFramebuffer attachment (Texture textgt ktx glo) maxDims = do- tex <- getObjId glo- k <- readIORef ktx- let w = fromIntegral $ ktxPixelWidth k- let h = fromIntegral $ ktxPixelHeight k- modifyIORef maxDims (\(V2 mw mh)-> V2 (max w mw) (max h mh))- let level = 0; layer = 0- -- XXX multisample texure sholud use texture_2d_multisample- case textgt of- x | x == texture_2d ->- glFramebufferTexture2D 0x8D40 attachment textgt tex level- x | x == texture_cube_map ->- glFramebufferTexture2D 0x8D40 attachment texture_cube_map_positive_x tex level- x | x == texture_2d_array ->- glFramebufferTextureLayer textgt attachment tex level layer- x | x == texture_3d ->- glFramebufferTextureLayer textgt attachment tex level layer- _ -> error "glAttachToFramebuffer: Invalid Texture target"--data CR = forall a c. (Attachable a c, ColorRenderable c) => CR (a c)-newtype DepthStencil = DepthStencil (IORef (V2 Int32) -> GL ())--colorOnly :: DepthStencil-colorOnly = DepthStencil (const $ return ())--depthImage :: (Attachable a d, DepthRenderable d) => a d -> DepthStencil-depthImage = DepthStencil . glAttachToFramebuffer 0x8D00--stencilImage :: (Attachable a s, StencilRenderable s) => a s -> DepthStencil-stencilImage = DepthStencil . glAttachToFramebuffer 0x8D20--depthStencil :: (Attachable a r, DepthRenderable r, StencilRenderable r) => a r -> DepthStencil-depthStencil = DepthStencil . glAttachToFramebuffer 0x821A---- | New 'Framebuffer' from specified 'ColorRenderable' and 'DepthStencil'-glFramebuffer :: [CR] -> DepthStencil -> GL Framebuffer-glFramebuffer colours (DepthStencil runds) = do- maxDims <- newIORef (V2 0 0)- Framebuffer maxDims- <$> (newGLO glGenFramebuffers glDeleteFramebuffers $ \fb -> do- glBindFramebuffer 0x8D40 fb- sequence_ $ zipWith (go maxDims) [0x8CE0..] colours- runds maxDims- )- where go maxDims attachment (CR cr) =- glAttachToFramebuffer attachment cr maxDims--bindFb :: Framebuffer -> GL ()-bindFb (Framebuffer _ glo) =- getObjId glo >>= glBindFramebuffer 0x8D40---- XXX maybe slow (untested)-withFb :: Framebuffer -> GL a -> GL a-withFb fb io = do- -- GL_FRAMEBUFFER_BINDING- fb' <- alloca $ \p -> glGetIntegerv 0x8CA6 p >> peek p- bindFb fb- result <- io- glBindFramebuffer 0x8D40 (fromIntegral fb')- return result---- XXX maybe slow (untested)-getViewport :: GL (V4 Int32)-getViewport = allocaArray 4 $ \p -> do- glGetIntegerv 0x0BA2 p -- GL_VIEWPORT- [x,y,w,h] <- peekArray 4 p- return $ V4 x y w h---- |--- Cliping current framebuffer. Note that origin is left-bottom.-viewport :: V4 Int32 -> GL ()-viewport (V4 x y w h) = glViewport x y w h--withViewport :: V4 Int32 -> GL a -> GL a-withViewport vp io = do- old <- getViewport- viewport vp- result <- io- viewport old- return result---- XXX maybe slow (untested)-getDepthRange :: GL (V2 Float)-getDepthRange = allocaArray 2 $ \p -> do- glGetFloatv 0x0B70 p -- GL_DEPTH_RANGE- [n,f] <- peekArray 2 p- return $ V2 n f--depthRange :: V2 Float -> GL ()-depthRange (V2 near far) = glDepthRangef near far--withDepthRange :: V2 Float -> GL a -> GL a-withDepthRange dr io = do- old <- getDepthRange- depthRange dr- result <- io- depthRange old- return result-
− Graphics/OpenGLES/Internal.hs
@@ -1,526 +0,0 @@-{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}-{-# LANGUAGE MultiParamTypeClasses #-}-{-# LANGUAGE FunctionalDependencies #-}-module Graphics.OpenGLES.Internal where-import Control.Applicative-import Control.Monad-import Control.Concurrent.Chan-import Control.Future-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)-import Graphics.OpenGLES.Base-import Graphics.TextureContainer.KTX-import Linear.V2-import System.IO.Unsafe (unsafePerformIO)----- * Internal---- glRestoreLostObjects :: GL ()--- saveBuffer :: Buffer -> IO ()--- saveBuffer buf = atomicModifyIORef' (buf:) bufferArchive--- bufferArchive = unsafePerformIO $ newIORef []--- addCompiledProgramResources--frameCounter :: IORef Int64-frameCounter = unsafePerformIO $ newIORef 0----- ** Logging--errorQueue :: Chan String-errorQueue = unsafePerformIO newChan-{-# NOINLINE errorQueue #-}--glLog :: String -> IO ()-glLog msg = writeChan errorQueue msg----- ** GL Error--data GLError = InvalidEnum | InvalidValue | InvalidOperation- | OutOfMemory | InvalidFrameBufferOperation- deriving Show--getError :: GL (Maybe GLError)-getError = unMarshal <$> glGetError- where unMarshal x = case x of- 0x0000 -> Nothing- 0x0500 -> Just InvalidEnum- 0x0501 -> Just InvalidValue- 0x0502 -> Just InvalidOperation- 0x0505 -> Just OutOfMemory- 0x0506 -> Just InvalidFrameBufferOperation--showError :: String -> GL Bool-showError location = do- --putStrLn location -- tmp- getError >>= maybe (return False) (\err -> do- glLog ("E " ++ location ++ ": " ++ show err)- return True )----- ** GL Object management--type GLO = IORef GLObj-data GLObj = GLObj GLuint (GL GLObj) (ForeignPtr GLuint)--getObjId glo = fmap go (readIORef glo)- where go (GLObj i _ _) = i--instance Show GLO where- show = show . unsafePerformIO . getObjId--newGLO- :: (GLsizei -> Ptr GLuint -> GL ())- -> (GLsizei -> Ptr GLuint -> GL ())- -> (GLuint -> GL ())- -> GL GLO-newGLO gen del init = do- ref <- newIORef undefined- writeIORef ref =<< genObj gen del init- -- addToGLOMS ref- return ref---- | genObj glo glGenBuffers glDeleteBuffers-genObj- :: (GLsizei -> Ptr GLuint -> GL ())- -> (GLsizei -> Ptr GLuint -> GL ())- -> (GLuint -> GL ())- -> GL GLObj-genObj genObjs delObjs initObj = do- fp <- mallocForeignPtr- withForeignPtr fp $ \ptr -> do- genObjs 1 ptr- showError "genObj"- obj <- peek ptr- addForeignPtrFinalizer fp $ do- -- XXX check whether context is valud or not- with obj $ \ptr -> do- delObjs 1 ptr- void $ showError "delObj"- initObj obj- return $ GLObj obj (genObj genObjs delObjs initObj) fp----- ** Types---- VertexArray--- 2.0-newtype HalfFloat = HalfFloat Word16 deriving (Num,Storable)-newtype FixedFloat = FixedFloat Int32 deriving (Num,Storable)--- 3.0-newtype Int2_10x3 = Int210x3 Int32 deriving (Num,Storable)-newtype Word2_10x3 = Word2_10x3 Int32 deriving (Num,Storable)---- Renderbuffer--- 2.0-newtype Word4444 = Word4444 Word16 deriving (Num,Storable)-newtype Word5551 = Word5551 Word16 deriving (Num,Storable)-newtype Word565 = Word565 Word16 deriving (Num,Storable)--- 3.0-newtype Word10f11f11f = Word10f11f11f Word32 deriving (Num,Storable)-newtype Word5999 = Word5999 Word32 deriving (Num,Storable)-newtype Word24_8 = Word24_8 Word32 deriving (Num,Storable)-newtype FloatWord24_8 = FloatWord24_8 (Float, Word32)--class GLType a where- glType :: m a -> Word32--instance GLType Int8 where glType _ = 0x1400-instance GLType Word8 where glType _ = 0x1401-instance GLType Int16 where glType _ = 0x1402-instance GLType Word16 where glType _ = 0x1403-instance GLType Int32 where glType _ = 0x1404-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-instance GLType Word2_10x3 where glType _ = 0x8368--instance GLType Word4444 where glType _ = 0x8033-instance GLType Word5551 where glType _ = 0x8034-instance GLType Word565 where glType _ = 0x8363-instance GLType Word10f11f11f where glType _ = 0x8C3B-instance GLType Word5999 where glType _ = 0x8C3E-instance GLType Word24_8 where glType _ = 0x84FA-instance GLType FloatWord24_8 where glType _ = 0x8DAD--r,rg,rgb,rgba,r_integer,rg_integer,rgb_integer,rgba_integer,- depth_component,depth_stencil :: GLenum-rgb = 0x1907-rgba = 0x1908-depth_component = 0x1902--r = 0x1903-rg = 0x8227-rg_integer = 0x8228-r_integer = 0x8D94-rgb_integer = 0x8D98-rgba_integer = 0x8D99-depth_stencil = 0x84F9----- ** Buffer--type GLArray a = V.Vector a---- Buffer usage id (latestArray or length)-data Buffer a = Buffer (IORef (Either (GLArray a) Int)) GLO--- DoubleBuffer GLO GLO (IORef (GLArray a))--newtype BufferUsage = BufferUsage GLenum--newtype BufferSlot = BufferSlot GLenum----- ** DrawMode--newtype DrawMode = DrawMode GLenum----- ** Graphics State---- | See "Graphics.OpenGLES.State"-type RenderConfig = GL ()-newtype Capability = Capability GLenum-newtype CullFace = Culling GLenum-newtype CompFunc = CompFunc GLenum-newtype StencilOp = StencilOp GLenum-newtype BlendOp = BlendOp GLenum-newtype BlendingFactor = BlendingFactor GLenum-newtype Hint = Hint GLenum----- ** Programmable Shader--type ShaderType = GLenum--data Shader = Shader ShaderType GLName B.ByteString- deriving Show--data TransformFeedback =- NoFeedback- | FeedbackArrays [String]- | FeedbackPacked [String]- deriving Show--data Program p = Program- { programGLO :: GLO- , programTF :: TransformFeedback- , programShaders :: [Shader]- , programVariables :: ([VarDesc], [VarDesc])- } deriving Show--type ProgramBinary = B.ByteString---- | name: (location, length of array, type)-type VarDesc = (String, (GLint, GLsizei, GLenum))---- binaryStore :: IORef [(String, B.ByteString)]--- or (FilePath -> IO B.ByteString)--- binaryStore = unsafePerformIO $ newIORef []--programDict :: IORef [(String, Program ())]-programDict = unsafePerformIO $ newIORef []--lookupVarDesc :: TypeRep -> IO (Maybe ([VarDesc], [VarDesc]))-lookupVarDesc rep = do- let name = show rep- entry <- lookup name <$> readIORef programDict- case entry of- Nothing -> do- glLog $ "Program '" ++ name ++ "' is not compiled."- return Nothing- Just prog -> return $ Just (programVariables prog)--loadProgram- :: Typeable p- => Program p- -> (Int -> String -> Maybe ProgramBinary -> GL ())- -> GL (Progress [String] (Program p))-loadProgram prog@(Program glo tf shaders ([],[])) progressLogger = do- let numShaders = length shaders- let progname = show (typeRep prog)- let msg = "Start compiling: " ++ progname- glLog msg- progressLogger 0 msg Nothing- - pid <- glCreateProgram- res <- if pid == 0 then do- showError "glCreateProgram"- let msg = "Fatal: glCreateProgram returned 0."- progressLogger (numShaders + 1) msg Nothing- return $ Fixme [msg]- else do- results <- mapM (loadShader progressLogger) (zip [1..] shaders)- -- putStrLn $ show results- let errors = [msg | Fixme [msg] <- results]- res <- if errors /= []- then return $ Fixme errors- else do- forM_ results $ \(Finished sid) -> do- glAttachShader pid sid- showError "glAttachShader"- glLinkProgram pid- showError "glLinkProgram"- postLink progname numShaders prog pid progressLogger- sequence_ [glDeleteShader s | Finished s <- results]- return res- glLog "---------------"- return res--postLink- :: Typeable p- => String -> Int -> Program p -> GLuint- -> (Int -> String -> Maybe ProgramBinary -> GL ())- -> GL (Progress [String] (Program p))-postLink progname numShaders prog pid- progressLogger = alloca $ \intptr -> do- glGetProgramiv pid c_link_status intptr- linkStatus <- peek intptr- glGetProgramiv pid c_info_log_length intptr- len <- fmap fromIntegral $ peek intptr- info <- allocaBytes len $ \buf -> do- glGetProgramInfoLog pid (fromIntegral len) nullPtr buf- peekCStringLen (buf, len-1)- let info' = if info == "" then "" else '\n':info- if linkStatus == 0 then do- let msg = "Cannot link program " ++ progname ++ info'- glLog msg- progressLogger (numShaders + 1) msg Nothing- glDeleteProgram pid- return $ Fixme [msg]- else do- -- obtain shader variables- vars <- getActiveVariables pid- putStrLn . show $ vars- fp <- newForeignPtr nullPtr (glDeleteProgram pid)- writeIORef (programGLO prog) (GLObj pid (error "not impl: Program implicit recompilation") fp)- let msg = "Successfully linked " ++ progname ++ "!" ++ info'- glLog msg- progressLogger (numShaders + 1) msg Nothing- let prog' = prog { programVariables = vars }- atomicModifyIORef' programDict $! \xs ->- ((show (typeRep prog), prog'):xs, ())- return $ Finished prog'--c_link_status = 0x8B82-c_info_log_length = 0x8B84--{--GL_PROGRAM_BINARY_RETRIEVABLE_HINT 0x8257-GL_PROGRAM_BINARY_LENGTH 0x8741-GL_NUM_PROGRAM_BINARY_FORMATS 0x87FE-loadProgramBinary :: Program p -> GLuint -> GL ()-loadProgramBinary (Program tf _ ref) pid = do- bs <- ...- let (fp, offset, len) = toForeignPtr bs- withForeignPtr fp $ \p -> do- fmt <- peek (p `plusPtr` offset)- glProgramBinary pid fmt (p `plusPtr` (offset+4)) (fromIntegral len)- showError "glProgramBinary"- if err, writeIORef ref Broken- postLink progname numShaders ref pid--}--loadShader- :: (Int -> String -> Maybe ProgramBinary -> GL ())- -> (Int, Shader)- -> GL (Progress [String] GLuint)-loadShader progressLogger (i, Shader shaderType name bs) = do- sid <- glCreateShader shaderType- if sid == 0 then do- showError "glCreateShader"- let msg = "Fatal: glCreateShader returned 0."- glLog msg- progressLogger i msg Nothing- return $ Fixme [name ++ ": " ++ msg]- else B.useAsCString bs $ \src -> do- withArray [src] $ \ptr -> do- glShaderSource sid 1 ptr nullPtr- showError "glShaderSource"- glCompileShader sid- showError "glCompileShader"- alloca $ \pint -> do- glGetShaderiv sid c_compile_status pint- compiled <- peek pint- glGetShaderiv sid c_info_log_length pint- len <- fmap fromIntegral $ peek pint- info <- allocaBytes len $ \buf -> do- glGetShaderInfoLog sid (fromIntegral len) nullPtr buf- peekCStringLen (buf, len-1)- let info' = if info == "" then "" else '\n':info- if compiled == 0 then do- let msg = "Could not compile " ++ name ++ info'- glLog msg- progressLogger i msg Nothing- glDeleteShader sid- return $ Fixme [msg]- else do- let msg = name ++ " ... done" ++ info'- glLog msg- progressLogger i msg Nothing- return $ Finished sid--c_compile_status = 0x8B81--getActiveVariables :: GLuint -> GL ([VarDesc], [VarDesc])-getActiveVariables pid = do- sptr <- malloc- glGetProgramiv pid c_active_uniform_max_length sptr- uMaxLen <- peek sptr- glGetProgramiv pid c_active_attribute_max_length sptr- aMaxLen <- peek sptr- let maxlen = max uMaxLen aMaxLen- str <- mallocBytes (fromIntegral maxlen)- - glGetProgramiv pid c_active_uniforms sptr- numU <- peek sptr- glGetProgramiv pid c_active_attributes sptr- numA <- peek sptr- - tptr <- malloc- uniforms <- forM [0..numU-1] $ \ index -> do- -- avoid [0..maxBound] bug- let i = (fromIntegral :: GLint -> GLuint) index- glGetActiveUniform pid i maxlen nullPtr sptr tptr str- name <- peekCString str- loc <- glGetUniformLocation pid str- size <- peek sptr- typ <- peek tptr- return (name, (loc, size, typ))- - attribs <- forM [0..numA-1] $ \index -> do- let i = fromIntegral index- glGetActiveAttrib pid i maxlen nullPtr sptr tptr str- name <- peekCString str- loc <- glGetAttribLocation pid str- size <- peek sptr- typ <- peek tptr- putStrLn . show $ (index, loc)- return (name, (loc, size, typ))- free str; free sptr; free tptr- return (uniforms, attribs)--c_active_uniform_max_length = 0x8B87-c_active_attribute_max_length = 0x8B8A-c_active_uniforms = 0x8B86-c_active_attributes = 0x8B89----- ** Uniform---- (location, length of array or 1, ptr)--- Uniform location is unique to each program-newtype Uniform p a = Uniform (GLint, GLsizei, Ptr ())---- -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 ())---instance UnifVal a => GLVar Uniform UniformValue a where--- unif $= value = unif $- unifVal value--- unif $- value = (coerce unif, coerce value)---instance AttrStruct a => GLVar Attrib Buffer a where--- attr $= value = attr $- buffer "tmp" value--- attr $- buffer = (coerce attr, coerce buffer)--- UnifVal a => (Uniform p a, a)--- UnifStruct a => (UniformBlock p a, Buffer a)--- GLStruct? std130?----- ** Attrib---- Attrib program glsl_type = (index, size, normalize, divisor)-newtype Attrib p a = Attrib (GLuint, GLsizei, GLboolean, GLuint)- deriving Show---- | GLSL vertex attribute type-class VertexAttribute a where- glVertexAttrib :: GLuint -> a -> GL ()---- | A set of 'VertexAttribute's packed in a 'Buffer'-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---- (glo, init)-newtype VertexArray p = VertexArray (GLO, GL ())----- ** Vertex Picker--newtype VertexPicker = VertexPicker (GLenum -> GL Bool)--class VertexIx a where- vxix :: m a -> (GLenum, GLint)-instance VertexIx Word8 where- vxix _ = (0x1401, 1)-instance VertexIx Word16 where- vxix _ = (0x1403, 2)-instance VertexIx Word32 where- vxix _ = (0x1405, 4)----- ** Draw Operation--newtype BufferMask = BufferMask GLenum deriving Num---- [MainThread, GLThread]--- if Nothing, main GL thread should stop before the next frame.-drawOrExit :: IORef (Maybe (GL ())) -- eglSwapBuffer inside-drawOrExit = unsafePerformIO $ newIORef Nothing--drawQueue :: Chan (GL ())-drawQueue = unsafePerformIO newChan-{-# NOINLINE drawQueue #-}----- ** Framebuffer--data Framebuffer = Framebuffer (IORef (V2 GLsizei)) GLO-data Renderbuffer a = Renderbuffer GLint GLenum (IORef (V2 GLsizei)) GLO--class Attachable a b where- glAttachToFramebuffer :: GLenum -> a b -> IORef (V2 GLsizei) -> GL ()--defaultFramebuffer :: Framebuffer-defaultFramebuffer = unsafePerformIO $ do- glo <- newIORef $ GLObj 0 undefined undefined- dummy <- newIORef undefined- return $ Framebuffer dummy glo----- ** Texture---- glo, target, ktx-data Texture a = Texture GLenum (IORef Ktx) GLO--texture_2d, texture_cube_map, texture_2d_array, texture_3d,- texture_cube_map_positive_x :: Word32-texture_2d = 0x0DE1-texture_cube_map = 0x8513-texture_2d_array = 0x8C1A-texture_3d = 0x806F--texture_cube_map_positive_x = 0x8515
− Graphics/OpenGLES/PixelFormat.hs
@@ -1,231 +0,0 @@-{-# LANGUAGE CPP #-}-{-# LANGUAGE MultiParamTypeClasses #-}-{-# LANGUAGE FunctionalDependencies #-}-{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE UndecidableInstances #-}-module Graphics.OpenGLES.PixelFormat where-import Data.Proxy-import Data.Int-import Data.Word-import Graphics.OpenGLES.Internal-import Graphics.OpenGLES.Base-import Linear---- Texture Only Sized Internal Formats-data R8snorm-data Rg8snorm-data Rgb8snorm-data Rgba8snorm-data Srgb8-data R16f-data Rg16f-data Rgb16f-data Rgba16f-data R32f-data Rg32f-data Rgb32f-data Rgba32f-data B10fG11fR11f-data E5bgr9-data Rgb8i-data Rgb8ui-data Rgb16i-data Rgb16ui-data Rgb32i-data Rgb32ui---- Color Renderable Sized Internal Formats-data R8-data Rg8-data Rgb8-data Rgb565-data Rgba4-data Rgb5a1-data Rgba8-data A2bgr10-data A2bgr10ui-data Srgb8a8-data R8i-data R8ui-data R16i-data R16ui-data R32i-data R32ui-data Rg8i-data Rg8ui-data Rg16i-data Rg16ui-data Rg32i-data Rg32ui-data Rgba8i-data Rgba8ui-data Rgba16i-data Rgba16ui-data Rgba32i-data Rgba32ui---- Depth/Stencil Renderable Sized Internal Formats-data Depth16-data Depth24-data Depth32f-data Depth24Stencil8-data Depth32fStencil8-data Stencil8 -- optional---- Effective internal formats which do not correspond to GL constants-data Luminance8Alpha8-data Luminance8-data Alpha8---class InternalFormat a b | b -> a where- ifmt :: p (a, b) -> (GLenum, GLenum, GLenum)--class ExternalFormat a b where- efmt :: p (a, b) -> (GLenum, GLenum, GLenum)--class InternalFormat a b => ES2Format a b where- es2fmt :: p (a, b) -> (GLenum, GLenum, GLenum)- es2fmt x = case ifmt x of- (format, typ, _) -> (format, typ, format)--#define PixelFormat(_dim, _type, _tag, _format, _internal_fmt) \-instance InternalFormat (_dim _type) _tag where \- {-# INLINE ifmt #-}; \- ifmt _ = (_format, glType ([] :: [_type]), _internal_fmt) \--PixelFormat(, Int8, R8snorm, r, 0x8F94)-PixelFormat(V2, Int8, Rg8snorm, rg, 0x8F95)-PixelFormat(V3, Int8, Rgb8snorm, rgb, 0x8F96)-PixelFormat(V4, Int8, Rgba8snorm, rgba, 0x8F97)-PixelFormat(V3, Word8, Srgb8, rgb, 0x8C41)-PixelFormat(, HalfFloat, R16f, r, 0x822D)-PixelFormat(V2, HalfFloat, Rg16f, rg, 0x822F)-PixelFormat(V3, HalfFloat, Rgb16f, rgb, 0x881B)-PixelFormat(V4, HalfFloat, Rgba16f, rgba, 0x881A)-PixelFormat(, Float, R32f, r, 0x822E)-PixelFormat(V2, Float, Rg32f, rg, 0x8230)-PixelFormat(V3, Float, Rgb32f, rgb, 0x8815)-PixelFormat(V4, Float, Rgba32f, rgba, 0x8814)-PixelFormat(, Word10f11f11f, B10fG11fR11f, rgb, 0x8C3A)-PixelFormat(, Word5999, E5bgr9, rgb, 0x8C3D)-PixelFormat(V3, Int8, Rgb8i, rgb_integer, 0x8D8F)-PixelFormat(V3, Word8, Rgb8ui, rgb_integer, 0x8D7D)-PixelFormat(V3, Int16, Rgb16i, rgb_integer, 0x8D89)-PixelFormat(V3, Word16, Rgb16ui, rgb_integer, 0x8D77)-PixelFormat(V3, Int32, Rgb32i, rgb_integer, 0x8D83)-PixelFormat(V3, Word32, Rgb32ui, rgb_integer, 0x8D71)--PixelFormat(, Word8, R8, r, 0x8229)-PixelFormat(V2, Word8, Rg8, rg, 0x822B)-PixelFormat(V3, Word8, Rgb8, rgb, 0x8051)-PixelFormat(, Word565, Rgb565, rgb, 0x8D62)-PixelFormat(, Word4444, Rgba4, rgba, 0x8056)-PixelFormat(, Word5551, Rgb5a1, rgba, 0x8057)-PixelFormat(V4, Word8, Rgba8, rgba, 0x8058)-PixelFormat(, Word2_10x3, A2bgr10, rgba, 0x8059)-PixelFormat(, Word2_10x3, A2bgr10ui, rgba_integer, 0x906F)-PixelFormat(V4, Word8, Srgb8a8, rgba, 0x8C43)-PixelFormat(, Int8, R8i, r_integer, 0x8231)-PixelFormat(, Word8, R8ui, r_integer, 0x8232)-PixelFormat(, Int16, R16i, r_integer, 0x8233)-PixelFormat(, Word16, R16ui, r_integer, 0x8234)-PixelFormat(, Int32, R32i, r_integer, 0x8235)-PixelFormat(, Word32, R32ui, r_integer, 0x8236)-PixelFormat(V2, Int8, Rg8i, rg_integer, 0x8237)-PixelFormat(V2, Word8, Rg8ui, rg_integer, 0x8238)-PixelFormat(V2, Int16, Rg16i, rg_integer, 0x8239)-PixelFormat(V2, Word16, Rg16ui, rg_integer, 0x823A)-PixelFormat(V2, Int32, Rg32i, rg_integer, 0x823B)-PixelFormat(V2, Word32, Rg32ui, rg_integer, 0x823C)-PixelFormat(V4, Int8, Rgba8i, rgba_integer, 0x8D8E)-PixelFormat(V4, Word8, Rgba8ui, rgba_integer, 0x8D7C)-PixelFormat(V4, Int16, Rgba16i, rgba_integer, 0x8D88)-PixelFormat(V4, Word16, Rgba16ui, rgba_integer, 0x8D76)-PixelFormat(V4, Int32, Rgba32i, rgba_integer, 0x8D82)-PixelFormat(V4, Word32, Rgba32ui, rgba_integer, 0x8D70)--PixelFormat(, Word16, Depth16, depth_component, 0x81A5)-PixelFormat(, Word32, Depth24, depth_component, 0x81A6)-PixelFormat(, Float, Depth32f, depth_component, 0x8CAC)-PixelFormat(, Word24_8, Depth24Stencil8, depth_stencil, 0x88F0)-PixelFormat(, FloatWord24_8, Depth32fStencil8, depth_stencil, 0x8CAD)---PixelFormat(, Word8, StencilIx8, 0x8D48, 0x1901) -- /GL_OES_texture_stencil8/-PixelFormat(V2, Word8, Luminance8Alpha8, 0x190A, 0x190A)-PixelFormat(, Word8, Luminance8, 0x1909, 0x1909)-PixelFormat(, Word8, Alpha8, 0x1906, 0x1906)--instance InternalFormat a b => ExternalFormat a b where- {-# INLINE efmt #-}- efmt = ifmt--#define PixelFormat2(_dim, _type, _tag, _format, _internal_fmt) \-instance ExternalFormat (_dim _type) _tag where \- {-# INLINE efmt #-}; \- efmt _ = (_format, glType (Proxy :: Proxy _type), _internal_fmt) \--PixelFormat2(V4, Word8, Rgb5a1, rgba, 0x8057) -- RGBA W8-PixelFormat2(V4, Word8, Rgba4, rgba, 0x8056) -- RGBA W8-PixelFormat2(, Word2_10x3, Rgb5a1, rgba, 0x8057) -- ABGR 2_10_10_10-PixelFormat2(V4, Float, Rgba16f, rgba, 0x881A) -- RGBA Float-PixelFormat2(V3, Word8, Rgb565, rgb, 0x8D62) -- RGB W8-PixelFormat2(V3, HalfFloat, B10fG11fR11f, rgb, 0x8C3A) -- RGB HalfFloat-PixelFormat2(V3, HalfFloat, E5bgr9, rgb, 0x8C3D) -- RGB HalfFloat-PixelFormat2(V3, Float, B10fG11fR11f, rgb, 0x8C3A) -- RGB Float-PixelFormat2(V3, Float, E5bgr9, rgb, 0x8C3D) -- RGB Float-PixelFormat2(V2, Float, Rg16f, rg, 0x822F) -- RG Float-PixelFormat2(, Float, R16f, r, 0x822D) -- R Float-PixelFormat2(, Word32, Depth16, depth_component, 0x81A5) -- D W32--instance ES2Format (V4 Word8) Rgba8 -- (RGBA,UByte)-instance ES2Format Word4444 Rgba4 -- (RGBA,UShort4444)-instance ES2Format Word5551 Rgb5a1 -- (RGBA,UShort5551)-instance ES2Format (V3 Word8) Rgb8 -- (RGB,UByte)-instance ES2Format Word565 Rgb565 -- (RGB,UShort565)-instance ES2Format (V2 Word8) Luminance8Alpha8 -- (LUMINANCE_ALPHA,UByte)-instance ES2Format Word8 Luminance8 -- (LUMINANCE,UByte)-instance ES2Format Word8 Alpha8 -- (ALPHA,UByte)---class ColorRenderable a where-instance ColorRenderable R8-instance ColorRenderable Rg8-instance ColorRenderable Rgb8-instance ColorRenderable Rgb565-instance ColorRenderable Rgba4-instance ColorRenderable Rgb5a1-instance ColorRenderable Rgba8-instance ColorRenderable A2bgr10-instance ColorRenderable A2bgr10ui-instance ColorRenderable Srgb8a8-instance ColorRenderable R8i-instance ColorRenderable R8ui-instance ColorRenderable R16i-instance ColorRenderable R16ui-instance ColorRenderable R32i-instance ColorRenderable R32ui-instance ColorRenderable Rg8i-instance ColorRenderable Rg8ui-instance ColorRenderable Rg16i-instance ColorRenderable Rg16ui-instance ColorRenderable Rg32i-instance ColorRenderable Rg32ui-instance ColorRenderable Rgba8i-instance ColorRenderable Rgba8ui-instance ColorRenderable Rgba16i-instance ColorRenderable Rgba16ui-instance ColorRenderable Rgba32i-instance ColorRenderable Rgba32ui--class DepthRenderable a where-instance DepthRenderable Depth16-instance DepthRenderable Depth24-instance DepthRenderable Depth32f-instance DepthRenderable Depth24Stencil8-instance DepthRenderable Depth32fStencil8--class StencilRenderable a where-instance StencilRenderable Depth24Stencil8-instance StencilRenderable Depth32fStencil8-instance StencilRenderable Stencil8 -- optional-
− Graphics/OpenGLES/State.hs
@@ -1,207 +0,0 @@--- | Draw configurations on Rasterization and Per-Fragment Operations.--- Note: Graphic state is sticky.-module Graphics.OpenGLES.State (- -- * Graphics State- lineWidth, polygonOffset, scissor,- sampleCoverage,- -- ** Capability- begin, end,- Capability,- culling,- blend,- dither,- stencilTest,- depthTest,- scissorTest,- polygonOffsetFill,- sampleAlphaToCoverage,- multisampleCoverage,- primitiveRestartFixedIndex,- rasterizerDiscard,- -- ** Cull Face- cullFace, frontFace,- CullFace, hideFront, hideBack, hidePolygons,- -- ** Stencil- stencilFunc, stencilFuncSeparate,- stencilOp, stencilOpSeparate,- StencilOp, opZero, opKeep, opReplace, opIncr,- opDecr, opInvert, opIncrWrap, opDecrWrap,- -- ** Depth- depthFunc,- CompFunc, glNever, glLess, glEqual, glLessEq,- glGreater, glNotEq, glGreatEq, glAlways,- -- ** Blend- blendEquation, blendEquationSeparate,- blendFunc, blendFuncSeparate,- Clampf, blendColor,- BlendOp, addBlending, subBlending, reverseSubBlending,- BlendingFactor, factorZero, factorOne, srcColor, oneMinusSrcColor,- srcAlpha, oneMinusSrcAlpha, dstAlpha, oneMinusDstAlpha,- dstColor, oneMinusDstColor, srcAlphaSaturate,- constColor, oneMinusConstColor, constAlpha, oneMinusConstAlpha,- -- ** Hint- generateMipmapHint, fragmentShaderDerivativeHint,- Hint, dontCare, nicest, fastest- ) where-import Data.Int-import Data.Word-import Graphics.OpenGLES.Base-import Graphics.OpenGLES.Internal---- | Float value clamped to [0,1]-type Clampf = Float--begin :: Capability -> GL ()-begin (Capability cap) = glEnable cap--end :: Capability -> GL ()-end (Capability cap) = glDisable cap----- *** Capability--culling = Capability 0x0B44-blend = Capability 0x0BE2-dither = Capability 0x0BD0-stencilTest = Capability 0x0B90-depthTest = Capability 0x0B71-scissorTest = Capability 0x0C11-polygonOffsetFill = Capability 0x8037-sampleAlphaToCoverage = Capability 0x809E-multisampleCoverage = Capability 0x80A0-primitiveRestartFixedIndex = Capability 0x8D69-rasterizerDiscard = Capability 0x8C89--lineWidth :: Float -> GL ()-lineWidth = glLineWidth---- | CW -> True, CCW -> False-frontFace :: Bool -> GL ()-frontFace cw = glFrontFace (if cw then 0x900 else 0x901)--cullFace :: CullFace -> GL ()-cullFace (Culling x) = glCullFace x---- *** CullFace--hideFront = Culling 0x0404-hideBack = Culling 0x0405-hidePolygons = Culling 0x408--polygonOffset- :: Float -- ^ factor- -> Float -- ^ units- -> GL ()-polygonOffset factor units = glPolygonOffset factor units--scissor- :: Int32 -- ^ left- -> Int32 -- ^ bottom- -> Int32 -- ^ width- -> Int32 -- ^ height- -> GL ()-scissor l b w h = glScissor l b w h--sampleCoverage- :: Float -- ^ multisample coverage value [0,1]- -> Bool -- ^ whether coverage masks should be inverted or not- -> GL ()-sampleCoverage value invert =- glSampleCoverage value (if invert then 1 else 0)--stencilFunc :: CompFunc -> Int32 -> Word32 -> GL ()-stencilFunc (CompFunc func) comp mask =- glStencilFunc func comp mask--stencilFuncSeparate :: CullFace -> CompFunc -> Int32 -> Word32 -> GL ()-stencilFuncSeparate (Culling cull) (CompFunc func) comp mask =- glStencilFuncSeparate cull func comp mask--stencilOp :: StencilOp -> StencilOp -> StencilOp -> GL ()-stencilOp (StencilOp sfail) (StencilOp dpfail) (StencilOp dppass) =- glStencilOp sfail dpfail dppass--stencilOpSeparate :: CullFace -> StencilOp -> StencilOp -> StencilOp -> GL ()-stencilOpSeparate (Culling cull) (StencilOp sfail)- (StencilOp dpfail) (StencilOp dppass) =- glStencilOpSeparate cull sfail dpfail dppass--depthFunc :: CompFunc -> GL ()-depthFunc (CompFunc func) = glDepthFunc func---- *** CompFunc--glNever = CompFunc 0x0200-glLess = CompFunc 0x0201-glEqual = CompFunc 0x0202-glLessEq = CompFunc 0x0203-glGreater = CompFunc 0x0204-glNotEq = CompFunc 0x0205-glGreatEq = CompFunc 0x0206-glAlways = CompFunc 0x0207---- *** StencilOp--opZero = StencilOp 0x0000-opKeep = StencilOp 0x1E00-opReplace = StencilOp 0x1E01-opIncr = StencilOp 0x1E02-opDecr = StencilOp 0x1E03-opInvert = StencilOp 0x150A-opIncrWrap = StencilOp 0x8507-opDecrWrap = StencilOp 0x8508--blendEquation :: BlendOp -> GL ()-blendEquation (BlendOp mode) = glBlendEquation mode--blendEquationSeparate :: BlendOp -> BlendOp -> GL ()-blendEquationSeparate (BlendOp rgb) (BlendOp a) =- glBlendEquationSeparate rgb a---- *** BlendOp--addBlending = BlendOp 0x8006-subBlending = BlendOp 0x800A-reverseSubBlending = BlendOp 0x800B--blendFunc :: BlendingFactor -> BlendingFactor -> GL ()-blendFunc (BlendingFactor src) (BlendingFactor dest) =- glBlendFunc src dest--blendFuncSeparate :: BlendingFactor -> BlendingFactor -> BlendingFactor -> BlendingFactor -> GL ()-blendFuncSeparate (BlendingFactor srgb) (BlendingFactor drgb)- (BlendingFactor salpha) (BlendingFactor dalpha) =- glBlendFuncSeparate srgb drgb salpha dalpha---- *** BlendingFactor--factorZero = BlendingFactor 0-factorOne = BlendingFactor 1-srcColor = BlendingFactor 0x300-oneMinusSrcColor = BlendingFactor 0x301-srcAlpha = BlendingFactor 0x302-oneMinusSrcAlpha = BlendingFactor 0x303-dstAlpha = BlendingFactor 0x304-oneMinusDstAlpha = BlendingFactor 0x305-dstColor = BlendingFactor 0x306-oneMinusDstColor = BlendingFactor 0x307-srcAlphaSaturate = BlendingFactor 0x308-constColor = BlendingFactor 0x8001-oneMinusConstColor = BlendingFactor 0x8002-constAlpha = BlendingFactor 0x8003-oneMinusConstAlpha = BlendingFactor 0x8004--blendColor :: Clampf -> Clampf -> Clampf -> Clampf -> GL ()-blendColor r g b a = glBlendColor r g b a--generateMipmapHint :: Hint -> GL ()-generateMipmapHint (Hint hint) = glHint 0x8192 hint--fragmentShaderDerivativeHint :: Hint -> GL ()-fragmentShaderDerivativeHint (Hint hint) = glHint 0x8B8B hint---- *** Hint--dontCare = Hint 0x1100-fastest = Hint 0x1101-nicest = Hint 0x1102
− Graphics/OpenGLES/Sync.hs
@@ -1,101 +0,0 @@-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-
− Graphics/OpenGLES/Texture.hs
@@ -1,341 +0,0 @@-{-# LANGUAGE RecordWildCards #-}-{-# LANGUAGE ScopedTypeVariables #-}-module Graphics.OpenGLES.Texture (- -- * Texture- Texture,- texSlot,- - glLoadKtx,- glLoadKtxFile,- - -- ** Unsafe Operations- glLoadTex2D,- --glLoadCubeMap,- glLoadTex3D,- glLoadTex2DArray,-- -- * Sampler- setSampler,- Sampler(..),- - MagFilter,- magNearest,- magLinear,- - MinFilter,- minNearest,- minLinear,- nearestMipmapNearest,- linearMipmapNearest,- nearestMipmapLinear,- linearMipmapLinear,- - WrapMode,- tiledRepeat,- clampToEdge,- mirroredRepeat- ) where-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.Caps-import Graphics.OpenGLES.Internal-import Graphics.OpenGLES.PixelFormat-import Graphics.TextureContainer.KTX-import Foreign hiding (void)-import Linear--- XXX Texture DoubleBufferring--newtype Texture3D a = Texture3D (Texture a)-newtype CubeMap a = CubeMap (Texture a)-newtype Tex2DArray a = Tex2DArray (Texture a)---- Iso---class Tex a where--- fromTexture :: Texture b -> a b---instance Tex Texture where--- fromTexture = id---instance Tex Texture3D where--- fromTexture = Texture3D---instance Tex CubeMap where--- fromTexture = CubeMap---instance Tex Tex2DArray where--- fromTexture = Tex2DArray--texSlot :: Word32 -> Texture a -> GL ()-texSlot slot (Texture target _ glo) = do- tex <- getObjId glo- glActiveTexture (0x84C0 + slot) -- GL_TEXTURE_0 + slot- glBindTexture target tex--data TextureData =- PlainTexture- | PVRTC -- PowerVR SGX(iOS), Samsung S5PC110(Galaxy S/Tab)- | ATITC -- ATI Imageon, Qualcomm Adreno- | S3TC -- NVIDIA Tegra2, ZiiLabs ZMS-08 HD- | ETC -- Android, ARM Mali- -- .| _3Dc -- ATI, NVidia- -- .| Palette---- | Load a GL Texture object from Ktx texture container.--- See <https://github.com/KhronosGroup/KTX/blob/master/lib/loader.c>--- TODO: reject 2DArray/3D texture if unsupported-glLoadKtx :: Maybe (Texture a) -> Ktx -> GL (Texture a)-glLoadKtx oldtex ktx@Ktx{..} = do- --putStrLn.show $ ktx- case checkKtx ktx of- Left msg -> glLog (msg ++ ": " ++ ktxName) >> newTexture oldtex 0 ktx- Right (comp, target, genmip) -> do- tex <- newTexture oldtex target ktx- -- ES2 compat;- let fmt = if comp || sizedFormats- then if ktxGlInternalFormat == 0x8D64 && hasETC2 -- ETC1_RGB8_OES- then 0x9274 -- GL_COMPRESSED_RGB8_ETC2- else ktxGlInternalFormat- else ktxGlBaseInternalFormat- putStrLn . show $ (comp, target,genmip, ktxGlInternalFormat, hasETC2, fmt)- let uploadMipmap _ _ _ _ [] = return ()- uploadMipmap level w h d (faces:rest) = do- case (comp, target) of- -- 2D Compressed- (True, 0x0DE1) -> do- B.useAsCStringLen (head faces) $ \(ptr, len) ->- glCompressedTexImage2D target level fmt w h 0 (i len) (castPtr ptr)- -- 2D Uncompressed- (False, 0x0DE1) -> do- B.useAsCString (head faces) $ \ptr ->- glTexImage2D target level fmt w h 0 ktxGlFormat ktxGlType (castPtr ptr)- -- Cube Map Compressed- (True, 0x8513) -> do- forM_ (zip [texture_cube_map_positive_x..] faces) $ \(face, image) ->- B.useAsCStringLen image $ \(ptr, len) ->- glCompressedTexImage2D face level fmt w h 0 (i len) (castPtr ptr)- -- Cube Map Uncompressed- (False, 0x8513) -> do- forM_ (zip [texture_cube_map_positive_x..] faces) $ \(face, image) ->- B.useAsCString image $ \ptr ->- glTexImage2D face level fmt w h 0 ktxGlFormat ktxGlType (castPtr ptr)- -- 3D Compressed- (True, 0x806F) -> do- B.useAsCStringLen (head faces) $ \(ptr, len) ->- glCompressedTexImage3D target level fmt w h d 0 (i len) (castPtr ptr)- -- 3D Uncompressed- (False, 0x806F) -> do- B.useAsCString (head faces) $ \ptr ->- glTexImage3D target level fmt w h d 0 ktxGlFormat ktxGlType (castPtr ptr)- -- 2D Array Compressed- (True, 0x8C1A) -> do- B.useAsCStringLen (head faces) $ \(ptr, len) ->- glCompressedTexImage3D target level fmt w h ktxNumElems 0 (i len) (castPtr ptr)- -- 2D Array Uncompressed- (False, 0x8C1A) -> do- B.useAsCString (head faces) $ \ptr ->- glTexImage3D target level fmt w h ktxNumFaces 0 ktxGlFormat ktxGlType (castPtr ptr)- showError $ "gl{,Compressed}TexImage{2D,3D} " ++ ktxName- uploadMipmap (level + 1) (div2 w) (div2 h) (div2 d) rest- - where- div2 x = max 1 (div x 2)- i = fromIntegral-- uploadMipmap 0 ktxPixelWidth ktxPixelHeight ktxPixelDepth ktxImage- when genmip $ do- glGenerateMipmap target- void $ showError $ "glGenerateMipmap " ++ ktxName- return tex--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;--- sizedFormats = _NO_SIZED_FORMATS;--- R16Formats = _KTX_NO_R16_FORMATS;--- supportsSRGB = GL_FALSE;---hasES3 = sizedFormats = _NON_LEGACY_FORMATS;---hasExt "GL_OES_required_internalformat" =--- sizedFormats |= _ALL_SIZED_FORMATS-sizedFormats = hasES3 || hasExt "GL_OES_required_internalformat"--- There are no OES extensions for sRGB textures or R16 formats.-hasETC2 = hasES3-hasPVRTC = hasExt "GL_IMG_texture_compression_pvrtc"-hasATITC = hasExt "GL_ATI_texture_compression_atitc"-hasS3TC = hasExt "GL_EXT_texture_compression_s3tc"---- | Check a KTX file header.--- returning (isCompressed?, textureTarget, generateMipmapNeeded?)-checkKtx :: Ktx -> Either String (Bool, GLenum, Bool)-checkKtx t = (,,) <$> isCompressed t <*> detectTarget t <*> needsGenMipmap t--isCompressed Ktx { ktxGlTypeSize = s } | s /= 1 && s /= 2 && s /= 4 = Left "checkKtx: Invalid glTypeSize"-isCompressed Ktx { ktxGlType = 0, ktxGlFormat = 0 } = Right True-isCompressed Ktx { ktxGlType = t, ktxGlFormat = f } | t == 0 || f == 0 = Left "checkKtx: Invalid glType"-isCompressed _ = Right False--detectTarget ktx@Ktx { ktxNumElems = 0 } = detectCube ktx-detectTarget ktx = detectCube ktx >>= \target ->- if target == texture_2d- then Right texture_2d_array- else Left "checkKtx: No API for 3D and cube arrays yet"-detectCube ktx@Ktx { ktxNumFaces = 1 } = detectDim ktx-detectCube ktx@Ktx { ktxNumFaces = 6 } = detectDim ktx >>= \dim ->- if dim == 2- then Right texture_cube_map- else Left "checkKtx: cube map needs 2D faces"-detectCube _ = Left "checkKtx: numberOfFaces must be either 1 or 6"--detectDim Ktx { ktxPixelWidth = 0 } = Left "checkKtx: texture must have width"-detectDim Ktx { ktxPixelHeight = 0, ktxPixelDepth = 0 } = Left "checkKtx: 1D texture is not supported"-detectDim Ktx { ktxPixelHeight = 0 } = Left "checkKtx: texture must have height if it has depth"-detectDim Ktx { ktxPixelDepth = 0 } = Right texture_2d-detectDim _ = Right texture_3d--needsGenMipmap Ktx { ktxNumMipLevels = 0 } = Right True-needsGenMipmap Ktx {..}- | max (max ktxPixelDepth ktxPixelHeight) ktxPixelDepth < 2^(ktxNumMipLevels-1)- = Left "checkKtx: Can't have more mip levels than 1 + log2(max(width, height, depth))"-needsGenMipmap _ = Right False----- ** 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--- (specify 1.0 to disable anisotropy filter), (Fallback) Mag and Min filters).--- --- When /EXT_texture_filter_anisotropic/ is not supported, fallback filters--- are used instead.-data Sampler =- Sampler (WrapMode, WrapMode, Maybe WrapMode) Float (MagFilter, MinFilter)--newtype MagFilter = MagFilter Int32-magNearest = MagFilter 0x2600-magLinear = MagFilter 0x2601---- TODO NoMipmap => use minLinear instead / forceGenMip?-newtype MinFilter = MinFilter Int32-minNearest = MinFilter 0x2600-minLinear = MinFilter 0x2601-nearestMipmapNearest = MinFilter 0x2700-linearMipmapNearest = MinFilter 0x2701-nearestMipmapLinear = MinFilter 0x2702-linearMipmapLinear = MinFilter 0x2703---- TODO: NPOT && not ClampToEdge && not (hasES3 || hasExt "GL_OES_texture_npot") => error-newtype WrapMode = WrapMode Int32-tiledRepeat = WrapMode 0x2901-clampToEdge = WrapMode 0x812F-mirroredRepeat = WrapMode 0x8370--setSampler :: Texture a -> Sampler -> GL ()-setSampler (Texture target _ glo) (Sampler (WrapMode s, WrapMode t, r) a- (MagFilter g, MinFilter n)) = do- tex <- getObjId glo- glBindTexture target tex- glTexParameteri target 0x2802 s- glTexParameteri target 0x2803 t- maybe (return ()) (\(WrapMode x) -> glTexParameteri target 0x8072 x) r- --if a /= 1.0 && hasExt "GL_EXT_texture_filter_anisotropic" then- -- GL_TEXTURE_MAX_ANISOTROPY_EXT- glTexParameterf target 0x84FE a- glTexParameteri target 0x2800 g- glTexParameteri target 0x2801 n----setLOD :: Texture -> Int32 -> Int32 -> GL ()---setTexCompFunc :: Texture -> -> -> GL ()---- mipmaps, compressed, fallbacks--- [comptex, fallback]--- glm basepath = /data/app.name/assets/...--- glm preffered compression type (filename suffiex)----- iOS: PVRTC----- Android with Alpha: PVRTC+ATITC+S3TC+Uncompressed----- Android without Alpha: ETC1----- PC: S3TC + Uncompressed---glm detect compression support--- record Gen/Del/Draw* calls and responces--- prefferedformat == "etc1" like.--- texture from file "name" [path..] genMipmap?flag---Utils.hs shrinked triangles, --- Update[Sub]Texture,UpdateVertex(Buffer)--- "texname" [tex1,tex2,...] auto select--- texture atlas managment-
− Graphics/OpenGLES/Types.hs
@@ -1,363 +0,0 @@-{-# LANGUAGE CPP #-}-{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE MultiParamTypeClasses #-}-{-# LANGUAGE OverlappingInstances #-}-{-# LANGUAGE UndecidableInstances #-}-{-# LANGUAGE ScopedTypeVariables #-}-{-# LANGUAGE DataKinds #-}-{-# LANGUAGE KindSignatures #-}-{-# LANGUAGE TypeFamilies #-}-{-# LANGUAGE TypeOperators #-}--module Graphics.OpenGLES.Types (-- -- * Shading Language Base Types- Vec2, Vec3, Vec4,- -- BVec2, BVec3, BVec4,- IVec2, IVec3, IVec4,- UVec2, UVec3, UVec4,- Mat2, Mat3, Mat4,- Mat2x3, Mat2x4, Mat3x2,- Mat3x4, Mat4x2, Mat4x3,- - -- * Vertex Attribute Array Source Datatypes- HalfFloat(..), FixedFloat(..),- Int2_10x3(..), Word2_10x3(..),-- -- * Texture Pixel Formats- Word4444(..), Word5551(..), Word565(..),- Word10f11f11f(..), Word5999(..), Word24_8(..),- FloatWord24_8(..),-- -- * Type-Level Utilities- SizeOf, Aligned, Stride, castGL,-- -- * Uniform Variable- Uniform, UnifVal,- - -- * Vertex Attribute- Attrib, VertexAttribute,- AttrElement, Vectorize, VDim,- VertexAttributeArray, AttrStruct,-- GLStorable(..)- ) where--import Control.Applicative-import Control.Lens.Indexed (FoldableWithIndex, iforM_)-import Control.Lens.Getter ((^.))-import Control.Monad (when)-import Data.Distributive-import Data.Proxy-import Foreign-import GHC.TypeLits-import Graphics.OpenGLES.Base-import Graphics.OpenGLES.Internal-import Linear-import Unsafe.Coerce---type Vec2 = V2 Float-type Vec3 = V3 Float-type Vec4 = V4 Float---type BVec2 = V2 Bool---type BVec3 = V3 Bool---type BVec4 = V4 Bool-type IVec2 = V2 Int32-type IVec3 = V3 Int32-type IVec4 = V4 Int32-type UVec2 = V2 Word32-type UVec3 = V3 Word32-type UVec4 = V4 Word32-type Mat2 = M22 Float-type Mat3 = M33 Float-type Mat4 = M44 Float-type Mat2x3 = M23 Float-type Mat2x4 = M24 Float-type Mat3x2 = M32 Float-type Mat3x4 = M34 Float-type Mat4x2 = M42 Float-type Mat4x3 = M43 Float--type family SizeOf (f :: *) :: Nat where- SizeOf Float = 4- SizeOf HalfFloat = 2- SizeOf FixedFloat = 4- SizeOf Word8 = 1- SizeOf Word16 = 2- SizeOf Word32 = 4- SizeOf Int8 = 1- SizeOf Int16 = 2- SizeOf Int32 = 4- SizeOf Int2_10x3 = 4- SizeOf Word2_10x3 = 4- SizeOf Word4444 = 2- SizeOf Word5551 = 2- SizeOf Word10f11f11f = 4- SizeOf Word5999 = 4- SizeOf Word24_8 = 4- SizeOf FloatWord24_8 = 8- 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- Aligned 1 = 4- Aligned 2 = 4- Aligned 3 = 4- Aligned x = 4 + Aligned (x - 4)--type family Stride (list :: [*]) :: Nat where- Stride '[] = 0- Stride (x ': xs) = Aligned (SizeOf x) + Stride xs--castGL ::- CmpNat (Aligned (SizeOf x)) (Aligned (SizeOf y)) ~ EQ- => p x -> p y-castGL = unsafeCoerce----type family If (p :: Bool) (t :: Nat) (f :: Nat) :: Nat where--- If True x y = x--- If False x y = y----type family Sum (l :: [Nat]) :: Nat---type instance Sum '[] = 0---type instance Sum (x ': xs) = x + Sum xs----type family Map (f :: * -> *) (xs :: [*]) :: [*]---type instance Map f '[] = '[]---type instance Map f (x ': xs) = f x ': Map f xs----type family ImageOf---type instance ImageOf Rgba8 = V4 Word8---type instance ImageOf Rgba4 = Word16---type instance ImageOf Rgba4FromRgba8 = Word16-----instance UnifVal Float where--- glUniform (loc, _, _) x = glUniform1f loc x--#define Uniform(_typ, _arg, _suffix, _rhs) \-instance UnifVal (_typ) where \- glUniform (loc, _, _) _arg = glUniform/**/_suffix loc _rhs \--Uniform(Float,x,1f,x)-Uniform(Vec2,(V2 x y),2f,x y)-Uniform(Vec3,(V3 x y z),3f,x y z)-Uniform(Vec4,(V4 x y z w),4f,x y z w)-Uniform(Int32,x,1i,x)-Uniform(IVec2,(V2 x y),2i,x y)-Uniform(IVec3,(V3 x y z),3i,x y z)-Uniform(IVec4,(V4 x y z w),4i,x y z w)-Uniform(Word32,x,1ui,x)-Uniform(UVec2,(V2 x y),2ui,x y)-Uniform(UVec3,(V3 x y z),3ui,x y z)-Uniform(UVec4,(V4 x y z w),4ui,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 [Float] where glUniform = pokeUniformArray glUniform1fv-instance UnifVal [Vec2] where glUniform = pokeUniformArray glUniform2fv-instance UnifVal [Vec3] where glUniform = pokeUniformArray glUniform3fv-instance UnifVal [Vec4] where glUniform = pokeUniformArray glUniform4fv-instance UnifVal [Int32] where glUniform = pokeUniformArray glUniform1iv-instance UnifVal [IVec2] where glUniform = pokeUniformArray glUniform2iv-instance UnifVal [IVec3] where glUniform = pokeUniformArray glUniform3iv-instance UnifVal [IVec4] where glUniform = pokeUniformArray glUniform4iv-instance UnifVal [Word32] where glUniform = pokeUniformArray glUniform1uiv-instance UnifVal [UVec2] where glUniform = pokeUniformArray glUniform2uiv-instance UnifVal [UVec3] where glUniform = pokeUniformArray glUniform3uiv-instance UnifVal [UVec4] where glUniform = pokeUniformArray glUniform4uiv--castMat a b c d e = a b c d (castPtr e)--instance UnifMat Mat2 where glUnifMat = castMat glUniformMatrix2fv-instance UnifMat Mat3 where glUnifMat = castMat glUniformMatrix3fv-instance UnifMat Mat4 where glUnifMat = castMat glUniformMatrix4fv--- /GL_NV_non_square_matrices/ seems ignorable for now.--- http://delphigl.de/glcapsviewer/gles_extensions.php-instance UnifMat Mat2x3 where glUnifMat = castMat glUniformMatrix2x3fv-instance UnifMat Mat2x4 where glUnifMat = castMat glUniformMatrix2x4fv-instance UnifMat Mat3x2 where glUnifMat = castMat glUniformMatrix3x2fv-instance UnifMat Mat3x4 where glUnifMat = castMat glUniformMatrix3x4fv-instance UnifMat Mat4x2 where glUnifMat = castMat glUniformMatrix4x2fv-instance UnifMat Mat4x3 where glUnifMat = castMat glUniformMatrix4x3fv---- | Matrix __Not tested!!!__-instance (Distributive g, Functor f, UnifMat (f (g a)), Storable (g (f a))) =>- UnifVal (f (g a)) where- glUniform (loc, _, ptr) val = glUniform (loc, 1, ptr) [val]--- | Array of matrix __Not tested!!!__-instance (Distributive g, Functor f, UnifMat (f (g a)), Storable (g (f a))) =>- UnifVal [f (g a)] where- -- 'transpose' argument must be GL_FALSE in GL ES 2.0.- -- GL ES 3.0+ supports transpose.- glUniform (loc, len, ptr) matrices = do- pokeArray (castPtr ptr) $ map distribute $ take (fromIntegral len) matrices- glUnifMat loc len 0 (castPtr ptr :: Ptr (f (g a)))----- Arrays of attribute is not allowed in GLSL ES--instance VertexAttribute Float where- glVertexAttrib ix x = glVertexAttrib1f ix x-instance VertexAttribute Vec2 where- glVertexAttrib ix (V2 x y) = glVertexAttrib2f ix x y-instance VertexAttribute Vec3 where- glVertexAttrib ix (V3 x y z) = glVertexAttrib3f ix x y z-instance VertexAttribute Vec4 where- glVertexAttrib ix (V4 x y z w) = glVertexAttrib4f ix x y z w-instance VertexAttribute Int32 where- glVertexAttrib ix x = glVertexAttribI4i ix x 0 0 1-instance VertexAttribute IVec2 where- glVertexAttrib ix (V2 x y) = glVertexAttribI4i ix x y 0 1-instance VertexAttribute IVec3 where- glVertexAttrib ix (V3 x y z) = glVertexAttribI4i ix x y z 1-instance VertexAttribute IVec4 where- glVertexAttrib ix (V4 x y z w) = glVertexAttribI4i ix x y z w-instance VertexAttribute Word32 where- glVertexAttrib ix x = glVertexAttribI4ui ix x 0 0 1-instance VertexAttribute UVec2 where- glVertexAttrib ix (V2 x y) = glVertexAttribI4ui ix x y 0 1-instance VertexAttribute UVec3 where- glVertexAttrib ix (V3 x y z) = glVertexAttribI4ui ix x y z 1-instance VertexAttribute UVec4 where- glVertexAttrib ix (V4 x y z w) = glVertexAttribI4ui ix x y z w-instance VertexAttribute a => VertexAttribute (V1 a) where- glVertexAttrib ix (V1 x) = glVertexAttrib ix x---- | Matrices __Not tested!!!__-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--instance AttrElement Word8-instance AttrElement Word16-instance AttrElement Word32-instance AttrElement Int8-instance AttrElement Int16-instance AttrElement Int32-instance AttrElement Float-instance AttrElement HalfFloat-instance AttrElement FixedFloat-instance AttrElement Int2_10x3-instance AttrElement Word2_10x3---- | Temporarily gives a vector representation for type comparison-type family Vectorize a :: * where- Vectorize Int2_10x3 = V4 Int2_10x3- Vectorize Word2_10x3 = V4 Word2_10x3- Vectorize (f Int2_10x3) = f (V4 Int2_10x3)- Vectorize (f Word2_10x3) = f (V4 Word2_10x3)- Vectorize (f a) = f a- Vectorize a = V1 a- -- Float -> (1, GL_GLOAT), Vec2 -> (2, GL_FLOAT)--type family VDim v :: Nat where- VDim V1 = 1- VDim V2 = 2- VDim V3 = 3- VDim V4 = 4--class VertexAttributeArray attr src where- glVertexAttribPtr :: GLuint -> GLint -> GLenum -> GLboolean -> GLsizei -> Ptr (attr, src) -> GL ()--instance VertexAttributeArray Float a where- glVertexAttribPtr i d t n s p = glVertexAttribPointer i d t n s (castPtr p)---- | a = Int/Word32, b = Int/Word 8/16/32-instance (Integral a, Integral b) => VertexAttributeArray a b where- glVertexAttribPtr i d t _ s p = glVertexAttribIPointer i d t s (castPtr p)--instance forall p a b v a' b'.- ( VertexAttribute a- , Vectorize a ~ v a'- , Vectorize b ~ v b'- , KnownNat (VDim v)- --, KnownNat (Aligned (SizeOf b))- , AttrElement b'- , VertexAttributeArray a' b' )- => AttrStruct (Attrib p a) p b where-- -- 'length' must be 1 (array of atrribute is not allowed.)- -- 3.1 spec says 'normalize' is ignored for floating-point types- -- such as GL_FIXED- -- 'stride' == 0 means 'tightly packed'- glVertexBuffer (Attrib (ix, length, normalize, divisor)) buf = do- glEnableVertexAttribArray ix- when (divisor /= 0) $ glVertexAttribDivisor ix divisor- glVertexAttribPointer ix dim typ normalize stride nullPtr- where dim = fromIntegral $ natVal (Proxy :: Proxy (VDim v))- typ = glType (Proxy :: Proxy b')- stride = 0 --fromIntegral $ natVal (Proxy :: Proxy (SizeOf b))---- XXX (V4 Int2_10x3) (V3 Word2_10x3) cannot match here-instance- ( 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 a))) p (f (g a)) where-- glVertexBuffer (Attrib (index, length, normalize, divisor)) buf = do- iforM_ (pure () :: g ()) $ \(E e) _ -> do- let i = (V4 0 1 2 3)^.e- let ix = index + fromIntegral i- glEnableVertexAttribArray ix- when (divisor /= 0) $ glVertexAttribDivisor ix divisor- glVertexAttribPointer ix dim typ normalize stride (plusPtr nullPtr (i * size))- where dim = fromIntegral $ natVal (Proxy :: Proxy (VDim f))- typ = glType (Proxy :: Proxy a)- size = fromIntegral $ natVal (Proxy :: Proxy (SizeOf (f a)))- stride = fromIntegral $ natVal (Proxy :: Proxy (SizeOf (f (g a)))) -- (Aligned (SizeOf (f (g a))))----- XXX 4byte alignment--- | Transpose matrices-class Storable a => GLStorable a where- pokeArrayGL :: Ptr a -> [a] -> GL ()-instance (Storable (f (g a)), Storable (g (f a)), VertexAttribute (f (g Float)), Functor f, Distributive g)- => GLStorable (f (g a)) where- pokeArrayGL ptr xs = pokeArray (castPtr ptr) (map distribute xs)-instance Storable a => GLStorable a where- pokeArrayGL = pokeArray----class AttrStruct a where--- pokeAll :: Ptr () -> a -> IO ()----instance AttrVal a => AttrStruct a where--- pokeAll p a = poke (castPtr p) a---instance (AttrVal a, AttrVal b) => AttrStruct (a, b) where--- pokeAll p (a,b) = do--- poke (castPtr p) a--- pokeByteOff (castPtr p) (alignment a) b---instance (AttrVal a, AttrVal b, AttrVal c) => AttrStruct (a, b, c) where--- pokeAll p (a,b,c) = do--- poke (castPtr p) a--- pokeByteOff (castPtr p) offset1 b--- pokeByteOff (castPtr p) offset2 c--- where offset1 = alignment a; offset2 = offset1 + alignment b---instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d) => AttrStruct (a, b, c, d)---instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e) => AttrStruct (a, b, c, d, e)---instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f) => AttrStruct (a, b, c, d, e, f)---instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f, AttrVal g) => AttrStruct (a, b, c, d, e, f, g)---instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f, AttrVal g, AttrVal h) => AttrStruct (a, b, c, d, e, f, g, h)---instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f, AttrVal g, AttrVal h, AttrVal i) => AttrStruct (a, b, c, d, e, f, g, h, i)---instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f, AttrVal g, AttrVal h, AttrVal i, AttrVal j) => AttrStruct (a, b, c, d, e, f, g, h, i, j)-
− Graphics/TextureContainer/KTX.hs
@@ -1,124 +0,0 @@-{-# LANGUAGE RecordWildCards #-}--- | Khronos Texture Container Format--- --- See also <http://www.khronos.org/opengles/sdk/tools/KTX/file_format_spec/>-module Graphics.TextureContainer.KTX where-import Control.Applicative-import Control.Exception-import Control.Monad-import qualified Data.ByteString as B-import Data.Packer-import Data.Word--data Ktx = Ktx- { ktxName :: FilePath -- ^ for debugging- , ktxContent :: B.ByteString -- ^ holding the original ForeignPtr.- , ktxGlType :: Word32- , ktxGlTypeSize :: Word32- , ktxGlFormat :: Word32- , ktxGlInternalFormat :: Word32- , ktxGlBaseInternalFormat :: Word32- , ktxPixelWidth :: Word32- , ktxPixelHeight :: Word32- , ktxPixelDepth :: Word32- , ktxNumElems :: Word32- , ktxNumFaces :: Word32- , ktxNumMipLevels :: Word32- , ktxMap :: [(B.ByteString, B.ByteString)] -- ^ (utf8, any)- -- Note that if a value is utf8, it is NULL terminated.- , ktxImage :: [[B.ByteString]]- } deriving Show--unpackKtx :: FilePath -> B.ByteString -> Unpacking Ktx-unpackKtx name orig = do- let w = getWord32- - -- '«', 'K', 'T', 'X', ' ', '1', '1', '»', '\r', '\n', '\x1A', '\n'- (0x58544BAB, 0xBB313120, 0x0A1A0A0D) <- (,,) <$> w <*> w <*> w- - -- Endianness- -- Assuming Big-endian is a loser of history, just ignore it.- -- Note: All modern platforms (Android, iOS, Windows, ...)- -- runs Little-endian nevertheless the processor is bi-endian.- 0x04030201 <- getWord32- - ktx <- Ktx name orig <$> w <*> w <*> w <*> w <*> w <*> w- <*> w <*> w <*> w <*> w <*> w-- bytesOfKeyValueData <- getWord32- let getKVP 0 = return []- getKVP i = do- keyAndValueByteSize <- getWord32- x <- getBytes (fromIntegral keyAndValueByteSize)- let padding = 3 - (keyAndValueByteSize + 3) `mod` 4- unpackSkip (fromIntegral padding)- xs <- getKVP (i - keyAndValueByteSize - padding)- return (x:xs)- kvp <- map (B.breakByte 0) <$> getKVP bytesOfKeyValueData- let Ktx{..} = ktx kvp []-- imgs <- forM [1..max 1 ktxNumMipLevels] $ \_ -> do- imageSize <- getWord32- forM [1..max 1 ktxNumFaces] $ \_ -> do- img <- getBytes (fromIntegral imageSize)- unpackSkip $ fromIntegral (3 - (imageSize + 3) `mod` 4)- return img-- return $ ktx kvp imgs--ktxFromFile :: FilePath -> IO Ktx-ktxFromFile path = B.readFile path >>= return . readKtx path--readKtx :: FilePath -> B.ByteString -> Ktx-readKtx path bs = runUnpacking (unpackKtx path bs) bs--tryKtx :: FilePath -> B.ByteString -> Either SomeException Ktx-tryKtx path bs = tryUnpacking (unpackKtx path bs) bs--{--type MipmapData = [Face or ArrayElements]-type ArrayElements = B.ByteString-type Face = B.ByteString--Byte[12] identifier-UInt32 endianness-UInt32 glType-UInt32 glTypeSize-UInt32 glFormat-Uint32 glInternalFormat-Uint32 glBaseInternalFormat-UInt32 pixelWidth-UInt32 pixelHeight-UInt32 pixelDepth-UInt32 numberOfArrayElements-UInt32 numberOfFaces-UInt32 numberOfMipmapLevels-UInt32 bytesOfKeyValueData- -for each keyValuePair that fits in bytesOfKeyValueData- UInt32 keyAndValueByteSize- Byte keyAndValue[keyAndValueByteSize]- Byte valuePadding[3 - ((keyAndValueByteSize + 3) % 4)]-end- -for each mipmap_level in numberOfMipmapLevels*- UInt32 imageSize; - for each array_element in numberOfArrayElements*- for each face in numberOfFaces- for each z_slice in pixelDepth*- for each row or row_of_blocks in pixelHeight*- for each pixel or block_of_pixels in pixelWidth- Byte data[format-specific-number-of-bytes]**- end- end- end- Byte cubePadding[0-3]- end- end- Byte mipPadding[3 - ((imageSize + 3) % 4)]-end--* Replace with 1 if this field is 0.--** Uncompressed texture data matches a GL_UNPACK_ALIGNMENT of 4.--}
− Graphics/TextureContainer/PKM.hs
@@ -1,89 +0,0 @@-{-# LANGUAGE RecordWildCards, OverloadedStrings #-}--- | Ericsson's ETC1\/ETC2\/EAC Texture Container Format-module Graphics.TextureContainer.PKM where-import Control.Applicative-import qualified Data.ByteString as B-import Data.Packer-import Data.Word-import Graphics.TextureContainer.KTX--data Pkm = Pkm- { pkmName :: FilePath- , pkmContent :: B.ByteString- , pkmVersion :: Word16- , pkmType :: Word16- , pkmWidth :: Word16- , pkmHeight :: Word16- , pkmActiveW :: Word16- , pkmActiveH :: Word16- , pkmImage :: B.ByteString- } deriving Show--unpackPkm :: FilePath -> B.ByteString -> Unpacking Pkm-unpackPkm name orig = do- -- 'PKM '- 0x204d4b50 <- getWord32- - let w = getWord16BE- pkm <- Pkm name orig <$> w <*> w <*> w <*> w <*> w <*> w- -- XXX calc size from pkmVersion, pkmType- let size = pkmActiveW (pkm "") * pkmActiveH (pkm "") `div` 2- pkm <$> getBytes (fromIntegral size)--pkmToKtx :: Pkm -> Ktx-pkmToKtx Pkm{..} = Ktx- { ktxName = pkmName- , ktxContent = pkmContent- , ktxGlType = 0- , ktxGlTypeSize = 1- , ktxGlFormat = 0- , ktxGlInternalFormat = fromPkmType pkmVersion pkmType- , ktxGlBaseInternalFormat = 0- , ktxPixelWidth = fromIntegral pkmWidth- , ktxPixelHeight = fromIntegral pkmHeight- , ktxPixelDepth = 0- , ktxNumElems = 0- , ktxNumFaces = 1- , ktxNumMipLevels = 1- , ktxMap = []- , ktxImage = [[pkmImage]]- }- where- -- 12592 == '1''0', 12848 == '2''0'- fromPkmType 12592 0 = 36196 -- ?- fromPkmType 12592 1 = undefined- fromPkmType 12592 2 = undefined- fromPkmType 12592 3 = undefined- fromPkmType 12848 0 = undefined- fromPkmType 12848 1 = undefined- fromPkmType 12848 2 = undefined- fromPkmType 12848 3 = undefined- fromPkmType 12848 4 = undefined- fromPkmType 12848 5 = undefined- fromPkmType 12848 6 = undefined- fromPkmType 12848 7 = undefined- fromPkmType 12848 8 = undefined--fromPkmFile :: FilePath -> IO Pkm-fromPkmFile path = B.readFile path >>= return . readPkm path--readPkm :: FilePath -> B.ByteString -> Pkm-readPkm path bs = runUnpacking (unpackPkm path bs) bs--{---// 16bytes big-endian-unsigned int32 magic; // 'PKM '-unsigned short16 version; // '10' or '20'-unsigned short16 type; // See below-unsigned short16 width; // -unsigned short16 height; // -unsigned short16 active_w; // -unsigned short16 active_h; // --version 1.0- type: 0=ETC1-RGB, 1=ETC1-RGBA, 2=ETC1-RGB-MIP, 3=ETC1-RGBA-MIP-version 2.0- type: 0=ETC1_RGB, 1=ETC2_RGB, 2=ETC2_RGBA_OLD, 3=ETC2_RGBA, 4=ETC2_RGBA1, 5=ETC2_R, 6=ETC2_RG, 7=ETC2_SIGNED_R, 8=ETC2_SIGNED_R---}
− Linear/Graphics.hs
@@ -1,80 +0,0 @@-module Linear.Graphics where-import Linear.V2-import Linear.V3-import Linear.V4-import Linear.Matrix--ortho :: Fractional a- => (a, a) -- ^ (left, right)- -> (a, a) -- ^ (bottom, top)- -> (a, a) -- ^ (near, far)- -> M44 a-ortho (l,r) (b,t) (n,f) =- V4 (V4 (2/(r-l)) 0 0 0)- (V4 0 (2/(t-b)) 0 0)- (V4 0 0 (-2/(f-n)) 0)- (V4 (-(r+l)/(r-l)) (-(t+b)/(t-b)) (-(f+n)/(f-n)) 1)---- | 'ortho' with a different parametrization.-ortho' :: Fractional a- => V3 a -- ^ (left, top, near)- -> V3 a -- ^ (right, bottom, far)- -> M44 a-ortho' (V3 l t n) (V3 r b f) = ortho (l,r) (b,t) (n,f)---- | \"Perspective projecton\" matrix-frustum :: Fractional a- => (a, a) -- ^ (left, right)- -> (a, a) -- ^ (bottom, top)- -> (a, a) -- ^ (near, far)- -> M44 a-frustum (l,r) (b,t) (n,f) =- V4 (V4 (2*n/(r-l)) 0 0 0)- (V4 0 (2*n/(t-b)) 0 0)- (V4 ((r+l)/(r-l)) ((t+b)/(t-b)) (-(f+n)/(f-n)) (-1))- (V4 0 0 (-2*f*n/(f-n)) 0)---- | 'frustum' with a different parametrization.-frustum' :: Fractional a- => V3 a -- ^ (left, top, near)- -> V3 a -- ^ (right, bottom, far)- -> M44 a-frustum' (V3 l t n) (V3 r b f) = frustum (l,r) (b,t) (n,f)---- | Inverse of 'frustum'-frustumInv :: Fractional a- => (a, a) -- ^ (left, right)- -> (a, a) -- ^ (bottom, top)- -> (a, a) -- ^ (near, far)- -> M44 a-frustumInv (l,r) (b,t) (n,f) =- V4 (V4 (0.5*(r-l)/n) 0 0 0)- (V4 0 (0.5*(t-b)/n) 0 0)- (V4 0 0 0 (0.5*(n-f)/(f*n)))- (V4 (0.5*(r+l)/n) (0.5*(t+b)/n) (-1) (0.5*(f+n)/(f*n)))---- sequence [($ cos (x/100)) | x <- [0..100]] (\x -> V3 0 x 0)--- [V2 x $ sin (x/50) | x <- [0..100]]--circle2d :: (Ord a, Enum a, Floating a) => a -> [V2 a]-circle2d n | n > 1 = [V2 (cos t) (sin t) | t <- [0,2*pi/n..2*pi]]--rectangle :: Num a => a -> a -> a -> a -> [V2 a]-rectangle x y w h = [V2 x y, V2 (x+w) y, V2 (x+w) (y+h), V2 x (y+h)]--yEqual f from to = [V2 x (f x) | x <- [from..to]]--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))-
− examples/billboard.hs
@@ -1,103 +0,0 @@-{-# LANGUAGE RecordWildCards, DeriveDataTypeable #-}-module Main where-import Control.Applicative-import Control.Monad-import Graphics.OpenGLES-import qualified Data.ByteString.Char8 as B-import qualified Graphics.UI.GLFW as GLFW-import Control.Concurrent---- ghc examples/billboard.hs -lEGL -lGLESv2 -threaded && examples/billboard-main = do- GLFW.init- Just win <- GLFW.createWindow 600 480 "The Billboard" Nothing Nothing- forkGL- (GLFW.makeContextCurrent (Just win) >> return False)- (GLFW.makeContextCurrent Nothing)- (GLFW.swapBuffers win)- forkIO $ mapM_ (putStrLn.("# "++)) =<< glLogContents- future <- withGL $ mkBillboard >>= mkSomeObj- let loop c = do- withGL $ runAction $ draw <$> future- endFrameGL- putStrLn . show $ c- GLFW.pollEvents- closing <- GLFW.windowShouldClose win- when (not closing) $ loop (c+1)- loop 0--data Billboard = Billboard- { billboard :: Program Billboard- , mvpMatrix :: Uniform Billboard Mat3- , pos :: Attrib Billboard Vec2- , uv :: Attrib Billboard Vec2- } deriving Typeable--mkBillboard :: GL Billboard-mkBillboard = do- Finished p <- glCompile NoFeedback- [ vertexShader "bb.vs" vsSrc- , fragmentShader "bb.fs" fsSrc ]- $ \prog step msg bin ->- putStrLn $ "> step " ++ show step ++ ", " ++ msg- Billboard p <$> uniform "mvpMatrix"- <*> attrib "pos" <*> attrib "uv"--vsSrc3 = B.pack $- "#version 300 es\n\- \ in mat4 ttt;in mat4 sss;\- \ void main(){gl_Position = vec4(1) * ttt * sss;}"--fsSrc3 = B.pack $- "#version 300 es\n\- \precision mediump float;\- \ out vec4 var;\- \ void main(){var = vec4(1);}"--vsSrc = B.pack $- "#version 100\n" ++- "uniform mat3 mvpMatrix;\n" ++- "attribute vec2 pos;\n" ++- "attribute vec2 uv;\n" ++- "uniform struct qqq { vec2 w[2]; };uniform struct aww { vec4 wew; vec3 www[3]; ivec2 oo[10]; qqq s[10];} ogg[20];uniform vec4 uuuuu[63];" ++- "varying vec4 vColor;\n" ++- "void main() {\n" ++- " gl_Position = vec4(mvpMatrix*vec3(pos, -1.0), 1.0);\n" ++- " vColor = vec4(uv, 0.5, 1.0)/*+uuuuu[10]+ogg[19].wew*/;\n" ++- "}\n"--fsSrc = B.pack $- "#version 100\n" ++- "precision mediump float;\n" ++- "varying vec4 vColor;\n" ++- "void main() {\n" ++- " gl_FragColor = vColor;\n" ++- "}\n"--data SomeObj = SomeObj- { prog :: Billboard- , vao :: VertexArray Billboard- , posBuf :: Buffer Vec2- , uvBuf :: Buffer (V2 Word8)- }--mkSomeObj :: Billboard -> GL SomeObj-mkSomeObj prog@Billboard{..} = do- posBuf <- glLoad app2gl (posData,4::Int)- uvBuf <- glLoad app2gl uvData- vao <- glVA [ pos &= posBuf, uv &= uvBuf]- return SomeObj {..}--posData = [V2 (-1) (-1), V2 1 (-1), V2 (-1) 1, V2 1 1]-uvData = [V2 0 0, V2 0 1, V2 1 0, V2 1 1]--draw :: SomeObj -> GL ()-draw SomeObj{..} = do- let Billboard{..} = prog- updateSomeObj posBuf uvBuf- r <- glDraw triangleStrip billboard- [ begin culling, cullFace hideBack]- [ mvpMatrix $= eye3]- vao $ takeFrom 0 4- putStrLn . show $ r-updateSomeObj _ _ = return ()
− examples/billboard2.hs
@@ -1,101 +0,0 @@-{-# LANGUAGE RecordWildCards, DeriveDataTypeable #-}-module Main where-import Control.Applicative-import Control.Monad-import Graphics.OpenGLES-import qualified Data.ByteString.Char8 as B-import qualified Graphics.UI.GLFW as GLFW-import Control.Concurrent---- ghc examples/billboard2.hs -lEGL -lGLESv2 -threaded && examples/billboard2-main = do- GLFW.init- Just win <- GLFW.createWindow 534 600 "The Billboard" Nothing Nothing- GLFW.setFramebufferSizeCallback win $ Just (const framesize)- forkGL- (GLFW.makeContextCurrent (Just win) >> return False)- (GLFW.makeContextCurrent Nothing)- (GLFW.swapBuffers win)- forkIO $ mapM_ (putStrLn.("# "++)) =<< glLogContents- future <- withGL $ mkBillboard >>= mkSomeObj- let loop c = do- withGL $ runAction $ draw <$> future- endFrameGL- putStrLn . show $ c- GLFW.pollEvents- closing <- GLFW.windowShouldClose win- when (not closing) $ loop (c+1)- loop 0--data Billboard = Billboard- { billboard :: Program Billboard- , mvpMatrix :: Uniform Billboard Mat4- , tex :: Uniform Billboard Int32- , pos :: Attrib Billboard Vec2- , uv :: Attrib Billboard Vec2- } deriving Typeable--mkBillboard :: GL Billboard-mkBillboard = do- Finished p <- glCompile NoFeedback- [ vertexShader "bb.vs" vsSrc- , fragmentShader "bb.fs" fsSrc ]- $ \prog step msg bin ->- putStrLn $ "> step " ++ show step ++ ", " ++ msg- Billboard p <$> uniform "mvpMatrix" <*> uniform "tex_unit"- <*> attrib "pos" <*> attrib "uv"--vsSrc = B.pack $- "#version 100\n" ++- "uniform mat4 mvpMatrix;\n" ++- "attribute vec2 pos;\n" ++- "attribute vec2 uv;\n" ++- "varying vec4 color;\n" ++- "varying vec2 tex_coord;\n" ++- "void main() {\n" ++- " gl_Position = mvpMatrix*vec4(pos, 0.0, 1.0);\n" ++- " color = vec4(1.0-uv.x, 1.0-uv.y, 1.0, 1.0);\n" ++- " tex_coord = uv;\n" ++- "}\n"--fsSrc = B.pack $- "#version 100\n" ++- "precision mediump float;\n" ++- "uniform sampler2D tex_unit;\n" ++- "varying vec4 color;\n" ++- "varying vec2 tex_coord;\n" ++- "void main() {\n" ++- " gl_FragColor = color * texture2D(tex_unit, tex_coord);\n" ++- "}\n"--data SomeObj = SomeObj- { prog :: Billboard- , vao :: VertexArray Billboard- , posBuf :: Buffer Vec2- , uvBuf :: Buffer (V2 Word8)- , ixBuf :: Buffer Word8- , tex0 :: Texture ()- }--mkSomeObj :: Billboard -> GL SomeObj-mkSomeObj prog@Billboard{..} = do- posBuf <- glLoad app2gl posData- uvBuf <- glLoad app2gl uvData- vao <- glVA [ pos &= posBuf, uv &= uvBuf]- tex0 <- glLoadKtxFile "white_fox.ktx" -- replace with your favorite one- setSampler tex0 (Sampler (tiledRepeat,tiledRepeat,Nothing) 16.0 (magLinear,minLinear))- ixBuf <- glLoad app2gl [0,1,2, 3,2,1]- return SomeObj {..}--posData = [V2 (-1) 1, V2 1 1, V2 (-1) (-1), V2 1 (-1)]-uvData = [V2 0 0, V2 1 0, V2 0 1, V2 1 1]--draw :: SomeObj -> GL ()-draw SomeObj{..} = do- clear [] colorBuffer- let Billboard{..} = prog- r <- glDraw drawTriangles billboard- [texSlot 0 tex0] --[ begin culling, cullFace hideBack]- [ mvpMatrix $= eye4, tex $= 0 ]- vao $ byIndex ixBuf 0 6- putStrLn . show $ r
examples/glsl-sandbox-player.hs view
@@ -24,9 +24,10 @@ --GLFW.swapInterval 1 forkIO $ mapM_ (putStrLn.("# "++)) =<< glLogContents future <- withGL $ mkPlayer (B.pack shaderSource) >>= mkPlayerObj+ obj <- expect future t0 <- getCurrentTime let loop c = do- withGL $ runAction $ draw win t0 (realToFrac w) (realToFrac h) <$> future+ withGL $ draw win t0 (realToFrac w) (realToFrac h) obj endFrameGL putStrLn . show $ c GLFW.pollEvents
+ examples/windmill.hs view
@@ -0,0 +1,123 @@+{-# LANGUAGE RecordWildCards, DeriveDataTypeable #-}+module Main where+import Control.Applicative+import Control.Concurrent+import Control.Monad+import qualified Data.ByteString.Char8 as BS+import Data.Time.Clock+import Graphics.OpenGLES+import qualified Graphics.UI.GLFW as GLFW+import System.Random+import Linear.Graphics++-- ghc examples/windmill.hs -lEGL -lGLESv2 -threaded && examples/windmill+main = do+ isOk <- GLFW.init+ when (not isOk) $ fail "Initialization Failed!"+ win <- initFullscreen 1600 1480 "Window Title"+ --win <- initWindow 600 480 "Window Title"+ >>= maybe (fail "Failed to create a Window") return+ GLFW.setFramebufferSizeCallback win $ Just (const framesize)+ forkGL+ (GLFW.makeContextCurrent (Just win) >> return False)+ (GLFW.makeContextCurrent Nothing)+ (GLFW.swapBuffers win)+ forkIO $ mapM_ (putStrLn.("# "++)) =<< glLogContents+ future <- withGL $ mkWindmill >>= mkSomeObj+ obj <- expect future+ rand <- getStdGen+ t0 <- getCurrentTime+ let loop c = do+ withGL $ draw win rand t0 obj+ endFrameGL+ GLFW.pollEvents+ closing <- GLFW.windowShouldClose win+ when (not closing && c < 1000) $ loop (c + 1)+ loop 0++initWindow w h title = do+ GLFW.windowHint $ GLFW.WindowHint'Resizable True+ GLFW.createWindow w h title Nothing Nothing++initFullscreen w h title = do+ monitor <- GLFW.getPrimaryMonitor+ GLFW.createWindow w h title monitor Nothing++data Windmill = Windmill+ { windmill :: Program Windmill+ , scaleRot :: Uniform Windmill Mat2+ , offset :: Uniform Windmill Vec2+ , pos :: Attrib Windmill Vec2+ , color :: Attrib Windmill Vec3+ } deriving Typeable++mkWindmill :: GL Windmill+mkWindmill = do+ Finished p <- glCompile NoFeedback+ [ vertexShader "windmill.vs" vsSrc+ , fragmentShader "windmill.fs" fsSrc ]+ $ \prog step msg bin ->+ putStrLn $ "> step " ++ show step ++ ", " ++ msg+ Windmill p <$> uniform "scaleRot" <*> uniform "offset"+ <*> attrib "pos" <*> attrib "color"++vsSrc = BS.pack $+ "#version 100\n\+ \uniform mat2 scaleRot;\+ \uniform vec2 offset;\+ \attribute vec2 pos;\+ \attribute vec3 color;\+ \varying vec4 vColor;\+ \void main() {\+ \ gl_Position = vec4(scaleRot * pos + offset, 0.0, 1.0);\+ \ vColor = vec4(color, 1.0);\+ \}"++fsSrc = BS.pack $+ "#version 100\n\+ \precision mediump float;\+ \varying vec4 vColor;\+ \void main() {\+ \ gl_FragColor = vColor;\+ \}"++data SomeObj = SomeObj+ { prog :: Windmill+ , vao :: VertexArray Windmill+ , posBuf :: Buffer Vec2+ , colorBuf :: Buffer (V3 Word8)+ }++mkSomeObj :: Windmill -> GL SomeObj+mkSomeObj prog@Windmill{..} = do+ posBuf <- glLoad app2gl quadPos+ colorBuf <- glLoad app2gl quadCol+ vao <- glVA [ pos &= posBuf, normalized color &= colorBuf ]+ return SomeObj {..}++-- Square with diagonal < 2 so that it fits in a [-1,1] square+-- regardless of rotation.+quadPos :: [Vec2]+quadPos = [V2 (-0.7) (-0.7), V2 0.7 (-0.7), V2 (-0.7) 0.7, V2 0.7 0.7]++quadCol :: [V3 Word8]+quadCol = [V3 0x00 0xFF 0x00, V3 0x00 0x00 0xFF, V3 0xFF 0x00 0x00, V3 0x30 0x7F 0xFF]++draw :: GLFW.Window -> StdGen -> UTCTime -> SomeObj -> GL ()+draw win seed t0 SomeObj{..} = do+ (w, h) <- GLFW.getWindowSize win+ let (wx, hx) = (16.0, realToFrac $ h `div` (w `div` 16))+ t <- getCurrentTime+ let time = realToFrac $ diffUTCTime t t0+ let angles = [angl * time | angl <- rollDices seed]+ clear [ clearColor 0.2 0.2 0.3 1.0 ] colorBuffer+ let Windmill{..} = prog+ forM_ [(i, j) | i <- [0..wx-1], j <- [0..hx-1]] $ \(i, j) -> do+ let a = angles !! floor (i + wx * j)+ glDraw triangleStrip windmill []+ [ scaleRot $= cos a *!! scale2 (1/wx) (1/hx) !*! rotate2 a+ , offset $= V2 (2/wx*(0.5+i)-1) (2/hx*(0.5+j)-1) ]+ vao $ takeFrom 0 4++rollDices :: StdGen -> [Float]+rollDices = randomRs (0.1, 2*3.14)
− include/EGL/egl.h
@@ -1,329 +0,0 @@-/* -*- mode: c; tab-width: 8; -*- */-/* vi: set sw=4 ts=8: */-/* Reference version of egl.h for EGL 1.4.- * $Revision: 9356 $ on $Date: 2009-10-21 02:52:25 -0700 (Wed, 21 Oct 2009) $- */--/*-** Copyright (c) 2007-2009 The Khronos Group Inc.-**-** Permission is hereby granted, free of charge, to any person obtaining a-** copy of this software and/or associated documentation files (the-** "Materials"), to deal in the Materials without restriction, including-** without limitation the rights to use, copy, modify, merge, publish,-** distribute, sublicense, and/or sell copies of the Materials, and to-** permit persons to whom the Materials are furnished to do so, subject to-** the following conditions:-**-** The above copyright notice and this permission notice shall be included-** in all copies or substantial portions of the Materials.-**-** THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,-** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF-** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.-** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY-** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,-** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE-** MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS.-*/--#ifndef __egl_h_-#define __egl_h_--/* All platform-dependent types and macro boilerplate (such as EGLAPI- * and EGLAPIENTRY) should go in eglplatform.h.- */-#include <EGL/eglplatform.h>--#ifdef __cplusplus-extern "C" {-#endif--/* EGL Types */-/* EGLint is defined in eglplatform.h */-typedef unsigned int EGLBoolean;-typedef unsigned int EGLenum;-typedef void *EGLConfig;-typedef void *EGLContext;-typedef void *EGLDisplay;-typedef void *EGLSurface;-typedef void *EGLClientBuffer;--/* EGL Versioning */-#define EGL_VERSION_1_0 1-#define EGL_VERSION_1_1 1-#define EGL_VERSION_1_2 1-#define EGL_VERSION_1_3 1-#define EGL_VERSION_1_4 1--/* EGL Enumerants. Bitmasks and other exceptional cases aside, most- * enums are assigned unique values starting at 0x3000.- */--/* EGL aliases */-#define EGL_FALSE 0-#define EGL_TRUE 1--/* Out-of-band handle values */-#define EGL_DEFAULT_DISPLAY ((EGLNativeDisplayType)0)-#define EGL_NO_CONTEXT ((EGLContext)0)-#define EGL_NO_DISPLAY ((EGLDisplay)0)-#define EGL_NO_SURFACE ((EGLSurface)0)--/* Out-of-band attribute value */-#define EGL_DONT_CARE ((EGLint)-1)--/* Errors / GetError return values */-#define EGL_SUCCESS 0x3000-#define EGL_NOT_INITIALIZED 0x3001-#define EGL_BAD_ACCESS 0x3002-#define EGL_BAD_ALLOC 0x3003-#define EGL_BAD_ATTRIBUTE 0x3004-#define EGL_BAD_CONFIG 0x3005-#define EGL_BAD_CONTEXT 0x3006-#define EGL_BAD_CURRENT_SURFACE 0x3007-#define EGL_BAD_DISPLAY 0x3008-#define EGL_BAD_MATCH 0x3009-#define EGL_BAD_NATIVE_PIXMAP 0x300A-#define EGL_BAD_NATIVE_WINDOW 0x300B-#define EGL_BAD_PARAMETER 0x300C-#define EGL_BAD_SURFACE 0x300D-#define EGL_CONTEXT_LOST 0x300E /* EGL 1.1 - IMG_power_management */--/* Reserved 0x300F-0x301F for additional errors */--/* Config attributes */-#define EGL_BUFFER_SIZE 0x3020-#define EGL_ALPHA_SIZE 0x3021-#define EGL_BLUE_SIZE 0x3022-#define EGL_GREEN_SIZE 0x3023-#define EGL_RED_SIZE 0x3024-#define EGL_DEPTH_SIZE 0x3025-#define EGL_STENCIL_SIZE 0x3026-#define EGL_CONFIG_CAVEAT 0x3027-#define EGL_CONFIG_ID 0x3028-#define EGL_LEVEL 0x3029-#define EGL_MAX_PBUFFER_HEIGHT 0x302A-#define EGL_MAX_PBUFFER_PIXELS 0x302B-#define EGL_MAX_PBUFFER_WIDTH 0x302C-#define EGL_NATIVE_RENDERABLE 0x302D-#define EGL_NATIVE_VISUAL_ID 0x302E-#define EGL_NATIVE_VISUAL_TYPE 0x302F-#define EGL_SAMPLES 0x3031-#define EGL_SAMPLE_BUFFERS 0x3032-#define EGL_SURFACE_TYPE 0x3033-#define EGL_TRANSPARENT_TYPE 0x3034-#define EGL_TRANSPARENT_BLUE_VALUE 0x3035-#define EGL_TRANSPARENT_GREEN_VALUE 0x3036-#define EGL_TRANSPARENT_RED_VALUE 0x3037-#define EGL_NONE 0x3038 /* Attrib list terminator */-#define EGL_BIND_TO_TEXTURE_RGB 0x3039-#define EGL_BIND_TO_TEXTURE_RGBA 0x303A-#define EGL_MIN_SWAP_INTERVAL 0x303B-#define EGL_MAX_SWAP_INTERVAL 0x303C-#define EGL_LUMINANCE_SIZE 0x303D-#define EGL_ALPHA_MASK_SIZE 0x303E-#define EGL_COLOR_BUFFER_TYPE 0x303F-#define EGL_RENDERABLE_TYPE 0x3040-#define EGL_MATCH_NATIVE_PIXMAP 0x3041 /* Pseudo-attribute (not queryable) */-#define EGL_CONFORMANT 0x3042--/* Reserved 0x3041-0x304F for additional config attributes */--/* Config attribute values */-#define EGL_SLOW_CONFIG 0x3050 /* EGL_CONFIG_CAVEAT value */-#define EGL_NON_CONFORMANT_CONFIG 0x3051 /* EGL_CONFIG_CAVEAT value */-#define EGL_TRANSPARENT_RGB 0x3052 /* EGL_TRANSPARENT_TYPE value */-#define EGL_RGB_BUFFER 0x308E /* EGL_COLOR_BUFFER_TYPE value */-#define EGL_LUMINANCE_BUFFER 0x308F /* EGL_COLOR_BUFFER_TYPE value */--/* More config attribute values, for EGL_TEXTURE_FORMAT */-#define EGL_NO_TEXTURE 0x305C-#define EGL_TEXTURE_RGB 0x305D-#define EGL_TEXTURE_RGBA 0x305E-#define EGL_TEXTURE_2D 0x305F--/* Config attribute mask bits */-#define EGL_PBUFFER_BIT 0x0001 /* EGL_SURFACE_TYPE mask bits */-#define EGL_PIXMAP_BIT 0x0002 /* EGL_SURFACE_TYPE mask bits */-#define EGL_WINDOW_BIT 0x0004 /* EGL_SURFACE_TYPE mask bits */-#define EGL_VG_COLORSPACE_LINEAR_BIT 0x0020 /* EGL_SURFACE_TYPE mask bits */-#define EGL_VG_ALPHA_FORMAT_PRE_BIT 0x0040 /* EGL_SURFACE_TYPE mask bits */-#define EGL_MULTISAMPLE_RESOLVE_BOX_BIT 0x0200 /* EGL_SURFACE_TYPE mask bits */-#define EGL_SWAP_BEHAVIOR_PRESERVED_BIT 0x0400 /* EGL_SURFACE_TYPE mask bits */--#define EGL_OPENGL_ES_BIT 0x0001 /* EGL_RENDERABLE_TYPE mask bits */-#define EGL_OPENVG_BIT 0x0002 /* EGL_RENDERABLE_TYPE mask bits */-#define EGL_OPENGL_ES2_BIT 0x0004 /* EGL_RENDERABLE_TYPE mask bits */-#define EGL_OPENGL_BIT 0x0008 /* EGL_RENDERABLE_TYPE mask bits */--/* QueryString targets */-#define EGL_VENDOR 0x3053-#define EGL_VERSION 0x3054-#define EGL_EXTENSIONS 0x3055-#define EGL_CLIENT_APIS 0x308D--/* QuerySurface / SurfaceAttrib / CreatePbufferSurface targets */-#define EGL_HEIGHT 0x3056-#define EGL_WIDTH 0x3057-#define EGL_LARGEST_PBUFFER 0x3058-#define EGL_TEXTURE_FORMAT 0x3080-#define EGL_TEXTURE_TARGET 0x3081-#define EGL_MIPMAP_TEXTURE 0x3082-#define EGL_MIPMAP_LEVEL 0x3083-#define EGL_RENDER_BUFFER 0x3086-#define EGL_VG_COLORSPACE 0x3087-#define EGL_VG_ALPHA_FORMAT 0x3088-#define EGL_HORIZONTAL_RESOLUTION 0x3090-#define EGL_VERTICAL_RESOLUTION 0x3091-#define EGL_PIXEL_ASPECT_RATIO 0x3092-#define EGL_SWAP_BEHAVIOR 0x3093-#define EGL_MULTISAMPLE_RESOLVE 0x3099--/* EGL_RENDER_BUFFER values / BindTexImage / ReleaseTexImage buffer targets */-#define EGL_BACK_BUFFER 0x3084-#define EGL_SINGLE_BUFFER 0x3085--/* OpenVG color spaces */-#define EGL_VG_COLORSPACE_sRGB 0x3089 /* EGL_VG_COLORSPACE value */-#define EGL_VG_COLORSPACE_LINEAR 0x308A /* EGL_VG_COLORSPACE value */--/* OpenVG alpha formats */-#define EGL_VG_ALPHA_FORMAT_NONPRE 0x308B /* EGL_ALPHA_FORMAT value */-#define EGL_VG_ALPHA_FORMAT_PRE 0x308C /* EGL_ALPHA_FORMAT value */--/* Constant scale factor by which fractional display resolutions &- * aspect ratio are scaled when queried as integer values.- */-#define EGL_DISPLAY_SCALING 10000--/* Unknown display resolution/aspect ratio */-#define EGL_UNKNOWN ((EGLint)-1)--/* Back buffer swap behaviors */-#define EGL_BUFFER_PRESERVED 0x3094 /* EGL_SWAP_BEHAVIOR value */-#define EGL_BUFFER_DESTROYED 0x3095 /* EGL_SWAP_BEHAVIOR value */--/* CreatePbufferFromClientBuffer buffer types */-#define EGL_OPENVG_IMAGE 0x3096--/* QueryContext targets */-#define EGL_CONTEXT_CLIENT_TYPE 0x3097--/* CreateContext attributes */-#define EGL_CONTEXT_CLIENT_VERSION 0x3098--/* Multisample resolution behaviors */-#define EGL_MULTISAMPLE_RESOLVE_DEFAULT 0x309A /* EGL_MULTISAMPLE_RESOLVE value */-#define EGL_MULTISAMPLE_RESOLVE_BOX 0x309B /* EGL_MULTISAMPLE_RESOLVE value */--/* BindAPI/QueryAPI targets */-#define EGL_OPENGL_ES_API 0x30A0-#define EGL_OPENVG_API 0x30A1-#define EGL_OPENGL_API 0x30A2--/* GetCurrentSurface targets */-#define EGL_DRAW 0x3059-#define EGL_READ 0x305A--/* WaitNative engines */-#define EGL_CORE_NATIVE_ENGINE 0x305B--/* EGL 1.2 tokens renamed for consistency in EGL 1.3 */-#define EGL_COLORSPACE EGL_VG_COLORSPACE-#define EGL_ALPHA_FORMAT EGL_VG_ALPHA_FORMAT-#define EGL_COLORSPACE_sRGB EGL_VG_COLORSPACE_sRGB-#define EGL_COLORSPACE_LINEAR EGL_VG_COLORSPACE_LINEAR-#define EGL_ALPHA_FORMAT_NONPRE EGL_VG_ALPHA_FORMAT_NONPRE-#define EGL_ALPHA_FORMAT_PRE EGL_VG_ALPHA_FORMAT_PRE--/* EGL extensions must request enum blocks from the Khronos- * API Registrar, who maintains the enumerant registry. Submit- * a bug in Khronos Bugzilla against task "Registry".- */----/* EGL Functions */--EGLAPI EGLint EGLAPIENTRY eglGetError(void);--EGLAPI EGLDisplay EGLAPIENTRY eglGetDisplay(EGLNativeDisplayType display_id);-EGLAPI EGLBoolean EGLAPIENTRY eglInitialize(EGLDisplay dpy, EGLint *major, EGLint *minor);-EGLAPI EGLBoolean EGLAPIENTRY eglTerminate(EGLDisplay dpy);--EGLAPI const char * EGLAPIENTRY eglQueryString(EGLDisplay dpy, EGLint name);--EGLAPI EGLBoolean EGLAPIENTRY eglGetConfigs(EGLDisplay dpy, EGLConfig *configs,- EGLint config_size, EGLint *num_config);-EGLAPI EGLBoolean EGLAPIENTRY eglChooseConfig(EGLDisplay dpy, const EGLint *attrib_list,- EGLConfig *configs, EGLint config_size,- EGLint *num_config);-EGLAPI EGLBoolean EGLAPIENTRY eglGetConfigAttrib(EGLDisplay dpy, EGLConfig config,- EGLint attribute, EGLint *value);--EGLAPI EGLSurface EGLAPIENTRY eglCreateWindowSurface(EGLDisplay dpy, EGLConfig config,- EGLNativeWindowType win,- const EGLint *attrib_list);-EGLAPI EGLSurface EGLAPIENTRY eglCreatePbufferSurface(EGLDisplay dpy, EGLConfig config,- const EGLint *attrib_list);-EGLAPI EGLSurface EGLAPIENTRY eglCreatePixmapSurface(EGLDisplay dpy, EGLConfig config,- EGLNativePixmapType pixmap,- const EGLint *attrib_list);-EGLAPI EGLBoolean EGLAPIENTRY eglDestroySurface(EGLDisplay dpy, EGLSurface surface);-EGLAPI EGLBoolean EGLAPIENTRY eglQuerySurface(EGLDisplay dpy, EGLSurface surface,- EGLint attribute, EGLint *value);--EGLAPI EGLBoolean EGLAPIENTRY eglBindAPI(EGLenum api);-EGLAPI EGLenum EGLAPIENTRY eglQueryAPI(void);--EGLAPI EGLBoolean EGLAPIENTRY eglWaitClient(void);--EGLAPI EGLBoolean EGLAPIENTRY eglReleaseThread(void);--EGLAPI EGLSurface EGLAPIENTRY eglCreatePbufferFromClientBuffer(- EGLDisplay dpy, EGLenum buftype, EGLClientBuffer buffer,- EGLConfig config, const EGLint *attrib_list);--EGLAPI EGLBoolean EGLAPIENTRY eglSurfaceAttrib(EGLDisplay dpy, EGLSurface surface,- EGLint attribute, EGLint value);-EGLAPI EGLBoolean EGLAPIENTRY eglBindTexImage(EGLDisplay dpy, EGLSurface surface, EGLint buffer);-EGLAPI EGLBoolean EGLAPIENTRY eglReleaseTexImage(EGLDisplay dpy, EGLSurface surface, EGLint buffer);---EGLAPI EGLBoolean EGLAPIENTRY eglSwapInterval(EGLDisplay dpy, EGLint interval);---EGLAPI EGLContext EGLAPIENTRY eglCreateContext(EGLDisplay dpy, EGLConfig config,- EGLContext share_context,- const EGLint *attrib_list);-EGLAPI EGLBoolean EGLAPIENTRY eglDestroyContext(EGLDisplay dpy, EGLContext ctx);-EGLAPI EGLBoolean EGLAPIENTRY eglMakeCurrent(EGLDisplay dpy, EGLSurface draw,- EGLSurface read, EGLContext ctx);--EGLAPI EGLContext EGLAPIENTRY eglGetCurrentContext(void);-EGLAPI EGLSurface EGLAPIENTRY eglGetCurrentSurface(EGLint readdraw);-EGLAPI EGLDisplay EGLAPIENTRY eglGetCurrentDisplay(void);-EGLAPI EGLBoolean EGLAPIENTRY eglQueryContext(EGLDisplay dpy, EGLContext ctx,- EGLint attribute, EGLint *value);--EGLAPI EGLBoolean EGLAPIENTRY eglWaitGL(void);-EGLAPI EGLBoolean EGLAPIENTRY eglWaitNative(EGLint engine);-EGLAPI EGLBoolean EGLAPIENTRY eglSwapBuffers(EGLDisplay dpy, EGLSurface surface);-EGLAPI EGLBoolean EGLAPIENTRY eglCopyBuffers(EGLDisplay dpy, EGLSurface surface,- EGLNativePixmapType target);--/* This is a generic function pointer type, whose name indicates it must- * be cast to the proper type *and calling convention* before use.- */-typedef void (*__eglMustCastToProperFunctionPointerType)(void);--/* Now, define eglGetProcAddress using the generic function ptr. type */-EGLAPI __eglMustCastToProperFunctionPointerType EGLAPIENTRY- eglGetProcAddress(const char *procname);--#ifdef __cplusplus-}-#endif--#endif /* __egl_h_ */
− include/EGL/eglext.h
@@ -1,657 +0,0 @@-#ifndef __eglext_h_-#define __eglext_h_ 1--#ifdef __cplusplus-extern "C" {-#endif--/*-** Copyright (c) 2013-2014 The Khronos Group Inc.-**-** Permission is hereby granted, free of charge, to any person obtaining a-** copy of this software and/or associated documentation files (the-** "Materials"), to deal in the Materials without restriction, including-** without limitation the rights to use, copy, modify, merge, publish,-** distribute, sublicense, and/or sell copies of the Materials, and to-** permit persons to whom the Materials are furnished to do so, subject to-** the following conditions:-**-** The above copyright notice and this permission notice shall be included-** in all copies or substantial portions of the Materials.-**-** THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,-** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF-** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.-** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY-** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,-** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE-** MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS.-*/-/*-** This header is generated from the Khronos OpenGL / OpenGL ES XML-** API Registry. The current version of the Registry, generator scripts-** used to make the header, and the header can be found at-** http://www.opengl.org/registry/-**-** Khronos $Revision: 25231 $ on $Date: 2014-02-03 21:35:17 -0800 (Mon, 03 Feb 2014) $-*/--#include <EGL/eglplatform.h>--#define EGL_EGLEXT_VERSION 20140203--/* Generated C header for:- * API: egl- * Versions considered: .*- * Versions emitted: _nomatch_^- * Default extensions included: egl- * Additional extensions included: _nomatch_^- * Extensions removed: _nomatch_^- */--#ifndef EGL_KHR_cl_event-#define EGL_KHR_cl_event 1-#define EGL_CL_EVENT_HANDLE_KHR 0x309C-#define EGL_SYNC_CL_EVENT_KHR 0x30FE-#define EGL_SYNC_CL_EVENT_COMPLETE_KHR 0x30FF-#endif /* EGL_KHR_cl_event */--#ifndef EGL_KHR_cl_event2-#define EGL_KHR_cl_event2 1-typedef void *EGLSyncKHR;-typedef intptr_t EGLAttribKHR;-typedef EGLSyncKHR (EGLAPIENTRYP PFNEGLCREATESYNC64KHRPROC) (EGLDisplay dpy, EGLenum type, const EGLAttribKHR *attrib_list);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLSyncKHR EGLAPIENTRY eglCreateSync64KHR (EGLDisplay dpy, EGLenum type, const EGLAttribKHR *attrib_list);-#endif-#endif /* EGL_KHR_cl_event2 */--#ifndef EGL_KHR_client_get_all_proc_addresses-#define EGL_KHR_client_get_all_proc_addresses 1-#endif /* EGL_KHR_client_get_all_proc_addresses */--#ifndef EGL_KHR_config_attribs-#define EGL_KHR_config_attribs 1-#define EGL_CONFORMANT_KHR 0x3042-#define EGL_VG_COLORSPACE_LINEAR_BIT_KHR 0x0020-#define EGL_VG_ALPHA_FORMAT_PRE_BIT_KHR 0x0040-#endif /* EGL_KHR_config_attribs */--#ifndef EGL_KHR_create_context-#define EGL_KHR_create_context 1-#define EGL_CONTEXT_MAJOR_VERSION_KHR 0x3098-#define EGL_CONTEXT_MINOR_VERSION_KHR 0x30FB-#define EGL_CONTEXT_FLAGS_KHR 0x30FC-#define EGL_CONTEXT_OPENGL_PROFILE_MASK_KHR 0x30FD-#define EGL_CONTEXT_OPENGL_RESET_NOTIFICATION_STRATEGY_KHR 0x31BD-#define EGL_NO_RESET_NOTIFICATION_KHR 0x31BE-#define EGL_LOSE_CONTEXT_ON_RESET_KHR 0x31BF-#define EGL_CONTEXT_OPENGL_DEBUG_BIT_KHR 0x00000001-#define EGL_CONTEXT_OPENGL_FORWARD_COMPATIBLE_BIT_KHR 0x00000002-#define EGL_CONTEXT_OPENGL_ROBUST_ACCESS_BIT_KHR 0x00000004-#define EGL_CONTEXT_OPENGL_CORE_PROFILE_BIT_KHR 0x00000001-#define EGL_CONTEXT_OPENGL_COMPATIBILITY_PROFILE_BIT_KHR 0x00000002-#define EGL_OPENGL_ES3_BIT_KHR 0x00000040-#endif /* EGL_KHR_create_context */--#ifndef EGL_KHR_fence_sync-#define EGL_KHR_fence_sync 1-#ifdef KHRONOS_SUPPORT_INT64-#define EGL_SYNC_PRIOR_COMMANDS_COMPLETE_KHR 0x30F0-#define EGL_SYNC_CONDITION_KHR 0x30F8-#define EGL_SYNC_FENCE_KHR 0x30F9-#endif /* KHRONOS_SUPPORT_INT64 */-#endif /* EGL_KHR_fence_sync */--#ifndef EGL_KHR_get_all_proc_addresses-#define EGL_KHR_get_all_proc_addresses 1-#endif /* EGL_KHR_get_all_proc_addresses */--#ifndef EGL_KHR_gl_colorspace-#define EGL_KHR_gl_colorspace 1-#define EGL_GL_COLORSPACE_KHR 0x309D-#define EGL_GL_COLORSPACE_SRGB_KHR 0x3089-#define EGL_GL_COLORSPACE_LINEAR_KHR 0x308A-#endif /* EGL_KHR_gl_colorspace */--#ifndef EGL_KHR_gl_renderbuffer_image-#define EGL_KHR_gl_renderbuffer_image 1-#define EGL_GL_RENDERBUFFER_KHR 0x30B9-#endif /* EGL_KHR_gl_renderbuffer_image */--#ifndef EGL_KHR_gl_texture_2D_image-#define EGL_KHR_gl_texture_2D_image 1-#define EGL_GL_TEXTURE_2D_KHR 0x30B1-#define EGL_GL_TEXTURE_LEVEL_KHR 0x30BC-#endif /* EGL_KHR_gl_texture_2D_image */--#ifndef EGL_KHR_gl_texture_3D_image-#define EGL_KHR_gl_texture_3D_image 1-#define EGL_GL_TEXTURE_3D_KHR 0x30B2-#define EGL_GL_TEXTURE_ZOFFSET_KHR 0x30BD-#endif /* EGL_KHR_gl_texture_3D_image */--#ifndef EGL_KHR_gl_texture_cubemap_image-#define EGL_KHR_gl_texture_cubemap_image 1-#define EGL_GL_TEXTURE_CUBE_MAP_POSITIVE_X_KHR 0x30B3-#define EGL_GL_TEXTURE_CUBE_MAP_NEGATIVE_X_KHR 0x30B4-#define EGL_GL_TEXTURE_CUBE_MAP_POSITIVE_Y_KHR 0x30B5-#define EGL_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_KHR 0x30B6-#define EGL_GL_TEXTURE_CUBE_MAP_POSITIVE_Z_KHR 0x30B7-#define EGL_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_KHR 0x30B8-#endif /* EGL_KHR_gl_texture_cubemap_image */--#ifndef EGL_KHR_image-#define EGL_KHR_image 1-typedef void *EGLImageKHR;-#define EGL_NATIVE_PIXMAP_KHR 0x30B0-#define EGL_NO_IMAGE_KHR ((EGLImageKHR)0)-typedef EGLImageKHR (EGLAPIENTRYP PFNEGLCREATEIMAGEKHRPROC) (EGLDisplay dpy, EGLContext ctx, EGLenum target, EGLClientBuffer buffer, const EGLint *attrib_list);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLDESTROYIMAGEKHRPROC) (EGLDisplay dpy, EGLImageKHR image);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLImageKHR EGLAPIENTRY eglCreateImageKHR (EGLDisplay dpy, EGLContext ctx, EGLenum target, EGLClientBuffer buffer, const EGLint *attrib_list);-EGLAPI EGLBoolean EGLAPIENTRY eglDestroyImageKHR (EGLDisplay dpy, EGLImageKHR image);-#endif-#endif /* EGL_KHR_image */--#ifndef EGL_KHR_image_base-#define EGL_KHR_image_base 1-#define EGL_IMAGE_PRESERVED_KHR 0x30D2-#endif /* EGL_KHR_image_base */--#ifndef EGL_KHR_image_pixmap-#define EGL_KHR_image_pixmap 1-#endif /* EGL_KHR_image_pixmap */--#ifndef EGL_KHR_lock_surface-#define EGL_KHR_lock_surface 1-#define EGL_READ_SURFACE_BIT_KHR 0x0001-#define EGL_WRITE_SURFACE_BIT_KHR 0x0002-#define EGL_LOCK_SURFACE_BIT_KHR 0x0080-#define EGL_OPTIMAL_FORMAT_BIT_KHR 0x0100-#define EGL_MATCH_FORMAT_KHR 0x3043-#define EGL_FORMAT_RGB_565_EXACT_KHR 0x30C0-#define EGL_FORMAT_RGB_565_KHR 0x30C1-#define EGL_FORMAT_RGBA_8888_EXACT_KHR 0x30C2-#define EGL_FORMAT_RGBA_8888_KHR 0x30C3-#define EGL_MAP_PRESERVE_PIXELS_KHR 0x30C4-#define EGL_LOCK_USAGE_HINT_KHR 0x30C5-#define EGL_BITMAP_POINTER_KHR 0x30C6-#define EGL_BITMAP_PITCH_KHR 0x30C7-#define EGL_BITMAP_ORIGIN_KHR 0x30C8-#define EGL_BITMAP_PIXEL_RED_OFFSET_KHR 0x30C9-#define EGL_BITMAP_PIXEL_GREEN_OFFSET_KHR 0x30CA-#define EGL_BITMAP_PIXEL_BLUE_OFFSET_KHR 0x30CB-#define EGL_BITMAP_PIXEL_ALPHA_OFFSET_KHR 0x30CC-#define EGL_BITMAP_PIXEL_LUMINANCE_OFFSET_KHR 0x30CD-#define EGL_LOWER_LEFT_KHR 0x30CE-#define EGL_UPPER_LEFT_KHR 0x30CF-typedef EGLBoolean (EGLAPIENTRYP PFNEGLLOCKSURFACEKHRPROC) (EGLDisplay dpy, EGLSurface surface, const EGLint *attrib_list);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLUNLOCKSURFACEKHRPROC) (EGLDisplay dpy, EGLSurface surface);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLBoolean EGLAPIENTRY eglLockSurfaceKHR (EGLDisplay dpy, EGLSurface surface, const EGLint *attrib_list);-EGLAPI EGLBoolean EGLAPIENTRY eglUnlockSurfaceKHR (EGLDisplay dpy, EGLSurface surface);-#endif-#endif /* EGL_KHR_lock_surface */--#ifndef EGL_KHR_lock_surface2-#define EGL_KHR_lock_surface2 1-#define EGL_BITMAP_PIXEL_SIZE_KHR 0x3110-#endif /* EGL_KHR_lock_surface2 */--#ifndef EGL_KHR_lock_surface3-#define EGL_KHR_lock_surface3 1-typedef EGLBoolean (EGLAPIENTRYP PFNEGLQUERYSURFACE64KHRPROC) (EGLDisplay dpy, EGLSurface surface, EGLint attribute, EGLAttribKHR *value);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLBoolean EGLAPIENTRY eglQuerySurface64KHR (EGLDisplay dpy, EGLSurface surface, EGLint attribute, EGLAttribKHR *value);-#endif-#endif /* EGL_KHR_lock_surface3 */--#ifndef EGL_KHR_reusable_sync-#define EGL_KHR_reusable_sync 1-typedef khronos_utime_nanoseconds_t EGLTimeKHR;-#ifdef KHRONOS_SUPPORT_INT64-#define EGL_SYNC_STATUS_KHR 0x30F1-#define EGL_SIGNALED_KHR 0x30F2-#define EGL_UNSIGNALED_KHR 0x30F3-#define EGL_TIMEOUT_EXPIRED_KHR 0x30F5-#define EGL_CONDITION_SATISFIED_KHR 0x30F6-#define EGL_SYNC_TYPE_KHR 0x30F7-#define EGL_SYNC_REUSABLE_KHR 0x30FA-#define EGL_SYNC_FLUSH_COMMANDS_BIT_KHR 0x0001-#define EGL_FOREVER_KHR 0xFFFFFFFFFFFFFFFFull-#define EGL_NO_SYNC_KHR ((EGLSyncKHR)0)-typedef EGLSyncKHR (EGLAPIENTRYP PFNEGLCREATESYNCKHRPROC) (EGLDisplay dpy, EGLenum type, const EGLint *attrib_list);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLDESTROYSYNCKHRPROC) (EGLDisplay dpy, EGLSyncKHR sync);-typedef EGLint (EGLAPIENTRYP PFNEGLCLIENTWAITSYNCKHRPROC) (EGLDisplay dpy, EGLSyncKHR sync, EGLint flags, EGLTimeKHR timeout);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLSIGNALSYNCKHRPROC) (EGLDisplay dpy, EGLSyncKHR sync, EGLenum mode);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLGETSYNCATTRIBKHRPROC) (EGLDisplay dpy, EGLSyncKHR sync, EGLint attribute, EGLint *value);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLSyncKHR EGLAPIENTRY eglCreateSyncKHR (EGLDisplay dpy, EGLenum type, const EGLint *attrib_list);-EGLAPI EGLBoolean EGLAPIENTRY eglDestroySyncKHR (EGLDisplay dpy, EGLSyncKHR sync);-EGLAPI EGLint EGLAPIENTRY eglClientWaitSyncKHR (EGLDisplay dpy, EGLSyncKHR sync, EGLint flags, EGLTimeKHR timeout);-EGLAPI EGLBoolean EGLAPIENTRY eglSignalSyncKHR (EGLDisplay dpy, EGLSyncKHR sync, EGLenum mode);-EGLAPI EGLBoolean EGLAPIENTRY eglGetSyncAttribKHR (EGLDisplay dpy, EGLSyncKHR sync, EGLint attribute, EGLint *value);-#endif-#endif /* KHRONOS_SUPPORT_INT64 */-#endif /* EGL_KHR_reusable_sync */--#ifndef EGL_KHR_stream-#define EGL_KHR_stream 1-typedef void *EGLStreamKHR;-typedef khronos_uint64_t EGLuint64KHR;-#ifdef KHRONOS_SUPPORT_INT64-#define EGL_NO_STREAM_KHR ((EGLStreamKHR)0)-#define EGL_CONSUMER_LATENCY_USEC_KHR 0x3210-#define EGL_PRODUCER_FRAME_KHR 0x3212-#define EGL_CONSUMER_FRAME_KHR 0x3213-#define EGL_STREAM_STATE_KHR 0x3214-#define EGL_STREAM_STATE_CREATED_KHR 0x3215-#define EGL_STREAM_STATE_CONNECTING_KHR 0x3216-#define EGL_STREAM_STATE_EMPTY_KHR 0x3217-#define EGL_STREAM_STATE_NEW_FRAME_AVAILABLE_KHR 0x3218-#define EGL_STREAM_STATE_OLD_FRAME_AVAILABLE_KHR 0x3219-#define EGL_STREAM_STATE_DISCONNECTED_KHR 0x321A-#define EGL_BAD_STREAM_KHR 0x321B-#define EGL_BAD_STATE_KHR 0x321C-typedef EGLStreamKHR (EGLAPIENTRYP PFNEGLCREATESTREAMKHRPROC) (EGLDisplay dpy, const EGLint *attrib_list);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLDESTROYSTREAMKHRPROC) (EGLDisplay dpy, EGLStreamKHR stream);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLSTREAMATTRIBKHRPROC) (EGLDisplay dpy, EGLStreamKHR stream, EGLenum attribute, EGLint value);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLQUERYSTREAMKHRPROC) (EGLDisplay dpy, EGLStreamKHR stream, EGLenum attribute, EGLint *value);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLQUERYSTREAMU64KHRPROC) (EGLDisplay dpy, EGLStreamKHR stream, EGLenum attribute, EGLuint64KHR *value);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLStreamKHR EGLAPIENTRY eglCreateStreamKHR (EGLDisplay dpy, const EGLint *attrib_list);-EGLAPI EGLBoolean EGLAPIENTRY eglDestroyStreamKHR (EGLDisplay dpy, EGLStreamKHR stream);-EGLAPI EGLBoolean EGLAPIENTRY eglStreamAttribKHR (EGLDisplay dpy, EGLStreamKHR stream, EGLenum attribute, EGLint value);-EGLAPI EGLBoolean EGLAPIENTRY eglQueryStreamKHR (EGLDisplay dpy, EGLStreamKHR stream, EGLenum attribute, EGLint *value);-EGLAPI EGLBoolean EGLAPIENTRY eglQueryStreamu64KHR (EGLDisplay dpy, EGLStreamKHR stream, EGLenum attribute, EGLuint64KHR *value);-#endif-#endif /* KHRONOS_SUPPORT_INT64 */-#endif /* EGL_KHR_stream */--#ifndef EGL_KHR_stream_consumer_gltexture-#define EGL_KHR_stream_consumer_gltexture 1-#ifdef EGL_KHR_stream-#define EGL_CONSUMER_ACQUIRE_TIMEOUT_USEC_KHR 0x321E-typedef EGLBoolean (EGLAPIENTRYP PFNEGLSTREAMCONSUMERGLTEXTUREEXTERNALKHRPROC) (EGLDisplay dpy, EGLStreamKHR stream);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLSTREAMCONSUMERACQUIREKHRPROC) (EGLDisplay dpy, EGLStreamKHR stream);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLSTREAMCONSUMERRELEASEKHRPROC) (EGLDisplay dpy, EGLStreamKHR stream);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLBoolean EGLAPIENTRY eglStreamConsumerGLTextureExternalKHR (EGLDisplay dpy, EGLStreamKHR stream);-EGLAPI EGLBoolean EGLAPIENTRY eglStreamConsumerAcquireKHR (EGLDisplay dpy, EGLStreamKHR stream);-EGLAPI EGLBoolean EGLAPIENTRY eglStreamConsumerReleaseKHR (EGLDisplay dpy, EGLStreamKHR stream);-#endif-#endif /* EGL_KHR_stream */-#endif /* EGL_KHR_stream_consumer_gltexture */--#ifndef EGL_KHR_stream_cross_process_fd-#define EGL_KHR_stream_cross_process_fd 1-typedef int EGLNativeFileDescriptorKHR;-#ifdef EGL_KHR_stream-#define EGL_NO_FILE_DESCRIPTOR_KHR ((EGLNativeFileDescriptorKHR)(-1))-typedef EGLNativeFileDescriptorKHR (EGLAPIENTRYP PFNEGLGETSTREAMFILEDESCRIPTORKHRPROC) (EGLDisplay dpy, EGLStreamKHR stream);-typedef EGLStreamKHR (EGLAPIENTRYP PFNEGLCREATESTREAMFROMFILEDESCRIPTORKHRPROC) (EGLDisplay dpy, EGLNativeFileDescriptorKHR file_descriptor);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLNativeFileDescriptorKHR EGLAPIENTRY eglGetStreamFileDescriptorKHR (EGLDisplay dpy, EGLStreamKHR stream);-EGLAPI EGLStreamKHR EGLAPIENTRY eglCreateStreamFromFileDescriptorKHR (EGLDisplay dpy, EGLNativeFileDescriptorKHR file_descriptor);-#endif-#endif /* EGL_KHR_stream */-#endif /* EGL_KHR_stream_cross_process_fd */--#ifndef EGL_KHR_stream_fifo-#define EGL_KHR_stream_fifo 1-#ifdef EGL_KHR_stream-#define EGL_STREAM_FIFO_LENGTH_KHR 0x31FC-#define EGL_STREAM_TIME_NOW_KHR 0x31FD-#define EGL_STREAM_TIME_CONSUMER_KHR 0x31FE-#define EGL_STREAM_TIME_PRODUCER_KHR 0x31FF-typedef EGLBoolean (EGLAPIENTRYP PFNEGLQUERYSTREAMTIMEKHRPROC) (EGLDisplay dpy, EGLStreamKHR stream, EGLenum attribute, EGLTimeKHR *value);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLBoolean EGLAPIENTRY eglQueryStreamTimeKHR (EGLDisplay dpy, EGLStreamKHR stream, EGLenum attribute, EGLTimeKHR *value);-#endif-#endif /* EGL_KHR_stream */-#endif /* EGL_KHR_stream_fifo */--#ifndef EGL_KHR_stream_producer_aldatalocator-#define EGL_KHR_stream_producer_aldatalocator 1-#ifdef EGL_KHR_stream-#endif /* EGL_KHR_stream */-#endif /* EGL_KHR_stream_producer_aldatalocator */--#ifndef EGL_KHR_stream_producer_eglsurface-#define EGL_KHR_stream_producer_eglsurface 1-#ifdef EGL_KHR_stream-#define EGL_STREAM_BIT_KHR 0x0800-typedef EGLSurface (EGLAPIENTRYP PFNEGLCREATESTREAMPRODUCERSURFACEKHRPROC) (EGLDisplay dpy, EGLConfig config, EGLStreamKHR stream, const EGLint *attrib_list);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLSurface EGLAPIENTRY eglCreateStreamProducerSurfaceKHR (EGLDisplay dpy, EGLConfig config, EGLStreamKHR stream, const EGLint *attrib_list);-#endif-#endif /* EGL_KHR_stream */-#endif /* EGL_KHR_stream_producer_eglsurface */--#ifndef EGL_KHR_surfaceless_context-#define EGL_KHR_surfaceless_context 1-#endif /* EGL_KHR_surfaceless_context */--#ifndef EGL_KHR_vg_parent_image-#define EGL_KHR_vg_parent_image 1-#define EGL_VG_PARENT_IMAGE_KHR 0x30BA-#endif /* EGL_KHR_vg_parent_image */--#ifndef EGL_KHR_wait_sync-#define EGL_KHR_wait_sync 1-typedef EGLint (EGLAPIENTRYP PFNEGLWAITSYNCKHRPROC) (EGLDisplay dpy, EGLSyncKHR sync, EGLint flags);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLint EGLAPIENTRY eglWaitSyncKHR (EGLDisplay dpy, EGLSyncKHR sync, EGLint flags);-#endif-#endif /* EGL_KHR_wait_sync */--#ifndef EGL_ANDROID_blob_cache-#define EGL_ANDROID_blob_cache 1-typedef khronos_ssize_t EGLsizeiANDROID;-typedef void (*EGLSetBlobFuncANDROID) (const void *key, EGLsizeiANDROID keySize, const void *value, EGLsizeiANDROID valueSize);-typedef EGLsizeiANDROID (*EGLGetBlobFuncANDROID) (const void *key, EGLsizeiANDROID keySize, void *value, EGLsizeiANDROID valueSize);-typedef void (EGLAPIENTRYP PFNEGLSETBLOBCACHEFUNCSANDROIDPROC) (EGLDisplay dpy, EGLSetBlobFuncANDROID set, EGLGetBlobFuncANDROID get);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI void EGLAPIENTRY eglSetBlobCacheFuncsANDROID (EGLDisplay dpy, EGLSetBlobFuncANDROID set, EGLGetBlobFuncANDROID get);-#endif-#endif /* EGL_ANDROID_blob_cache */--#ifndef EGL_ANDROID_framebuffer_target-#define EGL_ANDROID_framebuffer_target 1-#define EGL_FRAMEBUFFER_TARGET_ANDROID 0x3147-#endif /* EGL_ANDROID_framebuffer_target */--#ifndef EGL_ANDROID_image_native_buffer-#define EGL_ANDROID_image_native_buffer 1-#define EGL_NATIVE_BUFFER_ANDROID 0x3140-#endif /* EGL_ANDROID_image_native_buffer */--#ifndef EGL_ANDROID_native_fence_sync-#define EGL_ANDROID_native_fence_sync 1-#define EGL_SYNC_NATIVE_FENCE_ANDROID 0x3144-#define EGL_SYNC_NATIVE_FENCE_FD_ANDROID 0x3145-#define EGL_SYNC_NATIVE_FENCE_SIGNALED_ANDROID 0x3146-#define EGL_NO_NATIVE_FENCE_FD_ANDROID -1-typedef EGLint (EGLAPIENTRYP PFNEGLDUPNATIVEFENCEFDANDROIDPROC) (EGLDisplay dpy, EGLSyncKHR sync);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLint EGLAPIENTRY eglDupNativeFenceFDANDROID (EGLDisplay dpy, EGLSyncKHR sync);-#endif-#endif /* EGL_ANDROID_native_fence_sync */--#ifndef EGL_ANDROID_recordable-#define EGL_ANDROID_recordable 1-#define EGL_RECORDABLE_ANDROID 0x3142-#endif /* EGL_ANDROID_recordable */--#ifndef EGL_ANGLE_d3d_share_handle_client_buffer-#define EGL_ANGLE_d3d_share_handle_client_buffer 1-#define EGL_D3D_TEXTURE_2D_SHARE_HANDLE_ANGLE 0x3200-#endif /* EGL_ANGLE_d3d_share_handle_client_buffer */--#ifndef EGL_ANGLE_query_surface_pointer-#define EGL_ANGLE_query_surface_pointer 1-typedef EGLBoolean (EGLAPIENTRYP PFNEGLQUERYSURFACEPOINTERANGLEPROC) (EGLDisplay dpy, EGLSurface surface, EGLint attribute, void **value);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLBoolean EGLAPIENTRY eglQuerySurfacePointerANGLE (EGLDisplay dpy, EGLSurface surface, EGLint attribute, void **value);-#endif-#endif /* EGL_ANGLE_query_surface_pointer */--#ifndef EGL_ANGLE_surface_d3d_texture_2d_share_handle-#define EGL_ANGLE_surface_d3d_texture_2d_share_handle 1-#endif /* EGL_ANGLE_surface_d3d_texture_2d_share_handle */--#ifndef EGL_ARM_pixmap_multisample_discard-#define EGL_ARM_pixmap_multisample_discard 1-#define EGL_DISCARD_SAMPLES_ARM 0x3286-#endif /* EGL_ARM_pixmap_multisample_discard */--#ifndef EGL_EXT_buffer_age-#define EGL_EXT_buffer_age 1-#define EGL_BUFFER_AGE_EXT 0x313D-#endif /* EGL_EXT_buffer_age */--#ifndef EGL_EXT_client_extensions-#define EGL_EXT_client_extensions 1-#endif /* EGL_EXT_client_extensions */--#ifndef EGL_EXT_create_context_robustness-#define EGL_EXT_create_context_robustness 1-#define EGL_CONTEXT_OPENGL_ROBUST_ACCESS_EXT 0x30BF-#define EGL_CONTEXT_OPENGL_RESET_NOTIFICATION_STRATEGY_EXT 0x3138-#define EGL_NO_RESET_NOTIFICATION_EXT 0x31BE-#define EGL_LOSE_CONTEXT_ON_RESET_EXT 0x31BF-#endif /* EGL_EXT_create_context_robustness */--#ifndef EGL_EXT_image_dma_buf_import-#define EGL_EXT_image_dma_buf_import 1-#define EGL_LINUX_DMA_BUF_EXT 0x3270-#define EGL_LINUX_DRM_FOURCC_EXT 0x3271-#define EGL_DMA_BUF_PLANE0_FD_EXT 0x3272-#define EGL_DMA_BUF_PLANE0_OFFSET_EXT 0x3273-#define EGL_DMA_BUF_PLANE0_PITCH_EXT 0x3274-#define EGL_DMA_BUF_PLANE1_FD_EXT 0x3275-#define EGL_DMA_BUF_PLANE1_OFFSET_EXT 0x3276-#define EGL_DMA_BUF_PLANE1_PITCH_EXT 0x3277-#define EGL_DMA_BUF_PLANE2_FD_EXT 0x3278-#define EGL_DMA_BUF_PLANE2_OFFSET_EXT 0x3279-#define EGL_DMA_BUF_PLANE2_PITCH_EXT 0x327A-#define EGL_YUV_COLOR_SPACE_HINT_EXT 0x327B-#define EGL_SAMPLE_RANGE_HINT_EXT 0x327C-#define EGL_YUV_CHROMA_HORIZONTAL_SITING_HINT_EXT 0x327D-#define EGL_YUV_CHROMA_VERTICAL_SITING_HINT_EXT 0x327E-#define EGL_ITU_REC601_EXT 0x327F-#define EGL_ITU_REC709_EXT 0x3280-#define EGL_ITU_REC2020_EXT 0x3281-#define EGL_YUV_FULL_RANGE_EXT 0x3282-#define EGL_YUV_NARROW_RANGE_EXT 0x3283-#define EGL_YUV_CHROMA_SITING_0_EXT 0x3284-#define EGL_YUV_CHROMA_SITING_0_5_EXT 0x3285-#endif /* EGL_EXT_image_dma_buf_import */--#ifndef EGL_EXT_multiview_window-#define EGL_EXT_multiview_window 1-#define EGL_MULTIVIEW_VIEW_COUNT_EXT 0x3134-#endif /* EGL_EXT_multiview_window */--#ifndef EGL_EXT_platform_base-#define EGL_EXT_platform_base 1-typedef EGLDisplay (EGLAPIENTRYP PFNEGLGETPLATFORMDISPLAYEXTPROC) (EGLenum platform, void *native_display, const EGLint *attrib_list);-typedef EGLSurface (EGLAPIENTRYP PFNEGLCREATEPLATFORMWINDOWSURFACEEXTPROC) (EGLDisplay dpy, EGLConfig config, void *native_window, const EGLint *attrib_list);-typedef EGLSurface (EGLAPIENTRYP PFNEGLCREATEPLATFORMPIXMAPSURFACEEXTPROC) (EGLDisplay dpy, EGLConfig config, void *native_pixmap, const EGLint *attrib_list);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLDisplay EGLAPIENTRY eglGetPlatformDisplayEXT (EGLenum platform, void *native_display, const EGLint *attrib_list);-EGLAPI EGLSurface EGLAPIENTRY eglCreatePlatformWindowSurfaceEXT (EGLDisplay dpy, EGLConfig config, void *native_window, const EGLint *attrib_list);-EGLAPI EGLSurface EGLAPIENTRY eglCreatePlatformPixmapSurfaceEXT (EGLDisplay dpy, EGLConfig config, void *native_pixmap, const EGLint *attrib_list);-#endif-#endif /* EGL_EXT_platform_base */--#ifndef EGL_EXT_platform_wayland-#define EGL_EXT_platform_wayland 1-#define EGL_PLATFORM_WAYLAND_EXT 0x31D8-#endif /* EGL_EXT_platform_wayland */--#ifndef EGL_EXT_platform_x11-#define EGL_EXT_platform_x11 1-#define EGL_PLATFORM_X11_EXT 0x31D5-#define EGL_PLATFORM_X11_SCREEN_EXT 0x31D6-#endif /* EGL_EXT_platform_x11 */--#ifndef EGL_EXT_protected_surface-#define EGL_EXT_protected_surface 1-#define EGL_PROTECTED_CONTENT_EXT 0x32C0-#endif /* EGL_EXT_protected_surface */--#ifndef EGL_EXT_swap_buffers_with_damage-#define EGL_EXT_swap_buffers_with_damage 1-typedef EGLBoolean (EGLAPIENTRYP PFNEGLSWAPBUFFERSWITHDAMAGEEXTPROC) (EGLDisplay dpy, EGLSurface surface, EGLint *rects, EGLint n_rects);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLBoolean EGLAPIENTRY eglSwapBuffersWithDamageEXT (EGLDisplay dpy, EGLSurface surface, EGLint *rects, EGLint n_rects);-#endif-#endif /* EGL_EXT_swap_buffers_with_damage */--#ifndef EGL_HI_clientpixmap-#define EGL_HI_clientpixmap 1-struct EGLClientPixmapHI {- void *pData;- EGLint iWidth;- EGLint iHeight;- EGLint iStride;-};-#define EGL_CLIENT_PIXMAP_POINTER_HI 0x8F74-typedef EGLSurface (EGLAPIENTRYP PFNEGLCREATEPIXMAPSURFACEHIPROC) (EGLDisplay dpy, EGLConfig config, struct EGLClientPixmapHI *pixmap);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLSurface EGLAPIENTRY eglCreatePixmapSurfaceHI (EGLDisplay dpy, EGLConfig config, struct EGLClientPixmapHI *pixmap);-#endif-#endif /* EGL_HI_clientpixmap */--#ifndef EGL_HI_colorformats-#define EGL_HI_colorformats 1-#define EGL_COLOR_FORMAT_HI 0x8F70-#define EGL_COLOR_RGB_HI 0x8F71-#define EGL_COLOR_RGBA_HI 0x8F72-#define EGL_COLOR_ARGB_HI 0x8F73-#endif /* EGL_HI_colorformats */--#ifndef EGL_IMG_context_priority-#define EGL_IMG_context_priority 1-#define EGL_CONTEXT_PRIORITY_LEVEL_IMG 0x3100-#define EGL_CONTEXT_PRIORITY_HIGH_IMG 0x3101-#define EGL_CONTEXT_PRIORITY_MEDIUM_IMG 0x3102-#define EGL_CONTEXT_PRIORITY_LOW_IMG 0x3103-#endif /* EGL_IMG_context_priority */--#ifndef EGL_MESA_drm_image-#define EGL_MESA_drm_image 1-#define EGL_DRM_BUFFER_FORMAT_MESA 0x31D0-#define EGL_DRM_BUFFER_USE_MESA 0x31D1-#define EGL_DRM_BUFFER_FORMAT_ARGB32_MESA 0x31D2-#define EGL_DRM_BUFFER_MESA 0x31D3-#define EGL_DRM_BUFFER_STRIDE_MESA 0x31D4-#define EGL_DRM_BUFFER_USE_SCANOUT_MESA 0x00000001-#define EGL_DRM_BUFFER_USE_SHARE_MESA 0x00000002-typedef EGLImageKHR (EGLAPIENTRYP PFNEGLCREATEDRMIMAGEMESAPROC) (EGLDisplay dpy, const EGLint *attrib_list);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLEXPORTDRMIMAGEMESAPROC) (EGLDisplay dpy, EGLImageKHR image, EGLint *name, EGLint *handle, EGLint *stride);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLImageKHR EGLAPIENTRY eglCreateDRMImageMESA (EGLDisplay dpy, const EGLint *attrib_list);-EGLAPI EGLBoolean EGLAPIENTRY eglExportDRMImageMESA (EGLDisplay dpy, EGLImageKHR image, EGLint *name, EGLint *handle, EGLint *stride);-#endif-#endif /* EGL_MESA_drm_image */--#ifndef EGL_MESA_platform_gbm-#define EGL_MESA_platform_gbm 1-#define EGL_PLATFORM_GBM_MESA 0x31D7-#endif /* EGL_MESA_platform_gbm */--#ifndef EGL_NV_3dvision_surface-#define EGL_NV_3dvision_surface 1-#define EGL_AUTO_STEREO_NV 0x3136-#endif /* EGL_NV_3dvision_surface */--#ifndef EGL_NV_coverage_sample-#define EGL_NV_coverage_sample 1-#define EGL_COVERAGE_BUFFERS_NV 0x30E0-#define EGL_COVERAGE_SAMPLES_NV 0x30E1-#endif /* EGL_NV_coverage_sample */--#ifndef EGL_NV_coverage_sample_resolve-#define EGL_NV_coverage_sample_resolve 1-#define EGL_COVERAGE_SAMPLE_RESOLVE_NV 0x3131-#define EGL_COVERAGE_SAMPLE_RESOLVE_DEFAULT_NV 0x3132-#define EGL_COVERAGE_SAMPLE_RESOLVE_NONE_NV 0x3133-#endif /* EGL_NV_coverage_sample_resolve */--#ifndef EGL_NV_depth_nonlinear-#define EGL_NV_depth_nonlinear 1-#define EGL_DEPTH_ENCODING_NV 0x30E2-#define EGL_DEPTH_ENCODING_NONE_NV 0-#define EGL_DEPTH_ENCODING_NONLINEAR_NV 0x30E3-#endif /* EGL_NV_depth_nonlinear */--#ifndef EGL_NV_native_query-#define EGL_NV_native_query 1-typedef EGLBoolean (EGLAPIENTRYP PFNEGLQUERYNATIVEDISPLAYNVPROC) (EGLDisplay dpy, EGLNativeDisplayType *display_id);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLQUERYNATIVEWINDOWNVPROC) (EGLDisplay dpy, EGLSurface surf, EGLNativeWindowType *window);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLQUERYNATIVEPIXMAPNVPROC) (EGLDisplay dpy, EGLSurface surf, EGLNativePixmapType *pixmap);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLBoolean EGLAPIENTRY eglQueryNativeDisplayNV (EGLDisplay dpy, EGLNativeDisplayType *display_id);-EGLAPI EGLBoolean EGLAPIENTRY eglQueryNativeWindowNV (EGLDisplay dpy, EGLSurface surf, EGLNativeWindowType *window);-EGLAPI EGLBoolean EGLAPIENTRY eglQueryNativePixmapNV (EGLDisplay dpy, EGLSurface surf, EGLNativePixmapType *pixmap);-#endif-#endif /* EGL_NV_native_query */--#ifndef EGL_NV_post_convert_rounding-#define EGL_NV_post_convert_rounding 1-#endif /* EGL_NV_post_convert_rounding */--#ifndef EGL_NV_post_sub_buffer-#define EGL_NV_post_sub_buffer 1-#define EGL_POST_SUB_BUFFER_SUPPORTED_NV 0x30BE-typedef EGLBoolean (EGLAPIENTRYP PFNEGLPOSTSUBBUFFERNVPROC) (EGLDisplay dpy, EGLSurface surface, EGLint x, EGLint y, EGLint width, EGLint height);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLBoolean EGLAPIENTRY eglPostSubBufferNV (EGLDisplay dpy, EGLSurface surface, EGLint x, EGLint y, EGLint width, EGLint height);-#endif-#endif /* EGL_NV_post_sub_buffer */--#ifndef EGL_NV_stream_sync-#define EGL_NV_stream_sync 1-#define EGL_SYNC_NEW_FRAME_NV 0x321F-typedef EGLSyncKHR (EGLAPIENTRYP PFNEGLCREATESTREAMSYNCNVPROC) (EGLDisplay dpy, EGLStreamKHR stream, EGLenum type, const EGLint *attrib_list);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLSyncKHR EGLAPIENTRY eglCreateStreamSyncNV (EGLDisplay dpy, EGLStreamKHR stream, EGLenum type, const EGLint *attrib_list);-#endif-#endif /* EGL_NV_stream_sync */--#ifndef EGL_NV_sync-#define EGL_NV_sync 1-typedef void *EGLSyncNV;-typedef khronos_utime_nanoseconds_t EGLTimeNV;-#ifdef KHRONOS_SUPPORT_INT64-#define EGL_SYNC_PRIOR_COMMANDS_COMPLETE_NV 0x30E6-#define EGL_SYNC_STATUS_NV 0x30E7-#define EGL_SIGNALED_NV 0x30E8-#define EGL_UNSIGNALED_NV 0x30E9-#define EGL_SYNC_FLUSH_COMMANDS_BIT_NV 0x0001-#define EGL_FOREVER_NV 0xFFFFFFFFFFFFFFFFull-#define EGL_ALREADY_SIGNALED_NV 0x30EA-#define EGL_TIMEOUT_EXPIRED_NV 0x30EB-#define EGL_CONDITION_SATISFIED_NV 0x30EC-#define EGL_SYNC_TYPE_NV 0x30ED-#define EGL_SYNC_CONDITION_NV 0x30EE-#define EGL_SYNC_FENCE_NV 0x30EF-#define EGL_NO_SYNC_NV ((EGLSyncNV)0)-typedef EGLSyncNV (EGLAPIENTRYP PFNEGLCREATEFENCESYNCNVPROC) (EGLDisplay dpy, EGLenum condition, const EGLint *attrib_list);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLDESTROYSYNCNVPROC) (EGLSyncNV sync);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLFENCENVPROC) (EGLSyncNV sync);-typedef EGLint (EGLAPIENTRYP PFNEGLCLIENTWAITSYNCNVPROC) (EGLSyncNV sync, EGLint flags, EGLTimeNV timeout);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLSIGNALSYNCNVPROC) (EGLSyncNV sync, EGLenum mode);-typedef EGLBoolean (EGLAPIENTRYP PFNEGLGETSYNCATTRIBNVPROC) (EGLSyncNV sync, EGLint attribute, EGLint *value);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLSyncNV EGLAPIENTRY eglCreateFenceSyncNV (EGLDisplay dpy, EGLenum condition, const EGLint *attrib_list);-EGLAPI EGLBoolean EGLAPIENTRY eglDestroySyncNV (EGLSyncNV sync);-EGLAPI EGLBoolean EGLAPIENTRY eglFenceNV (EGLSyncNV sync);-EGLAPI EGLint EGLAPIENTRY eglClientWaitSyncNV (EGLSyncNV sync, EGLint flags, EGLTimeNV timeout);-EGLAPI EGLBoolean EGLAPIENTRY eglSignalSyncNV (EGLSyncNV sync, EGLenum mode);-EGLAPI EGLBoolean EGLAPIENTRY eglGetSyncAttribNV (EGLSyncNV sync, EGLint attribute, EGLint *value);-#endif-#endif /* KHRONOS_SUPPORT_INT64 */-#endif /* EGL_NV_sync */--#ifndef EGL_NV_system_time-#define EGL_NV_system_time 1-typedef khronos_utime_nanoseconds_t EGLuint64NV;-#ifdef KHRONOS_SUPPORT_INT64-typedef EGLuint64NV (EGLAPIENTRYP PFNEGLGETSYSTEMTIMEFREQUENCYNVPROC) (void);-typedef EGLuint64NV (EGLAPIENTRYP PFNEGLGETSYSTEMTIMENVPROC) (void);-#ifdef EGL_EGLEXT_PROTOTYPES-EGLAPI EGLuint64NV EGLAPIENTRY eglGetSystemTimeFrequencyNV (void);-EGLAPI EGLuint64NV EGLAPIENTRY eglGetSystemTimeNV (void);-#endif-#endif /* KHRONOS_SUPPORT_INT64 */-#endif /* EGL_NV_system_time */--#ifdef __cplusplus-}-#endif--#endif
− include/EGL/eglplatform.h
@@ -1,125 +0,0 @@-#ifndef __eglplatform_h_-#define __eglplatform_h_--/*-** Copyright (c) 2007-2013 The Khronos Group Inc.-**-** Permission is hereby granted, free of charge, to any person obtaining a-** copy of this software and/or associated documentation files (the-** "Materials"), to deal in the Materials without restriction, including-** without limitation the rights to use, copy, modify, merge, publish,-** distribute, sublicense, and/or sell copies of the Materials, and to-** permit persons to whom the Materials are furnished to do so, subject to-** the following conditions:-**-** The above copyright notice and this permission notice shall be included-** in all copies or substantial portions of the Materials.-**-** THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,-** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF-** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.-** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY-** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,-** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE-** MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS.-*/--/* Platform-specific types and definitions for egl.h- * $Revision: 23432 $ on $Date: 2013-10-09 00:57:24 -0700 (Wed, 09 Oct 2013) $- *- * Adopters may modify khrplatform.h and this file to suit their platform.- * You are encouraged to submit all modifications to the Khronos group so that- * they can be included in future versions of this file. Please submit changes- * by sending them to the public Khronos Bugzilla (http://khronos.org/bugzilla)- * by filing a bug against product "EGL" component "Registry".- */--#include <KHR/khrplatform.h>--/* Macros used in EGL function prototype declarations.- *- * EGL functions should be prototyped as:- *- * EGLAPI return-type EGLAPIENTRY eglFunction(arguments);- * typedef return-type (EXPAPIENTRYP PFNEGLFUNCTIONPROC) (arguments);- *- * KHRONOS_APICALL and KHRONOS_APIENTRY are defined in KHR/khrplatform.h- */--#ifndef EGLAPI-#define EGLAPI KHRONOS_APICALL-#endif--#ifndef EGLAPIENTRY-#define EGLAPIENTRY KHRONOS_APIENTRY-#endif-#define EGLAPIENTRYP EGLAPIENTRY*--/* The types NativeDisplayType, NativeWindowType, and NativePixmapType- * are aliases of window-system-dependent types, such as X Display * or- * Windows Device Context. They must be defined in platform-specific- * code below. The EGL-prefixed versions of Native*Type are the same- * types, renamed in EGL 1.3 so all types in the API start with "EGL".- *- * Khronos STRONGLY RECOMMENDS that you use the default definitions- * provided below, since these changes affect both binary and source- * portability of applications using EGL running on different EGL- * implementations.- */--#if defined(_WIN32) || defined(__VC32__) && !defined(__CYGWIN__) && !defined(__SCITECH_SNAP__) /* Win32 and WinCE */-#ifndef WIN32_LEAN_AND_MEAN-#define WIN32_LEAN_AND_MEAN 1-#endif-#include <windows.h>--typedef HDC EGLNativeDisplayType;-typedef HBITMAP EGLNativePixmapType;-typedef HWND EGLNativeWindowType;--#elif defined(__WINSCW__) || defined(__SYMBIAN32__) /* Symbian */--typedef int EGLNativeDisplayType;-typedef void *EGLNativeWindowType;-typedef void *EGLNativePixmapType;--#elif defined(__ANDROID__) || defined(ANDROID)--#include <android/native_window.h>--struct egl_native_pixmap_t;--typedef struct ANativeWindow* EGLNativeWindowType;-typedef struct egl_native_pixmap_t* EGLNativePixmapType;-typedef void* EGLNativeDisplayType;--#elif defined(__unix__)--/* X11 (tentative) */-#include <X11/Xlib.h>-#include <X11/Xutil.h>--typedef Display *EGLNativeDisplayType;-typedef Pixmap EGLNativePixmapType;-typedef Window EGLNativeWindowType;--#else-#error "Platform not recognized"-#endif--/* EGL 1.2 types, renamed for consistency in EGL 1.3 */-typedef EGLNativeDisplayType NativeDisplayType;-typedef EGLNativePixmapType NativePixmapType;-typedef EGLNativeWindowType NativeWindowType;---/* Define EGLint. This must be a signed integral type large enough to contain- * all legal attribute names and values passed into and out of EGL, whether- * their type is boolean, bitmask, enumerant (symbolic constant), integer,- * handle, or other. While in general a 32-bit integer will suffice, if- * handles are 64 bit types, then EGLint should be defined as a signed 64-bit- * integer type.- */-typedef khronos_int32_t EGLint;--#endif /* __eglplatform_h */
− include/KHR/khrplatform.h
@@ -1,282 +0,0 @@-#ifndef __khrplatform_h_-#define __khrplatform_h_--/*-** Copyright (c) 2008-2009 The Khronos Group Inc.-**-** Permission is hereby granted, free of charge, to any person obtaining a-** copy of this software and/or associated documentation files (the-** "Materials"), to deal in the Materials without restriction, including-** without limitation the rights to use, copy, modify, merge, publish,-** distribute, sublicense, and/or sell copies of the Materials, and to-** permit persons to whom the Materials are furnished to do so, subject to-** the following conditions:-**-** The above copyright notice and this permission notice shall be included-** in all copies or substantial portions of the Materials.-**-** THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,-** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF-** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.-** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY-** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,-** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE-** MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS.-*/--/* Khronos platform-specific types and definitions.- *- * $Revision: 23298 $ on $Date: 2013-09-30 17:07:13 -0700 (Mon, 30 Sep 2013) $- *- * Adopters may modify this file to suit their platform. Adopters are- * encouraged to submit platform specific modifications to the Khronos- * group so that they can be included in future versions of this file.- * Please submit changes by sending them to the public Khronos Bugzilla- * (http://khronos.org/bugzilla) by filing a bug against product- * "Khronos (general)" component "Registry".- *- * A predefined template which fills in some of the bug fields can be- * reached using http://tinyurl.com/khrplatform-h-bugreport, but you- * must create a Bugzilla login first.- *- *- * See the Implementer's Guidelines for information about where this file- * should be located on your system and for more details of its use:- * http://www.khronos.org/registry/implementers_guide.pdf- *- * This file should be included as- * #include <KHR/khrplatform.h>- * by Khronos client API header files that use its types and defines.- *- * The types in khrplatform.h should only be used to define API-specific types.- *- * Types defined in khrplatform.h:- * khronos_int8_t signed 8 bit- * khronos_uint8_t unsigned 8 bit- * khronos_int16_t signed 16 bit- * khronos_uint16_t unsigned 16 bit- * khronos_int32_t signed 32 bit- * khronos_uint32_t unsigned 32 bit- * khronos_int64_t signed 64 bit- * khronos_uint64_t unsigned 64 bit- * khronos_intptr_t signed same number of bits as a pointer- * khronos_uintptr_t unsigned same number of bits as a pointer- * khronos_ssize_t signed size- * khronos_usize_t unsigned size- * khronos_float_t signed 32 bit floating point- * khronos_time_ns_t unsigned 64 bit time in nanoseconds- * khronos_utime_nanoseconds_t unsigned time interval or absolute time in- * nanoseconds- * khronos_stime_nanoseconds_t signed time interval in nanoseconds- * khronos_boolean_enum_t enumerated boolean type. This should- * only be used as a base type when a client API's boolean type is- * an enum. Client APIs which use an integer or other type for- * booleans cannot use this as the base type for their boolean.- *- * Tokens defined in khrplatform.h:- *- * KHRONOS_FALSE, KHRONOS_TRUE Enumerated boolean false/true values.- *- * KHRONOS_SUPPORT_INT64 is 1 if 64 bit integers are supported; otherwise 0.- * KHRONOS_SUPPORT_FLOAT is 1 if floats are supported; otherwise 0.- *- * Calling convention macros defined in this file:- * KHRONOS_APICALL- * KHRONOS_APIENTRY- * KHRONOS_APIATTRIBUTES- *- * These may be used in function prototypes as:- *- * KHRONOS_APICALL void KHRONOS_APIENTRY funcname(- * int arg1,- * int arg2) KHRONOS_APIATTRIBUTES;- */--/*-------------------------------------------------------------------------- * Definition of KHRONOS_APICALL- *-------------------------------------------------------------------------- * This precedes the return type of the function in the function prototype.- */-#if defined(_WIN32) && !defined(__SCITECH_SNAP__)-# define KHRONOS_APICALL __declspec(dllimport)-#elif defined (__SYMBIAN32__)-# define KHRONOS_APICALL IMPORT_C-#else-# define KHRONOS_APICALL-#endif--/*-------------------------------------------------------------------------- * Definition of KHRONOS_APIENTRY- *-------------------------------------------------------------------------- * This follows the return type of the function and precedes the function- * name in the function prototype.- */-#if defined(_WIN32) && !defined(_WIN32_WCE) && !defined(__SCITECH_SNAP__)- /* Win32 but not WinCE */-# define KHRONOS_APIENTRY __stdcall-#else-# define KHRONOS_APIENTRY-#endif--/*-------------------------------------------------------------------------- * Definition of KHRONOS_APIATTRIBUTES- *-------------------------------------------------------------------------- * This follows the closing parenthesis of the function prototype arguments.- */-#if defined (__ARMCC_2__)-#define KHRONOS_APIATTRIBUTES __softfp-#else-#define KHRONOS_APIATTRIBUTES-#endif--/*-------------------------------------------------------------------------- * basic type definitions- *-----------------------------------------------------------------------*/-#if (defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) || defined(__GNUC__) || defined(__SCO__) || defined(__USLC__)---/*- * Using <stdint.h>- */-#include <stdint.h>-typedef int32_t khronos_int32_t;-typedef uint32_t khronos_uint32_t;-typedef int64_t khronos_int64_t;-typedef uint64_t khronos_uint64_t;-#define KHRONOS_SUPPORT_INT64 1-#define KHRONOS_SUPPORT_FLOAT 1--#elif defined(__VMS ) || defined(__sgi)--/*- * Using <inttypes.h>- */-#include <inttypes.h>-typedef int32_t khronos_int32_t;-typedef uint32_t khronos_uint32_t;-typedef int64_t khronos_int64_t;-typedef uint64_t khronos_uint64_t;-#define KHRONOS_SUPPORT_INT64 1-#define KHRONOS_SUPPORT_FLOAT 1--#elif defined(_WIN32) && !defined(__SCITECH_SNAP__)--/*- * Win32- */-typedef __int32 khronos_int32_t;-typedef unsigned __int32 khronos_uint32_t;-typedef __int64 khronos_int64_t;-typedef unsigned __int64 khronos_uint64_t;-#define KHRONOS_SUPPORT_INT64 1-#define KHRONOS_SUPPORT_FLOAT 1--#elif defined(__sun__) || defined(__digital__)--/*- * Sun or Digital- */-typedef int khronos_int32_t;-typedef unsigned int khronos_uint32_t;-#if defined(__arch64__) || defined(_LP64)-typedef long int khronos_int64_t;-typedef unsigned long int khronos_uint64_t;-#else-typedef long long int khronos_int64_t;-typedef unsigned long long int khronos_uint64_t;-#endif /* __arch64__ */-#define KHRONOS_SUPPORT_INT64 1-#define KHRONOS_SUPPORT_FLOAT 1--#elif 0--/*- * Hypothetical platform with no float or int64 support- */-typedef int khronos_int32_t;-typedef unsigned int khronos_uint32_t;-#define KHRONOS_SUPPORT_INT64 0-#define KHRONOS_SUPPORT_FLOAT 0--#else--/*- * Generic fallback- */-#include <stdint.h>-typedef int32_t khronos_int32_t;-typedef uint32_t khronos_uint32_t;-typedef int64_t khronos_int64_t;-typedef uint64_t khronos_uint64_t;-#define KHRONOS_SUPPORT_INT64 1-#define KHRONOS_SUPPORT_FLOAT 1--#endif---/*- * Types that are (so far) the same on all platforms- */-typedef signed char khronos_int8_t;-typedef unsigned char khronos_uint8_t;-typedef signed short int khronos_int16_t;-typedef unsigned short int khronos_uint16_t;--/*- * Types that differ between LLP64 and LP64 architectures - in LLP64, - * pointers are 64 bits, but 'long' is still 32 bits. Win64 appears- * to be the only LLP64 architecture in current use.- */-#ifdef _WIN64-typedef signed long long int khronos_intptr_t;-typedef unsigned long long int khronos_uintptr_t;-typedef signed long long int khronos_ssize_t;-typedef unsigned long long int khronos_usize_t;-#else-typedef signed long int khronos_intptr_t;-typedef unsigned long int khronos_uintptr_t;-typedef signed long int khronos_ssize_t;-typedef unsigned long int khronos_usize_t;-#endif--#if KHRONOS_SUPPORT_FLOAT-/*- * Float type- */-typedef float khronos_float_t;-#endif--#if KHRONOS_SUPPORT_INT64-/* Time types- *- * These types can be used to represent a time interval in nanoseconds or- * an absolute Unadjusted System Time. Unadjusted System Time is the number- * of nanoseconds since some arbitrary system event (e.g. since the last- * time the system booted). The Unadjusted System Time is an unsigned- * 64 bit value that wraps back to 0 every 584 years. Time intervals- * may be either signed or unsigned.- */-typedef khronos_uint64_t khronos_utime_nanoseconds_t;-typedef khronos_int64_t khronos_stime_nanoseconds_t;-#endif--/*- * Dummy value used to pad enum types to 32 bits.- */-#ifndef KHRONOS_MAX_ENUM-#define KHRONOS_MAX_ENUM 0x7FFFFFFF-#endif--/*- * Enumerated boolean type- *- * Values other than zero should be considered to be true. Therefore- * comparisons should not be made against KHRONOS_TRUE.- */-typedef enum {- KHRONOS_FALSE = 0,- KHRONOS_TRUE = 1,- KHRONOS_BOOLEAN_ENUM_FORCE_SIZE = KHRONOS_MAX_ENUM-} khronos_boolean_enum_t;--#endif /* __khrplatform_h_ */
opengles.cabal view
@@ -1,36 +1,47 @@ name: opengles-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.- Please check out simple texture rendering example in just 100 lines.- This library is intended use on mobile, however,- also works in OpenGL 4.1/4.3+ environment on desktop.+version: 0.8.2+synopsis: Functional interface for OpenGL 4.1+ and OpenGL ES 2.0++description: A functional OpenGL [ES] wrapper library.+ Made complicated OpenGL APIs easy yet keep flexible enough.+ Resulting binary size is relatively small so that apps+ launches faster. Works on both desktop and mobile.+homepage: https://github.com/capsjac/opengles#readme license: LGPL-3 license-file: LICENSE-author: capsjac <capsjac at gmail dot com>-maintainer: capsjac <capsjac at gmail dot com>-copyright: (c) 2014 capsjac+author: capsjac <capsjac at gmail.com>+maintainer: capsjac <capsjac at gmail.com>+copyright: 2014-2016 capsjac category: Graphics build-type: Simple-extra-source-files:- include/EGL/egl.h- include/EGL/eglext.h- include/EGL/eglplatform.h- include/KHR/khrplatform.h- examples/billboard.hs- examples/billboard2.hs- examples/glsl-sandbox-player.hs-stability: experimental-cabal-version: >= 1.18+-- extra-source-files:+cabal-version: >=1.10+-- cabal-version: >=1.24 -- for os(android) support -source-repository head- type: git- location: https://github.com/capsjac/opengles+flag UseEGL+ description:+ By default, EGL APIs are used to get OpenGL function pointers.+ If Disabled, use native library instead of EGL. e.g. WGL, GLX or dlsym.+ default: True -library- default-language: Haskell2010+flag StaticLinkES3+ description:+ By default, OpenGL ES 3.0 APIs are dynamic linked.+ If Enabled, may cause runtime link error on unsupported environment.+ OpenGL ES 2.0 APIs are always statically linked.+ default: False +flag StaticLinkEGL15+ description:+ By default, EGL 1.5 APIs are dynamic linked.+ If Enabled, may cause runtime link error on unsupported environment.+ EGL 1.4 APIs are always statically linked.+ default: False+ +flag BuildExample+ default: True++library+ hs-source-dirs: src exposed-modules: Graphics.EGL, Graphics.EGL.Base,@@ -38,6 +49,7 @@ Graphics.OpenGL.Types, Graphics.OpenGLES, Graphics.OpenGLES.Base,+ Graphics.OpenGLES.Base.Proc, Graphics.OpenGLES.Buffer, Graphics.OpenGLES.Caps, Graphics.OpenGLES.Core,@@ -51,23 +63,91 @@ Graphics.TextureContainer.KTX, Graphics.TextureContainer.PKM, Linear.Graphics- - other-extensions: ForeignFunctionInterface- extra-libraries: EGL, GLESv2- build-depends:- base >= 4.7 && < 5,- bytestring >= 0.10 && < 1,- distributive >= 0.4 && < 0.5,- future-resource >= 0.3,- ghc-prim,- linear >= 1.15 && < 2,- lens >= 4.6 && < 4.10,- packer >= 0.1 && < 0.2,- vector >= 0.10 && < 0.12- - include-dirs: include+ build-depends: base >= 4.7 && < 5+ , ghc-prim >= 0.4 && < 0.5+ , bytestring+ , distributive+ , transformers+ , vector+ , linear+ , lens+ , half+ , fixed+ , future-resource == 0.4.0.0+ , packer >= 0.1.9 && < 0.2+ default-language: Haskell2010++ --if os(android)+ -- if flag(StaticLinkES3)+ -- cpp-options: -DSTATIC_ES3+ -- cpp-options: -DSTATIC_ES2 -DEGL_GETPROC+ -- extra-libraries: EGL, GLESv2++ if os(linux)+ if flag(StaticLinkES3)+ cpp-options: -DSTATIC_ES3+ if flag(UseEGL)+ cpp-options: -DSTATIC_ES2 -DEGL_GETPROC+ extra-libraries: EGL, GLESv2+ else+ -- GLX 1.3 provides glXGetProcAddressARB+ -- GLX 1.4 provides glXGetProcAddress+ cpp-options: -DSTATIC_ES2 -DGLX_GETPROC+ extra-libraries: GL if os(ios)+ cpp-options: -DSTATIC_ES2 -DSTATIC_ES3 -DNOEGL -DDLSYM_GETPROC frameworks: QuartzCore, OpenGLES- ghc-options: -Wall -threaded -fexcess-precision -funbox-strict-fields + if os(darwin)+ cpp-options: -DSTATIC_ES2 -DSTATIC_ES3 -DNOEGL -DGLX_GETPROC+ frameworks: OpenGL+ + if os(windows)+ if flag(UseEGL)+ -- Static_ES{2,3} is needed because ANGLE does not provide these APIs + -- via eglGetProcAddress except extensions.+ cpp-options: -DEGL_GETPROC -DSTATIC_ES2 -DSTATIC_ES3+ -- NOTE: make sure that ANGLE dlls are found in %Path%+ extra-libraries: libEGL libGLESv2+ else+ cpp-options: -DNOEGL -DWGL_GETPROC+ extra-libraries: opengl32+ + if flag(StaticLinkEGL15)+ cpp-options: -DSTATIC_EGL15++executable windmill+ hs-source-dirs: examples+ main-is: windmill.hs+ ghc-options: -threaded -rtsopts -with-rtsopts=-N+ if !flag(BuildExample)+ buildable: False+ build-depends: base+ , opengles+ , random, GLFW-b, time, bytestring, future-resource+ default-language: Haskell2010++executable glsl-sandbox-player+ hs-source-dirs: examples+ main-is: glsl-sandbox-player.hs+ ghc-options: -threaded -rtsopts -with-rtsopts=-N+ if !flag(BuildExample)+ buildable: False+ build-depends: base+ , opengles+ , GLFW-b, time, bytestring, future-resource+ default-language: Haskell2010++test-suite opengles-test+ type: exitcode-stdio-1.0+ hs-source-dirs: test+ main-is: Spec.hs+ build-depends: base+ , opengles+ ghc-options: -threaded -rtsopts -with-rtsopts=-N+ default-language: Haskell2010++source-repository head+ type: git+ location: https://github.com/capsjac/opengles
+ src/Graphics/EGL.hs view
@@ -0,0 +1,503 @@+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE PatternSynonyms #-}+-- | EGL 1.5 carefully reconstructed.+-- EGL is an interface works between native window systems and rendering APIs+-- such as OpenGL, OpenGL ES, OpenVG.+-- This high-level APIs are specialized for OpenGL ES, so that initialization+-- could be simply done in several lines.+-- You can still access the rest of C APIs via "Graphics.EGL.Base".+-- +-- - <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 Control.Monad+import Data.IORef+import Foreign hiding (void)+import Graphics.EGL.Base+import Graphics.OpenGLES.Internal (glLog)++--init+-- setupEgl+-- setSurface+-- eglCreateContext+-- eglMakeCurrent+--eglswap+-- trySwap+-- BADSUR -> setupEgl, setSurface+-- CLOST, BADCXT -> reset+--resume+-- setSurface+-- eglMakeCurrent+-- CLOST -> eglCreateContext+-- OTHER -> reset+++-- * EGL Lifecycle++-- | Initialize EGL with default display.+eglInit :: IO Egl+eglInit = eglInitializeOn Nothing+ [[(egl_RenderableType, egl_OpenGLES2)]]+ [(egl_ClientVersion, 2)]++-- | 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++-- | Start using graphics APIs on this thread. initialization is performed here+-- whenever necessary. EGL context would be re-created if the last context was+-- lost due to power management events such as sleep.+eglResume+ :: Egl+ -> EGLNativeWindow -- ^ Pointer to the native window handler.+ -> IO ()+eglResume egl window = do+ glLog "eglResume..."+ cur@EglCurrent{..} <- readIORef egl+ let share = nullPtr+ if disp == nullPtr then do -- context not initialized+ glLog "egl.disp==NULL"+ (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+ logError "eglCreateContext(Init)"+ withErrorCheck "eglMakeCurrent(Init)" $+ 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+ glLog "egl.disp/=NULL"+ (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 $ "eglMakeCurrent(Resume): " ++ 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+ logError "eglCreateContext(Resume)"+ 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 #-}++-- | 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 #-}++-- | Invalidate EGL objects and terminates the display on this thread.+-- You can still reuse 'Egl' because 'Egl' is state manager.+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 #-}++-- | Create a shared context from given context.+--eglShareContext :: Egl -> IO Egl+--eglShareContext egl = do+++-- * Posting the Color Buffer++-- | Post EGL surface color buffer to the native window.+-- eglPostFrame calls eglSwapBuffers inside.+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++--eglCopyBuffers :: EGLNativePixmap a => EGLDisplay -> EGLSurface -> a -> IO EGLError+--eglCopyBuffers display surface pixmap =+-- toEglErr (eglCopyBuffers (unD display) (unS surface) (getNativePixmap pixmap))++-- | 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+++-- * Query Context++eglVendor, eglVersion :: Egl -> IO String+eglVendor = queryString 0x3053+eglVersion = queryString 0x3054++eglExtensions, eglClientAPIs :: Egl -> IO [String]+eglExtensions egl = words <$> queryString 0x3055 egl+eglClientAPIs egl = words <$> queryString 0x308D egl++eglScreenDims :: Num a => Egl -> IO (a, a)+eglScreenDims egl = do+ (w, h) <- screenDims <$> readIORef egl+ return (fromIntegral w, fromIntegral h)+++-- * Attributes++egl_True, egl_False, egl_None, egl_DontCare :: EGLint+egl_True = 1+egl_False = 0+egl_None = 0x3038+egl_DontCare = -1+++-- ** Config Attributes++-- 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+-- | One of 'egl_None', 'egl_SlowConfig', 'egl_NonConformantConfig'.+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+-- | Bitmask, see below.+egl_SurfaceType = EGLConfAttr 0x3033+-- | 'egl_None' or 'egl_TransparentRgb'.+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_RgbBuffer' or 'egl_LuminanceBuffer'.+egl_ColorBufferType = EGLConfAttr 0x303F+-- | Bitmask, see below.+egl_RenderableType = EGLConfAttr 0x3040+egl_MatchNativePixmap = EGLConfAttr 0x3041+egl_Conformant = EGLConfAttr 0x3042++-- *** egl_ConfigCaveat values (except egl_None)+egl_SlowConfig, egl_NonConformantConfig :: EGLint+egl_SlowConfig = 0x3050+egl_NonConformantConfig = 0x3051++-- *** egl_SurfaceType mask bits+egl_PBuffer, egl_Pixmap, egl_Window,+ egl_VGColorspaceLinear, egl_VGAlphaFormatPre,+ egl_MultisampleResolveBox, egl_SwapBehaviorPreserved+ :: EGLint+egl_PBuffer = 0x0001+egl_Pixmap = 0x0002+egl_Window = 0x0004+egl_VGColorspaceLinear = 0x0020+egl_VGAlphaFormatPre = 0x0040+egl_MultisampleResolveBox = 0x0200+egl_SwapBehaviorPreserved = 0x0400++-- *** egl_TransparentType values (except egl_None)+egl_TransparentRgb :: EGLint+egl_TransparentRgb = 0x3052++-- *** egl_ColorBufferType values+egl_RgbBuffer, egl_LuminanceBuffer :: EGLint+egl_RgbBuffer = 0x308E+egl_LuminanceBuffer = 0x308F++-- *** egl_RenderableType bitmask+egl_OpenGLES, egl_OpenVG, egl_OpenGLES2, egl_OpenGL,+ egl_OpenGLES3 :: EGLint+egl_OpenGLES = 1+egl_OpenVG = 2+egl_OpenGLES2 = 4+egl_OpenGL = 8++-- | /EGL_KHR_create_context or EGL 1.5 required/+egl_OpenGLES3 = 0x40+++-- * Surface++eglGetSurfaceAttr :: Egl -> EGLSurfAttr -> IO Int32+eglGetSurfaceAttr egl (EGLSurfAttr attr) = do+ EglCurrent{..} <- readIORef egl+ with (-1) $ \ptr -> do+ eglQuerySurface disp dsurf attr ptr+ peek ptr++eglSetSurfaceAttr :: Egl -> EGLSurfAttr -> Int32 -> IO Bool+eglSetSurfaceAttr egl (EGLSurfAttr attr) value = do+ EglCurrent{..} <- readIORef egl+ (/= 0) <$> eglSurfaceAttrib disp dsurf attr value++-- ** Surface Attributes++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, see below.+egl_RenderBuffer = EGLSurfAttr 0x3086+-- | enum Color space for OpenVG, see below.+egl_VGColorspace = EGLSurfAttr 0x3087+-- | enum Alpha format for OpenVG, see below.+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, see below.+egl_SwapBehavior = EGLSurfAttr 0x3093+-- | enum Multisample resolve behavior, see below.+egl_MultisampleResolve = EGLSurfAttr 0x3099+-- | int ID of EGLConfig surface was created with egl_Height integer Height of surface.+egl_ConfigId = EGLSurfAttr 0x3028+-- | /EGL_KHR_gl_colorspace or EGL 1.5+/ enum Color space for OpenGL, see below.+egl_GLColorspace = EGLSurfAttr 0x3087++-- *** egl_Texture{Format,Target} values+egl_NoTexture, egl_TextureRgb, egl_TextureRgba, egl_Texture2D :: EGLint+egl_NoTexture = 0x305C+egl_TextureRgb = 0x305D+egl_TextureRgba = 0x305E+egl_Texture2D = 0x305F++-- *** egl_RenderBuffer values+egl_BackBuffer, egl_SingleBuffer :: EGLint+egl_BackBuffer = 0x3084+egl_SingleBuffer = 0x3085++-- *** egl_{VG,GL}Colorspace values+egl_ColorspaceSrgb, egl_ColorspaceLinear :: EGLint+egl_ColorspaceSrgb = 0x3089+egl_ColorspaceLinear = 0x308A++-- *** egl_VGAlphaFormat values+egl_Nonpre, egl_Pre :: EGLint+egl_Nonpre = 0x308B+egl_Pre = 0x308C++-- *** Resolution and Aspect Raito values+egl_DisplayScaling, egl_Unknown :: EGLint+-- | Constant scale factor by which fractional display resolutions &+-- aspect ratio are scaled when queried as integer values.+egl_DisplayScaling = 10000+-- | Unknown display resolution or aspect ratio.+egl_Unknown = -1++-- *** egl_SwapBehavior values+egl_BufferPreserved, egl_BufferDestroyed :: EGLint+egl_BufferPreserved = 0x3094+egl_BufferDestroyed = 0x3095++-- *** egl_MultisampleResolve values+egl_ResolveDefault, egl_ResolveBox :: EGLint+egl_ResolveDefault = 0x309A+egl_ResolveBox = 0x309B+++-- * Context++eglConfigID, eglContextClientType, eglContextClientVersion, eglRenderBuffer+ :: Egl -> IO Int32+eglConfigID = queryContext 0x3028+eglContextClientType = queryContext 0x3097+eglContextClientVersion = queryContext 0x3098+eglRenderBuffer = queryContext 0x3086++-- ** Context Attributes++-- | Specify context client major version, 2 or later.+egl_ClientVersion :: EGLContextAttr+egl_ClientVersion = EGLContextAttr 0x3098++-- | /EGL_EXT_create_context_robustness required/+-- Same as unpostfixed version.+egl_GLRobustAccessExt, egl_GLResetNotificationStrategyExt :: EGLContextAttr+egl_GLRobustAccessExt = EGLContextAttr 0x30BF+egl_GLResetNotificationStrategyExt = EGLContextAttr 0x3138++egl_MinorVersion, egl_GLProfileMask,+ egl_GLResetNotificationStrategy :: EGLContextAttr+-- | /EGL_KHR_create_context or EGL 1.5 required/+-- Specify context client minor version.+egl_MinorVersion = EGLContextAttr 0x30FB++-- | /EGL_KHR_create_context or EGL 1.5 required/+-- See below.+egl_GLProfileMask = EGLContextAttr 0x30FD++-- | /EGL_KHR_create_context or EGL 1.5 required/+-- See below.+egl_GLResetNotificationStrategy = EGLContextAttr 0x30BD++-- | /EGL_KHR_create_context required/ See below.+egl_ContextFlags :: EGLContextAttr+egl_ContextFlags = EGLContextAttr 0x30FC++-- | /EGL 1.5 required/ Specify 'egl_True' or 'egl_False'+egl_GLDebug, egl_GLForwardCompat, egl_GLRobustAccess :: EGLContextAttr+egl_GLDebug = EGLContextAttr 0x31B0+egl_GLForwardCompat = EGLContextAttr 0x31B1+egl_GLRobustAccess = EGLContextAttr 0x31B2++-- *** egl_OpenGLProfileMask mask bits+egl_GLCoreProfileBit, egl_GLCompatProfileBit :: EGLint+egl_GLCoreProfileBit = 1+egl_GLCompatProfileBit = 2++-- *** egl_OpenGLResetNotificationStrategy values+egl_NoResetNotification, egl_LoseContextOnReset :: EGLint+egl_NoResetNotification = 0x31BE+egl_LoseContextOnReset = 0x31BF++-- *** egl_ContextFlags bits+egl_GLDebugBit, egl_GLForwardCompatBit, egl_GLRobustAccessBit :: EGLint+egl_GLDebugBit = 1+egl_GLForwardCompatBit = 2+egl_GLRobustAccessBit = 4+++-- * Synchronization Primitives++eglWaitCaller :: IO Bool+eglWaitCaller = withErrorCheck "eglWaitClient" eglWaitClient++eglWaitGPU :: IO Bool+eglWaitGPU = withErrorCheck "eglWaitNative" $ eglWaitNative 0x305B+-- EGL_CORE_NATIVE_ENGINE+++-- * Copying Surface to Texture++-- | Specify 'egl_RenderBuffer' value. (Perhaps 'egl_BackBuffer' only?)+type EGLBuffer = EGLint++eglBindAsTexture :: Egl -> EGLBuffer -> IO Bool+eglBindAsTexture egl buf = do+ EglCurrent{..} <- readIORef egl+ withErrorCheck "eglBindTexImage" $+ eglBindTexImage disp dsurf buf++eglReleaseTexture :: Egl -> EGLBuffer -> IO Bool+eglReleaseTexture egl buf = do+ EglCurrent{..} <- readIORef egl+ withErrorCheck "eglReleaseTexImage" $+ eglReleaseTexImage disp dsurf buf+++-- * Switching between APIs++newtype GraphicsAPI = GraphicsAPI EGLenum++instance Show GraphicsAPI where+ show OpenGLES = "OpenGLES"+ show OpenVG = "OpenVG"+ show OpenGL = "OpenGL"+ show _ = "None"++pattern OpenGLES = GraphicsAPI 0x30A0+pattern OpenVG = GraphicsAPI 0x30A1+pattern OpenGL = GraphicsAPI 0x30A2++eglBindCurrentAPI :: GraphicsAPI -> IO Bool+eglBindCurrentAPI (GraphicsAPI e) =+ withErrorCheck "eglBindAPI" $ eglBindAPI e++eglCurrentAPI :: IO GraphicsAPI+eglCurrentAPI = GraphicsAPI <$> eglQueryAPI+
+ src/Graphics/EGL/Base.hs view
@@ -0,0 +1,335 @@+{-# LANGUAGE CPP #-}+-- | Low-level wrapper and some utility around EGL upto 1.5.+-- "Graphics.EGL" is preffered for normal use.+module Graphics.EGL.Base where++import Control.Monad (when)+import Data.IORef+import Foreign+import Foreign.C.String+import Graphics.OpenGLES.Base.Proc (glGetProcAddress)+import Graphics.OpenGLES.Internal (glLog)+++-- * 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 ()++-- EGL 1.5 Types+type EGLAttrib = Ptr EGLint+type EGLImage = Ptr ()+type EGLTime = Int64+type EGLSync = Ptr ()+++-- * Bindings to EGL++#ifndef NOEGL++#define EGL14(_name, _type) \+foreign import ccall unsafe "EGL/egl.h" _name :: _type; \++#define EGL15(_name, _vendor, _type) \+foreign import ccall unsafe "dynamic" unwrap_/**/_name :: FunPtr (_type) -> _type; \+_name :: _type; \+_name = unwrap_/**/_name (glGetProcAddress "_name/**/_vendor"); \++#define EGLEXT(_name, _type) EGL15(_name/**/_vendor, _type)++#ifdef STATIC_EGL15+#define EGL15(_name, _vendor, _type) EGL14(_name, _type)+#endif++#else++#define EGL14(_name, _type) \+_name :: _type; \+_name = error "EGL is unsupported on this platform"; \++#define EGL15(_a, _b, _c) EGL14(_a, _c)+#define EGLEXT EGL14++#endif+++-- ** EGL 1.4++EGL14(eglGetError, IO EGLint)+EGL14(eglGetDisplay, EGLNativeDisplay -> IO EGLDisplay)+EGL14(eglInitialize, EGLDisplay -> EGLAttrib -> EGLAttrib -> IO EGLboolean)+EGL14(eglTerminate, EGLDisplay -> IO EGLboolean)++EGL14(eglQueryString, EGLDisplay -> EGLint -> IO CString)++EGL14(eglGetConfigs, EGLDisplay -> Ptr EGLConfig -> EGLint -> EGLAttrib -> IO EGLboolean)+EGL14(eglChooseConfig, EGLDisplay -> EGLAttrib -> Ptr EGLConfig -> EGLint -> EGLAttrib -> IO EGLboolean)+EGL14(eglGetConfigAttrib, EGLDisplay -> EGLConfig -> EGLint -> EGLAttrib -> IO EGLboolean)++EGL14(eglCreateWindowSurface, EGLDisplay -> EGLConfig -> EGLNativeWindow -> EGLAttrib -> IO EGLSurface)+EGL14(eglCreatePbufferSurface, EGLDisplay -> EGLConfig -> EGLAttrib -> IO EGLSurface)+EGL14(eglCreatePixmapSurface, EGLDisplay -> EGLConfig -> EGLNativePixmap -> EGLAttrib -> IO EGLSurface)+EGL14(eglDestroySurface, EGLDisplay -> EGLSurface -> IO EGLboolean)+EGL14(eglQuerySurface, EGLDisplay -> EGLSurface -> EGLint -> EGLAttrib -> 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 -> EGLAttrib -> 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 -> EGLAttrib -> 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 -> EGLAttrib -> IO EGLboolean)++--EGL14(eglWaitGL, IO EGLboolean)+EGL14(eglWaitNative, EGLint -> IO EGLboolean)+EGL14(eglSwapBuffers, EGLDisplay -> EGLSurface -> IO EGLboolean)+EGL14(eglCopyBuffers, EGLDisplay -> EGLSurface -> EGLNativePixmap -> IO EGLboolean)++--EGL14(eglGetProcAddress, CString -> IO (FunPtr a))++-- ** EGL 1.5+-- EGL_KHR_gl_colorspace+-- #define EGL_GL_COLORSPACE 0x309D -- eglCreateWindowSurface, eglCreatePbufferSurface and eglCreatePixmapSurface attrib+-- #define EGL_GL_COLORSPACE_SRGB 0x3089 -- value+-- #define EGL_GL_COLORSPACE_LINEAR 0x308A -- value++-- EGL_KHR_gl_image family (use with eglCreateImageKHR)+-- - EGL_KHR_gl_texture_2D_image+#define EGL_GL_TEXTURE_2D 0x30B1+#define EGL_GL_TEXTURE_LEVEL 0x30BC -- attrib+-- - EGL_KHR_gl_texture_cubemap_image+#define EGL_GL_TEXTURE_CUBE_MAP_POSITIVE_X 0x30B3+#define EGL_GL_TEXTURE_CUBE_MAP_NEGATIVE_X 0x30B4+#define EGL_GL_TEXTURE_CUBE_MAP_POSITIVE_Y 0x30B5+#define EGL_GL_TEXTURE_CUBE_MAP_NEGATIVE_Y 0x30B6+#define EGL_GL_TEXTURE_CUBE_MAP_POSITIVE_Z 0x30B7+#define EGL_GL_TEXTURE_CUBE_MAP_NEGATIVE_Z 0x30B8+-- - EGL_KHR_gl_texture_3D_image+#define EGL_GL_TEXTURE_3D 0x30B2+#define EGL_GL_TEXTURE_ZOFFSET 0x30BD -- attrib+-- - EGL_KHR_gl_renderbuffer_image+#define EGL_GL_RENDERBUFFER 0x30B9++-- EGL_KHR_create_context slightly modified in 1.5+-- #define EGL_CONTEXT_MAJOR_VERSION 0x3098+-- #define EGL_CONTEXT_MINOR_VERSION 0x30FB+-- removed in 1.5: EGL_CONTEXT_FLAGS_KHR 0x30FC and related bits+-- #define EGL_CONTEXT_OPENGL_PROFILE_MASK 0x30FD+-- #define EGL_CONTEXT_OPENGL_RESET_NOTIFICATION_STRATEGY 0x31BD+-- #define EGL_NO_RESET_NOTIFICATION 0x31BE+-- #define EGL_LOSE_CONTEXT_ON_RESET 0x31BF+-- #define EGL_CONTEXT_OPENGL_CORE_PROFILE_BIT 0x00000001+-- #define EGL_CONTEXT_OPENGL_COMPATIBILITY_PROFILE_BIT 0x00000002+-- #define EGL_CONTEXT_OPENGL_DEBUG 0x31B0 or 1+-- #define EGL_CONTEXT_OPENGL_FORWARD_COMPATIBLE 0x31B1 or 2+-- #define EGL_CONTEXT_OPENGL_ROBUST_ACCESS 0x31B2 or 4+-- #define EGL_OPENGL_ES3_BIT 0x00000040++-- EGL_KHR_fence_sync (extends EGL_KHR_reusable_sync)+#define EGL_SYNC_PRIOR_COMMANDS_COMPLETE_KHR 0x30F0+#define EGL_SYNC_CONDITION_KHR 0x30F8+#define EGL_SYNC_FENCE_KHR 0x30F9++-- EGL_KHR_reusable_sync (exclude eglSignalSyncKHR)+#define EGL_SYNC_STATUS_KHR 0x30F1+#define EGL_SIGNALED_KHR 0x30F2+#define EGL_UNSIGNALED_KHR 0x30F3+#define EGL_TIMEOUT_EXPIRED_KHR 0x30F5+#define EGL_CONDITION_SATISFIED_KHR 0x30F6+#define EGL_SYNC_TYPE_KHR 0x30F7+-- not in 1.5 #define EGL_SYNC_REUSABLE_KHR 0x30FA+#define EGL_SYNC_FLUSH_COMMANDS_BIT_KHR 0x0001 /* eglClientWaitSyncKHR <flags> bitfield */+#define EGL_FOREVER_KHR 0xFFFFFFFFFFFFFFFFull+#define EGL_NO_SYNC_KHR ((EGLSyncKHR)0)+EGL15(eglCreateSync,KHR, EGLDisplay -> EGLenum -> EGLAttrib -> IO EGLSync)+EGL15(eglDestroytSync,KHR, EGLDisplay -> EGLSync -> IO EGLboolean)+EGL15(eglGetSyncAttrib,KHR, EGLDisplay -> EGLSync -> EGLint -> EGLAttrib -> IO EGLboolean)+EGL15(eglClientWaitSync,KHR, EGLDisplay -> EGLSync -> EGLint -> EGLTime -> IO EGLint)++-- EGL_KHR_wait_sync+EGL15(eglWaitSync,KHR, EGLDisplay -> EGLSync -> EGLint -> IO EGLboolean)++-- EGL_KHR_image_base (extends EGL_KHR_image_pixmap)+#define EGL_IMAGE_PRESERVED 0x30D2+-- EGL_KHR_image_pixmap (extends EGL_KHR_image)+-- EGL_KHR_image+-- not in 1.5 #define EGL_NATIVE_PIXMAP_KHR 0x30B0 /* eglCreateImageKHR target */+#define EGL_NO_IMAGE_KHR ((EGLImageKHR)0)+EGL15(eglCreateImage,KHR, EGLDisplay -> EGLContext -> EGLenum -> EGLClientBuffer -> EGLAttrib -> IO EGLImage)+EGL15(eglDestroytImage,KHR, EGLDisplay -> EGLImage -> IO EGLboolean)++-- EGL_EXT_platform_base (optionally EGL_EXT_client_extensions)+EGL15(eglGetPlatformDisplay,EXT, EGLenum -> EGLNativeDisplay -> EGLAttrib -> IO EGLDisplay)+EGL15(eglCreatePlatformWindowSurface,EXT, EGLDisplay -> EGLConfig -> EGLNativeWindow -> EGLAttrib -> IO EGLSurface)+EGL15(eglCreatePlatformPixmapSurface,EXT, EGLDisplay -> EGLConfig -> EGLNativePixmap -> EGLAttrib -> IO EGLSurface)+++-- ** Extensions++-- EGL_EXT_platform_device (extends EGL_EXT_platform_base)+#define EGL_PLATFORM_DEVICE_EXT 0x313F+-- EGL_EXT_platform_wayland (extends EGL_EXT_platform_base)+#define EGL_PLATFORM_WAYLAND_EXT 0x31D8+-- EGL_EXT_platform_x11 (extends EGL_EXT_platform_base)+#define EGL_PLATFORM_X11_EXT 0x31D5 -- eglGetPlatformDisplayEXT platform+#define EGL_PLATFORM_X11_SCREEN_EXT 0x31D6 -- eglGetPlatformDisplayEXT attrib+++-- * 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++-- | EGL state holder per context.+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 #-}+-- | Trun errno into String.+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++logError :: String -> IO ()+logError location = do+ err <- eglGetError+ glLog (location ++ ": " ++ showEglError err)+{-# NOINLINE logError #-}++withErrorCheck :: String -> IO EGLboolean -> IO Bool+withErrorCheck loc io = do+ p <- io+ when (p == 0) $ logError loc+ return (p /= 0)++-- | Encode attribute list from [(name, value)] pairs.+withAttrList :: [(EGLint, Int32)] -> (Ptr EGLint -> IO b) -> IO b+withAttrList attrs =+ withArray $ foldr (\(k, v) l -> k : v : l) [0x3038] attrs+{-# NOINLINE withAttrList #-}++-- | Get an EGLDisplay and choose a suitable config.+setupEgl :: Maybe EGLNativeDisplay -> [[(EGLConfAttr, Int32)]] -> IO (EGLDisplay, EGLConfig)+setupEgl nd attribsList = do+ --display <- withAttrList [(0x3202, 0x3206){-, (0x3208, 1)-}] $+ -- eglGetPlatformDisplayEXT 0x3201 (maybe nullPtr id nd)+ display <- eglGetDisplay $ maybe nullPtr id nd+ logError "eglGetDisplay"+ eglInitialize display nullPtr nullPtr+ logError "eglInitialize"+ -- Here we 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+ logError "eglChooseConfig"+ 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 setupEgl #-}++-- | Create a surface and return its pointer, screen_width and screen_height.+setSurface :: EGLDisplay -> EGLConfig -> EGLNativeWindow -> IO (EGLSurface, EGLint, EGLint)+setSurface disp config window = do+ surf <- eglCreateWindowSurface disp config window nullPtr+ logError "eglCreateWindowSurface"+ 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)+{-# NOINLINE setSurface #-}+
+ src/Graphics/OpenGL/CoreArb.hs view
@@ -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.OpenGLES.Base+import Graphics.OpenGLES.Base.Proc (glGetProcAddress)++-- * 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 (glGetProcAddress "_procname"); \+{-# NOINLINE _procname #-} \++-- foreign import ccall unsafe "dynamic"+-- unwrap_glActiveTexture :: FunPtr (GLenum -> GL ()) -> GLenum -> GL ();+-- glActiveTexture :: GLenum -> GL ();+-- glActiveTexture = unwrap_glActiveTexture (glGetProcAddress "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 */
+ src/Graphics/OpenGL/Types.hs view
@@ -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+
+ src/Graphics/OpenGLES.hs view
@@ -0,0 +1,41 @@+-- | OpenGL ES (ES for Embed Systems) 2.0 and 3.0+-- +-- - <https://www.khronos.org/registry/gles/specs/3.1/es_spec_3.1.withchanges.pdf OpenGL® ES Version 3.1 (June 4, 2014) [PDF]>+-- - <http://www.khronos.org/opengles/sdk/docs/man31/ OpenGL ES 3.1 Manual>+-- - <http://www.khronos.org/files/opengles3-quick-reference-card.pdf OpenGL ES 3.0 Quick Reference [PDF]>+-- - <http://www.khronos.org/opengles/sdk/docs/man3/ OpenGL ES 3.0 Manual>+-- - <http://www.khronos.org/opengles/sdk/docs/reference_cards/OpenGL-ES-2_0-Reference-card.pdf OpenGL ES 2.0 Quick Reference [PDF]>+-- - <http://www.khronos.org/opengles/sdk/docs/man/ OpenGL ES 2.0 Manual>+-- - <http://code.google.com/p/angleproject/ ANGLE>+-- OpenGL ES backend for Windows.++module Graphics.OpenGLES (+ module Control.Future,+ module Data.Int,+ module Data.Word,+ module Graphics.OpenGLES.Buffer,+ module Graphics.OpenGLES.Caps,+ module Graphics.OpenGLES.Core,+ 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+ ) where++import Control.Future+import Data.Int+import Data.Word+import Graphics.OpenGLES.Buffer+import Graphics.OpenGLES.Caps+import Graphics.OpenGLES.Core+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+
+ src/Graphics/OpenGLES/Base.hs view
@@ -0,0 +1,830 @@+{-# LANGUAGE CPP #-}+-- | definition from gl3.h+module Graphics.OpenGLES.Base (+ -- * Basic Types+ GL,+ GLName,+ -- ** OpenGL ES 2.0+ GLboolean,+ GLbyte,+ GLubyte,+ GLchar,+ GLshort,+ GLushort,+ GLint,+ GLuint,+ GLfixed,+ GLsizei,+ GLenum,+ GLintptr,+ GLsizeiptr,+ GLbitfield,+ GLfloat,+ GLclampf,+ -- ** OpenGL ES 3.0+ GLint64,+ GLuint64,+ GLsync,+ GLhalf,++ -- * Bindings+ --isGLProcAvailable,++ -- ** OpenGL ES 2.0+ glActiveTexture,+ glAttachShader,+ glBindAttribLocation,+ glBindBuffer,+ glBindFramebuffer,+ glBindRenderbuffer,+ glBindTexture,+ glBlendColor,+ glBlendEquation,+ glBlendEquationSeparate,+ glBlendFunc,+ glBlendFuncSeparate,+ glBufferData,+ glBufferSubData,+ glCheckFramebufferStatus,+ glClear,+ glClearColor,+ glClearDepthf,+ glClearStencil,+ glColorMask,+ glCompileShader,+ glCompressedTexImage2D,+ glCompressedTexSubImage2D,+ glCopyTexImage2D,+ glCopyTexSubImage2D,+ glCreateProgram,+ glCreateShader,+ glCullFace,+ glDeleteBuffers,+ glDeleteFramebuffers,+ glDeleteProgram,+ glDeleteRenderbuffers,+ glDeleteShader,+ glDeleteTextures,+ glDepthFunc,+ glDepthMask,+ glDepthRangef,+ glDetachShader,+ glDisable,+ glDisableVertexAttribArray,+ glDrawArrays,+ glDrawElements,+ glEnable,+ glEnableVertexAttribArray,+ glFinish,+ glFlush,+ glFramebufferRenderbuffer,+ glFramebufferTexture2D,+ glFrontFace,+ glGenBuffers,+ glGenerateMipmap,+ glGenFramebuffers,+ glGenRenderbuffers,+ glGenTextures,+ glGetActiveAttrib,+ glGetActiveUniform,+ glGetAttachedShaders,+ glGetAttribLocation,+ glGetBooleanv,+ glGetBufferParameteriv,+ glGetError,+ glGetFloatv,+ glGetFramebufferAttachmentParameteriv,+ glGetIntegerv,+ glGetProgramiv,+ glGetProgramInfoLog,+ glGetRenderbufferParameteriv,+ glGetShaderiv,+ glGetShaderInfoLog,+ glGetShaderPrecisionFormat,+ glGetShaderSource,+ glGetString,+ glGetTexParameterfv,+ glGetTexParameteriv,+ glGetUniformfv,+ glGetUniformiv,+ glGetUniformLocation,+ glGetVertexAttribfv,+ glGetVertexAttribiv,+ glGetVertexAttribPointerv,+ glHint,+ glIsBuffer,+ glIsEnabled,+ glIsFramebuffer,+ glIsProgram,+ glIsRenderbuffer,+ glIsShader,+ glIsTexture,+ glLineWidth,+ glLinkProgram,+ glPixelStorei,+ glPolygonOffset,+ glReadPixels,+ glReleaseShaderCompiler,+ glRenderbufferStorage,+ glSampleCoverage,+ glScissor,+ glShaderBinary,+ glShaderSource,+ glStencilFunc,+ glStencilFuncSeparate,+ glStencilMask,+ glStencilMaskSeparate,+ glStencilOp,+ glStencilOpSeparate,+ glTexImage2D,+ glTexParameterf,+ glTexParameterfv,+ glTexParameteri,+ glTexParameteriv,+ glTexSubImage2D,+ glUniform1f,+ glUniform1fv,+ glUniform1i,+ glUniform1iv,+ glUniform2f,+ glUniform2fv,+ glUniform2i,+ glUniform2iv,+ glUniform3f,+ glUniform3fv,+ glUniform3i,+ glUniform3iv,+ glUniform4f,+ glUniform4fv,+ glUniform4i,+ glUniform4iv,+ glUniformMatrix2fv,+ glUniformMatrix3fv,+ glUniformMatrix4fv,+ glUseProgram,+ glValidateProgram,+ glVertexAttrib1f,+ glVertexAttrib1fv,+ glVertexAttrib2f,+ glVertexAttrib2fv,+ glVertexAttrib3f,+ glVertexAttrib3fv,+ glVertexAttrib4f,+ glVertexAttrib4fv,+ glVertexAttribPointer,+ glViewport,++ -- ** OpenGL ES 3.0+ glReadBuffer,+ glDrawRangeElements,+ glTexImage3D,+ glTexSubImage3D,+ glCopyTexSubImage3D,+ glCompressedTexImage3D,+ glCompressedTexSubImage3D,+ glGenQueries,+ glDeleteQueries,+ glIsQuery,+ glBeginQuery,+ glEndQuery,+ glGetQueryiv,+ glGetQueryObjectuiv,+ glUnmapBuffer,+ glGetBufferPointerv,+ glDrawBuffers,+ glUniformMatrix2x3fv,+ glUniformMatrix3x2fv,+ glUniformMatrix2x4fv,+ glUniformMatrix4x2fv,+ glUniformMatrix3x4fv,+ glUniformMatrix4x3fv,+ glBlitFramebuffer,+ glRenderbufferStorageMultisample,+ glFramebufferTextureLayer,+ glMapBufferRange,+ glFlushMappedBufferRange,+ glBindVertexArray,+ glDeleteVertexArrays,+ glGenVertexArrays,+ glIsVertexArray,+ glGetIntegeri_v,+ glBeginTransformFeedback,+ glEndTransformFeedback,+ glBindBufferRange,+ glBindBufferBase,+ glTransformFeedbackVaryings,+ glGetTransformFeedbackVarying,+ glVertexAttribIPointer,+ glGetVertexAttribIiv,+ glGetVertexAttribIuiv,+ glVertexAttribI4i,+ glVertexAttribI4ui,+ glVertexAttribI4iv,+ glVertexAttribI4uiv,+ glGetUniformuiv,+ glGetFragDataLocation,+ glUniform1ui,+ glUniform2ui,+ glUniform3ui,+ glUniform4ui,+ glUniform1uiv,+ glUniform2uiv,+ glUniform3uiv,+ glUniform4uiv,+ glClearBufferiv,+ glClearBufferuiv,+ glClearBufferfv,+ glClearBufferfi,+ glGetStringi,+ glCopyBufferSubData,+ glGetUniformIndices,+ glGetActiveUniformsiv,+ glGetUniformBlockIndex,+ glGetActiveUniformBlockiv,+ glGetActiveUniformBlockName,+ glUniformBlockBinding,+ glDrawArraysInstanced,+ glDrawElementsInstanced,+ glFenceSync,+ glIsSync,+ glDeleteSync,+ glClientWaitSync,+ glWaitSync,+ glGetInteger64v,+ glGetSynciv,+ glGetInteger64i_v,+ glGetBufferParameteri64v,+ glGenSamplers,+ glDeleteSamplers,+ glIsSampler,+ glBindSampler,+ glSamplerParameteri,+ glSamplerParameteriv,+ glSamplerParameterf,+ glSamplerParameterfv,+ glGetSamplerParameteriv,+ glGetSamplerParameterfv,+ glVertexAttribDivisor,+ glBindTransformFeedback,+ glDeleteTransformFeedbacks,+ glGenTransformFeedbacks,+ glIsTransformFeedback,+ glPauseTransformFeedback,+ glResumeTransformFeedback,+ glGetProgramBinary,+ glProgramBinary,+ glProgramParameteri,+ glInvalidateFramebuffer,+ glInvalidateSubFramebuffer,+ glTexStorage2D,+ glTexStorage3D,+ glGetInternalformativ,++ -- ** Extensions+ glGenVertexArraysOES,+ glBindVertexArrayOES,+ glDeleteVertexArraysOES,+ glIsVertexArrayOES,++ glDrawTexiOES,+ + glMultiDrawArraysEXT,+ glMultiDrawElementsEXT,+ glDrawRangeElementsEXT,++ -- ** OpenGL ES 3.1+ glDispatchCompute,+ glDispatchComputeIndirect,+ glDrawArraysIndirect,+ glDrawElementsIndirect,+ glFramebufferParameteri,+ glGetFramebufferParameteriv,+ glGetProgramInterfaceiv,+ glGetProgramResourceIndex,+ glGetProgramResourceName,+ glGetProgramResourceiv,+ glGetProgramResourceLocation,+ glUseProgramStages,+ glActiveShaderProgram,+ glCreateShaderProgramv,+ glBindProgramPipeline,+ glDeleteProgramPipelines,+ glGenProgramPipelines,+ glIsProgramPipeline,+ glGetProgramPipelineiv,+ glProgramUniform1i,+ glProgramUniform2i,+ glProgramUniform3i,+ glProgramUniform4i,+ glProgramUniform1ui,+ glProgramUniform2ui,+ glProgramUniform3ui,+ glProgramUniform4ui,+ glProgramUniform1f,+ glProgramUniform2f,+ glProgramUniform3f,+ glProgramUniform4f,+ glProgramUniform1iv,+ glProgramUniform2iv,+ glProgramUniform3iv,+ glProgramUniform4iv,+ glProgramUniform1uiv,+ glProgramUniform2uiv,+ glProgramUniform3uiv,+ glProgramUniform4uiv,+ glProgramUniform1fv,+ glProgramUniform2fv,+ glProgramUniform3fv,+ glProgramUniform4fv,+ glProgramUniformMatrix2fv,+ glProgramUniformMatrix3fv,+ glProgramUniformMatrix4fv,+ glProgramUniformMatrix2x3fv,+ glProgramUniformMatrix3x2fv,+ glProgramUniformMatrix2x4fv,+ glProgramUniformMatrix4x2fv,+ glProgramUniformMatrix3x4fv,+ glProgramUniformMatrix4x3fv,+ glValidateProgramPipeline,+ glGetProgramPipelineInfoLog,+ glBindImageTexture,+ glGetBooleani_v,+ glMemoryBarrier,+ glMemoryBarrierByRegion,+ glTexStorage2DMultisample,+ glGetMultisamplefv,+ glSampleMaski,+ glGetTexLevelParameteriv,+ glGetTexLevelParameterfv,+ glBindVertexBuffer,+ glVertexAttribFormat,+ glVertexAttribIFormat,+ glVertexAttribBinding,+ glVertexBindingDivisor+ ) where++import Foreign+import Foreign.C.String+import Graphics.OpenGLES.Base.Proc (glGetProcAddress)+++-- * Basic Types++-- | IO actions run in GL thread.+type GL = IO++-- | Name of a shader, program, and variable.+type GLName = String++-- ** OpenGL ES 2.0++-- | 1bit boolean+type GLboolean = Word8++-- | 8bit signed two\'s complement binary integer+type GLbyte = Int8++-- | 8bit unsigned binary integer+type GLubyte = Word8++-- | (Unused) 8bit characters making up strings+type GLchar = Int8++-- | 16bit signed two\'s complement binary integer+type GLshort = Int16++-- | 16bit unsigned binary integer+type GLushort = Word16++-- | 32bit signed two\'s complement binary integer+type GLint = Int32++-- | 32bit unsigned binary integer+type GLuint = Word32++-- | 32bit signed two\'s complement 16.16 scaled integer+type GLfixed = Int32++-- | 32bit non-negative binary integer size+type GLsizei = Int32++-- | 32bit enumerated binary integer value+type GLenum = Word32++-- | Pointer-sized signed two\'s complement binary integer+type GLintptr = Int++-- | Pointer-sized non-negative binary integer size+type GLsizeiptr = Int++-- | 32bit bit field+type GLbitfield = Word32++-- | 32bit floating-point value+type GLfloat = Float++-- | 32bit floating-point value clamped to [0,1]+type GLclampf = Float++-- ** OpenGL ES 3.0++-- | 64bit signed two\'s complement binary integer+type GLint64 = Int64++-- | 64bit unsigned binary integer+type GLuint64 = Word64++-- | Pointer-sized sync object handle+type GLsync = Ptr ()++-- | 16bit half-precision floating-point value encoded in an unsigned scalar+type GLhalf = Word16+++-- * Bindings++{-+-- | eglGetProcAddress may return an incremental useless pointer+-- if given name starts with \"gl\" but not implemented.+isGLProcAvailable :: String -> Bool+isGLProcAvailable name =+ abs (proc `minusPtr` undef) > 0x10000+ where+ proc = castFunPtrToPtr (eglGetProcAddress name)+ undef = castFunPtrToPtr (eglGetProcAddress "glUndefined")+-}++-- Declere must-have functions+#define STATIC(_procname, _typ) \+foreign import ccall unsafe "_procname" _procname :: _typ; \++-- Workaround for runtime link errors+-- TBD unify wrappers by types+#define DYNAMIC(_procname, _typ) \+foreign import ccall unsafe "dynamic" unwrap_/**/_procname :: FunPtr (_typ) -> _typ; \+_procname :: _typ; \+_procname = unwrap_/**/_procname (glGetProcAddress "_procname"); \++-- foreign import ccall unsafe "dynamic"+-- unwrap_glActiveTexture :: FunPtr (GLenum -> GL ()) -> GLenum -> GL ();+-- glActiveTexture :: GLenum -> GL ();+-- glActiveTexture = unwrap_glActiveTexture (glGetProcAddress "glActiveTexture");++#if defined(STATIC_ES2)+#define GLES2 STATIC+#else+#define GLES2 DYNAMIC+#endif++#if defined(STATIC_ES3)+#define GLES3 STATIC+#else+#define GLES3 DYNAMIC+#endif++#define GLES31 DYNAMIC++#define GL_EXT DYNAMIC+++-- ** OpenGL ES 2.0++GLES2(glActiveTexture, GLenum -> GL ())+GLES2(glAttachShader, GLuint -> GLuint -> GL ())+GLES2(glBindAttribLocation, GLuint -> GLuint -> CString -> GL ())+GLES2(glBindBuffer, GLenum -> GLuint -> GL ())+GLES2(glBindFramebuffer, GLenum -> GLuint -> GL ())+GLES2(glBindRenderbuffer, GLenum -> GLuint -> GL ())+GLES2(glBindTexture, GLenum -> GLuint -> GL ())+GLES2(glBlendColor, GLclampf -> GLclampf -> GLclampf -> GLclampf -> GL ())+GLES2(glBlendEquation, GLenum -> GL ())+GLES2(glBlendEquationSeparate, GLenum -> GLenum -> GL ())+GLES2(glBlendFunc, GLenum -> GLenum -> GL ())+GLES2(glBlendFuncSeparate, GLenum -> GLenum -> GLenum -> GLenum -> GL ())+GLES2(glBufferData, GLenum -> GLsizeiptr -> Ptr () -> GLenum -> GL ())+GLES2(glBufferSubData, GLenum -> GLintptr -> GLsizeiptr -> Ptr () -> GL ())+GLES2(glCheckFramebufferStatus, GLenum -> GL GLenum)+GLES2(glClear, GLbitfield -> GL ())+GLES2(glClearColor, GLclampf -> GLclampf -> GLclampf -> GLclampf -> GL ())+GLES2(glClearDepthf, GLclampf -> GL ())+GLES2(glClearStencil, GLint -> GL ())+GLES2(glColorMask, GLboolean -> GLboolean -> GLboolean -> GLboolean -> GL ())+GLES2(glCompileShader, GLuint -> GL ())+--GLES2(glCompressedTexImage2D, GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLint -> GLsizei -> Ptr () -> GL ())+GLES2(glCompressedTexImage2D, GLenum -> GLint -> GLenum -> GLuint -> GLuint -> GLint -> GLsizei -> CString -> GL ())+GLES2(glCompressedTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())+GLES2(glCopyTexImage2D, GLenum -> GLint -> GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> GL ())+GLES2(glCopyTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLES2(glCreateProgram, GL GLuint)+GLES2(glCreateShader, GLenum -> GL GLuint)+GLES2(glCullFace, GLenum -> GL ())+GLES2(glDeleteBuffers, GLsizei -> Ptr GLuint -> GL ())+GLES2(glDeleteFramebuffers, GLsizei -> Ptr GLuint -> GL ())+GLES2(glDeleteProgram, GLuint -> GL ())+GLES2(glDeleteRenderbuffers, GLsizei -> Ptr GLuint -> GL ())+GLES2(glDeleteShader, GLuint -> GL ())+GLES2(glDeleteTextures, GLsizei -> Ptr GLuint -> GL ())+GLES2(glDepthFunc, GLenum -> GL ())+GLES2(glDepthMask, GLboolean -> GL ())+GLES2(glDepthRangef, GLclampf -> GLclampf -> GL ())+GLES2(glDetachShader, GLuint -> GLuint -> GL ())+GLES2(glDisable, GLenum -> GL ())+GLES2(glDisableVertexAttribArray, GLuint -> GL ())+GLES2(glDrawArrays, GLenum -> GLint -> GLsizei -> GL ())+GLES2(glDrawElements, GLenum -> GLsizei -> GLenum -> Ptr () -> GL ())+GLES2(glEnable, GLenum -> GL ())+GLES2(glEnableVertexAttribArray, GLuint -> GL ())+GLES2(glFinish, GL ())+GLES2(glFlush, GL ())+GLES2(glFramebufferRenderbuffer, GLenum -> GLenum -> GLenum -> GLuint -> GL ())+GLES2(glFramebufferTexture2D, GLenum -> GLenum -> GLenum -> GLuint -> GLint -> GL ())+GLES2(glFrontFace, GLenum -> GL ())+GLES2(glGenBuffers, GLsizei -> Ptr GLuint -> GL ())+GLES2(glGenerateMipmap, GLenum -> GL ())+GLES2(glGenFramebuffers, GLsizei -> Ptr GLuint -> GL ())+GLES2(glGenRenderbuffers, GLsizei -> Ptr GLuint -> GL ())+GLES2(glGenTextures, GLsizei -> Ptr GLuint -> GL ())+GLES2(glGetActiveAttrib, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLint -> Ptr GLenum -> CString -> GL ())+GLES2(glGetActiveUniform, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLint -> Ptr GLenum -> CString -> GL ())+GLES2(glGetAttachedShaders, GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLuint -> GL ())+GLES2(glGetAttribLocation, GLuint -> CString -> GL GLint)+GLES2(glGetBooleanv, GLenum -> Ptr GLboolean -> GL ())+GLES2(glGetBufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLES2(glGetError, GL GLenum)+GLES2(glGetFloatv, GLenum -> Ptr GLfloat -> GL ())+GLES2(glGetFramebufferAttachmentParameteriv, GLenum -> GLenum -> GLenum -> Ptr GLint -> GL ())+GLES2(glGetIntegerv, GLenum -> Ptr GLint -> GL ())+GLES2(glGetProgramiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLES2(glGetProgramInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLES2(glGetRenderbufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLES2(glGetShaderiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLES2(glGetShaderInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLES2(glGetShaderPrecisionFormat, GLenum -> GLenum -> Ptr GLint -> Ptr GLint -> GL ())+GLES2(glGetShaderSource, GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLES2(glGetString, GLenum -> GL CString)+GLES2(glGetTexParameterfv, GLenum -> GLenum -> Ptr GLfloat -> GL ())+GLES2(glGetTexParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLES2(glGetUniformfv, GLuint -> GLint -> Ptr GLfloat -> GL ())+GLES2(glGetUniformiv, GLuint -> GLint -> Ptr GLint -> GL ())+GLES2(glGetUniformLocation, GLuint -> CString -> GL GLint)+GLES2(glGetVertexAttribfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())+GLES2(glGetVertexAttribiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLES2(glGetVertexAttribPointerv, GLuint -> GLenum -> Ptr (Ptr ()) -> GL ())+GLES2(glHint, GLenum -> GLenum -> GL ())+GLES2(glIsBuffer, GLuint -> GL GLboolean)+GLES2(glIsEnabled, GLenum -> GL GLboolean)+GLES2(glIsFramebuffer, GLuint -> GL GLboolean)+GLES2(glIsProgram, GLuint -> GL GLboolean)+GLES2(glIsRenderbuffer, GLuint -> GL GLboolean)+GLES2(glIsShader, GLuint -> GL GLboolean)+GLES2(glIsTexture, GLuint -> GL GLboolean)+GLES2(glLineWidth, GLfloat -> GL ())+GLES2(glLinkProgram, GLuint -> GL ())+GLES2(glPixelStorei, GLenum -> GLint -> GL ())+GLES2(glPolygonOffset, GLfloat -> GLfloat -> GL ())+GLES2(glReadPixels, GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLES2(glReleaseShaderCompiler, GL ())+GLES2(glRenderbufferStorage, GLenum -> GLenum -> GLsizei -> GLsizei -> GL ())+GLES2(glSampleCoverage, GLclampf -> GLboolean -> GL ())+GLES2(glScissor, GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLES2(glShaderBinary, GLsizei -> Ptr GLuint -> GLenum -> Ptr () -> GLsizei -> GL ())+GLES2(glShaderSource, GLuint -> GLsizei -> Ptr CString -> Ptr GLint -> GL ())+GLES2(glStencilFunc, GLenum -> GLint -> GLuint -> GL ())+GLES2(glStencilFuncSeparate, GLenum -> GLenum -> GLint -> GLuint -> GL ())+GLES2(glStencilMask, GLuint -> GL ())+GLES2(glStencilMaskSeparate, GLenum -> GLuint -> GL ())+GLES2(glStencilOp, GLenum -> GLenum -> GLenum -> GL ())+GLES2(glStencilOpSeparate, GLenum -> GLenum -> GLenum -> GLenum -> GL ())+-- GLES2(glTexImage2D, GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())+GLES2(glTexImage2D, GLenum -> GLint -> GLenum -> GLuint -> GLuint -> GLint -> GLenum -> GLenum -> CString -> GL ())+GLES2(glTexParameterf, GLenum -> GLenum -> GLfloat -> GL ())+GLES2(glTexParameterfv, GLenum -> GLenum -> Ptr GLfloat -> GL ())+GLES2(glTexParameteri, GLenum -> GLenum -> GLint -> GL ())+GLES2(glTexParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLES2(glTexSubImage2D, GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLES2(glUniform1f, GLint -> GLfloat -> GL ())+GLES2(glUniform1fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLES2(glUniform1i, GLint -> GLint -> GL ())+GLES2(glUniform1iv, GLint -> GLsizei -> Ptr GLint -> GL ())+GLES2(glUniform2f, GLint -> GLfloat -> GLfloat -> GL ())+GLES2(glUniform2fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLES2(glUniform2i, GLint -> GLint -> GLint -> GL ())+GLES2(glUniform2iv, GLint -> GLsizei -> Ptr GLint -> GL ())+GLES2(glUniform3f, GLint -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLES2(glUniform3fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLES2(glUniform3i, GLint -> GLint -> GLint -> GLint -> GL ())+GLES2(glUniform3iv, GLint -> GLsizei -> Ptr GLint -> GL ())+GLES2(glUniform4f, GLint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLES2(glUniform4fv, GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLES2(glUniform4i, GLint -> GLint -> GLint -> GLint -> GLint -> GL ())+GLES2(glUniform4iv, GLint -> GLsizei -> Ptr GLint -> GL ())+GLES2(glUniformMatrix2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES2(glUniformMatrix3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES2(glUniformMatrix4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES2(glUseProgram, GLuint -> GL ())+GLES2(glValidateProgram, GLuint -> GL ())+GLES2(glVertexAttrib1f, GLuint -> GLfloat -> GL ())+GLES2(glVertexAttrib1fv, GLuint -> Ptr GLfloat -> GL ())+GLES2(glVertexAttrib2f, GLuint -> GLfloat -> GLfloat -> GL ())+GLES2(glVertexAttrib2fv, GLuint -> Ptr GLfloat -> GL ())+GLES2(glVertexAttrib3f, GLuint -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLES2(glVertexAttrib3fv, GLuint -> Ptr GLfloat -> GL ())+GLES2(glVertexAttrib4f, GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLES2(glVertexAttrib4fv, GLuint -> Ptr GLfloat -> GL ())+GLES2(glVertexAttribPointer, GLuint -> GLint -> GLenum -> GLboolean -> GLsizei -> Ptr () -> GL ())+GLES2(glViewport, GLint -> GLint -> GLsizei -> GLsizei -> GL ())++-- ** OpenGL ES 3.0++GLES3(glReadBuffer, GLenum -> GL ())+GLES3(glDrawRangeElements, GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> Ptr () -> GL ())+--GLES3(glTexImage3D, GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLint -> GLenum -> GLenum -> Ptr () -> GL ())+GLES3(glTexImage3D, GLenum -> GLint -> GLenum -> GLuint -> GLuint -> GLuint -> GLint -> GLenum -> GLenum -> CString -> GL ())+GLES3(glTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLenum -> Ptr () -> GL ())+GLES3(glCopyTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+--GLES3(glCompressedTexImage3D, GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GLint -> GLsizei -> Ptr () -> GL ())+GLES3(glCompressedTexImage3D, GLenum -> GLint -> GLenum -> GLuint -> GLuint -> GLuint -> GLint -> GLsizei -> CString -> GL ())+GLES3(glCompressedTexSubImage3D, GLenum -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLsizei -> GLenum -> GLsizei -> Ptr () -> GL ())+GLES3(glGenQueries, GLsizei -> Ptr GLuint -> GL ())+GLES3(glDeleteQueries, GLsizei -> Ptr GLuint -> GL ())+GLES3(glIsQuery, GLuint -> GL GLboolean)+GLES3(glBeginQuery, GLenum -> GLuint -> GL ())+GLES3(glEndQuery, GLenum -> GL ())+GLES3(glGetQueryiv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLES3(glGetQueryObjectuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())+GLES3(glUnmapBuffer, GLenum -> GL GLboolean)+GLES3(glGetBufferPointerv, GLenum -> GLenum -> Ptr (Ptr ()) -> GL ())+GLES3(glDrawBuffers, GLsizei -> Ptr GLenum -> GL ())+GLES3(glUniformMatrix2x3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES3(glUniformMatrix3x2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES3(glUniformMatrix2x4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES3(glUniformMatrix4x2fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES3(glUniformMatrix3x4fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES3(glUniformMatrix4x3fv, GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES3(glBlitFramebuffer, GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> GL ())+GLES3(glRenderbufferStorageMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GL ())+GLES3(glFramebufferTextureLayer, GLenum -> GLenum -> GLuint -> GLint -> GLint -> GL ())+GLES3(glMapBufferRange, GLenum -> GLintptr -> GLsizeiptr -> GLbitfield -> GL (Ptr ()))+GLES3(glFlushMappedBufferRange, GLenum -> GLintptr -> GLsizeiptr -> GL ())+GLES3(glBindVertexArray, GLuint -> GL ())+GLES3(glDeleteVertexArrays, GLsizei -> Ptr GLuint -> GL ())+GLES3(glGenVertexArrays, GLsizei -> Ptr GLuint -> GL ())+GLES3(glIsVertexArray, GLuint -> GL GLboolean)+GLES3(glGetIntegeri_v, GLenum -> GLuint -> Ptr GLint -> GL ())+GLES3(glBeginTransformFeedback, GLenum -> GL ())+GLES3(glEndTransformFeedback, GL ())+GLES3(glBindBufferRange, GLenum -> GLuint -> GLuint -> GLintptr -> GLsizeiptr -> GL ())+GLES3(glBindBufferBase, GLenum -> GLuint -> GLuint -> GL ())+GLES3(glTransformFeedbackVaryings, GLuint -> GLsizei -> Ptr CString -> GLenum -> GL ())+GLES3(glGetTransformFeedbackVarying, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLsizei -> Ptr GLenum -> CString -> GL ())+GLES3(glVertexAttribIPointer, GLuint -> GLint -> GLenum -> GLsizei -> Ptr () -> GL ())+GLES3(glGetVertexAttribIiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLES3(glGetVertexAttribIuiv, GLuint -> GLenum -> Ptr GLuint -> GL ())+GLES3(glVertexAttribI4i, GLuint -> GLint -> GLint -> GLint -> GLint -> GL ())+GLES3(glVertexAttribI4ui, GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())+GLES3(glVertexAttribI4iv, GLuint -> Ptr GLint -> GL ())+GLES3(glVertexAttribI4uiv, GLuint -> Ptr GLuint -> GL ())+GLES3(glGetUniformuiv, GLuint -> GLint -> Ptr GLuint -> GL ())+GLES3(glGetFragDataLocation, GLuint -> CString-> GL GLint)+GLES3(glUniform1ui, GLint -> GLuint -> GL ())+GLES3(glUniform2ui, GLint -> GLuint -> GLuint -> GL ())+GLES3(glUniform3ui, GLint -> GLuint -> GLuint -> GLuint -> GL ())+GLES3(glUniform4ui, GLint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())+GLES3(glUniform1uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())+GLES3(glUniform2uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())+GLES3(glUniform3uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())+GLES3(glUniform4uiv, GLint -> GLsizei -> Ptr GLuint -> GL ())+GLES3(glClearBufferiv, GLenum -> GLint -> Ptr GLint -> GL ())+GLES3(glClearBufferuiv, GLenum -> GLint -> Ptr GLuint -> GL ())+GLES3(glClearBufferfv, GLenum -> GLint -> Ptr GLfloat -> GL ())+GLES3(glClearBufferfi, GLenum -> GLint -> GLfloat -> GLint -> GL ())+GLES3(glGetStringi, GLenum -> GLuint -> GL CString)+GLES3(glCopyBufferSubData, GLenum -> GLenum -> GLintptr -> GLintptr -> GLsizeiptr -> GL ())+GLES3(glGetUniformIndices, GLuint -> GLsizei -> Ptr CString -> Ptr GLuint -> GL ())+GLES3(glGetActiveUniformsiv, GLuint -> GLsizei -> Ptr GLuint -> GLenum -> Ptr GLint -> GL ())+GLES3(glGetUniformBlockIndex, GLuint -> CString -> GL GLuint)+GLES3(glGetActiveUniformBlockiv, GLuint -> GLuint -> GLenum -> Ptr GLint -> GL ())+GLES3(glGetActiveUniformBlockName, GLuint -> GLuint -> GLsizei -> Ptr GLsizei -> CString -> GL ())+GLES3(glUniformBlockBinding, GLuint -> GLuint -> GLuint -> GL ())+GLES3(glDrawArraysInstanced, GLenum -> GLint -> GLsizei -> GLsizei -> GL ())+GLES3(glDrawElementsInstanced, GLenum -> GLsizei -> GLenum -> Ptr () -> GLsizei -> GL ())+GLES3(glFenceSync, GLenum -> GLbitfield -> GL GLsync)+GLES3(glIsSync, GLsync -> GL GLboolean)+GLES3(glDeleteSync, GLsync -> GL ())+GLES3(glClientWaitSync, GLsync -> GLbitfield -> GLuint64 -> GL GLenum)+GLES3(glWaitSync, GLsync -> GLbitfield -> GLuint64 -> GL ())+GLES3(glGetInteger64v, GLenum -> Ptr GLint64 -> GL ())+GLES3(glGetSynciv, GLsync -> GLenum -> GLsizei -> Ptr GLsizei -> Ptr GLint -> GL ())+GLES3(glGetInteger64i_v, GLenum -> GLuint -> Ptr GLint64 -> GL ())+GLES3(glGetBufferParameteri64v, GLenum -> GLenum -> Ptr GLint64 -> GL ())+GLES3(glGenSamplers, GLsizei -> Ptr GLuint -> GL ())+GLES3(glDeleteSamplers, GLsizei -> Ptr GLuint -> GL ())+GLES3(glIsSampler, GLuint -> GL GLboolean)+GLES3(glBindSampler, GLuint -> GLuint -> GL ())+GLES3(glSamplerParameteri, GLuint -> GLenum -> GLint -> GL ())+GLES3(glSamplerParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLES3(glSamplerParameterf, GLuint -> GLenum -> GLfloat -> GL ())+GLES3(glSamplerParameterfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())+GLES3(glGetSamplerParameteriv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLES3(glGetSamplerParameterfv, GLuint -> GLenum -> Ptr GLfloat -> GL ())+GLES3(glVertexAttribDivisor, GLuint -> GLuint -> GL ())+GLES3(glBindTransformFeedback, GLenum -> GLuint -> GL ())+GLES3(glDeleteTransformFeedbacks, GLsizei -> Ptr GLuint -> GL ())+GLES3(glGenTransformFeedbacks, GLsizei -> Ptr GLuint -> GL ())+GLES3(glIsTransformFeedback, GLuint -> GL GLboolean)+GLES3(glPauseTransformFeedback, GL ())+GLES3(glResumeTransformFeedback, GL ())+GLES3(glGetProgramBinary, GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLenum -> Ptr () -> GL ())+GLES3(glProgramBinary, GLuint -> GLenum -> Ptr () -> GLsizei -> GL ())+GLES3(glProgramParameteri, GLuint -> GLenum -> GLint -> GL ())+GLES3(glInvalidateFramebuffer, GLenum -> GLsizei -> Ptr GLenum -> GL ())+GLES3(glInvalidateSubFramebuffer, GLenum -> GLsizei -> Ptr GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GL ())+GLES3(glTexStorage2D, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GL ())+GLES3(glTexStorage3D, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> GL ())+GLES3(glGetInternalformativ, GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLint -> GL ())++-- ** Extensions++GL_EXT(glBindVertexArrayOES, GLuint -> GL ())+GL_EXT(glDeleteVertexArraysOES, GLsizei -> Ptr GLuint -> GL ())+GL_EXT(glGenVertexArraysOES, GLsizei -> Ptr GLuint -> GL ())+GL_EXT(glIsVertexArrayOES, GLuint -> GL GLboolean)++GL_EXT(glDrawTexiOES, GLint -> GLint -> GLint -> GLint -> GLint -> GL ())++GL_EXT(glMultiDrawArraysEXT, GLenum -> Ptr GLint -> Ptr GLsizei -> GLsizei -> GL ())+GL_EXT(glMultiDrawElementsEXT, GLenum -> Ptr GLsizei -> GLenum -> Ptr (Ptr ()) -> GLsizei -> GL ())++GL_EXT(glDrawRangeElementsEXT, GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> Ptr () -> GL ())++-- ** OpenGL ES 3.1++GLES31(glDispatchCompute, GLuint -> GLuint -> GLuint -> GL ())+GLES31(glDispatchComputeIndirect, GLintptr -> GL ())+GLES31(glDrawArraysIndirect, GLenum -> Ptr () -> GL ())+GLES31(glDrawElementsIndirect, GLenum -> GLenum -> Ptr () -> GL ())+GLES31(glFramebufferParameteri, GLenum -> GLenum -> GLint -> GL ())+GLES31(glGetFramebufferParameteriv, GLenum -> GLenum -> Ptr GLint -> GL ())+GLES31(glGetProgramInterfaceiv, GLuint -> GLenum -> GLenum -> Ptr GLint -> GL ())+GLES31(glGetProgramResourceIndex, GLuint -> GLenum -> Ptr GLchar -> GL ())+GLES31(glGetProgramResourceName, GLuint -> GLenum -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLchar -> GL ())+GLES31(glGetProgramResourceiv, GLuint -> GLenum -> GLuint -> GLsizei -> Ptr GLenum -> GLsizei -> Ptr GLsizei -> Ptr GLint -> GL ())+GLES31(glGetProgramResourceLocation, GLuint -> GLenum -> Ptr GLchar -> GL ())+GLES31(glUseProgramStages, GLuint -> GLbitfield -> GLuint -> GL ())+GLES31(glActiveShaderProgram, GLuint -> GLuint -> GL ())+GLES31(glCreateShaderProgramv, GLenum -> GLsizei -> Ptr CString -> GL ())+GLES31(glBindProgramPipeline, GLuint -> GL ())+GLES31(glDeleteProgramPipelines, GLsizei -> Ptr GLuint -> GL ())+GLES31(glGenProgramPipelines, GLsizei -> Ptr GLuint -> GL ())+GLES31(glIsProgramPipeline, GLuint -> GL ())+GLES31(glGetProgramPipelineiv, GLuint -> GLenum -> Ptr GLint -> GL ())+GLES31(glProgramUniform1i, GLuint -> GLint -> GLint -> GL ())+GLES31(glProgramUniform2i, GLuint -> GLint -> GLint -> GLint -> GL ())+GLES31(glProgramUniform3i, GLuint -> GLint -> GLint -> GLint -> GLint -> GL ())+GLES31(glProgramUniform4i, GLuint -> GLint -> GLint -> GLint -> GLint -> GLint -> GL ())+GLES31(glProgramUniform1ui, GLuint -> GLint -> GLuint -> GL ())+GLES31(glProgramUniform2ui, GLuint -> GLint -> GLuint -> GLuint -> GL ())+GLES31(glProgramUniform3ui, GLuint -> GLint -> GLuint -> GLuint -> GLuint -> GL ())+GLES31(glProgramUniform4ui, GLuint -> GLint -> GLuint -> GLuint -> GLuint -> GLuint -> GL ())+GLES31(glProgramUniform1f, GLuint -> GLint -> GLfloat -> GL ())+GLES31(glProgramUniform2f, GLuint -> GLint -> GLfloat -> GLfloat -> GL ())+GLES31(glProgramUniform3f, GLuint -> GLint -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLES31(glProgramUniform4f, GLuint -> GLint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ())+GLES31(glProgramUniform1iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLES31(glProgramUniform2iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLES31(glProgramUniform3iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLES31(glProgramUniform4iv, GLuint -> GLint -> GLsizei -> Ptr GLint -> GL ())+GLES31(glProgramUniform1uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLES31(glProgramUniform2uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLES31(glProgramUniform3uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLES31(glProgramUniform4uiv, GLuint -> GLint -> GLsizei -> Ptr GLuint -> GL ())+GLES31(glProgramUniform1fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLES31(glProgramUniform2fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLES31(glProgramUniform3fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLES31(glProgramUniform4fv, GLuint -> GLint -> GLsizei -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix2x3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix3x2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix2x4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix4x2fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix3x4fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glProgramUniformMatrix4x3fv, GLuint -> GLint -> GLsizei -> GLboolean -> Ptr GLfloat -> GL ())+GLES31(glValidateProgramPipeline, GLuint -> GL ())+GLES31(glGetProgramPipelineInfoLog, GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLchar -> GL ())+GLES31(glBindImageTexture, GLuint -> GLuint -> GLint -> GLboolean -> GLint -> GLenum -> GLenum -> GL ())+GLES31(glGetBooleani_v, GLenum -> GLuint -> Ptr GLboolean -> GL ())+GLES31(glMemoryBarrier, GLbitfield -> GL ())+GLES31(glMemoryBarrierByRegion, GLbitfield -> GL ())+GLES31(glTexStorage2DMultisample, GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> GLboolean -> GL ())+GLES31(glGetMultisamplefv, GLenum -> GLuint -> Ptr GLfloat -> GL ())+GLES31(glSampleMaski, GLuint -> GLbitfield -> GL ())+GLES31(glGetTexLevelParameteriv, GLenum -> GLint -> GLenum -> Ptr GLint -> GL ())+GLES31(glGetTexLevelParameterfv, GLenum -> GLint -> GLenum -> Ptr GLfloat -> GL ())+GLES31(glBindVertexBuffer, GLuint -> GLuint -> GLintptr -> GLsizei -> GL ())+GLES31(glVertexAttribFormat, GLuint -> GLint -> GLenum -> GLboolean -> GLuint -> GL ())+GLES31(glVertexAttribIFormat, GLuint -> GLint -> GLenum -> GLuint -> GL ())+GLES31(glVertexAttribBinding, GLuint -> GLuint -> GL ())+GLES31(glVertexBindingDivisor, GLuint -> GLuint -> GL ())+
+ src/Graphics/OpenGLES/Base/Proc.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE CPP, Unsafe, UnliftedFFITypes, MagicHash, UnboxedTuples #-} +module Graphics.OpenGLES.Base.Proc (glGetProcAddress) where +import Foreign +import Foreign.C.String +import GHC.Base (realWorld#) +import GHC.CString (unpackCString#) +import GHC.IO (IO (IO)) +import GHC.Ptr (Ptr(..)) +import System.IO.Unsafe (unsafePerformIO) + + +#if defined(EGL_GETPROC) +foreign import ccall unsafe "eglGetProcAddress" + getProcAddress :: CString -> IO (FunPtr a) + +#elif defined(WGL_GETPROC) +foreign import ccall unsafe "wglGetProcAddress" + getProcAddress :: CString -> IO (FunPtr a) + +#elif defined(GLX_GETPROC) +foreign import ccall unsafe "glXGetProcAddress" + getProcAddress :: CString -> IO (FunPtr a) + +#elif defined(DLSYM_GETPROC) +-- | void *dlsym(void *handle, const char *symbol); +foreign import ccall unsafe "dlfcn.h dlsym" + dlsym :: Ptr () -> CString -> IO (FunPtr a) + +getProcAddress :: CString -> IO (FunPtr a) +getProcAddress procname = dlsym runtime_loader_default procname + where runtime_loader_default = nullPtr +#else + +#error "Don't know how to retrieve OpenGL ES extension entries. try -DEGL_GETPROC" + +#endif + + +-- * Retrieve OpenGL (ES) and EGL Extension Entries + +-- | 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 #-} + +glGetProcAddress :: String -> FunPtr a +glGetProcAddress procname = + unsafePerformIO $ withCString procname getProcAddress +{-# INLINE [0] glGetProcAddress #-} +{-# RULES "glGetProcAddress/getProcAddress" + forall s. glGetProcAddress (unpackCString# s) = + inlinePerformIO (getProcAddress (Ptr s)) + #-} +
+ src/Graphics/OpenGLES/Buffer.hs view
@@ -0,0 +1,396 @@+{-# LANGUAGE FlexibleContexts,TypeSynonymInstances,LiberalTypeSynonyms,TypeOperators,GADTs,RelaxedPolyRec,ConstrainedClassMethods,UndecidableInstances,IncoherentInstances,NoMonomorphismRestriction,RankNTypes,PolymorphicComponents #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE OverlappingInstances #-}+{-# LANGUAGE KindSignatures #-}+{-# LANGUAGE TypeFamilies #-}++module Graphics.OpenGLES.Buffer (++ -- * Buffer+ -- ** Constructing Mutable Buffers+ Buffer,+ GLArray,+ MakeArray(..),+ glLoad, glReload, glRead, glModify, glMap,++ -- ** Updating Mutable Buffers+ unsafeWithLen,+ BufferUsage, app2gl, app2glDyn, app2glStream,+ gl2app, gl2appDyn, gl2appStream, gl2gl, gl2glDyn, gl2glStream,+ + -- ** Raw Buffer Operations+ bindBuffer, bindBufferRange, bindBufferBase,+ bufferData, bufferSubData, + -- | /3+ | GL_OES_mapbuffer/ glUnmapBufferOES+ unmapBuffer,+ -- | /GL_OES_mapbuffer/+ -- (*GL_APIENTRY glMapBufferOES (GLenum target, GLenum access);+ -- define GL_WRITE_ONLY_OES 0x88B9+ -- | /3+ | GL_EXT_map_buffer_range/+ -- glMapBufferRangeEXT glFlushMappedBufferRangeEXT+ mapBufferRange, flashMappedBufferRange,+ map_read_bit, map_write_bit, map_invalidate_range_bit,+ map_invalidate_buffer_bit, map_flush_explicit_bit, map_unsynchronized_bit,+ -- | /3+ | GL_NV_copy_buffer/ glCopyBufferSubDataNV+ copyBufferSubData,+ BufferSlot, array_buffer, element_array_buffer,+ -- | /ES 3+/+ pixel_pack_buffer, pixel_unpack_buffer,+ uniform_buffer, transform_feedback_buffer,+ -- | /3+ or GL_NV_copy_buffer/+ copy_read_buffer, copy_write_buffer+ ) where++import Control.Applicative+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.Types+import Foreign+++-- ** Constructing Mutable Buffers++class Storable (Element a) => MakeArray a where+ type Element a :: *+ makeAref :: a -> GL (Either (GLArray (Element a)) Int)+ makeWriter :: a -> (Ptr (Element a) -> GL (), Int)++newtype Zeros a = Zeros { unZeros :: Int }+class Storable a => MemZero a where memZero :: a -- zero in C lang+instance MemZero Int where memZero = 0+instance MemZero Bool where memZero = False+--etc+instance MemZero a => MakeArray (Zeros a) where+ type Element (Zeros a) = a+ makeAref = return . Right . unZeros+ makeWriter (Zeros len) = (\ptr -> B.memset (castPtr ptr) 0+ (fromIntegral $ len * sizeOf (undefined :: a))+ >> return (), len)+--instance Storable b => MakeArray Int b where+-- makeAref = return . Right+-- makeWriter len = (\ptr -> B.memset (castPtr ptr) 0+-- (fromIntegral $ len * sizeOf (undefined :: b))+-- >> return (), len)++newtype CycleTakeN a = CycleTakeN { unCycleTakeN :: ([a], Int) }+instance Storable a => MakeArray (CycleTakeN a) where+ type Element (CycleTakeN a) = a+ makeAref (CycleTakeN (xs, len)) = return . Left $ V.fromListN len (cycle xs)+ makeWriter (CycleTakeN (xs, len)) = (\ptr -> pokeArray ptr xs, len)+--instance Storable a => MakeArray ([a], Int) a where+-- makeAref (xs, len) = return . Left $ V.fromListN len (cycle xs)+-- makeWriter (xs, len) = (\ptr -> pokeArray ptr xs, len)++instance Storable a => MakeArray [a] where+ type Element [a] = a+ makeAref xs = return . Left $ V.fromList xs+ makeWriter xs = (\ptr -> pokeArray ptr xs, length xs)+--instance Storable a => MakeArray [a] a where+-- makeAref xs = return . Left $ V.fromList xs+-- makeWriter xs = (\ptr -> pokeArray ptr xs, length xs)++newtype FromBS a = FromBS { unFromBS :: B.ByteString }+instance Storable a => MakeArray (FromBS a) where+ type Element (FromBS a) = a+ makeAref (FromBS bs@(B.PS foreignPtr offset len)) = do+ let fp | offset == 0 = foreignPtr+ | otherwise = case B.copy bs of (B.PS f _ _) -> f+ let elems = (len `div` sizeOf (undefined :: a))+ let vec = V.unsafeFromForeignPtr0 (castForeignPtr fp) elems+ return (Left vec)+ makeWriter (FromBS (B.PS fp offset len)) = (\dst ->+ withForeignPtr fp $ \src ->+ B.memcpy (castPtr dst) (advancePtr (castPtr src) offset) len+ , len `div` sizeOf (undefined :: a))+--instance Storable b => MakeArray B.ByteString b where+-- makeAref bs@(B.PS foreignPtr offset len) = do+-- let fp | offset == 0 = foreignPtr+-- | otherwise = case B.copy bs of (B.PS f _ _) -> f+-- let elems = (len `div` sizeOf (undefined :: b))+-- 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+-- , len `div` sizeOf (undefined :: b))++instance Storable a => MakeArray (GLArray a) where+ type Element (GLArray a) = a+ makeAref = return . Left+ makeWriter vec =+ (\dst -> withForeignPtr fp $ \src ->+ B.memcpy (castPtr dst) (castPtr src)+ (len * sizeOf (undefined :: a))+ , len)+ where (fp, len) = V.unsafeToForeignPtr0 vec+--instance Storable a => MakeArray (GLArray a) a where+-- makeAref = return . Left+-- makeWriter vec =+-- (\dst -> withForeignPtr fp $ \src ->+-- B.memcpy (castPtr dst) (castPtr src)+-- (len * sizeOf (undefined :: a))+-- , len)+-- where (fp, len) = V.unsafeToForeignPtr0 vec++--instance MakeArray (Buffer a) a where+-- makeAref (Buffer aref glo) = return . Left =<< go =<< readIORef aref+-- where+-- go (Left)+-- go (Right) +++-- |+-- Create and initialize a 'Buffer' storage on GPU working memory.+-- +-- - Int → /O(1)/+-- New Buffer with specified number of elements initialized to zeros.+-- - ([a], Int) → /O(n)/+-- New Buffer made of given list upto n th element.+-- - [a] → /O(n)/+-- New Buffer made of given list. Same as (xs, length xs)+-- - 'ByteString' → /head O(1) otherwise O(n)/+-- New Buffer from 'ByteString'. Might be copied when necessary.+-- - 'GLArray' → __Unsafe__ /O(1)/+-- Use passed 'StorableArray' as client-side Buffer.+-- +-- > glLoad app2gl (10::Int) :: GL (Buffer Vec4)+-- > glLoad app2gl ([V2 1 1],4::Int) :: GL (Buffer Vec2)+-- > glLoad app2gl uv :: GL (Buffer (V2 Word8))+-- > glLoad app2gl bs :: GL (Buffer Float)+-- > glLoad app2gl (model :: GLArray Model) :: GL (Buffer Model)+glLoad :: forall a. MakeArray a => BufferUsage -> a -> GL (Buffer (Element a))+glLoad usage src = do+ aref <- newIORef =<< makeAref src+ Buffer aref <$> newBuffer (do+ array <- readIORef aref+ case array of+ Left vector ->+ unsafeWithLen vector (bufferData array_buffer usage)+ Right elems ->+ bufferData array_buffer usage (elems * unit) nullPtr+ void $ showError "glBufferData"+ ) where unit = sizeOf (undefined :: Element a)+ -- TODO BufferArchive++newBuffer init = newGLO glGenBuffers glDeleteBuffers+ (\i -> glBindBuffer 0x8892 i >> init) -- GL_ARRAY_BUFFER++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. MakeArray a+ => Buffer (Element a)+ -> Int -- ^ offset index+ -> a -- ^ values+ -> GL ()+glReload buf@(Buffer aref glo) offsetIx src = do+ bindBuffer array_buffer buf+ aref' <- readIORef aref+ let unit = sizeOf (undefined :: Element a)+ let (fillSubArray, size') = makeWriter src+ let size = size' * unit+ if hasES3 then do+ ptr <- mapBufferRange array_buffer (offsetIx * unit) size+ (map_write_bit + map_invalidate_range_bit + map_unsynchronized_bit)+ showError "glMapBufferRange"+ fillSubArray ptr+ unmapBuffer array_buffer+ showError "glUnmapBuffer"+ case aref' of+ Left vec ->+ writeIORef aref (Right (V.length vec * unit))+ else do+ vector <- case aref' of+ Left array -> return array+ 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 vector)++-- | +glRead+ :: forall a. Storable a+ => Buffer a+ -> Int -- ^ offset index+ -> Int -- ^ length+ -> GL (GLArray a)+glRead buf@(Buffer aref glo) offsetIx len = do+ bindBuffer array_buffer buf+ array <- readIORef aref+ case array of+ Left vector ->+ return vector -- XXX Make it partial+ Right elems -> do+ 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-})+ V.unsafeWith vec $ \dst ->+ B.memcpy (castPtr dst) src (len * unit)+ unmapBuffer array_buffer+ writeIORef aref (Left vec) -- backup+ return vec+ else return vec+ where unit = sizeOf (undefined :: a)++glModify+ :: forall a. Storable a+ => Buffer a+ -> Int -- ^ offset index+ -> Int -- ^ length+ -> (V.Vector a -> GL ()) -- ^ XXX+ -> 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 vector -> V.length vector+ ptr <- mapBufferRange array_buffer 0 (len * unit)+ (map_read_bit + map_write_bit {- + map_unsynchronized_bit-})+ fp <- newForeignPtr_ ptr+ f $ V.unsafeFromForeignPtr0 fp elems+ unmapBuffer array_buffer+ writeIORef aref (Right elems)+ else do+ a <- readIORef aref+ case a of + Left vector -> do+ f vector+ unsafeWithLen vector (bufferSubData array_buffer 0)+ Right elems -> do+ 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 -- ^ offset index+ -> Int -- ^ length+ -> GL ()+glMap f buffer off len = glModify buffer off len (V.mapM_ f)+++-- ** Updating Mutable Buffers+++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)++-- hasMapBufferRange = hasES3+-- GL_NV_map_buffer_range 5devices 2%+-- GL_EXT_map_buffer_range 2devices 1%++-- Performance hint http://www.opentk.com/node/1930+++-- ** Buffer Slots++-- | STATIC_DRAW (Default)+app2gl = BufferUsage 0x88E4+-- | DYNAMIC_DRAW+app2glDyn = BufferUsage 0x88E8+-- | STREAM_DRAW+app2glStream = BufferUsage 0x88E0+-- *** GL ES 3++-- | STATIC_READ+gl2app = BufferUsage 0x88E5+-- | DYNAMIC_READ+gl2appDyn = BufferUsage 0x88E9+-- | STREAM_READ+gl2appStream = BufferUsage 0x88E1+-- | STATIC_COPY+gl2gl = BufferUsage 0x88E6+-- | DYNAMIC_COPY+gl2glDyn = BufferUsage 0x88EA+-- | STREAM_COPY+gl2glStream = BufferUsage 0x88E2+++-- ** Raw Buffer Operations++bindBuffer :: BufferSlot -> Buffer a -> GL ()+bindBuffer (BufferSlot target) (Buffer _ glo) =+ glBindBuffer target =<< getObjId glo++bindBufferRange :: BufferSlot -> GLuint -> Buffer a -> Int -> Int -> GL ()+bindBufferRange (BufferSlot t) index (Buffer _ glo) offset size = do+ buf <- getObjId glo+ glBindBufferRange t index buf offset size++bindBufferBase :: BufferSlot -> GLuint -> Buffer a -> GL ()+bindBufferBase (BufferSlot t) index (Buffer _ glo) = do+ glBindBufferBase t index =<< getObjId glo++bufferData :: BufferSlot -> BufferUsage -> Int -> Ptr a -> GL ()+bufferData (BufferSlot target) (BufferUsage usage) size ptr =+ glBufferData target size (castPtr ptr) usage++bufferSubData :: BufferSlot -> Int -> Int -> Ptr a -> GL ()+bufferSubData (BufferSlot target) offset size ptr =+ glBufferSubData target offset size (castPtr ptr)++-- *** 3+ | GL_OES_mapbuffer glUnmapBufferOES+unmapBuffer :: BufferSlot -> GL Bool+unmapBuffer (BufferSlot target) =+ glUnmapBuffer target >>= return . (/= 0)++-- *** GL_OES_mapbuffer +-- (*GL_APIENTRY glMapBufferOES (GLenum target, GLenum access);+-- define GL_WRITE_ONLY_OES 0x88B9++-- *** 3+ | GL_EXT_map_buffer_range+-- glMapBufferRangeEXT glFlushMappedBufferRangeEXT+mapBufferRange :: BufferSlot -> Int -> Int -> GLbitfield -> GL (Ptr a)+mapBufferRange (BufferSlot target) offset size access =+ fmap castPtr $ glMapBufferRange target offset size access++flashMappedBufferRange :: BufferSlot -> Int -> Int -> GL ()+flashMappedBufferRange (BufferSlot target) offset size =+ glFlushMappedBufferRange target offset size++map_read_bit = 1 :: GLbitfield+map_write_bit = 2 :: GLbitfield+map_invalidate_range_bit = 4 :: GLbitfield+map_invalidate_buffer_bit = 8 :: GLbitfield+map_flush_explicit_bit = 16 :: GLbitfield+map_unsynchronized_bit = 32 :: GLbitfield++-- *** 3+ | GL_NV_copy_buffer glCopyBufferSubDataNV+copyBufferSubData :: BufferSlot -> BufferSlot -> Int -> Int -> Int -> GL ()+copyBufferSubData (BufferSlot read) (BufferSlot write) roffset woffset size =+ glCopyBufferSubData read write roffset woffset size++array_buffer = BufferSlot 0x8892+element_array_buffer = BufferSlot 0x8893+-- *** 3++pixel_pack_buffer = BufferSlot 0x88EB+pixel_unpack_buffer = BufferSlot 0x88EC+uniform_buffer = BufferSlot 0x8A11+transform_feedback_buffer = BufferSlot 0x8C8E+-- *** 3+ | GL_NV_copy_buffer+copy_read_buffer = BufferSlot 0x8F36+copy_write_buffer = BufferSlot 0x8F37+
+ src/Graphics/OpenGLES/Caps.hs view
@@ -0,0 +1,501 @@+-- | Query implementation capabilities.+-- +-- __Do NOT call below APIs out of OpenGLES threads.__+-- +-- (May cause Segmentation Fault, or you get unuseful 0)+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)+++-- * Detecting Extensions++{-# NOINLINE glExtensions #-}+-- | The list of available extensions on the GL implementation.+glExtensions :: [String]+glExtensions = unsafePerformIO $+ glGetString 0x1F03 >>= peekCString >>= return.words++{-# NOINLINE hasExt #-}+-- | True if the GL has the extension.+hasExt :: String -> Bool+hasExt ext = ext `elem` glExtensions+--hasExt :: CString -> Bool+--glGetString 0x1F03 >>= indexOf ext /= -1++{-# NOINLINE hasES3 #-}+-- | True if the GL version is 3 or later. +hasES3 :: Bool+hasES3 = glCap majorVersion > 2+++-- * 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+++-- ** Extensions++-- | /(extname)/ (desc) Float?Int?+maxTextureMaxAnisotropy = GLParam 0x84FF+++-- * Shader Precision++-- | Query shader precision information+-- +-- > (min, max, precision) <- shaderPrecision vertexShader highFp+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+
+ src/Graphics/OpenGLES/Core.hs view
@@ -0,0 +1,485 @@+-----------------------------------------------------------------------------+-- |+-- Module : Graphics.OpenGLES.Core+-- Copyright : (c) capsjac 2014+-- License : LGPL-3 (see the file LICENSE)+-- +-- The neat and easy to use wrapper for OpenGL EmbedSystems (ES).+-- The wrapper is optimised for mobile and have small footprint.+-- Assuming OpenGL ES 2.0 or any later version, however, also works+-- with OpenGL 4.1/4.3+ on desktop.+--+-----------------------------------------------------------------------------++{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE TypeOperators #-}+{-# LANGUAGE TypeFamilies #-}++module Graphics.OpenGLES.Core (+ GL,+ -- * Lifecycle+ forkGL, stopGL, --destroyGL,+ endFrameGL, runGL, --runGLRes+ withGL, resetDrawQueue,+ glLog, glReadLogs, glLogContents,+ glFrameCount, glFlipping, framesize,+ + -- * Draw Operation+ -- ** Clear Screen+ -- | See "Graphics.OpenGLES.Framebuffer"+ + -- ** Draw+ glDraw,+ + -- ** Draw Mode+ DrawMode, drawPoints, drawLines,+ drawLineLoop, drawLineStrip,+ drawTriangles, triangleStrip, triangleFan,+ linesAdjacency, lineStripAdjacency,+ trianglesAdjacency, triangleStripAdjacency,+ + -- ** Graphics State+ RenderConfig, renderTo,+ + -- ** Programmable Shader+ Shader, vertexShader, fragmentShader, pixelShader,+ computeShader, geometryShader,+ tessellationEvalS, tessellationCtrlS,+ Program, module Data.Typeable,+ TransformFeedback(..), ProgramBinary,+ glCompile, glValidate,+ + -- ** Uniform Variable+ Uniform, uniform, ($=), UnifVal, UniformAssignment,+ + -- ** Vertex Attribute Array+ Attrib, attrib, normalized, divisor, (&=),+ VertexArray, glVA,+ VertexAttribute, AttrStruct, SetVertexAttr,+ + -- ** Constant Vertex Attribute+ constAttrib,+ + -- ** Texture+ -- | See "Graphics.OpenGLES.Texture"+ + -- ** Vertex Picker+ VertexPicker,+ takeFrom,+ takeFromInstanced,+ takeFromMany,+ takeFromMany',+ VertexIx,+ byIndex,+ byIndexInstanced,+ byIndices,+ byIndices',+ byRange+ ) where+import Control.Applicative+import Control.Monad+import Control.Monad.IO.Class+import Control.Concurrent (forkOS, ThreadId, myThreadId, killThread)+import Control.Concurrent.Chan+import Control.Exception (catch, SomeException)+import Control.Future+import qualified Data.ByteString as B+import Data.IORef+import Data.Typeable+import qualified Data.Vector.Storable as V+import Foreign+import Foreign.C.String (peekCStringLen)+import Graphics.OpenGLES.Base+import Graphics.OpenGLES.Buffer+import Graphics.OpenGLES.Caps+import Graphics.OpenGLES.Internal+++-- * Initialization++forkGL :: MonadIO m+ => IO Bool+ -> GL ()+ -> GL ()+ -> m ThreadId+forkGL resumeGL suspendGL swapBuffers = liftIO $ forkOS $ do+ writeIORef drawOrExit (Just swapBuffers)+ resumeGL -- Note: implicit glFlush here+ putStrLn "bindEGL"+ -- glRestoreLostObjects+ let loop count = do+ putStrLn $ "start draw " ++ show count+ readChan drawQueue >>= id+ loop (count + 1 :: Integer)+ catch (loop 0) $ \(e :: SomeException) -> do+ glLog $ "Rendering thread terminated: " ++ show e+ suspendGL+ putStrLn "unbindEGL"+ writeIORef drawOrExit (Just (glLog "Fatal lifecycle bug"))++stopGL :: MonadIO m => m ()+stopGL = liftIO $ do+ putStrLn "stopGL"+ writeIORef drawOrExit Nothing+ let waitGLThread = readIORef drawOrExit >>= \case+ Just _ -> nop+ Nothing -> waitGLThread+ waitGLThread+ putStrLn "Rendering has stopped."++--destroyGL :: MonadIO m => m ()+--destroyGL = runGL $ eglMakeCurrent Nothing, eglDestroyXXX ...++endFrameGL :: MonadIO m => m ()+endFrameGL = liftIO $ withGL go >>= waitFor >> nop+ where go = do+ readIORef drawOrExit >>= \case+ Just eglSwapBuffer -> do+ eglSwapBuffer+ modifyIORef frameCounter (+1)+ Nothing -> myThreadId >>= killThread++runGL :: MonadIO m => GL () -> m ()+runGL io = liftIO $ writeChan drawQueue io++--runGLRes :: GL () -> IO ()+--runGLRes io = forkOS++withGL :: MonadIO m => GL a -> m (Future' a)+withGL io = mkFuture $ \update -> runGL (io >>= update . Finished)++-- | drawQueue may have drawcalls that use previous context,+-- so make it sure they are removed from the queue.+resetDrawQueue :: MonadIO m => m ()+resetDrawQueue = liftIO $ do+ isEmpty <- isEmptyChan drawQueue+ when (not isEmpty) (readChan drawQueue >> resetDrawQueue)++glReadLogs :: MonadIO m => m [String]+glReadLogs = liftIO $ do+ isEmpty <- isEmptyChan errorQueue+ if isEmpty+ then return []+ else (:) <$> readChan errorQueue <*> glReadLogs++glLogContents :: MonadIO m => m [String]+glLogContents = liftIO $ getChanContents errorQueue++-- | @return ()@+nop :: MonadIO m => m ()+nop = return ()++glFrameCount :: MonadIO m => m Int64+glFrameCount = liftIO $ readIORef frameCounter++glFlipping :: MonadIO m => m Bool+glFlipping = fmap odd glFrameCount++-- XXX bindFb defaultFramebuffer needed+-- | > GLFW.setFramebufferSizeCallback win $ Just (const framesize)+framesize :: MonadIO m => Int -> Int -> m ()+framesize w h = runGL $ glViewport 0 0 (f w) (f h)+ where f = fromIntegral+++-- * Drawing++glDraw :: Typeable p+ => DrawMode+ -> Program p+ -> [RenderConfig]+ -> [UniformAssignment p]+ -> VertexArray p+ -> VertexPicker+ -> GL Bool+glDraw (DrawMode mode) prog@(Program pobj _ _ _) setState unifs+ (VertexArray (vao, setVA)) (VertexPicker picker) = do+ glUseProgram =<< getObjId pobj+ sequence setState+ sequence unifs+ case extVAO of+ Nothing -> setVA+ Just (_, bind, _) -> getObjId vao >>= bind+ --glValidate prog+ picker mode++-- | Exists for better documentation.+-- +-- > renderTo $ do+-- > bindFb defaultFramebuffer+-- > viewport $ V4 0 0 512 512+-- > depthRange $ V2 0.1 10.0+-- > begin culling+-- > cullFace hideBack+renderTo :: RenderConfig -> GL ()+renderTo = id+++-- ** Draw Mode++drawPoints, drawLines, drawLineLoop, drawLineStrip,+ drawTriangles, triangleStrip, triangleFan :: DrawMode+drawPoints = DrawMode 0+drawLines = DrawMode 1+drawLineLoop = DrawMode 2+drawLineStrip = DrawMode 3+drawTriangles = DrawMode 4+triangleStrip = DrawMode 5+triangleFan = DrawMode 6+-- | /GL_EXT_geometry_shader/ GL_LINES_ADJACENCY_EXT+linesAdjacency = DrawMode 10+-- | /GL_EXT_geometry_shader/ GL_LINE_STRIP_ADJACENCY_EXT+lineStripAdjacency = DrawMode 11+-- | /GL_EXT_geometry_shader/ GL_TRIANGLES_ADJACENCY_EXT+trianglesAdjacency = DrawMode 12+-- | /GL_EXT_geometry_shader/ GL_TRIANGLE_STRIP_ADJACENCY_EXT+triangleStripAdjacency = DrawMode 13+++-- ** Programmable Shader++vertexShader, fragmentShader, pixelShader,+ computeShader, geometryShader,+ tessellationEvalS, tessellationCtrlS+ :: GLName -> B.ByteString -> Shader+vertexShader = Shader 0x8B31+fragmentShader = Shader 0x8B30+-- | Same as 'fragmentShader'+pixelShader = fragmentShader+-- | Compute shader requires /ES3.1+/+computeShader = Shader 0x91B9+-- | Geometry shader requires /GL_EXT_geometry_shader (ES3.1)/+geometryShader = Shader 0x8DD9+-- | Tessellation Shader requires /GL_EXT_tessellation_shader (ES3.1)/+tessellationEvalS = Shader 0x8E87+-- | Tessellation Shader requires /GL_EXT_tessellation_shader (ES3.1)/+tessellationCtrlS = Shader 0x8E88+++glCompile+ :: Typeable p+ => TransformFeedback+ -> [Shader]+ -> (Program p -> Int -> String -> Maybe ProgramBinary -> GL ())+ -> GL (Progress [String] (Program p))+glCompile tf shaders progressLogger = do+ glo <- newIORef undefined+ let prog = Program glo tf shaders ([],[])+ loadProgram prog (progressLogger prog)++-- | glValidateProgram checks to see whether the executables contained in+-- program can execute given the current OpenGL state.+glValidate :: Program p -> GL String+glValidate prog = alloca $ \intptr -> do+ pid <- getObjId $ programGLO prog+ glValidateProgram pid+ glGetProgramiv pid c_info_log_length intptr+ len <- fmap fromIntegral $ peek intptr+ info <- allocaBytes len $ \buf -> do+ glGetProgramInfoLog pid (fromIntegral len) nullPtr buf+ peekCStringLen (buf, len-1)+ glLog $ "validateProgram: " ++ info+ return info+++-- ** Uniform Variable++type UniformAssignment p = GL ()++uniform+ :: forall p a. (UnifVal a, Typeable p)+ => GLName -> IO (Uniform p a)+uniform name = do+ desc <- lookupVarDesc typ+ case desc of+ Nothing -> return $ Uniform (-1, 0, nullPtr)+ Just (unifs, _) ->+ case lookup name unifs of+ Just unif -> validateType unif+ Nothing -> glLog errmsg >> return (Uniform (-1, 0, nullPtr))+ where+ typ = typeRep (undefined :: Program p)+ errmsg = "Uniform not found: " ++ name ++ " (" ++ show typ ++ ")"+ validateType (loc, size, gltyp) = do+ -- Prevent drawtime allocation (it leaks, though)+ 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+++-- ** Vertex Attribute++-- | @normalized color `divisor` 1 &= buffer@+attrib+ :: forall p a. (VertexAttribute a, Typeable p)+ => GLName -> IO (Attrib p a)+attrib name = do+ desc <- lookupVarDesc typ+ case desc of+ Nothing -> return $ Attrib (-1, 0, 0, 0)+ Just (_, attrs) ->+ case lookup name attrs of+ Just attr -> validateType attr+ Nothing -> glLog errmsg >> return (Attrib (-1, 0, 0, 0))+ where+ typ = typeRep (undefined :: Program p)+ errmsg = "Attribute not found: " ++ name ++ " (" ++ show typ ++ ")"+ validateType (loc, size, gltyp) =+ return $ Attrib (fromIntegral loc, size, 0, 0)++normalized :: Attrib p a -> Attrib p a+normalized (Attrib (i, s, 0, d)) = Attrib (i, s, 1, d)+normalized _ = error "inapplicable use of 'normalized'"++divisor :: Attrib p a -> Word32 -> Attrib p a+divisor (Attrib (i, s, n, _)) d = Attrib (i, s, n, d)++type SetVertexAttr p = GL ()++infix 0 &=+(&=) :: AttrStruct a p b => a -> Buffer b -> SetVertexAttr p+attribs &= buf = do+ bindBuffer array_buffer buf+ glVertexBuffer attribs buf+++glVA :: [SetVertexAttr p] -> GL (VertexArray p)+glVA attrs = do+ let setVA = sequence_ attrs+ glo <- case extVAO of+ Nothing -> return (error "GLO not used")+ Just (gen, bind, del) ->+ newGLO gen del (\i -> bind i >> setVA)+ return $ VertexArray (glo, setVA)++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+++-- ** Constant Vertex Attribute++constAttrib :: VertexAttribute a => Attrib p a -> a -> SetVertexAttr p+constAttrib (Attrib (ix, _, _, _)) val = do+ glDisableVertexAttribArray ix+ glVertexAttrib ix val+++-- ** Vertex Picker++-- Wrapping glDrawArrays+takeFrom :: Int32 -> Int32 -> VertexPicker+takeFrom first count =+ VertexPicker $ \mode -> do+ glDrawArrays mode first count+ showError "glDrawArrays"++-- Wrapping glDrawArraysInstanced[EXT]+takeFromInstanced :: Int32 -> Int32 -> Int32 -> VertexPicker+takeFromInstanced first count numInstances =+ VertexPicker $ \mode -> do+ glDrawArraysInstanced mode first count numInstances+ showError "glDrawArraysInstanced"++-- Wrapping glMultiDrawArraysEXT+takeFromMany :: V.Vector Int32 -> V.Vector Int32 -> VertexPicker+takeFromMany first_ count_ = VertexPicker $ \mode ->+ if hasMDA then do+ let len = fromIntegral $ min (V.length first_) (V.length count_)+ V.unsafeWith first_ $ \first ->+ V.unsafeWith count_ $ \count ->+ glMultiDrawArraysEXT mode first count len+ showError "glMultiDrawArraysEXT"+ else do+ V.zipWithM_ (go mode) first_ count_+ return True+ where go mode first count = do+ glDrawArrays mode first count+ showError "glDrawArrays[]"++takeFromMany' :: [(Int32, Int32)] -> VertexPicker+takeFromMany' xs =+ takeFromMany (V.fromList first) (V.fromList count)+ where (first, count) = unzip xs++hasMDA = hasExt "GL_EXT_multi_draw_arrays"++sizePtr :: Int32 -> Ptr ()+sizePtr = intPtrToPtr . fromIntegral++-- Wrapping glDrawElements+byIndex :: VertexIx a => Buffer a -> Int32 -> Int32 -> VertexPicker+byIndex buf first count =+ VertexPicker $ \mode -> do+ let (typ, stride) = vxix buf+ bindBuffer element_array_buffer buf+ glDrawElements mode count typ (sizePtr $ first * stride)+ showError "glDrawElements"++-- Wrapping glDrawElementsInstanced[EXT]+byIndexInstanced :: VertexIx a => Buffer a -> Int32 -> Int32 -> Int32 -> VertexPicker+byIndexInstanced buf first count instances =+ VertexPicker $ \mode -> do+ let (typ, stride) = vxix buf+ bindBuffer element_array_buffer buf+ glDrawElementsInstanced mode count typ+ (sizePtr $ first * stride) instances+ showError "glDrawElementsInstanced"++-- Wrapping glMultiDrawElementsEXT+byIndices :: VertexIx a => Buffer a -> V.Vector Int32 -> V.Vector Int32 -> VertexPicker+byIndices buf first_ count_ = VertexPicker $ \mode -> do+ let (typ, stride) = vxix buf+ let offset ix = sizePtr (stride * ix)+ bindBuffer element_array_buffer buf+ if hasMDA then do+ let len = fromIntegral $ min (V.length first_) (V.length count_)+ V.unsafeWith first_ $ \first ->+ V.unsafeWith count_ $ \count ->+ glMultiDrawElementsEXT mode count typ (castPtr first) len+ showError "glMultiDrawElementsEXT"+ else do+ let go mode first count = do+ glDrawElements mode count typ (offset first)+ showError "glDrawElements[]"+ V.zipWithM_ (go mode) first_ count_+ return True++byIndices' :: VertexIx a => Buffer a -> [(Int32, Int32)] -> VertexPicker+byIndices' buf xs = do+ byIndices buf (V.fromList first) (V.fromList count)+ where (first, count) = unzip xs++extDRE =+ if hasES3 then+ Just glDrawRangeElements+ else if hasExt "GL_EXT_draw_range_elements" then+ Just glDrawRangeElementsEXT+ else Nothing++-- Wrapping glDrawRangeElements[EXT]+byRange :: VertexIx a => Buffer a -> Int32 -> Int32 -> Word32 -> Word32 -> VertexPicker+byRange buf first count start end_ = VertexPicker $ \mode -> do+ let (typ, stride) = vxix buf+ let offset = sizePtr (first * stride)+ bindBuffer element_array_buffer buf+ case extDRE of+ Just glDRE -> do+ glDRE mode start end_ count typ offset+ showError "glDrawRangeElements[EXT]"+ Nothing -> do+ glDrawElements mode count typ offset+ showError "glDrawElements'"+
+ src/Graphics/OpenGLES/Framebuffer.hs view
@@ -0,0 +1,244 @@+{-# LANGUAGE ExistentialQuantification #-}+{-# LANGUAGE FlexibleInstances #-}+{-# 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,+ + -- * Framebuffer+ glFramebuffer,+ CR(..), Attachable, DepthStencil,+ colorOnly, depthImage, stencilImage, depthStencil,+ + -- * Framebuffer Settings+ bindFb, withFb,+ defaultFramebuffer,+ viewport, getViewport, withViewport,+ depthRange, getDepthRange, withDepthRange+ ) where+import Control.Applicative+import Data.IORef+import Foreign+import Graphics.OpenGLES.Base+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 the bound 'Framebuffer'.+-- +-- > clear [] colorBuffer+-- > clear [bindFb framebuffer] (colorBuffer+depthBuffer)+clear+ :: [RenderConfig]+ -> BufferMask+ -> GL ()+clear gs (BufferMask flags) = sequence gs >> glClear flags++-- | Specify clear color (r,g,b,a)+clearColor :: Float -> Float -> Float -> Float -> GL ()+clearColor = glClearColor++-- | Specify clear depth+clearDepth :: Float -> GL ()+clearDepth = glClearDepthf++-- | Specify clear stencil+clearStencil :: Int32 -> GL ()+clearStencil = glClearStencil++depthBuffer, stencilBuffer, colorBuffer :: BufferMask+depthBuffer = BufferMask 0x100+stencilBuffer = BufferMask 0x400+colorBuffer = BufferMask 0x4000++-- | Color mask (r,g,b,a)+colorMask :: Bool -> Bool -> Bool -> Bool -> GL ()+colorMask r g b a = glColorMask (f r) (f g) (f b) (f a)+ where f c = if c then 1 else 0++-- | Depth mask+depthMask :: Bool -> GL ()+depthMask = glDepthMask . (\d -> if d then 1 else 0)++-- | Stencil mask+stencilMask :: Word32 -> GL ()+stencilMask = glStencilMask++-- | Stencil mask by face+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.+glRenderbuffer+ :: forall a b. InternalFormat a b+ => Int32 -- ^ sample count (0 to disable multisampling)+ -> GL (V2 Int32) -- ^ renderbuffer dimentions getter+ -> GL (Renderbuffer b)+glRenderbuffer sample askSize = do+ let (_, _, internalformat) = ifmt ([] :: [(a,b)])+ unsafeRenderbuffer sample askSize internalformat++-- | glRenderbuffer with explicit internal format.+unsafeRenderbuffer+ :: Int32 -- ^ sample count (0 to disable multisampling)+ -> GL (V2 Int32) -- ^ renderbuffer dimentions getter+ -> GLenum -- ^ internal format enum+ -> GL (Renderbuffer a)+unsafeRenderbuffer samples askSize internalformat = do+ let sample = if hasES3 then samples else 0+ dim <- newIORef undefined+ Renderbuffer samples internalformat dim+ <$> (newGLO glGenRenderbuffers glDeleteRenderbuffers $ \rb -> do+ glBindRenderbuffer 0x8D41 rb+ win@(V2 w h) <- askSize+ writeIORef dim win+ case sample of+ 0 -> glRenderbufferStorage 0x8D41 internalformat w h+ _ -> glRenderbufferStorageMultisample 0x8D41 samples internalformat w h+ -- XXX restore content on EGL_CONTEXT_LOST if possible+ )++instance Attachable Renderbuffer a where+ glAttachToFramebuffer attachment (Renderbuffer _ _ dim glo) maxDims = do+ rb <- getObjId glo+ V2 w h <- readIORef dim+ modifyIORef maxDims (\(V2 mw mh)-> V2 (max w mw) (max h mh))+ glFramebufferRenderbuffer 0x8D40 attachment 0x8D41 rb++instance Attachable Texture a where+ glAttachToFramebuffer attachment (Texture textgt ktx glo) maxDims = do+ tex <- getObjId glo+ k <- readIORef ktx+ let w = fromIntegral $ ktxPixelWidth k+ let h = fromIntegral $ ktxPixelHeight k+ modifyIORef maxDims (\(V2 mw mh)-> V2 (max w mw) (max h mh))+ let level = 0; layer = 0+ -- XXX multisample texure sholud use texture_2d_multisample+ case textgt of+ x | x == texture_2d ->+ glFramebufferTexture2D 0x8D40 attachment textgt tex level+ x | x == texture_cube_map ->+ glFramebufferTexture2D 0x8D40 attachment texture_cube_map_positive_x tex level+ x | x == texture_2d_array ->+ glFramebufferTextureLayer textgt attachment tex level layer+ x | x == texture_3d ->+ glFramebufferTextureLayer textgt attachment tex level layer+ _ -> error "glAttachToFramebuffer: Invalid Texture target"++-- | Color renderable wrapper.+data CR = forall a c. (Attachable a c, ColorRenderable c) => CR (a c)++-- | Depth and Stencil renderable wrapper.+newtype DepthStencil = DepthStencil (IORef (V2 Int32) -> GL ())++colorOnly :: DepthStencil+colorOnly = DepthStencil (const $ return ())++depthImage :: (Attachable a d, DepthRenderable d) => a d -> DepthStencil+depthImage = DepthStencil . glAttachToFramebuffer 0x8D00++stencilImage :: (Attachable a s, StencilRenderable s) => a s -> DepthStencil+stencilImage = DepthStencil . glAttachToFramebuffer 0x8D20++depthStencil :: (Attachable a r, DepthRenderable r, StencilRenderable r) => a r -> DepthStencil+--depthStencil = DepthStencil . glAttachToFramebuffer 0x821A+depthStencil a = DepthStencil $ do+ glAttachToFramebuffer 0x8D00 a -- depth+ glAttachToFramebuffer 0x8D20 a -- stencil++-- | New 'Framebuffer' from specified 'ColorRenderable's and 'DepthStencil'+glFramebuffer :: [CR] -> DepthStencil -> GL Framebuffer+glFramebuffer colours (DepthStencil runds) = do+ maxDims <- newIORef (V2 0 0)+ Framebuffer maxDims+ <$> (newGLO glGenFramebuffers glDeleteFramebuffers $ \fb -> do+ glBindFramebuffer 0x8D40 fb+ sequence_ $ zipWith (go maxDims) [0x8CE0..] colours+ runds maxDims+ )+ where go maxDims attachment (CR cr) =+ glAttachToFramebuffer attachment cr maxDims++-- | Bind the 'Framebuffer'.+bindFb :: Framebuffer -> GL ()+bindFb (Framebuffer _ glo) =+ getObjId glo >>= glBindFramebuffer 0x8D40++-- XXX maybe slow (untested)+withFb :: Framebuffer -> GL a -> GL a+withFb fb io = do+ -- GL_FRAMEBUFFER_BINDING+ fb' <- alloca $ \p -> glGetIntegerv 0x8CA6 p >> peek p+ bindFb fb+ result <- io+ glBindFramebuffer 0x8D40 (fromIntegral fb')+ return result++-- XXX maybe slow (untested)+getViewport :: GL (V4 Int32) -- ^ V4 x y w h+getViewport = allocaArray 4 $ \p -> do+ glGetIntegerv 0x0BA2 p -- GL_VIEWPORT+ [x,y,w,h] <- peekArray 4 p+ return $ V4 x y w h++-- | Cliping current framebuffer. Note that origin is left-bottom.+viewport+ :: V4 Int32 -- ^ V4 x y w h+ -> GL ()+viewport (V4 x y w h) = glViewport x y w h++withViewport :: V4 Int32 -> GL a -> GL a+withViewport vp io = do+ old <- getViewport+ viewport vp+ result <- io+ viewport old+ return result++-- XXX maybe slow (untested)+-- | Set depth range (near, far)+getDepthRange :: GL (V2 Float) -- ^ (near, far)+getDepthRange = allocaArray 2 $ \p -> do+ glGetFloatv 0x0B70 p -- GL_DEPTH_RANGE+ [n,f] <- peekArray 2 p+ return $ V2 n f++depthRange :: V2 Float -> GL ()+depthRange (V2 near far) = glDepthRangef near far++withDepthRange :: V2 Float -> GL a -> GL a+withDepthRange dr io = do+ old <- getDepthRange+ depthRange dr+ result <- io+ depthRange old+ return result+
+ src/Graphics/OpenGLES/Internal.hs view
@@ -0,0 +1,536 @@+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE FunctionalDependencies #-}+{-# LANGUAGE ScopedTypeVariables #-}+module Graphics.OpenGLES.Internal where+import Control.Applicative+import Control.Monad+import Control.Concurrent.Chan+import Control.Future+import qualified Data.ByteString as B+import Data.IORef+import Data.Monoid+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)+import Graphics.OpenGLES.Base+import Graphics.TextureContainer.KTX+import Linear+import System.IO.Unsafe (unsafePerformIO)+++-- * Internal++-- glRestoreLostObjects :: GL ()+-- saveBuffer :: Buffer -> IO ()+-- saveBuffer buf = atomicModifyIORef' (buf:) bufferArchive+-- bufferArchive = unsafePerformIO $ newIORef []+-- addCompiledProgramResources++frameCounter :: IORef Int64+frameCounter = unsafePerformIO $ newIORef 0+++-- ** Logging++errorQueue :: Chan String+errorQueue = unsafePerformIO newChan+{-# NOINLINE errorQueue #-}++glLog :: String -> IO ()+glLog msg = writeChan errorQueue msg+++-- ** GL Error++data GLError = InvalidEnum | InvalidValue | InvalidOperation+ | OutOfMemory | InvalidFrameBufferOperation+ deriving Show++getError :: GL (Maybe GLError)+getError = unMarshal <$> glGetError+ where unMarshal x = case x of+ 0x0000 -> Nothing+ 0x0500 -> Just InvalidEnum+ 0x0501 -> Just InvalidValue+ 0x0502 -> Just InvalidOperation+ 0x0505 -> Just OutOfMemory+ 0x0506 -> Just InvalidFrameBufferOperation++showError :: String -> GL Bool+showError location = do+ --putStrLn location -- tmp+ getError >>= maybe (return False) (\err -> do+ glLog ("E " ++ location ++ ": " ++ show err)+ return True )+++-- ** GL Object management++type GLO = IORef GLObj+data GLObj = GLObj GLuint (GL GLObj) (ForeignPtr GLuint)++getObjId glo = fmap go (readIORef glo)+ where go (GLObj i _ _) = i++instance Show GLO where+ show = show . unsafePerformIO . getObjId++newGLO+ :: (GLsizei -> Ptr GLuint -> GL ())+ -> (GLsizei -> Ptr GLuint -> GL ())+ -> (GLuint -> GL ())+ -> GL GLO+newGLO gen del init = do+ ref <- newIORef undefined+ writeIORef ref =<< genObj gen del init+ -- addToGLOMS ref+ return ref++-- | genObj glo glGenBuffers glDeleteBuffers+genObj+ :: (GLsizei -> Ptr GLuint -> GL ())+ -> (GLsizei -> Ptr GLuint -> GL ())+ -> (GLuint -> GL ())+ -> GL GLObj+genObj genObjs delObjs initObj = do+ fp <- mallocForeignPtr+ withForeignPtr fp $ \ptr -> do+ genObjs 1 ptr+ showError "genObj"+ obj <- peek ptr+ addForeignPtrFinalizer fp $ do+ -- XXX check whether context is valud or not+ with obj $ \ptr -> do+ delObjs 1 ptr+ void $ showError "delObj"+ initObj obj+ return $ GLObj obj (genObj genObjs delObjs initObj) fp+++-- ** Types++-- VertexArray+-- 2.0+newtype HalfFloat = HalfFloat Word16 deriving (Num,Storable)+newtype FixedFloat = FixedFloat Int32 deriving (Num,Storable)+-- 3.0+newtype Int2_10x3 = Int210x3 Int32 deriving (Num,Storable)+newtype Word2_10x3 = Word2_10x3 Int32 deriving (Num,Storable)++-- Renderbuffer+-- 2.0+newtype Word4444 = Word4444 Word16 deriving (Num,Storable)+newtype Word5551 = Word5551 Word16 deriving (Num,Storable)+newtype Word565 = Word565 Word16 deriving (Num,Storable)+-- 3.0+newtype Word10f11f11f = Word10f11f11f Word32 deriving (Num,Storable)+newtype Word5999 = Word5999 Word32 deriving (Num,Storable)+newtype Word24_8 = Word24_8 Word32 deriving (Num,Storable)+newtype FloatWord24_8 = FloatWord24_8 (Float, Word32)++class GLType a where+ glType :: m a -> Word32++instance GLType Int8 where glType _ = 0x1400+instance GLType Word8 where glType _ = 0x1401+instance GLType Int16 where glType _ = 0x1402+instance GLType Word16 where glType _ = 0x1403+instance GLType Int32 where glType _ = 0x1404+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+instance GLType Word2_10x3 where glType _ = 0x8368++instance GLType Word4444 where glType _ = 0x8033+instance GLType Word5551 where glType _ = 0x8034+instance GLType Word565 where glType _ = 0x8363+instance GLType Word10f11f11f where glType _ = 0x8C3B+instance GLType Word5999 where glType _ = 0x8C3E+instance GLType Word24_8 where glType _ = 0x84FA+instance GLType FloatWord24_8 where glType _ = 0x8DAD++r,rg,rgb,rgba,r_integer,rg_integer,rgb_integer,rgba_integer,+ depth_component,depth_stencil :: GLenum+rgb = 0x1907+rgba = 0x1908+depth_component = 0x1902++r = 0x1903+rg = 0x8227+rg_integer = 0x8228+r_integer = 0x8D94+rgb_integer = 0x8D98+rgba_integer = 0x8D99+depth_stencil = 0x84F9+++-- ** Buffer++type GLArray a = V.Vector a++-- Buffer usage id (latestArray or length)+data Buffer a = Buffer (IORef (Either (GLArray a) Int)) GLO+-- DoubleBuffer GLO GLO (IORef (GLArray a))++newtype BufferUsage = BufferUsage GLenum++newtype BufferSlot = BufferSlot GLenum+++-- ** DrawMode++newtype DrawMode = DrawMode GLenum+++-- ** Graphics State++-- | See "Graphics.OpenGLES.State"+type RenderConfig = GL ()+newtype Capability = Capability GLenum+newtype CullFace = Culling GLenum+newtype CompFunc = CompFunc GLenum+newtype StencilOp = StencilOp GLenum+newtype BlendOp = BlendOp GLenum+newtype BlendingFactor = BlendingFactor GLenum+newtype Hint = Hint GLenum+++-- ** Programmable Shader++type ShaderType = GLenum++data Shader = Shader ShaderType GLName B.ByteString+ deriving Show++data TransformFeedback =+ NoFeedback+ | FeedbackArrays [String]+ | FeedbackPacked [String]+ deriving Show++data Program p = Program+ { programGLO :: GLO+ , programTF :: TransformFeedback+ , programShaders :: [Shader]+ , programVariables :: ([VarDesc], [VarDesc])+ } deriving Show++type ProgramBinary = B.ByteString++-- | name: (location, length of array, type)+type VarDesc = (String, (GLint, GLsizei, GLenum))++-- binaryStore :: IORef [(String, B.ByteString)]+-- or (FilePath -> IO B.ByteString)+-- binaryStore = unsafePerformIO $ newIORef []++programDict :: IORef [(String, Program ())]+programDict = unsafePerformIO $ newIORef []++lookupVarDesc :: TypeRep -> IO (Maybe ([VarDesc], [VarDesc]))+lookupVarDesc rep = do+ let name = show rep+ entry <- lookup name <$> readIORef programDict+ case entry of+ Nothing -> do+ glLog $ "Program '" ++ name ++ "' is not compiled."+ return Nothing+ Just prog -> return $ Just (programVariables prog)++loadProgram+ :: Typeable p+ => Program p+ -> (Int -> String -> Maybe ProgramBinary -> GL ())+ -> GL (Progress [String] (Program p))+loadProgram prog@(Program glo tf shaders ([],[])) progressLogger = do+ let numShaders = length shaders+ let progname = show (typeRep prog)+ let msg = "Start compiling: " ++ progname+ glLog msg+ progressLogger 0 msg Nothing+ + pid <- glCreateProgram+ res <- if pid == 0 then do+ showError "glCreateProgram"+ let msg = "Fatal: glCreateProgram returned 0."+ progressLogger (numShaders + 1) msg Nothing+ return $ Fixme [msg]+ else do+ results <- mapM (loadShader progressLogger) (zip [1..] shaders)+ -- putStrLn $ show results+ let errors = [msg | Fixme [msg] <- results]+ res <- if errors /= []+ then return $ Fixme errors+ else do+ forM_ results $ \(Finished sid) -> do+ glAttachShader pid sid+ showError "glAttachShader"+ glLinkProgram pid+ showError "glLinkProgram"+ postLink progname numShaders prog pid progressLogger+ sequence_ [glDeleteShader s | Finished s <- results]+ return res+ glLog "---------------"+ return res++postLink+ :: Typeable p+ => String -> Int -> Program p -> GLuint+ -> (Int -> String -> Maybe ProgramBinary -> GL ())+ -> GL (Progress [String] (Program p))+postLink progname numShaders prog pid+ progressLogger = alloca $ \intptr -> do+ glGetProgramiv pid c_link_status intptr+ linkStatus <- peek intptr+ glGetProgramiv pid c_info_log_length intptr+ len <- fmap fromIntegral $ peek intptr+ info <- allocaBytes len $ \buf -> do+ glGetProgramInfoLog pid (fromIntegral len) nullPtr buf+ peekCStringLen (buf, len-1)+ let info' = if info == "" then "" else '\n':info+ if linkStatus == 0 then do+ let msg = "Cannot link program " ++ progname ++ info'+ glLog msg+ progressLogger (numShaders + 1) msg Nothing+ glDeleteProgram pid+ return $ Fixme [msg]+ else do+ -- obtain shader variables+ vars <- getActiveVariables pid+ putStrLn . show $ vars+ fp <- newForeignPtr nullPtr (glDeleteProgram pid)+ writeIORef (programGLO prog) (GLObj pid (error "not impl: Program implicit recompilation") fp)+ let msg = "Successfully linked " ++ progname ++ "!" ++ info'+ glLog msg+ progressLogger (numShaders + 1) msg Nothing+ let prog' = prog { programVariables = vars }+ atomicModifyIORef' programDict $! \xs ->+ ((show (typeRep prog), prog'):xs, ())+ return $ Finished prog'++c_link_status = 0x8B82+c_info_log_length = 0x8B84++{-+GL_PROGRAM_BINARY_RETRIEVABLE_HINT 0x8257+GL_PROGRAM_BINARY_LENGTH 0x8741+GL_NUM_PROGRAM_BINARY_FORMATS 0x87FE+loadProgramBinary :: Program p -> GLuint -> GL ()+loadProgramBinary (Program tf _ ref) pid = do+ bs <- ...+ let (fp, offset, len) = toForeignPtr bs+ withForeignPtr fp $ \p -> do+ fmt <- peek (p `plusPtr` offset)+ glProgramBinary pid fmt (p `plusPtr` (offset+4)) (fromIntegral len)+ showError "glProgramBinary"+ if err, writeIORef ref Broken+ postLink progname numShaders ref pid+-}++loadShader+ :: (Int -> String -> Maybe ProgramBinary -> GL ())+ -> (Int, Shader)+ -> GL (Progress [String] GLuint)+loadShader progressLogger (i, Shader shaderType name bs) = do+ sid <- glCreateShader shaderType+ if sid == 0 then do+ showError "glCreateShader"+ let msg = "Fatal: glCreateShader returned 0."+ glLog msg+ progressLogger i msg Nothing+ return $ Fixme [name ++ ": " ++ msg]+ else B.useAsCString bs $ \src -> do+ withArray [src] $ \ptr -> do+ glShaderSource sid 1 ptr nullPtr+ showError "glShaderSource"+ glCompileShader sid+ showError "glCompileShader"+ alloca $ \pint -> do+ glGetShaderiv sid c_compile_status pint+ compiled <- peek pint+ glGetShaderiv sid c_info_log_length pint+ len <- fmap fromIntegral $ peek pint+ info <- allocaBytes len $ \buf -> do+ glGetShaderInfoLog sid (fromIntegral len) nullPtr buf+ peekCStringLen (buf, len-1)+ let info' = if info == "" then "" else '\n':info+ if compiled == 0 then do+ let msg = "Could not compile " ++ name ++ info'+ glLog msg+ progressLogger i msg Nothing+ glDeleteShader sid+ return $ Fixme [msg]+ else do+ let msg = name ++ " ... done" ++ info'+ glLog msg+ progressLogger i msg Nothing+ return $ Finished sid++c_compile_status = 0x8B81++getActiveVariables :: GLuint -> GL ([VarDesc], [VarDesc])+getActiveVariables pid = do+ sptr <- malloc+ glGetProgramiv pid c_active_uniform_max_length sptr+ uMaxLen <- peek sptr+ glGetProgramiv pid c_active_attribute_max_length sptr+ aMaxLen <- peek sptr+ let maxlen = max uMaxLen aMaxLen+ str <- mallocBytes (fromIntegral maxlen)+ + glGetProgramiv pid c_active_uniforms sptr+ numU <- peek sptr+ glGetProgramiv pid c_active_attributes sptr+ numA <- peek sptr+ + tptr <- malloc+ uniforms <- forM [0..numU-1] $ \ index -> do+ -- avoid [0..maxBound] bug+ let i = (fromIntegral :: GLint -> GLuint) index+ glGetActiveUniform pid i maxlen nullPtr sptr tptr str+ name <- peekCString str+ loc <- glGetUniformLocation pid str+ size <- peek sptr+ typ <- peek tptr+ return (name, (loc, size, typ))+ + attribs <- forM [0..numA-1] $ \index -> do+ let i = fromIntegral index+ glGetActiveAttrib pid i maxlen nullPtr sptr tptr str+ name <- peekCString str+ loc <- glGetAttribLocation pid str+ size <- peek sptr+ typ <- peek tptr+ putStrLn . show $ (index, loc)+ return (name, (loc, size, typ))+ free str; free sptr; free tptr+ return (uniforms, attribs)++c_active_uniform_max_length = 0x8B87+c_active_attribute_max_length = 0x8B8A+c_active_uniforms = 0x8B86+c_active_attributes = 0x8B89+++-- ** Uniform++-- (location, length of array or 1, ptr)+-- Uniform location is unique to each program+newtype Uniform p a = Uniform (GLint, GLsizei, Ptr ())++-- +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 ())+--instance UnifVal a => GLVar Uniform UniformValue a where+-- unif $= value = unif $- unifVal value+-- unif $- value = (coerce unif, coerce value)+--instance AttrStruct a => GLVar Attrib Buffer a where+-- attr $= value = attr $- buffer "tmp" value+-- attr $- buffer = (coerce attr, coerce buffer)+-- UnifVal a => (Uniform p a, a)+-- UnifStruct a => (UniformBlock p a, Buffer a)+-- GLStruct? std130?+++-- ** Attrib++-- Attrib program glsl_type = (index, size, normalize, divisor)+newtype Attrib p a = Attrib (GLuint, GLsizei, GLboolean, GLuint)+ deriving Show++-- | GLSL vertex attribute type+class VertexAttribute a where+ glVertexAttrib :: GLuint -> a -> GL ()++-- | A set of 'VertexAttribute's packed in a 'Buffer'+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++-- (glo, init)+newtype VertexArray p = VertexArray (GLO, GL ())+++-- ** Vertex Picker++newtype VertexPicker = VertexPicker (GLenum -> GL Bool)++instance Monoid VertexPicker where+ mempty = VertexPicker (const $ return True)+ mappend (VertexPicker f) (VertexPicker g) =+ VertexPicker $ \mode ->+ f mode >> g mode++class VertexIx a where+ vxix :: m a -> (GLenum, GLint)+instance VertexIx Word8 where+ vxix _ = (0x1401, 1)+instance VertexIx Word16 where+ vxix _ = (0x1403, 2)+instance VertexIx Word32 where+ vxix _ = (0x1405, 4)+instance forall v a. VertexIx a => VertexIx (v a) where+ vxix _ = vxix (undefined :: v a)+++-- ** Draw Operation++newtype BufferMask = BufferMask GLenum deriving Num++-- [MainThread, GLThread]+-- if Nothing, main GL thread should stop before the next frame.+drawOrExit :: IORef (Maybe (GL ())) -- eglSwapBuffer inside+drawOrExit = unsafePerformIO $ newIORef Nothing++drawQueue :: Chan (GL ())+drawQueue = unsafePerformIO newChan+{-# NOINLINE drawQueue #-}+++-- ** Framebuffer++data Framebuffer = Framebuffer (IORef (V2 GLsizei)) GLO+data Renderbuffer a = Renderbuffer GLint GLenum (IORef (V2 GLsizei)) GLO++class Attachable a b where+ glAttachToFramebuffer :: GLenum -> a b -> IORef (V2 GLsizei) -> GL ()++defaultFramebuffer :: Framebuffer+defaultFramebuffer = unsafePerformIO $ do+ glo <- newIORef $ GLObj 0 undefined undefined+ dummy <- newIORef undefined+ return $ Framebuffer dummy glo+++-- ** Texture++-- glo, target, ktx+data Texture a = Texture GLenum (IORef Ktx) GLO++texture_2d, texture_cube_map, texture_2d_array, texture_3d,+ texture_cube_map_positive_x :: Word32+texture_2d = 0x0DE1+texture_cube_map = 0x8513+texture_2d_array = 0x8C1A+texture_3d = 0x806F++texture_cube_map_positive_x = 0x8515
+ src/Graphics/OpenGLES/PixelFormat.hs view
@@ -0,0 +1,246 @@+{-# LANGUAGE CPP #-}+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE FunctionalDependencies #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE UndecidableInstances #-}+module Graphics.OpenGLES.PixelFormat where+import Data.Proxy+import Data.Int+import Data.Word+import Graphics.OpenGLES.Internal+import Graphics.OpenGLES.Base+import Linear+++-- * Texture Only Sized Internal Formats++data R8snorm+data Rg8snorm+data Rgb8snorm+data Rgba8snorm+data Srgb8+data R16f+data Rg16f+data Rgb16f+data Rgba16f+data R32f+data Rg32f+data Rgb32f+data Rgba32f+data B10fG11fR11f+data E5bgr9+data Rgb8i+data Rgb8ui+data Rgb16i+data Rgb16ui+data Rgb32i+data Rgb32ui+++-- * Color Renderable Sized Internal Formats++data R8+data Rg8+data Rgb8+data Rgb565+data Rgba4+data Rgb5a1+data Rgba8+data A2bgr10+data A2bgr10ui+data Srgb8a8+data R8i+data R8ui+data R16i+data R16ui+data R32i+data R32ui+data Rg8i+data Rg8ui+data Rg16i+data Rg16ui+data Rg32i+data Rg32ui+data Rgba8i+data Rgba8ui+data Rgba16i+data Rgba16ui+data Rgba32i+data Rgba32ui+++-- * Depth/Stencil Renderable Sized Internal Formats++data Depth16+data Depth24+data Depth32f+data Depth24Stencil8+data Depth32fStencil8+data Stencil8 -- optional+++-- * Effective internal formats which do not correspond to GL constants++data Luminance8Alpha8+data Luminance8+data Alpha8+++-- * Classes++-- | Actual pixel format of 'Texture' and 'Renderbuffer'.+class InternalFormat a b | b -> a where+ ifmt :: p (a, b) -> (GLenum, GLenum, GLenum)++-- | Source pixel format for 'Texture' and 'Renderbuffer'.+class ExternalFormat a b where+ efmt :: p (a, b) -> (GLenum, GLenum, GLenum)++-- | OpenGL ES 2.0 compatible formats.+class InternalFormat a b => ES2Format a b where+ es2fmt :: p (a, b) -> (GLenum, GLenum, GLenum)+ es2fmt x = case ifmt x of+ (format, typ, _) -> (format, typ, format)++#define PixelFormat(_dim, _type, _tag, _format, _internal_fmt) \+instance InternalFormat (_dim _type) _tag where \+ {-# INLINE ifmt #-}; \+ ifmt _ = (_format, glType ([] :: [_type]), _internal_fmt) \++PixelFormat(, Int8, R8snorm, r, 0x8F94)+PixelFormat(V2, Int8, Rg8snorm, rg, 0x8F95)+PixelFormat(V3, Int8, Rgb8snorm, rgb, 0x8F96)+PixelFormat(V4, Int8, Rgba8snorm, rgba, 0x8F97)+PixelFormat(V3, Word8, Srgb8, rgb, 0x8C41)+PixelFormat(, HalfFloat, R16f, r, 0x822D)+PixelFormat(V2, HalfFloat, Rg16f, rg, 0x822F)+PixelFormat(V3, HalfFloat, Rgb16f, rgb, 0x881B)+PixelFormat(V4, HalfFloat, Rgba16f, rgba, 0x881A)+PixelFormat(, Float, R32f, r, 0x822E)+PixelFormat(V2, Float, Rg32f, rg, 0x8230)+PixelFormat(V3, Float, Rgb32f, rgb, 0x8815)+PixelFormat(V4, Float, Rgba32f, rgba, 0x8814)+PixelFormat(, Word10f11f11f, B10fG11fR11f, rgb, 0x8C3A)+PixelFormat(, Word5999, E5bgr9, rgb, 0x8C3D)+PixelFormat(V3, Int8, Rgb8i, rgb_integer, 0x8D8F)+PixelFormat(V3, Word8, Rgb8ui, rgb_integer, 0x8D7D)+PixelFormat(V3, Int16, Rgb16i, rgb_integer, 0x8D89)+PixelFormat(V3, Word16, Rgb16ui, rgb_integer, 0x8D77)+PixelFormat(V3, Int32, Rgb32i, rgb_integer, 0x8D83)+PixelFormat(V3, Word32, Rgb32ui, rgb_integer, 0x8D71)++PixelFormat(, Word8, R8, r, 0x8229)+PixelFormat(V2, Word8, Rg8, rg, 0x822B)+PixelFormat(V3, Word8, Rgb8, rgb, 0x8051)+PixelFormat(, Word565, Rgb565, rgb, 0x8D62)+PixelFormat(, Word4444, Rgba4, rgba, 0x8056)+PixelFormat(, Word5551, Rgb5a1, rgba, 0x8057)+PixelFormat(V4, Word8, Rgba8, rgba, 0x8058)+PixelFormat(, Word2_10x3, A2bgr10, rgba, 0x8059)+PixelFormat(, Word2_10x3, A2bgr10ui, rgba_integer, 0x906F)+PixelFormat(V4, Word8, Srgb8a8, rgba, 0x8C43)+PixelFormat(, Int8, R8i, r_integer, 0x8231)+PixelFormat(, Word8, R8ui, r_integer, 0x8232)+PixelFormat(, Int16, R16i, r_integer, 0x8233)+PixelFormat(, Word16, R16ui, r_integer, 0x8234)+PixelFormat(, Int32, R32i, r_integer, 0x8235)+PixelFormat(, Word32, R32ui, r_integer, 0x8236)+PixelFormat(V2, Int8, Rg8i, rg_integer, 0x8237)+PixelFormat(V2, Word8, Rg8ui, rg_integer, 0x8238)+PixelFormat(V2, Int16, Rg16i, rg_integer, 0x8239)+PixelFormat(V2, Word16, Rg16ui, rg_integer, 0x823A)+PixelFormat(V2, Int32, Rg32i, rg_integer, 0x823B)+PixelFormat(V2, Word32, Rg32ui, rg_integer, 0x823C)+PixelFormat(V4, Int8, Rgba8i, rgba_integer, 0x8D8E)+PixelFormat(V4, Word8, Rgba8ui, rgba_integer, 0x8D7C)+PixelFormat(V4, Int16, Rgba16i, rgba_integer, 0x8D88)+PixelFormat(V4, Word16, Rgba16ui, rgba_integer, 0x8D76)+PixelFormat(V4, Int32, Rgba32i, rgba_integer, 0x8D82)+PixelFormat(V4, Word32, Rgba32ui, rgba_integer, 0x8D70)++PixelFormat(, Word16, Depth16, depth_component, 0x81A5)+PixelFormat(, Word32, Depth24, depth_component, 0x81A6)+PixelFormat(, Float, Depth32f, depth_component, 0x8CAC)+PixelFormat(, Word24_8, Depth24Stencil8, depth_stencil, 0x88F0)+PixelFormat(, FloatWord24_8, Depth32fStencil8, depth_stencil, 0x8CAD)+--PixelFormat(, Word8, StencilIx8, 0x8D48, 0x1901) -- /GL_OES_texture_stencil8/+PixelFormat(V2, Word8, Luminance8Alpha8, 0x190A, 0x190A)+PixelFormat(, Word8, Luminance8, 0x1909, 0x1909)+PixelFormat(, Word8, Alpha8, 0x1906, 0x1906)++instance InternalFormat a b => ExternalFormat a b where+ {-# INLINE efmt #-}+ efmt = ifmt++#define PixelFormat2(_dim, _type, _tag, _format, _internal_fmt) \+instance ExternalFormat (_dim _type) _tag where \+ {-# INLINE efmt #-}; \+ efmt _ = (_format, glType (Proxy :: Proxy _type), _internal_fmt) \++PixelFormat2(V4, Word8, Rgb5a1, rgba, 0x8057) -- RGBA W8+PixelFormat2(V4, Word8, Rgba4, rgba, 0x8056) -- RGBA W8+PixelFormat2(, Word2_10x3, Rgb5a1, rgba, 0x8057) -- ABGR 2_10_10_10+PixelFormat2(V4, Float, Rgba16f, rgba, 0x881A) -- RGBA Float+PixelFormat2(V3, Word8, Rgb565, rgb, 0x8D62) -- RGB W8+PixelFormat2(V3, HalfFloat, B10fG11fR11f, rgb, 0x8C3A) -- RGB HalfFloat+PixelFormat2(V3, HalfFloat, E5bgr9, rgb, 0x8C3D) -- RGB HalfFloat+PixelFormat2(V3, Float, B10fG11fR11f, rgb, 0x8C3A) -- RGB Float+PixelFormat2(V3, Float, E5bgr9, rgb, 0x8C3D) -- RGB Float+PixelFormat2(V2, Float, Rg16f, rg, 0x822F) -- RG Float+PixelFormat2(, Float, R16f, r, 0x822D) -- R Float+PixelFormat2(, Word32, Depth16, depth_component, 0x81A5) -- D W32++instance ES2Format (V4 Word8) Rgba8 -- (RGBA,UByte)+instance ES2Format Word4444 Rgba4 -- (RGBA,UShort4444)+instance ES2Format Word5551 Rgb5a1 -- (RGBA,UShort5551)+instance ES2Format (V3 Word8) Rgb8 -- (RGB,UByte)+instance ES2Format Word565 Rgb565 -- (RGB,UShort565)+instance ES2Format (V2 Word8) Luminance8Alpha8 -- (LUMINANCE_ALPHA,UByte)+instance ES2Format Word8 Luminance8 -- (LUMINANCE,UByte)+instance ES2Format Word8 Alpha8 -- (ALPHA,UByte)++-- | Acceptable color formats as Framebuffer attachments.+class ColorRenderable a where+instance ColorRenderable R8+instance ColorRenderable Rg8+instance ColorRenderable Rgb8+instance ColorRenderable Rgb565+instance ColorRenderable Rgba4+instance ColorRenderable Rgb5a1+instance ColorRenderable Rgba8+instance ColorRenderable A2bgr10+instance ColorRenderable A2bgr10ui+instance ColorRenderable Srgb8a8+instance ColorRenderable R8i+instance ColorRenderable R8ui+instance ColorRenderable R16i+instance ColorRenderable R16ui+instance ColorRenderable R32i+instance ColorRenderable R32ui+instance ColorRenderable Rg8i+instance ColorRenderable Rg8ui+instance ColorRenderable Rg16i+instance ColorRenderable Rg16ui+instance ColorRenderable Rg32i+instance ColorRenderable Rg32ui+instance ColorRenderable Rgba8i+instance ColorRenderable Rgba8ui+instance ColorRenderable Rgba16i+instance ColorRenderable Rgba16ui+instance ColorRenderable Rgba32i+instance ColorRenderable Rgba32ui++-- | Acceptable depth formats as Framebuffer attachment.+class DepthRenderable a where+instance DepthRenderable Depth16+instance DepthRenderable Depth24+instance DepthRenderable Depth32f+instance DepthRenderable Depth24Stencil8+instance DepthRenderable Depth32fStencil8++-- | Acceptable stencil formats as Framebuffer attachment.+class StencilRenderable a where+instance StencilRenderable Depth24Stencil8+instance StencilRenderable Depth32fStencil8+instance StencilRenderable Stencil8 -- optional+
+ src/Graphics/OpenGLES/State.hs view
@@ -0,0 +1,284 @@+-- | Draw configurations on Rasterization and Per-Fragment Operations.+-- Note: Graphic state is sticky.++module Graphics.OpenGLES.State (+ -- * Graphics State+ lineWidth, polygonOffset, scissor,+ sampleCoverage,++ -- ** Capability+ begin, end, enable, disable, resetcfg,+ Capability,+ culling,+ blend,+ dither,+ stencilTest,+ depthTest,+ scissorTest,+ polygonOffsetFill,+ sampleAlphaToCoverage,+ multisampleCoverage,+ primitiveRestartFixedIndex,+ rasterizerDiscard,+ + -- ** Cull Face+ cullFace, frontFace,+ CullFace, hideFront, hideBack, hidePolygons,+ + -- ** Stencil+ stencilFunc, stencilFuncSeparate,+ stencilOp, stencilOpSeparate,+ StencilOp, opZero, opKeep, opReplace, opIncr,+ opDecr, opInvert, opIncrWrap, opDecrWrap,+ + -- ** Depth+ depthFunc,+ CompFunc, glNever, glLess, glEqual, glLessEq,+ glGreater, glNotEq, glGreatEq, glAlways,+ + -- ** Blend+ blendEquation, blendEquationSeparate,+ blendFunc, blendFuncSeparate,+ Clampf, blendColor,+ BlendOp, addBlending, subBlending, reverseSubBlending,+ BlendingFactor, factorZero, factorOne, srcColor, oneMinusSrcColor,+ srcAlpha, oneMinusSrcAlpha, dstAlpha, oneMinusDstAlpha,+ dstColor, oneMinusDstColor, srcAlphaSaturate,+ constColor, oneMinusConstColor, constAlpha, oneMinusConstAlpha,+ + -- ** Hint+ generateMipmapHint, fragmentShaderDerivativeHint,+ Hint, dontCare, nicest, fastest+ + ) where+++import Data.Int+import Data.Word+import Graphics.OpenGLES.Base+import Graphics.OpenGLES.Internal+++-- | Float value clamped to [0,1]+type Clampf = Float++-- | Same as 'enable'.+begin :: Capability -> GL ()+begin (Capability cap) = glEnable cap++-- | Same as 'disable'.+end :: Capability -> GL ()+end (Capability cap) = glDisable cap++-- | Enable specified feature.+enable :: Capability -> GL ()+enable = begin++-- | Disable specified feature.+disable :: Capability -> GL ()+disable = end++-- | Reset capability states+resetcfg :: GL ()+resetcfg = do+ enable dither+ mapM_ disable+ [ culling, blend, stencilTest, depthTest, scissorTest+ , polygonOffsetFill, sampleAlphaToCoverage, multisampleCoverage+ , primitiveRestartFixedIndex, rasterizerDiscard]+ frontFace False+ cullFace hideBack++-- *** Capability++culling = Capability 0x0B44+blend = Capability 0x0BE2+dither = Capability 0x0BD0+stencilTest = Capability 0x0B90+depthTest = Capability 0x0B71+scissorTest = Capability 0x0C11+polygonOffsetFill = Capability 0x8037+sampleAlphaToCoverage = Capability 0x809E+multisampleCoverage = Capability 0x80A0+primitiveRestartFixedIndex = Capability 0x8D69+rasterizerDiscard = Capability 0x8C89++lineWidth :: Float -> GL ()+lineWidth = glLineWidth++-- | Clockwise -> True, Counter-clockwise -> False+frontFace :: Bool -> GL ()+frontFace cw = glFrontFace (if cw then 0x900 else 0x901)++cullFace :: CullFace -> GL ()+cullFace (Culling x) = glCullFace x+++-- *** CullFace++hideFront = Culling 0x0404+hideBack = Culling 0x0405+hidePolygons = Culling 0x408++polygonOffset+ :: Float -- ^ factor: A variable depth offset for each polygon (default 0)+ -> Float -- ^ units: Multiplied by an implementation-specific value to create a constant depth offset. (default 0)+ -> GL ()+polygonOffset factor units = glPolygonOffset factor units++scissor+ :: Int32 -- ^ left+ -> Int32 -- ^ bottom+ -> Int32 -- ^ width+ -> Int32 -- ^ height+ -> GL ()+scissor l b w h = glScissor l b w h++sampleCoverage+ :: Float -- ^ multisample coverage value [0,1]+ -> Bool -- ^ whether coverage masks should be inverted or not+ -> GL ()+sampleCoverage value invert =+ glSampleCoverage value (if invert then 1 else 0)++stencilFunc+ :: CompFunc -- ^ stencil function+ -> Int32 -- ^ comparing value+ -> Word32 -- ^ mask value+ -> GL ()+stencilFunc (CompFunc func) comp mask =+ glStencilFunc func comp mask++stencilFuncSeparate+ :: CullFace -- ^ which face+ -> CompFunc -- ^ stencil function+ -> Int32 -- ^ comparing value+ -> Word32 -- ^ mask value+ -> GL ()+stencilFuncSeparate (Culling cull) (CompFunc func) comp mask =+ glStencilFuncSeparate cull func comp mask++stencilOp+ :: StencilOp -- ^ stencil fail+ -> StencilOp -- ^ depth fail+ -> StencilOp -- ^ depth pass+ -> GL ()+stencilOp (StencilOp sfail) (StencilOp dpfail) (StencilOp dppass) =+ glStencilOp sfail dpfail dppass++stencilOpSeparate+ :: CullFace -- ^ which face+ -> StencilOp -- ^ stencil fail+ -> StencilOp -- ^ depth fail+ -> StencilOp -- ^ depth pass+ -> GL ()+stencilOpSeparate (Culling cull) (StencilOp sfail)+ (StencilOp dpfail) (StencilOp dppass) =+ glStencilOpSeparate cull sfail dpfail dppass++depthFunc :: CompFunc -> GL ()+depthFunc (CompFunc func) = glDepthFunc func+++-- *** CompFunc++glNever = CompFunc 0x0200+glLess = CompFunc 0x0201+glEqual = CompFunc 0x0202+glLessEq = CompFunc 0x0203+glGreater = CompFunc 0x0204+glNotEq = CompFunc 0x0205+glGreatEq = CompFunc 0x0206+glAlways = CompFunc 0x0207+++-- *** StencilOp++opZero = StencilOp 0x0000+opKeep = StencilOp 0x1E00+opReplace = StencilOp 0x1E01+opIncr = StencilOp 0x1E02+opDecr = StencilOp 0x1E03+opInvert = StencilOp 0x150A+opIncrWrap = StencilOp 0x8507+opDecrWrap = StencilOp 0x8508++blendEquation :: BlendOp -> GL ()+blendEquation (BlendOp mode) = glBlendEquation mode++blendEquationSeparate+ :: BlendOp -- ^ rgb+ -> BlendOp -- ^ alpha+ -> GL ()+blendEquationSeparate (BlendOp rgb) (BlendOp a) =+ glBlendEquationSeparate rgb a+++-- *** BlendOp++-- | +addBlending = BlendOp 0x8006++-- | +subBlending = BlendOp 0x800A++-- | +reverseSubBlending = BlendOp 0x800B++-- | /ES3+/+minBlending = BlendOp 0x8007++-- | /ES3+/+maxBlending = BlendOp 0x8008++blendFunc+ :: BlendingFactor -- ^ source+ -> BlendingFactor -- ^ dest+ -> GL ()+blendFunc (BlendingFactor src) (BlendingFactor dest) =+ glBlendFunc src dest++blendFuncSeparate+ :: BlendingFactor -- ^ source rgb+ -> BlendingFactor -- ^ dest rgb+ -> BlendingFactor -- ^ source alpha+ -> BlendingFactor -- ^ dest alpha+ -> GL ()+blendFuncSeparate (BlendingFactor srgb) (BlendingFactor drgb)+ (BlendingFactor salpha) (BlendingFactor dalpha) =+ glBlendFuncSeparate srgb drgb salpha dalpha+++-- *** BlendingFactor++factorZero = BlendingFactor 0+factorOne = BlendingFactor 1+srcColor = BlendingFactor 0x300+oneMinusSrcColor = BlendingFactor 0x301+srcAlpha = BlendingFactor 0x302+oneMinusSrcAlpha = BlendingFactor 0x303+dstAlpha = BlendingFactor 0x304+oneMinusDstAlpha = BlendingFactor 0x305+dstColor = BlendingFactor 0x306+oneMinusDstColor = BlendingFactor 0x307+srcAlphaSaturate = BlendingFactor 0x308+constColor = BlendingFactor 0x8001+oneMinusConstColor = BlendingFactor 0x8002+constAlpha = BlendingFactor 0x8003+oneMinusConstAlpha = BlendingFactor 0x8004++blendColor :: Clampf -> Clampf -> Clampf -> Clampf -> GL ()+blendColor r g b a = glBlendColor r g b a++generateMipmapHint :: Hint -> GL ()+generateMipmapHint (Hint hint) = glHint 0x8192 hint++fragmentShaderDerivativeHint :: Hint -> GL ()+fragmentShaderDerivativeHint (Hint hint) = glHint 0x8B8B hint+++-- *** Hint++dontCare = Hint 0x1100+fastest = Hint 0x1101+nicest = Hint 0x1102
+ src/Graphics/OpenGLES/Sync.hs view
@@ -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. This operation is expensive, so frequent use should be avoided as far as possible.+glFlushCommandQ :: GL ()+glFlushCommandQ = glFlush++-- | Same as glFinish. This operation is expensive, so frequent use should be avoided as far as possible.+glWaitComplete :: GL ()+glWaitComplete = glFinish+
+ src/Graphics/OpenGLES/Texture.hs view
@@ -0,0 +1,364 @@+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE ScopedTypeVariables #-}+module Graphics.OpenGLES.Texture (+ -- * Texture+ Texture,+ texSlot,+ + glLoadKtx,+ glLoadKtxFile,+ + -- ** Unsafe Operations+ glLoadTex2D,+ --glLoadCubeMap,+ glLoadTex3D,+ glLoadTex2DArray,++ -- * Sampler+ setSampler,+ Sampler(..),+ + MagFilter,+ magNearest,+ magLinear,+ + MinFilter,+ minNearest,+ minLinear,+ nearestMipmapNearest,+ linearMipmapNearest,+ nearestMipmapLinear,+ linearMipmapLinear,+ + WrapMode,+ tiledRepeat,+ clampToEdge,+ mirroredRepeat+ ) where+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.Caps+import Graphics.OpenGLES.Internal+import Graphics.OpenGLES.PixelFormat+import Graphics.TextureContainer.KTX+import Foreign hiding (void)+import Linear+-- XXX Texture DoubleBufferring++--newtype Texture3D a = Texture3D (Texture a)+--newtype CubeMap a = CubeMap (Texture a)+--newtype Tex2DArray a = Tex2DArray (Texture a)++-- Iso+--class Tex a where+-- fromTexture :: Texture b -> a b+--instance Tex Texture where+-- fromTexture = id+--instance Tex Texture3D where+-- fromTexture = Texture3D+--instance Tex CubeMap where+-- fromTexture = CubeMap+--instance Tex Tex2DArray where+-- fromTexture = Tex2DArray++-- | Assign a texture to a texture slot starts from 0.+-- To read the texture, pass the texture slot index as 'Int32' uniform variable.+texSlot+ :: Word32 -- ^ texture slot index+ -> Texture a -- ^ the texture to be bound+ -> GL ()+texSlot slot (Texture target _ glo) = do+ tex <- getObjId glo+ glActiveTexture (0x84C0 + slot) -- GL_TEXTURE_0 + slot+ showError "glActiveTexture"+ glBindTexture target tex+ void $ showError "glBindTexture"++--data TextureData =+-- PlainTexture -- ^ Uncompressed+-- | PVRTC -- ^ PowerVR SGX(iOS), Samsung S5PC110(Galaxy S/Tab)+-- | ATITC -- ^ ATI Imageon, Qualcomm Adreno+-- | S3TC -- ^ NVIDIA Tegra2, ZiiLabs ZMS-08 HD+-- | ETC -- ^ Android, ARM Mali+-- | _3Dc -- ^ ATI, NVidia+-- | Palette++-- | Load a GL Texture object from Ktx texture container.+-- See <https://github.com/KhronosGroup/KTX/blob/master/lib/loader.c>+-- TODO: reject 2DArray/3D texture if unsupported+glLoadKtx+ :: Maybe (Texture a) -- ^ overwrite the texture if specified+ -> Ktx -- ^ the texture+ -> GL (Texture a)+glLoadKtx oldtex ktx@Ktx{..} = do+ --putStrLn.show $ ktx+ case checkKtx ktx of+ Left msg -> glLog (msg ++ ": " ++ ktxName) >> newTexture oldtex 0 ktx+ Right (comp, target, genmip) -> do+ tex <- newTexture oldtex target ktx+ -- ES2 compat;+ let fmt = if comp || sizedFormats+ then if ktxGlInternalFormat == 0x8D64 && hasETC2 -- ETC1_RGB8_OES+ then 0x9274 -- GL_COMPRESSED_RGB8_ETC2+ else ktxGlInternalFormat+ else ktxGlBaseInternalFormat+ putStrLn . show $ (comp, target,genmip, ktxGlInternalFormat, hasETC2, fmt)+ let uploadMipmap _ _ _ _ [] = return ()+ uploadMipmap level w h d (faces:rest) = do+ case (comp, target) of+ -- 2D Compressed+ (True, 0x0DE1) -> do+ B.useAsCStringLen (head faces) $ \(ptr, len) ->+ glCompressedTexImage2D target level fmt w h 0 (i len) (castPtr ptr)+ -- 2D Uncompressed+ (False, 0x0DE1) -> do+ B.useAsCString (head faces) $ \ptr ->+ glTexImage2D target level fmt w h 0 ktxGlFormat ktxGlType (castPtr ptr)+ -- Cube Map Compressed+ (True, 0x8513) -> do+ forM_ (zip [texture_cube_map_positive_x..] faces) $ \(face, image) ->+ B.useAsCStringLen image $ \(ptr, len) ->+ glCompressedTexImage2D face level fmt w h 0 (i len) (castPtr ptr)+ -- Cube Map Uncompressed+ (False, 0x8513) -> do+ forM_ (zip [texture_cube_map_positive_x..] faces) $ \(face, image) ->+ B.useAsCString image $ \ptr ->+ glTexImage2D face level fmt w h 0 ktxGlFormat ktxGlType (castPtr ptr)+ -- 3D Compressed+ (True, 0x806F) -> do+ B.useAsCStringLen (head faces) $ \(ptr, len) ->+ glCompressedTexImage3D target level fmt w h d 0 (i len) (castPtr ptr)+ -- 3D Uncompressed+ (False, 0x806F) -> do+ B.useAsCString (head faces) $ \ptr ->+ glTexImage3D target level fmt w h d 0 ktxGlFormat ktxGlType (castPtr ptr)+ -- 2D Array Compressed+ (True, 0x8C1A) -> do+ B.useAsCStringLen (head faces) $ \(ptr, len) ->+ glCompressedTexImage3D target level fmt w h ktxNumElems 0 (i len) (castPtr ptr)+ -- 2D Array Uncompressed+ (False, 0x8C1A) -> do+ B.useAsCString (head faces) $ \ptr ->+ glTexImage3D target level fmt w h ktxNumFaces 0 ktxGlFormat ktxGlType (castPtr ptr)+ showError $ "gl{,Compressed}TexImage{2D,3D} " ++ ktxName+ uploadMipmap (level + 1) (div2 w) (div2 h) (div2 d) rest+ + where+ div2 x = max 1 (div x 2)+ i = fromIntegral++ uploadMipmap 0 ktxPixelWidth ktxPixelHeight ktxPixelDepth ktxImage+ when genmip $ do+ glGenerateMipmap target+ void $ showError $ "glGenerateMipmap " ++ ktxName+ return tex++-- | Load a KTX Texture from given path.+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;+-- sizedFormats = _NO_SIZED_FORMATS;+-- R16Formats = _KTX_NO_R16_FORMATS;+-- supportsSRGB = GL_FALSE;+--hasES3 = sizedFormats = _NON_LEGACY_FORMATS;+--hasExt "GL_OES_required_internalformat" =+-- sizedFormats |= _ALL_SIZED_FORMATS+sizedFormats = hasES3 || hasExt "GL_OES_required_internalformat"+-- There are no OES extensions for sRGB textures or R16 formats.+hasETC2 = hasES3+hasPVRTC = hasExt "GL_IMG_texture_compression_pvrtc"+hasATITC = hasExt "GL_ATI_texture_compression_atitc"+hasS3TC = hasExt "GL_EXT_texture_compression_s3tc"++-- | Check a KTX file header.+-- returning (isCompressed?, textureTarget, generateMipmapNeeded?)+checkKtx :: Ktx -> Either String (Bool, GLenum, Bool)+checkKtx t = (,,) <$> isCompressed t <*> detectTarget t <*> needsGenMipmap t++isCompressed Ktx { ktxGlTypeSize = s } | s /= 1 && s /= 2 && s /= 4 = Left "checkKtx: Invalid glTypeSize"+isCompressed Ktx { ktxGlType = 0, ktxGlFormat = 0 } = Right True+isCompressed Ktx { ktxGlType = t, ktxGlFormat = f } | t == 0 || f == 0 = Left "checkKtx: Invalid glType"+isCompressed _ = Right False++detectTarget ktx@Ktx { ktxNumElems = 0 } = detectCube ktx+detectTarget ktx = detectCube ktx >>= \target ->+ if target == texture_2d+ then Right texture_2d_array+ else Left "checkKtx: No API for 3D and cube arrays yet"+detectCube ktx@Ktx { ktxNumFaces = 1 } = detectDim ktx+detectCube ktx@Ktx { ktxNumFaces = 6 } = detectDim ktx >>= \dim ->+ if dim == 2+ then Right texture_cube_map+ else Left "checkKtx: cube map needs 2D faces"+detectCube _ = Left "checkKtx: numberOfFaces must be either 1 or 6"++detectDim Ktx { ktxPixelWidth = 0 } = Left "checkKtx: texture must have width"+detectDim Ktx { ktxPixelHeight = 0, ktxPixelDepth = 0 } = Left "checkKtx: 1D texture is not supported"+detectDim Ktx { ktxPixelHeight = 0 } = Left "checkKtx: texture must have height if it has depth"+detectDim Ktx { ktxPixelDepth = 0 } = Right texture_2d+detectDim _ = Right texture_3d++needsGenMipmap Ktx { ktxNumMipLevels = 0 } = Right True+needsGenMipmap Ktx {..}+ | max (max ktxPixelDepth ktxPixelHeight) ktxPixelDepth < 2^(ktxNumMipLevels-1)+ = Left "checkKtx: Can't have more mip levels than 1 + log2(max(width, height, depth))"+needsGenMipmap _ = Right False+++-- ** 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+-- |+-- The default sampler is Sampler (tiledRepeat,tiledRepeat,Just tiledRepeat) 1.0+-- (magLinear, nearestMipmapLinear).+data Sampler = Sampler+ { -- | texture wrap modes per axis+ _wrapMode :: (WrapMode, WrapMode, Maybe WrapMode)+ + -- | A number of ANISOTROPY filter sampling points.+ -- Specify 1.0 to disable anisotropy filter.+ -- When /EXT_texture_filter_anisotropic/ is not supported, fallback filters+ -- are used instead.+ , _anisotropicFilter :: Float+ + -- | (Fallback) Mag and Min filters+ , _fallbackFilter :: (MagFilter, MinFilter)+ }++newtype MagFilter = MagFilter Int32+magNearest = MagFilter 0x2600+magLinear = MagFilter 0x2601++-- TODO NoMipmap => use minLinear instead / forceGenMip?+newtype MinFilter = MinFilter Int32+minNearest = MinFilter 0x2600+minLinear = MinFilter 0x2601+nearestMipmapNearest = MinFilter 0x2700+linearMipmapNearest = MinFilter 0x2701+nearestMipmapLinear = MinFilter 0x2702+linearMipmapLinear = MinFilter 0x2703++-- TODO: NPOT && not ClampToEdge && not (hasES3 || hasExt "GL_OES_texture_npot") => error+newtype WrapMode = WrapMode Int32+tiledRepeat = WrapMode 0x2901+clampToEdge = WrapMode 0x812F+mirroredRepeat = WrapMode 0x8370++-- | Set sampler to the texture.+-- Default sampler is (Sampler (tiledRepeat,tiledRepeat,Just tiledRepeat) 1.0+-- (magLinear, nearestMipmapLinear)).+setSampler :: Texture a -> Sampler -> GL ()+setSampler (Texture target _ glo) (Sampler (WrapMode s, WrapMode t, r) a+ (MagFilter g, MinFilter n)) = do+ tex <- getObjId glo+ glBindTexture target tex+ glTexParameteri target 0x2802 s+ glTexParameteri target 0x2803 t+ maybe (return ()) (\(WrapMode x) -> glTexParameteri target 0x8072 x) r+ --if a /= 1.0 && hasExt "GL_EXT_texture_filter_anisotropic" then+ -- GL_TEXTURE_MAX_ANISOTROPY_EXT+ glTexParameterf target 0x84FE a+ glTexParameteri target 0x2800 g+ glTexParameteri target 0x2801 n++--setLOD :: Texture -> Int32 -> Int32 -> GL ()+--setTexCompFunc :: Texture -> -> -> GL ()++-- mipmaps, compressed, fallbacks+-- [comptex, fallback]+-- glm basepath = /data/app.name/assets/...+-- glm preffered compression type (filename suffiex)+---- iOS: PVRTC+---- Android with Alpha: PVRTC+ATITC+S3TC+Uncompressed+---- Android without Alpha: ETC1+---- PC: S3TC + Uncompressed+--glm detect compression support+-- record Gen/Del/Draw* calls and responces+-- prefferedformat == "etc1" like.+-- texture from file "name" [path..] genMipmap?flag+--Utils.hs shrinked triangles, +-- Update[Sub]Texture,UpdateVertex(Buffer)+-- "texname" [tex1,tex2,...] auto select+-- texture atlas managment+
+ src/Graphics/OpenGLES/Types.hs view
@@ -0,0 +1,376 @@+{-# LANGUAGE CPP #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE OverlappingInstances #-}+{-# LANGUAGE UndecidableInstances #-}+{-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE KindSignatures #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE TypeOperators #-}++module Graphics.OpenGLES.Types (++ -- * Shading Language Base Types+ -- | GLSL types.+ Vec2, Vec3, Vec4,+ BVec2, BVec3, BVec4,+ IVec2, IVec3, IVec4,+ UVec2, UVec3, UVec4,+ Mat2, Mat3, Mat4,+ Mat2x3, Mat2x4, Mat3x2,+ Mat3x4, Mat4x2, Mat4x3,+ + -- * Vertex Attribute Array Source Datatypes+ HalfFloat(..), FixedFloat(..),+ Int2_10x3(..), Word2_10x3(..),++ -- * Texture Pixel Formats+ Word4444(..), Word5551(..), Word565(..),+ Word10f11f11f(..), Word5999(..), Word24_8(..),+ FloatWord24_8(..),++ -- * Type-Level Utilities+ SizeOf, Aligned, Stride, castGL,++ -- * Uniform Variable+ Uniform, UnifVal,+ + -- * Vertex Attribute+ Attrib, VertexAttribute,+ AttrElement, Vectorize, VDim,+ VertexAttributeArray, AttrStruct,++ GLStorable(..)+ ) where++import Control.Applicative+import Control.Lens.Indexed (FoldableWithIndex, iforM_)+import Control.Lens.Getter ((^.))+import Control.Monad (when)+import Data.Distributive+import Data.Proxy+import Foreign+import GHC.TypeLits+import Graphics.OpenGLES.Base+import Graphics.OpenGLES.Internal+import Linear+import Unsafe.Coerce+++type Vec2 = V2 Float+type Vec3 = V3 Float+type Vec4 = V4 Float+type BVec2 = V2 Bool+type BVec3 = V3 Bool+type BVec4 = V4 Bool+type IVec2 = V2 Int32+type IVec3 = V3 Int32+type IVec4 = V4 Int32+type UVec2 = V2 Word32+type UVec3 = V3 Word32+type UVec4 = V4 Word32+type Mat2 = M22 Float+type Mat3 = M33 Float+type Mat4 = M44 Float+type Mat2x3 = M23 Float+type Mat2x4 = M24 Float+type Mat3x2 = M32 Float+type Mat3x4 = M34 Float+type Mat4x2 = M42 Float+type Mat4x3 = M43 Float++type family SizeOf (f :: *) :: Nat where+ SizeOf Float = 4+ SizeOf HalfFloat = 2+ SizeOf FixedFloat = 4+ SizeOf Word8 = 1+ SizeOf Word16 = 2+ SizeOf Word32 = 4+ SizeOf Int8 = 1+ SizeOf Int16 = 2+ SizeOf Int32 = 4+ SizeOf Int2_10x3 = 4+ SizeOf Word2_10x3 = 4+ SizeOf Word4444 = 2+ SizeOf Word5551 = 2+ SizeOf Word10f11f11f = 4+ SizeOf Word5999 = 4+ SizeOf Word24_8 = 4+ SizeOf FloatWord24_8 = 8+ 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+ Aligned 1 = 4+ Aligned 2 = 4+ Aligned 3 = 4+ Aligned x = 4 + Aligned (x - 4)++type family Stride (list :: [*]) :: Nat where+ Stride '[] = 0+ Stride (x ': xs) = Aligned (SizeOf x) + Stride xs++-- | Type cast between size equivalent structures like+-- @Buffer (V2 HalfFloat) -> Buffer Int32@.+castGL ::+ CmpNat (Aligned (SizeOf x)) (Aligned (SizeOf y)) ~ EQ+ => p x -> p y+castGL = unsafeCoerce++--type family If (p :: Bool) (t :: Nat) (f :: Nat) :: Nat where+-- If True x y = x+-- If False x y = y++--type family Sum (l :: [Nat]) :: Nat+--type instance Sum '[] = 0+--type instance Sum (x ': xs) = x + Sum xs++--type family Map (f :: * -> *) (xs :: [*]) :: [*]+--type instance Map f '[] = '[]+--type instance Map f (x ': xs) = f x ': Map f xs++--type family ImageOf+--type instance ImageOf Rgba8 = V4 Word8+--type instance ImageOf Rgba4 = Word16+--type instance ImageOf Rgba4FromRgba8 = Word16+++--instance UnifVal Float where+-- glUniform (loc, _, _) x = glUniform1f loc x++#define Uniform(_typ, _arg, _suffix, _rhs) \+instance UnifVal (_typ) where \+ glUniform (loc, _, _) _arg = glUniform/**/_suffix loc _rhs \++Uniform(Float,x,1f,x)+Uniform(Vec2,(V2 x y),2f,x y)+Uniform(Vec3,(V3 x y z),3f,x y z)+Uniform(Vec4,(V4 x y z w),4f,x y z w)+Uniform(Int32,x,1i,x)+Uniform(IVec2,(V2 x y),2i,x y)+Uniform(IVec3,(V3 x y z),3i,x y z)+Uniform(IVec4,(V4 x y z w),4i,x y z w)+Uniform(Word32,x,1ui,x)+Uniform(UVec2,(V2 x y),2ui,x y)+Uniform(UVec3,(V3 x y z),3ui,x y z)+Uniform(UVec4,(V4 x y z w),4ui,x y z w)+toInt :: Bool -> Int32+toInt True = 1+toInt False = 0+Uniform(Bool,x,1i,(toInt x))+Uniform(BVec2,(V2 x y),2i,(toInt x) (toInt y))+Uniform(BVec3,(V3 x y z),3i,(toInt x) (toInt y) (toInt z))+Uniform(BVec4,(V4 x y z w),4i,(toInt x) (toInt y) (toInt z) (toInt 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 [Float] where glUniform = pokeUniformArray glUniform1fv+instance UnifVal [Vec2] where glUniform = pokeUniformArray glUniform2fv+instance UnifVal [Vec3] where glUniform = pokeUniformArray glUniform3fv+instance UnifVal [Vec4] where glUniform = pokeUniformArray glUniform4fv+instance UnifVal [Int32] where glUniform = pokeUniformArray glUniform1iv+instance UnifVal [IVec2] where glUniform = pokeUniformArray glUniform2iv+instance UnifVal [IVec3] where glUniform = pokeUniformArray glUniform3iv+instance UnifVal [IVec4] where glUniform = pokeUniformArray glUniform4iv+instance UnifVal [Word32] where glUniform = pokeUniformArray glUniform1uiv+instance UnifVal [UVec2] where glUniform = pokeUniformArray glUniform2uiv+instance UnifVal [UVec3] where glUniform = pokeUniformArray glUniform3uiv+instance UnifVal [UVec4] where glUniform = pokeUniformArray glUniform4uiv+instance UnifVal [Bool] where glUniform l = glUniform l . map toInt+instance UnifVal [BVec2] where glUniform l = glUniform l . map (fmap toInt)+instance UnifVal [BVec3] where glUniform l = glUniform l . map (fmap toInt)+instance UnifVal [BVec4] where glUniform l = glUniform l . map (fmap toInt)++castMat a b c d e = a b c d (castPtr e)++instance UnifMat Mat2 where glUnifMat = castMat glUniformMatrix2fv+instance UnifMat Mat3 where glUnifMat = castMat glUniformMatrix3fv+instance UnifMat Mat4 where glUnifMat = castMat glUniformMatrix4fv+-- /GL_NV_non_square_matrices/ seems ignorable for now.+-- http://delphigl.de/glcapsviewer/gles_extensions.php+instance UnifMat Mat2x3 where glUnifMat = castMat glUniformMatrix2x3fv+instance UnifMat Mat2x4 where glUnifMat = castMat glUniformMatrix2x4fv+instance UnifMat Mat3x2 where glUnifMat = castMat glUniformMatrix3x2fv+instance UnifMat Mat3x4 where glUnifMat = castMat glUniformMatrix3x4fv+instance UnifMat Mat4x2 where glUnifMat = castMat glUniformMatrix4x2fv+instance UnifMat Mat4x3 where glUnifMat = castMat glUniformMatrix4x3fv++instance (Distributive g, Functor f, UnifMat (f (g a)), Storable (g (f a))) =>+ UnifVal (f (g a)) where+ glUniform (loc, _, ptr) val = glUniform (loc, 1, ptr) [val]++instance (Distributive g, Functor f, UnifMat (f (g a)), Storable (g (f a))) =>+ UnifVal [f (g a)] where+ -- 'transpose' argument must be GL_FALSE in GL ES 2.0.+ -- GL ES 3.0+ supports transpose.+ glUniform (loc, len, ptr) matrices = do+ pokeArray (castPtr ptr) $ map distribute $ take (fromIntegral len) matrices+ glUnifMat loc len 0 (castPtr ptr :: Ptr (f (g a)))+++-- Arrays of attribute is not allowed in GLSL ES++instance VertexAttribute Float where+ glVertexAttrib ix x = glVertexAttrib1f ix x+instance VertexAttribute Vec2 where+ glVertexAttrib ix (V2 x y) = glVertexAttrib2f ix x y+instance VertexAttribute Vec3 where+ glVertexAttrib ix (V3 x y z) = glVertexAttrib3f ix x y z+instance VertexAttribute Vec4 where+ glVertexAttrib ix (V4 x y z w) = glVertexAttrib4f ix x y z w+instance VertexAttribute Int32 where+ glVertexAttrib ix x = glVertexAttribI4i ix x 0 0 1+instance VertexAttribute IVec2 where+ glVertexAttrib ix (V2 x y) = glVertexAttribI4i ix x y 0 1+instance VertexAttribute IVec3 where+ glVertexAttrib ix (V3 x y z) = glVertexAttribI4i ix x y z 1+instance VertexAttribute IVec4 where+ glVertexAttrib ix (V4 x y z w) = glVertexAttribI4i ix x y z w+instance VertexAttribute Word32 where+ glVertexAttrib ix x = glVertexAttribI4ui ix x 0 0 1+instance VertexAttribute UVec2 where+ glVertexAttrib ix (V2 x y) = glVertexAttribI4ui ix x y 0 1+instance VertexAttribute UVec3 where+ glVertexAttrib ix (V3 x y z) = glVertexAttribI4ui ix x y z 1+instance VertexAttribute UVec4 where+ glVertexAttrib ix (V4 x y z w) = glVertexAttribI4ui ix x y z w+instance VertexAttribute a => VertexAttribute (V1 a) where+ glVertexAttrib ix (V1 x) = glVertexAttrib ix x+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++instance AttrElement Word8+instance AttrElement Word16+instance AttrElement Word32+instance AttrElement Int8+instance AttrElement Int16+instance AttrElement Int32+instance AttrElement Float+instance AttrElement HalfFloat+instance AttrElement FixedFloat+instance AttrElement Int2_10x3+instance AttrElement Word2_10x3++-- | Temporarily gives a vector representation for type comparison.+type family Vectorize a :: * where+ Vectorize Int2_10x3 = V4 Int2_10x3+ Vectorize Word2_10x3 = V4 Word2_10x3+ Vectorize (f Int2_10x3) = f (V4 Int2_10x3)+ Vectorize (f Word2_10x3) = f (V4 Word2_10x3)+ Vectorize (f a) = f a+ Vectorize a = V1 a+ -- Float -> (1, GL_GLOAT), Vec2 -> (2, GL_FLOAT)++-- | Dimentions of a vector.+type family VDim v :: Nat where+ VDim V1 = 1+ VDim V2 = 2+ VDim V3 = 3+ VDim V4 = 4++class VertexAttributeArray attr src where+ glVertexAttribPtr :: GLuint -> GLint -> GLenum -> GLboolean -> GLsizei -> Ptr (attr, src) -> GL ()++instance VertexAttributeArray Float a where+ glVertexAttribPtr i d t n s p = glVertexAttribPointer i d t n s (castPtr p)++-- | a = Int or Word32, b = Int or Word 8\/16\/32.+instance (Integral a, Integral b) => VertexAttributeArray a b where+ glVertexAttribPtr i d t _ s p = glVertexAttribIPointer i d t s (castPtr p)++instance forall p a b v a' b'.+ ( VertexAttribute a+ , Vectorize a ~ v a'+ , Vectorize b ~ v b'+ , KnownNat (VDim v)+ --, KnownNat (Aligned (SizeOf b))+ , AttrElement b'+ , VertexAttributeArray a' b' )+ => AttrStruct (Attrib p a) p b where++ -- 'length' must be 1 (array of atrribute is not allowed.)+ -- 3.1 spec says 'normalize' is ignored for floating-point types+ -- such as GL_FIXED+ -- 'stride' == 0 means 'tightly packed'+ glVertexBuffer (Attrib (ix, length, normalize, divisor)) buf = do+ glEnableVertexAttribArray ix+ when (divisor /= 0) $ glVertexAttribDivisor ix divisor+ glVertexAttribPointer ix dim typ normalize stride nullPtr+ where dim = fromIntegral $ natVal (Proxy :: Proxy (VDim v))+ typ = glType (Proxy :: Proxy b')+ stride = 0 --fromIntegral $ natVal (Proxy :: Proxy (SizeOf b))++-- XXX (V4 Int2_10x3) (V3 Word2_10x3) cannot match here+instance+ ( 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 a))) p (f (g a)) where++ glVertexBuffer (Attrib (index, length, normalize, divisor)) buf = do+ iforM_ (pure () :: g ()) $ \(E e) _ -> do+ let i = (V4 0 1 2 3)^.e+ let ix = index + fromIntegral i+ glEnableVertexAttribArray ix+ when (divisor /= 0) $ glVertexAttribDivisor ix divisor+ glVertexAttribPointer ix dim typ normalize stride (plusPtr nullPtr (i * size))+ where dim = fromIntegral $ natVal (Proxy :: Proxy (VDim f))+ typ = glType (Proxy :: Proxy a)+ size = fromIntegral $ natVal (Proxy :: Proxy (SizeOf (f a)))+ stride = fromIntegral $ natVal (Proxy :: Proxy (SizeOf (f (g a)))) -- (Aligned (SizeOf (f (g a))))+++-- XXX 4byte alignment+-- | Matrices are transposed.+class Storable a => GLStorable a where+ pokeArrayGL :: Ptr a -> [a] -> GL ()+instance (Storable (f (g a)), Storable (g (f a)), VertexAttribute (f (g Float)), Functor f, Distributive g)+ => GLStorable (f (g a)) where+ pokeArrayGL ptr xs = pokeArray (castPtr ptr) (map distribute xs)+instance Storable a => GLStorable a where+ pokeArrayGL = pokeArray++-- Reinvent C struct+--class AttrStruct a where+-- pokeAll :: Ptr () -> a -> IO ()++--instance AttrVal a => AttrStruct a where+-- pokeAll p a = poke (castPtr p) a+--instance (AttrVal a, AttrVal b) => AttrStruct (a, b) where+-- pokeAll p (a,b) = do+-- poke (castPtr p) a+-- pokeByteOff (castPtr p) (alignment a) b+--instance (AttrVal a, AttrVal b, AttrVal c) => AttrStruct (a, b, c) where+-- pokeAll p (a,b,c) = do+-- poke (castPtr p) a+-- pokeByteOff (castPtr p) offset1 b+-- pokeByteOff (castPtr p) offset2 c+-- where offset1 = alignment a; offset2 = offset1 + alignment b+--instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d) => AttrStruct (a, b, c, d)+--instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e) => AttrStruct (a, b, c, d, e)+--instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f) => AttrStruct (a, b, c, d, e, f)+--instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f, AttrVal g) => AttrStruct (a, b, c, d, e, f, g)+--instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f, AttrVal g, AttrVal h) => AttrStruct (a, b, c, d, e, f, g, h)+--instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f, AttrVal g, AttrVal h, AttrVal i) => AttrStruct (a, b, c, d, e, f, g, h, i)+--instance (AttrVal a, AttrVal b, AttrVal c, AttrVal d, AttrVal e, AttrVal f, AttrVal g, AttrVal h, AttrVal i, AttrVal j) => AttrStruct (a, b, c, d, e, f, g, h, i, j)+
+ src/Graphics/TextureContainer/KTX.hs view
@@ -0,0 +1,136 @@+{-# LANGUAGE RecordWildCards #-}+-- | 'Ktx' is the only format can handle all sorts of textures available+-- among OpenGL [ES] implementations. This library holds any Texture as 'Ktx'+-- internally.+module Graphics.TextureContainer.KTX where+import Control.Applicative+import Control.Exception+import Control.Monad+import qualified Data.ByteString as B+import Data.Packer+import Data.Word+++-- | Khronos Texture Container Format+-- +-- Spec: <http://www.khronos.org/opengles/sdk/tools/KTX/file_format_spec/>+data Ktx = Ktx+ { ktxName :: FilePath -- ^ Debug purpose+ , ktxContent :: B.ByteString -- ^ Holding the original ForeignPtr.+ , ktxGlType :: Word32+ , ktxGlTypeSize :: Word32+ , ktxGlFormat :: Word32+ , ktxGlInternalFormat :: Word32+ , ktxGlBaseInternalFormat :: Word32+ , ktxPixelWidth :: Word32+ , ktxPixelHeight :: Word32+ , ktxPixelDepth :: Word32+ , ktxNumElems :: Word32+ , ktxNumFaces :: Word32+ , ktxNumMipLevels :: Word32+ , ktxMap :: [(B.ByteString, B.ByteString)] -- ^ \[(utf8 string, any)]+ -- Note that if the value is utf8, it includes NULL terminator.+ , ktxImage :: [[B.ByteString]]+ } deriving Show++-- | 'Unpacking' instance.+unpackKtx :: FilePath -> B.ByteString -> Unpacking Ktx+unpackKtx name orig = do+ let w = getWord32+ + -- '«', 'K', 'T', 'X', ' ', '1', '1', '»', '\r', '\n', '\x1A', '\n'+ (0x58544BAB, 0xBB313120, 0x0A1A0A0D) <- (,,) <$> w <*> w <*> w+ + -- Endianness+ -- Assuming Big-endian is a loser of history, just ignore it.+ -- Note: All modern platforms (Android, iOS, Windows, ...)+ -- runs Little-endian nevertheless the processor is bi-endian.+ 0x04030201 <- getWord32+ + ktx <- Ktx name orig <$> w <*> w <*> w <*> w <*> w <*> w+ <*> w <*> w <*> w <*> w <*> w++ bytesOfKeyValueData <- getWord32+ let getKVP 0 = return []+ getKVP i = do+ keyAndValueByteSize <- getWord32+ x <- getBytes (fromIntegral keyAndValueByteSize)+ let padding = 3 - (keyAndValueByteSize + 3) `mod` 4+ unpackSkip (fromIntegral padding)+ xs <- getKVP (i - keyAndValueByteSize - padding)+ return (x:xs)+ kvp <- map (B.breakByte 0) <$> getKVP bytesOfKeyValueData+ let Ktx{..} = ktx kvp []++ imgs <- forM [1..max 1 ktxNumMipLevels] $ \_ -> do+ imageSize <- getWord32+ forM [1..max 1 ktxNumFaces] $ \_ -> do+ img <- getBytes (fromIntegral imageSize)+ unpackSkip $ fromIntegral (3 - (imageSize + 3) `mod` 4)+ return img++ return $ ktx kvp imgs++-- | Build 'Ktx' from given path.+ktxFromFile :: FilePath -> IO Ktx+ktxFromFile path = B.readFile path >>= return . readKtx path++-- | Build 'Ktx' with arbitrary resource name and actual data.+readKtx :: FilePath -> B.ByteString -> Ktx+readKtx path bs = runUnpacking (unpackKtx path bs) bs++-- | Same as 'readKtx' except error handling is explicit.+tryKtx :: FilePath -> B.ByteString -> Either SomeException Ktx+tryKtx path bs = tryUnpacking (unpackKtx path bs) bs+++{-+type MipmapData = [Face or ArrayElements]+type ArrayElements = B.ByteString+type Face = B.ByteString++KTX Spec+---------++Byte[12] identifier+UInt32 endianness+UInt32 glType+UInt32 glTypeSize+UInt32 glFormat+Uint32 glInternalFormat+Uint32 glBaseInternalFormat+UInt32 pixelWidth+UInt32 pixelHeight+UInt32 pixelDepth+UInt32 numberOfArrayElements+UInt32 numberOfFaces+UInt32 numberOfMipmapLevels+UInt32 bytesOfKeyValueData+ +for each keyValuePair that fits in bytesOfKeyValueData+ UInt32 keyAndValueByteSize+ Byte keyAndValue[keyAndValueByteSize]+ Byte valuePadding[3 - ((keyAndValueByteSize + 3) % 4)]+end+ +for each mipmap_level in numberOfMipmapLevels*+ UInt32 imageSize; + for each array_element in numberOfArrayElements*+ for each face in numberOfFaces+ for each z_slice in pixelDepth*+ for each row or row_of_blocks in pixelHeight*+ for each pixel or block_of_pixels in pixelWidth+ Byte data[format-specific-number-of-bytes]**+ end+ end+ end+ Byte cubePadding[0-3]+ end+ end+ Byte mipPadding[3 - ((imageSize + 3) % 4)]+end++* Replace with 1 if this field is 0.+** Uncompressed texture data matches a GL_UNPACK_ALIGNMENT of 4.++-}
+ src/Graphics/TextureContainer/PKM.hs view
@@ -0,0 +1,95 @@+{-# LANGUAGE RecordWildCards, OverloadedStrings #-}+-- | Reading Ericsson's ETC1\/ETC2\/EAC Texture Container Format+module Graphics.TextureContainer.PKM where+import Control.Applicative+import qualified Data.ByteString as B+import Data.Packer+import Data.Word+import Graphics.TextureContainer.KTX++-- | PKM structure.+data Pkm = Pkm+ { pkmName :: FilePath+ , pkmContent :: B.ByteString+ , pkmVersion :: Word16+ , pkmType :: Word16+ , pkmWidth :: Word16+ , pkmHeight :: Word16+ , pkmActiveW :: Word16+ , pkmActiveH :: Word16+ , pkmImage :: B.ByteString+ } deriving Show++-- | 'Unpacking' instance.+unpackPkm :: FilePath -> B.ByteString -> Unpacking Pkm+unpackPkm name orig = do+ -- 'PKM '+ 0x204d4b50 <- getWord32+ + let w = getWord16BE+ pkm <- Pkm name orig <$> w <*> w <*> w <*> w <*> w <*> w+ -- XXX calc size from pkmVersion, pkmType+ let size = pkmActiveW (pkm "") * pkmActiveH (pkm "") `div` 2+ pkm <$> getBytes (fromIntegral size)++-- | Turn 'Pkm' into 'Ktx'. See "Graphics.OpenGLES.Texture".+pkmToKtx :: Pkm -> Ktx+pkmToKtx Pkm{..} = Ktx+ { ktxName = pkmName+ , ktxContent = pkmContent+ , ktxGlType = 0+ , ktxGlTypeSize = 1+ , ktxGlFormat = 0+ , ktxGlInternalFormat = fromPkmType pkmVersion pkmType+ , ktxGlBaseInternalFormat = 0+ , ktxPixelWidth = fromIntegral pkmWidth+ , ktxPixelHeight = fromIntegral pkmHeight+ , ktxPixelDepth = 0+ , ktxNumElems = 0+ , ktxNumFaces = 1+ , ktxNumMipLevels = 1+ , ktxMap = []+ , ktxImage = [[pkmImage]]+ }+ where+ -- 12592 == '1''0', 12848 == '2''0'+ fromPkmType 12592 0 = 36196 -- ?+ fromPkmType 12592 1 = undefined+ fromPkmType 12592 2 = undefined+ fromPkmType 12592 3 = undefined+ fromPkmType 12848 0 = undefined+ fromPkmType 12848 1 = undefined+ fromPkmType 12848 2 = undefined+ fromPkmType 12848 3 = undefined+ fromPkmType 12848 4 = undefined+ fromPkmType 12848 5 = undefined+ fromPkmType 12848 6 = undefined+ fromPkmType 12848 7 = undefined+ fromPkmType 12848 8 = undefined++-- | Build 'Pkm' from given path.+pkmFromFile :: FilePath -> IO Pkm+pkmFromFile path = B.readFile path >>= return . readPkm path++-- | Build 'Pkm' from arbitrary data source.+readPkm :: FilePath -- ^ The resource name to be shown in error message.+ -> B.ByteString -> Pkm+readPkm path bs = runUnpacking (unpackPkm path bs) bs++{-++// 16bytes big-endian+unsigned int32 magic; // 'PKM '+unsigned short16 version; // '10' or '20'+unsigned short16 type; // See below+unsigned short16 width; // +unsigned short16 height; // +unsigned short16 active_w; // +unsigned short16 active_h; // ++version 1.0+ type: 0=ETC1-RGB, 1=ETC1-RGBA, 2=ETC1-RGB-MIP, 3=ETC1-RGBA-MIP+version 2.0+ type: 0=ETC1_RGB, 1=ETC2_RGB, 2=ETC2_RGBA_OLD, 3=ETC2_RGBA, 4=ETC2_RGBA1, 5=ETC2_R, 6=ETC2_RG, 7=ETC2_SIGNED_R, 8=ETC2_SIGNED_R++-}
+ src/Linear/Graphics.hs view
@@ -0,0 +1,36 @@+-- |+module Linear.Graphics where+import Linear.V2+import Data.Word++-- sequence [($ cos (x/100)) | x <- [0..100]] (\x -> V3 0 x 0)+-- [V2 x $ sin (x/50) | x <- [0..100]]++circle2 :: (Ord a, Enum a, Floating a) => a -> [V2 a]+circle2 n | n > 1 = [V2 (cos t) (sin t) | t <- [0,2*pi/n..2*pi]]++rectangle2 :: Num a => a -> a -> a -> a -> [V2 a]+rectangle2 x y w h = [V2 x y, V2 (x+w) y, V2 (x+w) (y+h), V2 x (y+h)]++yEqual2 :: Enum a => (a -> a) -> a -> a -> [V2 a]+yEqual2 f from to = [V2 x (f x) | x <- [from..to]]++xEqual2 :: Enum a => (a -> a) -> a -> a -> [V2 a]+xEqual2 g from to = [V2 (g y) y | y <- [from..to]]++-- | 2D Rectangle covers whole screen.+simpleQuad2 :: Num a => [V2 a]+simpleQuad2 = [V2 (-1) 1, V2 1 1, V2 (-1) (-1), V2 1 (-1)]++-- | Rectangle covers whole texture.+wholeUV :: Num a => [V2 Word8]+wholeUV = [V2 0 0, V2 255 0, V2 0 255, V2 255 255]++-- | Build a matrix that modify 2D aspect ratio.+scale2 :: Num a => a -> a -> V2 (V2 a)+scale2 xScale yScale = V2 (V2 xScale 0) (V2 0 yScale)++-- | 2D rotation matrix.+rotate2 :: Floating a => a -> V2 (V2 a)+rotate2 a = V2 (V2 (cos a) (sin a)) (V2 (-sin a) (cos a))+
+ test/Spec.hs view
@@ -0,0 +1,2 @@+main :: IO ()+main = putStrLn "Test suite not yet implemented"