-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.EXT.TextureBorderClamp (
  -- * Extension Support
    gl_EXT_texture_border_clamp

  -- * GL_EXT_texture_border_clamp
  , glGetSamplerParameterIivEXT
  , glGetSamplerParameterIuivEXT
  , glGetTexParameterIivEXT
  , glGetTexParameterIuivEXT
  , glSamplerParameterIivEXT
  , glSamplerParameterIuivEXT
  , glTexParameterIivEXT
  , glTexParameterIuivEXT
  , pattern GL_CLAMP_TO_BORDER_EXT
  , pattern GL_TEXTURE_BORDER_COLOR_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.Internal.Shared
import Graphics.GL.Types
import System.IO.Unsafe

-- | Checks that the <https://www.khronos.org/registry/gles/extensions/EXT/EXT_texture_border_clamp.txt GL_EXT_texture_border_clamp> extension is available.

gl_EXT_texture_border_clamp :: Bool
gl_EXT_texture_border_clamp :: Bool
gl_EXT_texture_border_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_border_clamp" Set String
extensions
{-# NOINLINE gl_EXT_texture_border_clamp #-}

-- | Usage: @'glGetSamplerParameterIivEXT' sampler pname params@
--
-- The length of @params@ should be @COMPSIZE(pname)@.
--
-- This command is an alias for 'Graphics.GL.Internal.Shared.glGetSamplerParameterIiv'.


glGetSamplerParameterIivEXT :: MonadIO m => GLuint -> GLenum -> Ptr GLint -> m ()
glGetSamplerParameterIivEXT :: forall (m :: * -> *).
MonadIO m =>
GLuint -> GLuint -> Ptr GLint -> m ()
glGetSamplerParameterIivEXT = FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
-> GLuint -> GLuint -> Ptr GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
-> GLuint -> GLuint -> Ptr GLint -> m ()
ffiuintenumPtrintIOV FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
glGetSamplerParameterIivEXTFunPtr

glGetSamplerParameterIivEXTFunPtr :: FunPtr (GLuint -> GLenum -> Ptr GLint -> IO ())
glGetSamplerParameterIivEXTFunPtr :: FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
glGetSamplerParameterIivEXTFunPtr = IO (FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ()))
-> FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glGetSamplerParameterIivEXT")

{-# NOINLINE glGetSamplerParameterIivEXTFunPtr #-}

-- | Usage: @'glGetSamplerParameterIuivEXT' sampler pname params@
--
-- The length of @params@ should be @COMPSIZE(pname)@.
--
-- This command is an alias for 'Graphics.GL.Internal.Shared.glGetSamplerParameterIuiv'.


glGetSamplerParameterIuivEXT :: MonadIO m => GLuint -> GLenum -> Ptr GLuint -> m ()
glGetSamplerParameterIuivEXT :: forall (m :: * -> *).
MonadIO m =>
GLuint -> GLuint -> Ptr GLuint -> m ()
glGetSamplerParameterIuivEXT = FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
-> GLuint -> GLuint -> Ptr GLuint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
-> GLuint -> GLuint -> Ptr GLuint -> m ()
ffiuintenumPtruintIOV FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
glGetSamplerParameterIuivEXTFunPtr

glGetSamplerParameterIuivEXTFunPtr :: FunPtr (GLuint -> GLenum -> Ptr GLuint -> IO ())
glGetSamplerParameterIuivEXTFunPtr :: FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
glGetSamplerParameterIuivEXTFunPtr = IO (FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ()))
-> FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glGetSamplerParameterIuivEXT")

{-# NOINLINE glGetSamplerParameterIuivEXTFunPtr #-}

-- | Usage: @'glSamplerParameterIivEXT' sampler pname param@
--
-- The length of @param@ should be @COMPSIZE(pname)@.
--
-- This command is an alias for 'Graphics.GL.Internal.Shared.glSamplerParameterIiv'.


glSamplerParameterIivEXT :: MonadIO m => GLuint -> GLenum -> Ptr GLint -> m ()
glSamplerParameterIivEXT :: forall (m :: * -> *).
MonadIO m =>
GLuint -> GLuint -> Ptr GLint -> m ()
glSamplerParameterIivEXT = FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
-> GLuint -> GLuint -> Ptr GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
-> GLuint -> GLuint -> Ptr GLint -> m ()
ffiuintenumPtrintIOV FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
glSamplerParameterIivEXTFunPtr

glSamplerParameterIivEXTFunPtr :: FunPtr (GLuint -> GLenum -> Ptr GLint -> IO ())
glSamplerParameterIivEXTFunPtr :: FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
glSamplerParameterIivEXTFunPtr = IO (FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ()))
-> FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLuint -> GLuint -> Ptr GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glSamplerParameterIivEXT")

{-# NOINLINE glSamplerParameterIivEXTFunPtr #-}

-- | Usage: @'glSamplerParameterIuivEXT' sampler pname param@
--
-- The length of @param@ should be @COMPSIZE(pname)@.
--
-- This command is an alias for 'Graphics.GL.Internal.Shared.glSamplerParameterIuiv'.


glSamplerParameterIuivEXT :: MonadIO m => GLuint -> GLenum -> Ptr GLuint -> m ()
glSamplerParameterIuivEXT :: forall (m :: * -> *).
MonadIO m =>
GLuint -> GLuint -> Ptr GLuint -> m ()
glSamplerParameterIuivEXT = FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
-> GLuint -> GLuint -> Ptr GLuint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
-> GLuint -> GLuint -> Ptr GLuint -> m ()
ffiuintenumPtruintIOV FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
glSamplerParameterIuivEXTFunPtr

glSamplerParameterIuivEXTFunPtr :: FunPtr (GLuint -> GLenum -> Ptr GLuint -> IO ())
glSamplerParameterIuivEXTFunPtr :: FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
glSamplerParameterIuivEXTFunPtr = IO (FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ()))
-> FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLuint -> GLuint -> Ptr GLuint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glSamplerParameterIuivEXT")

{-# NOINLINE glSamplerParameterIuivEXTFunPtr #-}

pattern GL_CLAMP_TO_BORDER_EXT  :: (Eq a, Num a) => a

pattern $mGL_CLAMP_TO_BORDER_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_CLAMP_TO_BORDER_EXT :: forall a. (Eq a, Num a) => a
GL_CLAMP_TO_BORDER_EXT = 0x812D

pattern GL_TEXTURE_BORDER_COLOR_EXT  :: (Eq a, Num a) => a

pattern $mGL_TEXTURE_BORDER_COLOR_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_BORDER_COLOR_EXT :: forall a. (Eq a, Num a) => a
GL_TEXTURE_BORDER_COLOR_EXT = 0x1004