-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.ARB.MatrixPalette (
  -- * Extension Support
    gl_ARB_matrix_palette

  -- * GL_ARB_matrix_palette
  , glCurrentPaletteMatrixARB
  , glMatrixIndexPointerARB
  , glMatrixIndexubvARB
  , glMatrixIndexuivARB
  , glMatrixIndexusvARB
  , pattern GL_CURRENT_MATRIX_INDEX_ARB
  , pattern GL_CURRENT_PALETTE_MATRIX_ARB
  , pattern GL_MATRIX_INDEX_ARRAY_ARB
  , pattern GL_MATRIX_INDEX_ARRAY_POINTER_ARB
  , pattern GL_MATRIX_INDEX_ARRAY_SIZE_ARB
  , pattern GL_MATRIX_INDEX_ARRAY_STRIDE_ARB
  , pattern GL_MATRIX_INDEX_ARRAY_TYPE_ARB
  , pattern GL_MATRIX_PALETTE_ARB
  , pattern GL_MAX_MATRIX_PALETTE_STACK_DEPTH_ARB
  , pattern GL_MAX_PALETTE_MATRICES_ARB
) 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_ARB_matrix_palette :: Bool
gl_ARB_matrix_palette = member "GL_ARB_matrix_palette" extensions

glCurrentPaletteMatrixARB :: MonadIO m => GLint -> m ()
glCurrentPaletteMatrixARB = ffiintIOV glCurrentPaletteMatrixARBFunPtr

glCurrentPaletteMatrixARBFunPtr :: FunPtr (GLint -> IO ())
glCurrentPaletteMatrixARBFunPtr = unsafePerformIO (getProcAddress "glCurrentPaletteMatrixARB")

{-# NOINLINE glCurrentPaletteMatrixARBFunPtr #-}

glMatrixIndexPointerARB :: MonadIO m => GLint -> GLenum -> GLsizei -> Ptr () -> m ()
glMatrixIndexPointerARB = ffiintenumsizeiPtrVIOV glMatrixIndexPointerARBFunPtr

glMatrixIndexPointerARBFunPtr :: FunPtr (GLint -> GLenum -> GLsizei -> Ptr () -> IO ())
glMatrixIndexPointerARBFunPtr = unsafePerformIO (getProcAddress "glMatrixIndexPointerARB")

{-# NOINLINE glMatrixIndexPointerARBFunPtr #-}

glMatrixIndexubvARB :: MonadIO m => GLint -> Ptr GLubyte -> m ()
glMatrixIndexubvARB = ffiintPtrubyteIOV glMatrixIndexubvARBFunPtr

glMatrixIndexubvARBFunPtr :: FunPtr (GLint -> Ptr GLubyte -> IO ())
glMatrixIndexubvARBFunPtr = unsafePerformIO (getProcAddress "glMatrixIndexubvARB")

{-# NOINLINE glMatrixIndexubvARBFunPtr #-}

glMatrixIndexuivARB :: MonadIO m => GLint -> Ptr GLuint -> m ()
glMatrixIndexuivARB = ffiintPtruintIOV glMatrixIndexuivARBFunPtr

glMatrixIndexuivARBFunPtr :: FunPtr (GLint -> Ptr GLuint -> IO ())
glMatrixIndexuivARBFunPtr = unsafePerformIO (getProcAddress "glMatrixIndexuivARB")

{-# NOINLINE glMatrixIndexuivARBFunPtr #-}

glMatrixIndexusvARB :: MonadIO m => GLint -> Ptr GLushort -> m ()
glMatrixIndexusvARB = ffiintPtrushortIOV glMatrixIndexusvARBFunPtr

glMatrixIndexusvARBFunPtr :: FunPtr (GLint -> Ptr GLushort -> IO ())
glMatrixIndexusvARBFunPtr = unsafePerformIO (getProcAddress "glMatrixIndexusvARB")

{-# NOINLINE glMatrixIndexusvARBFunPtr #-}

pattern GL_CURRENT_MATRIX_INDEX_ARB = 0x8845 :: GLenum

pattern GL_CURRENT_PALETTE_MATRIX_ARB = 0x8843 :: GLenum

pattern GL_MATRIX_INDEX_ARRAY_ARB = 0x8844 :: GLenum

pattern GL_MATRIX_INDEX_ARRAY_POINTER_ARB = 0x8849 :: GLenum

pattern GL_MATRIX_INDEX_ARRAY_SIZE_ARB = 0x8846 :: GLenum

pattern GL_MATRIX_INDEX_ARRAY_STRIDE_ARB = 0x8848 :: GLenum

pattern GL_MATRIX_INDEX_ARRAY_TYPE_ARB = 0x8847 :: GLenum

pattern GL_MATRIX_PALETTE_ARB = 0x8840 :: GLenum

pattern GL_MAX_MATRIX_PALETTE_STACK_DEPTH_ARB = 0x8841 :: GLenum

pattern GL_MAX_PALETTE_MATRICES_ARB = 0x8842 :: GLenum