{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.OES.BlendFuncSeparate (
gl_OES_blend_func_separate
, glBlendFuncSeparateOES
, pattern GL_BLEND_DST_ALPHA_OES
, pattern GL_BLEND_DST_RGB_OES
, pattern GL_BLEND_SRC_ALPHA_OES
, pattern GL_BLEND_SRC_RGB_OES
) 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_OES_blend_func_separate :: Bool
gl_OES_blend_func_separate :: Bool
gl_OES_blend_func_separate = [Char] -> Set [Char] -> Bool
forall a. Ord a => a -> Set a -> Bool
member "GL_OES_blend_func_separate" Set [Char]
extensions
{-# NOINLINE gl_OES_blend_func_separate #-}
glBlendFuncSeparateOES :: MonadIO m => GLenum -> GLenum -> GLenum -> GLenum -> m ()
glBlendFuncSeparateOES :: GLenum -> GLenum -> GLenum -> GLenum -> m ()
glBlendFuncSeparateOES = FunPtr (GLenum -> GLenum -> GLenum -> GLenum -> IO ())
-> GLenum -> GLenum -> GLenum -> GLenum -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLenum -> GLenum -> GLenum -> IO ())
-> GLenum -> GLenum -> GLenum -> GLenum -> m ()
ffienumenumenumenumIOV FunPtr (GLenum -> GLenum -> GLenum -> GLenum -> IO ())
glBlendFuncSeparateOESFunPtr
glBlendFuncSeparateOESFunPtr :: FunPtr (GLenum -> GLenum -> GLenum -> GLenum -> IO ())
glBlendFuncSeparateOESFunPtr :: FunPtr (GLenum -> GLenum -> GLenum -> GLenum -> IO ())
glBlendFuncSeparateOESFunPtr = IO (FunPtr (GLenum -> GLenum -> GLenum -> GLenum -> IO ()))
-> FunPtr (GLenum -> GLenum -> GLenum -> GLenum -> IO ())
forall a. IO a -> a
unsafePerformIO ([Char]
-> IO (FunPtr (GLenum -> GLenum -> GLenum -> GLenum -> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glBlendFuncSeparateOES")
{-# NOINLINE glBlendFuncSeparateOESFunPtr #-}
pattern $bGL_BLEND_DST_ALPHA_OES :: a
$mGL_BLEND_DST_ALPHA_OES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_BLEND_DST_ALPHA_OES = 0x80CA
pattern $bGL_BLEND_DST_RGB_OES :: a
$mGL_BLEND_DST_RGB_OES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_BLEND_DST_RGB_OES = 0x80C8
pattern $bGL_BLEND_SRC_ALPHA_OES :: a
$mGL_BLEND_SRC_ALPHA_OES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_BLEND_SRC_ALPHA_OES = 0x80CB
pattern $bGL_BLEND_SRC_RGB_OES :: a
$mGL_BLEND_SRC_RGB_OES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_BLEND_SRC_RGB_OES = 0x80C9