{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.APPLE.VertexProgramEvaluators (
gl_APPLE_vertex_program_evaluators
, glDisableVertexAttribAPPLE
, glEnableVertexAttribAPPLE
, glIsVertexAttribEnabledAPPLE
, glMapVertexAttrib1dAPPLE
, glMapVertexAttrib1fAPPLE
, glMapVertexAttrib2dAPPLE
, glMapVertexAttrib2fAPPLE
, pattern GL_VERTEX_ATTRIB_MAP1_APPLE
, pattern GL_VERTEX_ATTRIB_MAP1_COEFF_APPLE
, pattern GL_VERTEX_ATTRIB_MAP1_DOMAIN_APPLE
, pattern GL_VERTEX_ATTRIB_MAP1_ORDER_APPLE
, pattern GL_VERTEX_ATTRIB_MAP1_SIZE_APPLE
, pattern GL_VERTEX_ATTRIB_MAP2_APPLE
, pattern GL_VERTEX_ATTRIB_MAP2_COEFF_APPLE
, pattern GL_VERTEX_ATTRIB_MAP2_DOMAIN_APPLE
, pattern GL_VERTEX_ATTRIB_MAP2_ORDER_APPLE
, pattern GL_VERTEX_ATTRIB_MAP2_SIZE_APPLE
) 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_APPLE_vertex_program_evaluators :: Bool
gl_APPLE_vertex_program_evaluators :: Bool
gl_APPLE_vertex_program_evaluators = [Char] -> Set [Char] -> Bool
forall a. Ord a => a -> Set a -> Bool
member "GL_APPLE_vertex_program_evaluators" Set [Char]
extensions
{-# NOINLINE gl_APPLE_vertex_program_evaluators #-}
glDisableVertexAttribAPPLE :: MonadIO m => GLuint -> GLenum -> m ()
glDisableVertexAttribAPPLE :: GLuint -> GLuint -> m ()
glDisableVertexAttribAPPLE = FunPtr (GLuint -> GLuint -> IO ()) -> GLuint -> GLuint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> GLuint -> IO ()) -> GLuint -> GLuint -> m ()
ffiuintenumIOV FunPtr (GLuint -> GLuint -> IO ())
glDisableVertexAttribAPPLEFunPtr
glDisableVertexAttribAPPLEFunPtr :: FunPtr (GLuint -> GLenum -> IO ())
glDisableVertexAttribAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> IO ())
glDisableVertexAttribAPPLEFunPtr = IO (FunPtr (GLuint -> GLuint -> IO ()))
-> FunPtr (GLuint -> GLuint -> IO ())
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (GLuint -> GLuint -> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glDisableVertexAttribAPPLE")
{-# NOINLINE glDisableVertexAttribAPPLEFunPtr #-}
glEnableVertexAttribAPPLE :: MonadIO m => GLuint -> GLenum -> m ()
glEnableVertexAttribAPPLE :: GLuint -> GLuint -> m ()
glEnableVertexAttribAPPLE = FunPtr (GLuint -> GLuint -> IO ()) -> GLuint -> GLuint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> GLuint -> IO ()) -> GLuint -> GLuint -> m ()
ffiuintenumIOV FunPtr (GLuint -> GLuint -> IO ())
glEnableVertexAttribAPPLEFunPtr
glEnableVertexAttribAPPLEFunPtr :: FunPtr (GLuint -> GLenum -> IO ())
glEnableVertexAttribAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> IO ())
glEnableVertexAttribAPPLEFunPtr = IO (FunPtr (GLuint -> GLuint -> IO ()))
-> FunPtr (GLuint -> GLuint -> IO ())
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (GLuint -> GLuint -> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glEnableVertexAttribAPPLE")
{-# NOINLINE glEnableVertexAttribAPPLEFunPtr #-}
glIsVertexAttribEnabledAPPLE :: MonadIO m => GLuint -> GLenum -> m GLboolean
glIsVertexAttribEnabledAPPLE :: GLuint -> GLuint -> m GLboolean
glIsVertexAttribEnabledAPPLE = FunPtr (GLuint -> GLuint -> IO GLboolean)
-> GLuint -> GLuint -> m GLboolean
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> GLuint -> IO GLboolean)
-> GLuint -> GLuint -> m GLboolean
ffiuintenumIOboolean FunPtr (GLuint -> GLuint -> IO GLboolean)
glIsVertexAttribEnabledAPPLEFunPtr
glIsVertexAttribEnabledAPPLEFunPtr :: FunPtr (GLuint -> GLenum -> IO GLboolean)
glIsVertexAttribEnabledAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> IO GLboolean)
glIsVertexAttribEnabledAPPLEFunPtr = IO (FunPtr (GLuint -> GLuint -> IO GLboolean))
-> FunPtr (GLuint -> GLuint -> IO GLboolean)
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (GLuint -> GLuint -> IO GLboolean))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glIsVertexAttribEnabledAPPLE")
{-# NOINLINE glIsVertexAttribEnabledAPPLEFunPtr #-}
glMapVertexAttrib1dAPPLE :: MonadIO m => GLuint -> GLuint -> GLdouble -> GLdouble -> GLint -> GLint -> Ptr GLdouble -> m ()
glMapVertexAttrib1dAPPLE :: GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> m ()
glMapVertexAttrib1dAPPLE = FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
-> GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
-> GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> m ()
ffiuintuintdoubledoubleintintPtrdoubleIOV FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
glMapVertexAttrib1dAPPLEFunPtr
glMapVertexAttrib1dAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> GLdouble -> GLdouble -> GLint -> GLint -> Ptr GLdouble -> IO ())
glMapVertexAttrib1dAPPLEFunPtr :: FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
glMapVertexAttrib1dAPPLEFunPtr = IO
(FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ()))
-> FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
forall a. IO a -> a
unsafePerformIO ([Char]
-> IO
(FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glMapVertexAttrib1dAPPLE")
{-# NOINLINE glMapVertexAttrib1dAPPLEFunPtr #-}
glMapVertexAttrib1fAPPLE :: MonadIO m => GLuint -> GLuint -> GLfloat -> GLfloat -> GLint -> GLint -> Ptr GLfloat -> m ()
glMapVertexAttrib1fAPPLE :: GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> m ()
glMapVertexAttrib1fAPPLE = FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
-> GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
-> GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> m ()
ffiuintuintfloatfloatintintPtrfloatIOV FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
glMapVertexAttrib1fAPPLEFunPtr
glMapVertexAttrib1fAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> GLfloat -> GLfloat -> GLint -> GLint -> Ptr GLfloat -> IO ())
glMapVertexAttrib1fAPPLEFunPtr :: FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
glMapVertexAttrib1fAPPLEFunPtr = IO
(FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ()))
-> FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
forall a. IO a -> a
unsafePerformIO ([Char]
-> IO
(FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glMapVertexAttrib1fAPPLE")
{-# NOINLINE glMapVertexAttrib1fAPPLEFunPtr #-}
glMapVertexAttrib2dAPPLE :: MonadIO m => GLuint -> GLuint -> GLdouble -> GLdouble -> GLint -> GLint -> GLdouble -> GLdouble -> GLint -> GLint -> Ptr GLdouble -> m ()
glMapVertexAttrib2dAPPLE :: GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> m ()
glMapVertexAttrib2dAPPLE = FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
-> GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
-> GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> m ()
ffiuintuintdoubledoubleintintdoubledoubleintintPtrdoubleIOV FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
glMapVertexAttrib2dAPPLEFunPtr
glMapVertexAttrib2dAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> GLdouble -> GLdouble -> GLint -> GLint -> GLdouble -> GLdouble -> GLint -> GLint -> Ptr GLdouble -> IO ())
glMapVertexAttrib2dAPPLEFunPtr :: FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
glMapVertexAttrib2dAPPLEFunPtr = IO
(FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ()))
-> FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ())
forall a. IO a -> a
unsafePerformIO ([Char]
-> IO
(FunPtr
(GLuint
-> GLuint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> GLdouble
-> GLdouble
-> GLint
-> GLint
-> Ptr GLdouble
-> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glMapVertexAttrib2dAPPLE")
{-# NOINLINE glMapVertexAttrib2dAPPLEFunPtr #-}
glMapVertexAttrib2fAPPLE :: MonadIO m => GLuint -> GLuint -> GLfloat -> GLfloat -> GLint -> GLint -> GLfloat -> GLfloat -> GLint -> GLint -> Ptr GLfloat -> m ()
glMapVertexAttrib2fAPPLE :: GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> m ()
glMapVertexAttrib2fAPPLE = FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
-> GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
-> GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> m ()
ffiuintuintfloatfloatintintfloatfloatintintPtrfloatIOV FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
glMapVertexAttrib2fAPPLEFunPtr
glMapVertexAttrib2fAPPLEFunPtr :: FunPtr (GLuint -> GLuint -> GLfloat -> GLfloat -> GLint -> GLint -> GLfloat -> GLfloat -> GLint -> GLint -> Ptr GLfloat -> IO ())
glMapVertexAttrib2fAPPLEFunPtr :: FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
glMapVertexAttrib2fAPPLEFunPtr = IO
(FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ()))
-> FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ())
forall a. IO a -> a
unsafePerformIO ([Char]
-> IO
(FunPtr
(GLuint
-> GLuint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> GLfloat
-> GLfloat
-> GLint
-> GLint
-> Ptr GLfloat
-> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glMapVertexAttrib2fAPPLE")
{-# NOINLINE glMapVertexAttrib2fAPPLEFunPtr #-}
pattern $bGL_VERTEX_ATTRIB_MAP1_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP1_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP1_APPLE = 0x8A00
pattern $bGL_VERTEX_ATTRIB_MAP1_COEFF_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP1_COEFF_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP1_COEFF_APPLE = 0x8A03
pattern $bGL_VERTEX_ATTRIB_MAP1_DOMAIN_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP1_DOMAIN_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP1_DOMAIN_APPLE = 0x8A05
pattern $bGL_VERTEX_ATTRIB_MAP1_ORDER_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP1_ORDER_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP1_ORDER_APPLE = 0x8A04
pattern $bGL_VERTEX_ATTRIB_MAP1_SIZE_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP1_SIZE_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP1_SIZE_APPLE = 0x8A02
pattern $bGL_VERTEX_ATTRIB_MAP2_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP2_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP2_APPLE = 0x8A01
pattern $bGL_VERTEX_ATTRIB_MAP2_COEFF_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP2_COEFF_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP2_COEFF_APPLE = 0x8A07
pattern $bGL_VERTEX_ATTRIB_MAP2_DOMAIN_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP2_DOMAIN_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP2_DOMAIN_APPLE = 0x8A09
pattern $bGL_VERTEX_ATTRIB_MAP2_ORDER_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP2_ORDER_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP2_ORDER_APPLE = 0x8A08
pattern $bGL_VERTEX_ATTRIB_MAP2_SIZE_APPLE :: a
$mGL_VERTEX_ATTRIB_MAP2_SIZE_APPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_ATTRIB_MAP2_SIZE_APPLE = 0x8A06