{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.ARB.DrawBuffersBlend (
gl_ARB_draw_buffers_blend
, glBlendEquationSeparateiARB
, glBlendEquationiARB
, glBlendFuncSeparateiARB
, glBlendFunciARB
) where
import Control.Monad.IO.Class
import Data.Set
import Foreign.Ptr
import Graphics.GL.Internal.FFI
import Graphics.GL.Internal.Proc
import Graphics.GL.Types
import System.IO.Unsafe
gl_ARB_draw_buffers_blend :: Bool
gl_ARB_draw_buffers_blend = member "GL_ARB_draw_buffers_blend" extensions
{-# NOINLINE gl_ARB_draw_buffers_blend #-}
glBlendEquationSeparateiARB :: MonadIO m => GLuint -> GLenum -> GLenum -> m ()
glBlendEquationSeparateiARB = ffiuintenumenumIOV glBlendEquationSeparateiARBFunPtr
glBlendEquationSeparateiARBFunPtr :: FunPtr (GLuint -> GLenum -> GLenum -> IO ())
glBlendEquationSeparateiARBFunPtr = unsafePerformIO (getProcAddress "glBlendEquationSeparateiARB")
{-# NOINLINE glBlendEquationSeparateiARBFunPtr #-}
glBlendEquationiARB :: MonadIO m => GLuint -> GLenum -> m ()
glBlendEquationiARB = ffiuintenumIOV glBlendEquationiARBFunPtr
glBlendEquationiARBFunPtr :: FunPtr (GLuint -> GLenum -> IO ())
glBlendEquationiARBFunPtr = unsafePerformIO (getProcAddress "glBlendEquationiARB")
{-# NOINLINE glBlendEquationiARBFunPtr #-}
glBlendFuncSeparateiARB :: MonadIO m => GLuint -> GLenum -> GLenum -> GLenum -> GLenum -> m ()
glBlendFuncSeparateiARB = ffiuintenumenumenumenumIOV glBlendFuncSeparateiARBFunPtr
glBlendFuncSeparateiARBFunPtr :: FunPtr (GLuint -> GLenum -> GLenum -> GLenum -> GLenum -> IO ())
glBlendFuncSeparateiARBFunPtr = unsafePerformIO (getProcAddress "glBlendFuncSeparateiARB")
{-# NOINLINE glBlendFuncSeparateiARBFunPtr #-}
glBlendFunciARB :: MonadIO m => GLuint -> GLenum -> GLenum -> m ()
glBlendFunciARB = ffiuintenumenumIOV glBlendFunciARBFunPtr
glBlendFunciARBFunPtr :: FunPtr (GLuint -> GLenum -> GLenum -> IO ())
glBlendFunciARBFunPtr = unsafePerformIO (getProcAddress "glBlendFunciARB")
{-# NOINLINE glBlendFunciARBFunPtr #-}