DrawInstanced.hs

-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.NV.DrawInstanced (
  -- * Extension Support
    gl_NV_draw_instanced

  -- * GL_NV_draw_instanced
  , glDrawArraysInstancedNV
  , glDrawElementsInstancedNV
) 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_NV_draw_instanced :: Bool
gl_NV_draw_instanced = member "GL_NV_draw_instanced" extensions

glDrawArraysInstancedNV :: MonadIO m => GLenum -> GLint -> GLsizei -> GLsizei -> m ()
glDrawArraysInstancedNV = ffienumintsizeisizeiIOV glDrawArraysInstancedNVFunPtr

glDrawArraysInstancedNVFunPtr :: FunPtr (GLenum -> GLint -> GLsizei -> GLsizei -> IO ())
glDrawArraysInstancedNVFunPtr = unsafePerformIO (getProcAddress "glDrawArraysInstancedNV")

{-# NOINLINE glDrawArraysInstancedNVFunPtr #-}

glDrawElementsInstancedNV :: MonadIO m => GLenum -> GLsizei -> GLenum -> Ptr () -> GLsizei -> m ()
glDrawElementsInstancedNV = ffienumsizeienumPtrVsizeiIOV glDrawElementsInstancedNVFunPtr

glDrawElementsInstancedNVFunPtr :: FunPtr (GLenum -> GLsizei -> GLenum -> Ptr () -> GLsizei -> IO ())
glDrawElementsInstancedNVFunPtr = unsafePerformIO (getProcAddress "glDrawElementsInstancedNV")

{-# NOINLINE glDrawElementsInstancedNVFunPtr #-}