module Graphics.GL.Ext.EXT.DepthBoundsTest (
gl_EXT_depth_bounds_test
, glDepthBoundsEXT
, pattern GL_DEPTH_BOUNDS_EXT
, pattern GL_DEPTH_BOUNDS_TEST_EXT
) where
import Control.Monad.IO.Class
import Data.Set
import Foreign.Ptr
import Graphics.GL.Internal.FFI
import Graphics.GL.Internal.Proc
import Graphics.GL.Types
import System.IO.Unsafe
gl_EXT_depth_bounds_test :: Bool
gl_EXT_depth_bounds_test = member "GL_EXT_depth_bounds_test" extensions
glDepthBoundsEXT :: MonadIO m => GLclampd -> GLclampd -> m ()
glDepthBoundsEXT = fficlampdclampdIOV glDepthBoundsEXTFunPtr
glDepthBoundsEXTFunPtr :: FunPtr (GLclampd -> GLclampd -> IO ())
glDepthBoundsEXTFunPtr = unsafePerformIO (getProcAddress "glDepthBoundsEXT")
pattern GL_DEPTH_BOUNDS_EXT = 0x8891
pattern GL_DEPTH_BOUNDS_TEST_EXT = 0x8890