-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.ATI.ElementArray (
  -- * Extension Support
    gl_ATI_element_array

  -- * GL_ATI_element_array
  , glDrawElementArrayATI
  , glDrawRangeElementArrayATI
  , glElementPointerATI
  , pattern GL_ELEMENT_ARRAY_ATI
  , pattern GL_ELEMENT_ARRAY_POINTER_ATI
  , pattern GL_ELEMENT_ARRAY_TYPE_ATI
) 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_ATI_element_array :: Bool
gl_ATI_element_array = member "GL_ATI_element_array" extensions

glDrawElementArrayATI :: MonadIO m => GLenum -> GLsizei -> m ()
glDrawElementArrayATI = ffienumsizeiIOV glDrawElementArrayATIFunPtr

glDrawElementArrayATIFunPtr :: FunPtr (GLenum -> GLsizei -> IO ())
glDrawElementArrayATIFunPtr = unsafePerformIO (getProcAddress "glDrawElementArrayATI")

{-# NOINLINE glDrawElementArrayATIFunPtr #-}

glDrawRangeElementArrayATI :: MonadIO m => GLenum -> GLuint -> GLuint -> GLsizei -> m ()
glDrawRangeElementArrayATI = ffienumuintuintsizeiIOV glDrawRangeElementArrayATIFunPtr

glDrawRangeElementArrayATIFunPtr :: FunPtr (GLenum -> GLuint -> GLuint -> GLsizei -> IO ())
glDrawRangeElementArrayATIFunPtr = unsafePerformIO (getProcAddress "glDrawRangeElementArrayATI")

{-# NOINLINE glDrawRangeElementArrayATIFunPtr #-}

glElementPointerATI :: MonadIO m => GLenum -> Ptr () -> m ()
glElementPointerATI = ffienumPtrVIOV glElementPointerATIFunPtr

glElementPointerATIFunPtr :: FunPtr (GLenum -> Ptr () -> IO ())
glElementPointerATIFunPtr = unsafePerformIO (getProcAddress "glElementPointerATI")

{-# NOINLINE glElementPointerATIFunPtr #-}

pattern GL_ELEMENT_ARRAY_ATI = 0x8768

pattern GL_ELEMENT_ARRAY_POINTER_ATI = 0x876A

pattern GL_ELEMENT_ARRAY_TYPE_ATI = 0x8769