MultiDrawIndirect.hs

-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.AMD.MultiDrawIndirect (
  -- * Extension Support
    gl_AMD_multi_draw_indirect

  -- * GL_AMD_multi_draw_indirect
  , glMultiDrawArraysIndirectAMD
  , glMultiDrawElementsIndirectAMD
) 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_AMD_multi_draw_indirect :: Bool
gl_AMD_multi_draw_indirect = member "GL_AMD_multi_draw_indirect" extensions

glMultiDrawArraysIndirectAMD :: MonadIO m => GLenum -> Ptr () -> GLsizei -> GLsizei -> m ()
glMultiDrawArraysIndirectAMD = ffienumPtrVsizeisizeiIOV glMultiDrawArraysIndirectAMDFunPtr

glMultiDrawArraysIndirectAMDFunPtr :: FunPtr (GLenum -> Ptr () -> GLsizei -> GLsizei -> IO ())
glMultiDrawArraysIndirectAMDFunPtr = unsafePerformIO (getProcAddress "glMultiDrawArraysIndirectAMD")

{-# NOINLINE glMultiDrawArraysIndirectAMDFunPtr #-}

glMultiDrawElementsIndirectAMD :: MonadIO m => GLenum -> GLenum -> Ptr () -> GLsizei -> GLsizei -> m ()
glMultiDrawElementsIndirectAMD = ffienumenumPtrVsizeisizeiIOV glMultiDrawElementsIndirectAMDFunPtr

glMultiDrawElementsIndirectAMDFunPtr :: FunPtr (GLenum -> GLenum -> Ptr () -> GLsizei -> GLsizei -> IO ())
glMultiDrawElementsIndirectAMDFunPtr = unsafePerformIO (getProcAddress "glMultiDrawElementsIndirectAMD")

{-# NOINLINE glMultiDrawElementsIndirectAMDFunPtr #-}