module Graphics.GL.Ext.OES.BlendSubtract (
gl_OES_blend_subtract
, glBlendEquationOES
, pattern GL_BLEND_EQUATION_OES
, pattern GL_FUNC_ADD_OES
, pattern GL_FUNC_REVERSE_SUBTRACT_OES
, pattern GL_FUNC_SUBTRACT_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_subtract :: Bool
gl_OES_blend_subtract = member "GL_OES_blend_subtract" extensions
glBlendEquationOES :: MonadIO m => GLenum -> m ()
glBlendEquationOES = ffienumIOV glBlendEquationOESFunPtr
glBlendEquationOESFunPtr :: FunPtr (GLenum -> IO ())
glBlendEquationOESFunPtr = unsafePerformIO (getProcAddress "glBlendEquationOES")
pattern GL_BLEND_EQUATION_OES = 0x8009
pattern GL_FUNC_ADD_OES = 0x8006
pattern GL_FUNC_REVERSE_SUBTRACT_OES = 0x800B
pattern GL_FUNC_SUBTRACT_OES = 0x800A