module Graphics.GL.Raw.Extension.ATI.ElementArray (
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")
glDrawRangeElementArrayATI :: MonadIO m => GLenum -> GLuint -> GLuint -> GLsizei -> m ()
glDrawRangeElementArrayATI = ffienumuintuintsizeiIOV glDrawRangeElementArrayATIFunPtr
glDrawRangeElementArrayATIFunPtr :: FunPtr (GLenum -> GLuint -> GLuint -> GLsizei -> IO ())
glDrawRangeElementArrayATIFunPtr = unsafePerformIO (getProcAddress "glDrawRangeElementArrayATI")
glElementPointerATI :: MonadIO m => GLenum -> Ptr () -> m ()
glElementPointerATI = ffienumPtrVIOV glElementPointerATIFunPtr
glElementPointerATIFunPtr :: FunPtr (GLenum -> Ptr () -> IO ())
glElementPointerATIFunPtr = unsafePerformIO (getProcAddress "glElementPointerATI")
pattern GL_ELEMENT_ARRAY_ATI = 0x8768
pattern GL_ELEMENT_ARRAY_POINTER_ATI = 0x876A
pattern GL_ELEMENT_ARRAY_TYPE_ATI = 0x8769