Updated OpenGL registry to r33061. Bumped version to 3.2.1.0.

Author: svenpanne

CHANGELOG.md

@@ -1,3 +1,7 @@
+3.2.1.0
+-------
+* Updated OpenGL registry to r33061.
+
 3.2.0.0
 -------
 * Updated OpenGL registry to r32749.

OpenGLRaw.cabal

@@ -1,5 +1,5 @@
 name: OpenGLRaw
-version: 3.2.0.0
+version: 3.2.1.0
 synopsis: A raw binding for the OpenGL graphics system
 description:
   OpenGLRaw is a raw Haskell binding for the OpenGL 4.5 graphics system and

RegistryProcessor/OpenGL-Registry

@@ -103,6 +103,7 @@ module Graphics.GL.EXT (
   module Graphics.GL.EXT.VertexAttrib64Bit,
   module Graphics.GL.EXT.VertexShader,
   module Graphics.GL.EXT.VertexWeighting,
+  module Graphics.GL.EXT.WindowRectangles,
   module Graphics.GL.EXT.X11SyncObject
 ) where
 
@@ -196,4 +197,5 @@ import Graphics.GL.EXT.VertexArrayBGRA
 import Graphics.GL.EXT.VertexAttrib64Bit
 import Graphics.GL.EXT.VertexShader
 import Graphics.GL.EXT.VertexWeighting
+import Graphics.GL.EXT.WindowRectangles
 import Graphics.GL.EXT.X11SyncObject

src/Graphics/GL/EXT.hs

@@ -0,0 +1,31 @@
+{-# LANGUAGE PatternSynonyms #-}
+--------------------------------------------------------------------------------
+-- |
+-- Module      :  Graphics.GL.EXT.WindowRectangles
+-- Copyright   :  (c) Sven Panne 2016
+-- License     :  BSD3
+--
+-- Maintainer  :  Sven Panne <[email protected]>
+-- Stability   :  stable
+-- Portability :  portable
+--
+--------------------------------------------------------------------------------
+
+module Graphics.GL.EXT.WindowRectangles (
+  -- * Extension Support
+  glGetEXTWindowRectangles,
+  gl_EXT_window_rectangles,
+  -- * Enums
+  pattern GL_EXCLUSIVE_EXT,
+  pattern GL_INCLUSIVE_EXT,
+  pattern GL_MAX_WINDOW_RECTANGLES_EXT,
+  pattern GL_NUM_WINDOW_RECTANGLES_EXT,
+  pattern GL_WINDOW_RECTANGLE_EXT,
+  pattern GL_WINDOW_RECTANGLE_MODE_EXT,
+  -- * Functions
+  glWindowRectanglesEXT
+) where
+
+import Graphics.GL.ExtensionPredicates
+import Graphics.GL.Tokens
+import Graphics.GL.Functions

src/Graphics/GL/EXT/WindowRectangles.hs

@@ -3066,6 +3066,17 @@ gl_EXT_vertex_weighting :: Bool
 gl_EXT_vertex_weighting = member "GL_EXT_vertex_weighting" extensions
 {-# NOINLINE gl_EXT_vertex_weighting #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/EXT/window_rectangles.txt EXT_window_rectangles> extension supported?
+glGetEXTWindowRectangles :: MonadIO m => m Bool
+glGetEXTWindowRectangles = getExtensions >>= (return . member "GL_EXT_window_rectangles")
+
+-- | Is the <https://www.opengl.org/registry/specs/EXT/window_rectangles.txt EXT_window_rectangles> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetEXTWindowRectangles' in those cases instead.
+gl_EXT_window_rectangles :: Bool
+gl_EXT_window_rectangles = member "GL_EXT_window_rectangles" extensions
+{-# NOINLINE gl_EXT_window_rectangles #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/EXT/x11_sync_object.txt EXT_x11_sync_object> extension supported?
 glGetEXTX11SyncObject :: MonadIO m => m Bool
 glGetEXTX11SyncObject = getExtensions >>= (return . member "GL_EXT_x11_sync_object")
@@ -3242,6 +3253,17 @@ gl_INGR_interlace_read :: Bool
 gl_INGR_interlace_read = member "GL_INGR_interlace_read" extensions
 {-# NOINLINE gl_INGR_interlace_read #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/INTEL/conservative_rasterization.txt INTEL_conservative_rasterization> extension supported?
+glGetINTELConservativeRasterization :: MonadIO m => m Bool
+glGetINTELConservativeRasterization = getExtensions >>= (return . member "GL_INTEL_conservative_rasterization")
+
+-- | Is the <https://www.opengl.org/registry/specs/INTEL/conservative_rasterization.txt INTEL_conservative_rasterization> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetINTELConservativeRasterization' in those cases instead.
+gl_INTEL_conservative_rasterization :: Bool
+gl_INTEL_conservative_rasterization = member "GL_INTEL_conservative_rasterization" extensions
+{-# NOINLINE gl_INTEL_conservative_rasterization #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/INTEL/framebuffer_CMAA.txt INTEL_framebuffer_CMAA> extension supported?
 glGetINTELFramebufferCmaa :: MonadIO m => m Bool
 glGetINTELFramebufferCmaa = getExtensions >>= (return . member "GL_INTEL_framebuffer_CMAA")
@@ -3484,6 +3506,17 @@ gl_NV_blend_equation_advanced_coherent :: Bool
 gl_NV_blend_equation_advanced_coherent = member "GL_NV_blend_equation_advanced_coherent" extensions
 {-# NOINLINE gl_NV_blend_equation_advanced_coherent #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/NV/clip_space_w_scaling.txt NV_clip_space_w_scaling> extension supported?
+glGetNVClipSpaceWScaling :: MonadIO m => m Bool
+glGetNVClipSpaceWScaling = getExtensions >>= (return . member "GL_NV_clip_space_w_scaling")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/clip_space_w_scaling.txt NV_clip_space_w_scaling> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVClipSpaceWScaling' in those cases instead.
+gl_NV_clip_space_w_scaling :: Bool
+gl_NV_clip_space_w_scaling = member "GL_NV_clip_space_w_scaling" extensions
+{-# NOINLINE gl_NV_clip_space_w_scaling #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/NV/command_list.txt NV_command_list> extension supported?
 glGetNVCommandList :: MonadIO m => m Bool
 glGetNVCommandList = getExtensions >>= (return . member "GL_NV_command_list")
@@ -3539,6 +3572,17 @@ gl_NV_conservative_raster_dilate :: Bool
 gl_NV_conservative_raster_dilate = member "GL_NV_conservative_raster_dilate" extensions
 {-# NOINLINE gl_NV_conservative_raster_dilate #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/NV/conservative_raster_pre_snap_triangles.txt NV_conservative_raster_pre_snap_triangles> extension supported?
+glGetNVConservativeRasterPreSnapTriangles :: MonadIO m => m Bool
+glGetNVConservativeRasterPreSnapTriangles = getExtensions >>= (return . member "GL_NV_conservative_raster_pre_snap_triangles")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/conservative_raster_pre_snap_triangles.txt NV_conservative_raster_pre_snap_triangles> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVConservativeRasterPreSnapTriangles' in those cases instead.
+gl_NV_conservative_raster_pre_snap_triangles :: Bool
+gl_NV_conservative_raster_pre_snap_triangles = member "GL_NV_conservative_raster_pre_snap_triangles" extensions
+{-# NOINLINE gl_NV_conservative_raster_pre_snap_triangles #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/NV/copy_depth_to_color.txt NV_copy_depth_to_color> extension supported?
 glGetNVCopyDepthToColor :: MonadIO m => m Bool
 glGetNVCopyDepthToColor = getExtensions >>= (return . member "GL_NV_copy_depth_to_color")
@@ -3946,6 +3990,17 @@ gl_NV_register_combiners2 :: Bool
 gl_NV_register_combiners2 = member "GL_NV_register_combiners2" extensions
 {-# NOINLINE gl_NV_register_combiners2 #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/NV/robustness_video_memory_purge.txt NV_robustness_video_memory_purge> extension supported?
+glGetNVRobustnessVideoMemoryPurge :: MonadIO m => m Bool
+glGetNVRobustnessVideoMemoryPurge = getExtensions >>= (return . member "GL_NV_robustness_video_memory_purge")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/robustness_video_memory_purge.txt NV_robustness_video_memory_purge> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVRobustnessVideoMemoryPurge' in those cases instead.
+gl_NV_robustness_video_memory_purge :: Bool
+gl_NV_robustness_video_memory_purge = member "GL_NV_robustness_video_memory_purge" extensions
+{-# NOINLINE gl_NV_robustness_video_memory_purge #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/NV/sample_locations.txt NV_sample_locations> extension supported?
 glGetNVSampleLocations :: MonadIO m => m Bool
 glGetNVSampleLocations = getExtensions >>= (return . member "GL_NV_sample_locations")

src/Graphics/GL/ExtensionPredicates.hs

@@ -966,6 +966,10 @@ foreign import CALLCONV "dynamic" dyn225
   :: FunPtr (GLenum -> GLsizei -> Ptr GLfloat -> IO ())
   ->         GLenum -> GLsizei -> Ptr GLfloat -> IO ()
 
+foreign import CALLCONV "dynamic" dyn887
+  :: FunPtr (GLenum -> GLsizei -> Ptr GLint -> IO ())
+  ->         GLenum -> GLsizei -> Ptr GLint -> IO ()
+
 foreign import CALLCONV "dynamic" dyn197
   :: FunPtr (GLenum -> GLsizei -> Ptr GLuint -> IO ())
   ->         GLenum -> GLsizei -> Ptr GLuint -> IO ()

src/Graphics/GL/Foreign.hs

@@ -352,6 +352,7 @@ module Graphics.GL.Functions (
   glCompressedTextureSubImage3D,
   glCompressedTextureSubImage3DEXT,
   glConservativeRasterParameterfNV,
+  glConservativeRasterParameteriNV,
   glConvolutionFilter1D,
   glConvolutionFilter1DEXT,
   glConvolutionFilter2D,
@@ -3080,6 +3081,7 @@ module Graphics.GL.Functions (
   glViewportIndexedfNV,
   glViewportIndexedfv,
   glViewportIndexedfvNV,
+  glViewportPositionWScaleNV,
   glViewportSwizzleNV,
   glWaitSync,
   glWaitSyncAPPLE,
@@ -3150,6 +3152,7 @@ module Graphics.GL.Functions (
   glWindowPos4ivMESA,
   glWindowPos4sMESA,
   glWindowPos4svMESA,
+  glWindowRectanglesEXT,
   glWriteMaskEXT
 ) where
 
@@ -8294,6 +8297,19 @@ glConservativeRasterParameterfNV v1 v2 = liftIO $ dyn0 ptr_glConservativeRasterP
 ptr_glConservativeRasterParameterfNV :: FunPtr (GLenum -> GLfloat -> IO ())
 ptr_glConservativeRasterParameterfNV = unsafePerformIO $ getCommand "glConservativeRasterParameterfNV"
 
+-- glConservativeRasterParameteriNV --------------------------------------------
+
+glConservativeRasterParameteriNV
+  :: MonadIO m
+  => GLenum -- ^ @pname@.
+  -> GLint -- ^ @param@.
+  -> m ()
+glConservativeRasterParameteriNV v1 v2 = liftIO $ dyn55 ptr_glConservativeRasterParameteriNV v1 v2
+
+{-# NOINLINE ptr_glConservativeRasterParameteriNV #-}
+ptr_glConservativeRasterParameteriNV :: FunPtr (GLenum -> GLint -> IO ())
+ptr_glConservativeRasterParameteriNV = unsafePerformIO $ getCommand "glConservativeRasterParameteriNV"
+
 -- glConvolutionFilter1D -------------------------------------------------------
 
 -- | Manual page for <https://www.opengl.org/sdk/docs/man2/xhtml/glConvolutionFilter1D.xml OpenGL 2.x>.
@@ -48613,6 +48629,20 @@ glViewportIndexedfvNV v1 v2 = liftIO $ dyn377 ptr_glViewportIndexedfvNV v1 v2
 ptr_glViewportIndexedfvNV :: FunPtr (GLuint -> Ptr GLfloat -> IO ())
 ptr_glViewportIndexedfvNV = unsafePerformIO $ getCommand "glViewportIndexedfvNV"
 
+-- glViewportPositionWScaleNV --------------------------------------------------
+
+glViewportPositionWScaleNV
+  :: MonadIO m
+  => GLuint -- ^ @index@.
+  -> GLfloat -- ^ @xcoeff@.
+  -> GLfloat -- ^ @ycoeff@.
+  -> m ()
+glViewportPositionWScaleNV v1 v2 v3 = liftIO $ dyn221 ptr_glViewportPositionWScaleNV v1 v2 v3
+
+{-# NOINLINE ptr_glViewportPositionWScaleNV #-}
+ptr_glViewportPositionWScaleNV :: FunPtr (GLuint -> GLfloat -> GLfloat -> IO ())
+ptr_glViewportPositionWScaleNV = unsafePerformIO $ getCommand "glViewportPositionWScaleNV"
+
 -- glViewportSwizzleNV ---------------------------------------------------------
 
 glViewportSwizzleNV
@@ -49580,6 +49610,20 @@ glWindowPos4svMESA v1 = liftIO $ dyn45 ptr_glWindowPos4svMESA v1
 ptr_glWindowPos4svMESA :: FunPtr (Ptr GLshort -> IO ())
 ptr_glWindowPos4svMESA = unsafePerformIO $ getCommand "glWindowPos4svMESA"
 
+-- glWindowRectanglesEXT -------------------------------------------------------
+
+glWindowRectanglesEXT
+  :: MonadIO m
+  => GLenum -- ^ @mode@.
+  -> GLsizei -- ^ @count@.
+  -> Ptr GLint -- ^ @box@ pointing to @COMPSIZE(count)@ elements of type @GLint@.
+  -> m ()
+glWindowRectanglesEXT v1 v2 v3 = liftIO $ dyn887 ptr_glWindowRectanglesEXT v1 v2 v3
+
+{-# NOINLINE ptr_glWindowRectanglesEXT #-}
+ptr_glWindowRectanglesEXT :: FunPtr (GLenum -> GLsizei -> Ptr GLint -> IO ())
+ptr_glWindowRectanglesEXT = unsafePerformIO $ getCommand "glWindowRectanglesEXT"
+
 -- glWriteMaskEXT --------------------------------------------------------------
 
 glWriteMaskEXT

src/Graphics/GL/Functions.hs

@@ -13,12 +13,14 @@
 --------------------------------------------------------------------------------
 
 module Graphics.GL.INTEL (
+  module Graphics.GL.INTEL.ConservativeRasterization,
   module Graphics.GL.INTEL.FramebufferCmaa,
   module Graphics.GL.INTEL.MapTexture,
   module Graphics.GL.INTEL.ParallelArrays,
   module Graphics.GL.INTEL.PerformanceQuery
 ) where
 
+import Graphics.GL.INTEL.ConservativeRasterization
 import Graphics.GL.INTEL.FramebufferCmaa
 import Graphics.GL.INTEL.MapTexture
 import Graphics.GL.INTEL.ParallelArrays

src/Graphics/GL/INTEL.hs

@@ -0,0 +1,23 @@
+{-# LANGUAGE PatternSynonyms #-}
+--------------------------------------------------------------------------------
+-- |
+-- Module      :  Graphics.GL.INTEL.ConservativeRasterization
+-- Copyright   :  (c) Sven Panne 2016
+-- License     :  BSD3
+--
+-- Maintainer  :  Sven Panne <[email protected]>
+-- Stability   :  stable
+-- Portability :  portable
+--
+--------------------------------------------------------------------------------
+
+module Graphics.GL.INTEL.ConservativeRasterization (
+  -- * Extension Support
+  glGetINTELConservativeRasterization,
+  gl_INTEL_conservative_rasterization,
+  -- * Enums
+  pattern GL_CONSERVATIVE_RASTERIZATION_INTEL
+) where
+
+import Graphics.GL.ExtensionPredicates
+import Graphics.GL.Tokens