Added patchDefaultOuterLevel and patchDefaultInnerLevel.

Author: svenpanne

src/Graphics/Rendering/OpenGL/GL/PrimitiveMode.hs

@@ -17,10 +17,13 @@ module Graphics.Rendering.OpenGL.GL.PrimitiveMode (
    -- * Primitive Modes
    PrimitiveMode(..),
    -- * Patches (Tessellation)
-   patchVertices, maxPatchVertices
+   patchVertices, maxPatchVertices,
+   patchDefaultOuterLevel, patchDefaultInnerLevel, maxTessGenLevel
 ) where
 
 import Data.StateVar
+import Foreign.Marshal.Array
+import Graphics.Rendering.OpenGL.GL.PeekPoke
 import Graphics.Rendering.OpenGL.GL.QueryUtils.PName
 import Graphics.Rendering.OpenGL.Raw
 
@@ -91,3 +94,30 @@ patchVertices =
 
 maxPatchVertices :: GettableStateVar GLsizei
 maxPatchVertices = makeGettableStateVar $ getSizei1 id GetMaxPatchVertices
+
+-- | Contains the four default outer tessellation levels to be used when no
+-- tessellation control shader is present.
+
+patchDefaultOuterLevel :: StateVar (GLfloat, GLfloat, GLfloat, GLfloat)
+patchDefaultOuterLevel =
+  makeStateVar
+    (getFloat4 (,,,) GetPatchDefaultOuterLevel)
+    (\(l0, l1, l2, l3) -> allocaArray 4 $ \ptr -> do
+                            poke4 ptr l0 l1 l2 l3
+                            glPatchParameterfv gl_PATCH_DEFAULT_OUTER_LEVEL ptr)
+
+-- | Contains the two default inner tessellation levels to be used when no
+-- tessellation control shader is present.
+
+patchDefaultInnerLevel :: StateVar (GLfloat, GLfloat)
+patchDefaultInnerLevel =
+  makeStateVar
+    (getFloat2 (,) GetPatchDefaultInnerLevel)
+    (\(l0, l1) -> allocaArray 2 $ \ptr -> do
+                    poke2 ptr l0 l1
+                    glPatchParameterfv gl_PATCH_DEFAULT_INNER_LEVEL ptr)
+
+-- | Contains the maximum allowed tessellation level.
+
+maxTessGenLevel :: GettableStateVar GLsizei
+maxTessGenLevel = makeGettableStateVar $ getSizei1 id GetMaxTessGenLevel

src/Graphics/Rendering/OpenGL/GL/QueryUtils/PName.hs

@@ -1046,6 +1046,8 @@ data PName2F
     | GetSmoothLineWidthRange   -- ^ float
     -- PerFragment
     | GetDepthBounds            -- ^ clampd
+    -- Tessellation
+    | GetPatchDefaultInnerLevel -- ^ float
 
 instance GetPName2F PName2F where
 
@@ -1063,6 +1065,8 @@ instance GetPName PName2F where
         GetSmoothLineWidthRange -> Just gl_SMOOTH_LINE_WIDTH_RANGE
         -- PerFragment
         GetDepthBounds -> Just gl_DEPTH_BOUNDS_EXT
+        -- Tessellation
+        GetPatchDefaultInnerLevel -> Just gl_PATCH_DEFAULT_INNER_LEVEL
 
 -----------------------------------------------------------------------------
 
@@ -1134,7 +1138,10 @@ data PName4F
     | GetCurrentRasterSecondaryColor    -- ^ float
     | GetCurrentRasterTextureCoords     -- ^ float
     | GetCurrentRasterPosition          -- ^ float
+    -- PerFragment
     | GetBlendColor                     -- ^ clampf
+    -- Tessellation
+    | GetPatchDefaultOuterLevel         -- ^ float
 
 instance GetPName4F PName4F where
 
@@ -1152,15 +1159,15 @@ instance GetPName PName4F where
         -- Framebuffer
         GetColorClearValue -> Just gl_COLOR_CLEAR_VALUE
         GetAccumClearValue -> Just gl_ACCUM_CLEAR_VALUE
-        -- Rasterpos
+        -- RasterPos
         GetCurrentRasterColor -> Just gl_CURRENT_RASTER_COLOR
         GetCurrentRasterSecondaryColor -> Just gl_CURRENT_RASTER_SECONDARY_COLOR
         GetCurrentRasterTextureCoords -> Just gl_CURRENT_RASTER_TEXTURE_COORDS
         GetCurrentRasterPosition -> Just gl_CURRENT_RASTER_POSITION
         -- PerFragment
         GetBlendColor -> Just gl_BLEND_COLOR
-
-
+        -- Tessellation
+        GetPatchDefaultOuterLevel -> Just gl_PATCH_DEFAULT_OUTER_LEVEL
 
 -- 0x3000 through 0x3FFF are reserved for clip planes
 clipPlaneIndexToEnum :: GLsizei -> Maybe GLenum

src/Graphics/Rendering/OpenGL/GL/Shaders/Limits.hs

@@ -15,8 +15,7 @@
 module Graphics.Rendering.OpenGL.GL.Shaders.Limits (
    maxVertexTextureImageUnits, maxTextureImageUnits,
    maxCombinedTextureImageUnits, maxTextureCoords, maxVertexUniformComponents,
-   maxFragmentUniformComponents, maxVertexAttribs, maxVaryingFloats,
-   maxTessGenLevel
+   maxFragmentUniformComponents, maxVertexAttribs, maxVaryingFloats
 ) where
 
 import Data.StateVar
@@ -77,10 +76,5 @@ maxVertexAttribs = getLimit GetMaxVertexAttribs
 maxVaryingFloats :: GettableStateVar GLsizei
 maxVaryingFloats = getLimit GetMaxVaryingFloats
 
--- | Contains the maximum allowed tessellation level.
-
-maxTessGenLevel :: GettableStateVar GLsizei
-maxTessGenLevel = getLimit GetMaxTessGenLevel
-
 getLimit :: PName1I -> GettableStateVar GLsizei
 getLimit = makeGettableStateVar . getSizei1 id