-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.SGIS.TextureColorMask (
  -- * Extension Support
    gl_SGIS_texture_color_mask

  -- * GL_SGIS_texture_color_mask
  , glTextureColorMaskSGIS
  , pattern GL_TEXTURE_COLOR_WRITEMASK_SGIS
) where

import Control.Monad.IO.Class
import Data.Set
import Foreign.Ptr
import Graphics.GL.Raw.Internal.FFI
import Graphics.GL.Raw.Internal.Proc
import Graphics.GL.Raw.Types
import System.IO.Unsafe

gl_SGIS_texture_color_mask :: Bool
gl_SGIS_texture_color_mask = member "GL_SGIS_texture_color_mask" extensions

glTextureColorMaskSGIS :: MonadIO m => GLboolean -> GLboolean -> GLboolean -> GLboolean -> m ()
glTextureColorMaskSGIS = ffibooleanbooleanbooleanbooleanIOV glTextureColorMaskSGISFunPtr

glTextureColorMaskSGISFunPtr :: FunPtr (GLboolean -> GLboolean -> GLboolean -> GLboolean -> IO ())
glTextureColorMaskSGISFunPtr = unsafePerformIO (getProcAddress "glTextureColorMaskSGIS")

{-# NOINLINE glTextureColorMaskSGISFunPtr #-}

pattern GL_TEXTURE_COLOR_WRITEMASK_SGIS = 0x81EF :: GLenum