-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.EXT.VertexWeighting (
  -- * Extension Support
    gl_EXT_vertex_weighting

  -- * GL_EXT_vertex_weighting
  , glVertexWeightPointerEXT
  , glVertexWeightfEXT
  , glVertexWeightfvEXT
  , pattern GL_CURRENT_VERTEX_WEIGHT_EXT
  , pattern GL_MODELVIEW0_EXT
  , pattern GL_MODELVIEW0_MATRIX_EXT
  , pattern GL_MODELVIEW0_STACK_DEPTH_EXT
  , pattern GL_MODELVIEW1_EXT
  , pattern GL_MODELVIEW1_MATRIX_EXT
  , pattern GL_MODELVIEW1_STACK_DEPTH_EXT
  , pattern GL_VERTEX_WEIGHTING_EXT
  , pattern GL_VERTEX_WEIGHT_ARRAY_EXT
  , pattern GL_VERTEX_WEIGHT_ARRAY_POINTER_EXT
  , pattern GL_VERTEX_WEIGHT_ARRAY_SIZE_EXT
  , pattern GL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT
  , pattern GL_VERTEX_WEIGHT_ARRAY_TYPE_EXT
) 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

-- | Checks that the <https://cvs.khronos.org/svn/repos/ogl/trunk/doc/registry/public/specs/EXT/vertex_weighting.txt GL_EXT_vertex_weighting> extension is available.

gl_EXT_vertex_weighting :: Bool
gl_EXT_vertex_weighting :: Bool
gl_EXT_vertex_weighting = [Char] -> Set [Char] -> Bool
forall a. Ord a => a -> Set a -> Bool
member "GL_EXT_vertex_weighting" Set [Char]
extensions
{-# NOINLINE gl_EXT_vertex_weighting #-}

-- | Usage: @'glVertexWeightPointerEXT' size type stride pointer@
--
-- The parameter @type@ is a @VertexWeightPointerTypeEXT@.
--
-- The length of @pointer@ should be @COMPSIZE(type,stride)@.


glVertexWeightPointerEXT :: MonadIO m => GLint -> GLenum -> GLsizei -> Ptr () -> m ()
glVertexWeightPointerEXT :: GLint -> GLenum -> GLint -> Ptr () -> m ()
glVertexWeightPointerEXT = FunPtr (GLint -> GLenum -> GLint -> Ptr () -> IO ())
-> GLint -> GLenum -> GLint -> Ptr () -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> GLenum -> GLint -> Ptr () -> IO ())
-> GLint -> GLenum -> GLint -> Ptr () -> m ()
ffiintenumsizeiPtrVIOV FunPtr (GLint -> GLenum -> GLint -> Ptr () -> IO ())
glVertexWeightPointerEXTFunPtr

glVertexWeightPointerEXTFunPtr :: FunPtr (GLint -> GLenum -> GLsizei -> Ptr () -> IO ())
glVertexWeightPointerEXTFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr () -> IO ())
glVertexWeightPointerEXTFunPtr = IO (FunPtr (GLint -> GLenum -> GLint -> Ptr () -> IO ()))
-> FunPtr (GLint -> GLenum -> GLint -> Ptr () -> IO ())
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (GLint -> GLenum -> GLint -> Ptr () -> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glVertexWeightPointerEXT")

{-# NOINLINE glVertexWeightPointerEXTFunPtr #-}

-- | Usage: @'glVertexWeightfEXT' weight@
--
-- The vector equivalent of this command is 'Graphics.GL.Ext.EXT.VertexWeighting.glVertexWeightfvEXT'.


glVertexWeightfEXT :: MonadIO m => GLfloat -> m ()
glVertexWeightfEXT :: GLfloat -> m ()
glVertexWeightfEXT = FunPtr (GLfloat -> IO ()) -> GLfloat -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLfloat -> IO ()) -> GLfloat -> m ()
ffifloatIOV FunPtr (GLfloat -> IO ())
glVertexWeightfEXTFunPtr

glVertexWeightfEXTFunPtr :: FunPtr (GLfloat -> IO ())
glVertexWeightfEXTFunPtr :: FunPtr (GLfloat -> IO ())
glVertexWeightfEXTFunPtr = IO (FunPtr (GLfloat -> IO ())) -> FunPtr (GLfloat -> IO ())
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (GLfloat -> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glVertexWeightfEXT")

{-# NOINLINE glVertexWeightfEXTFunPtr #-}

-- | Usage: @'glVertexWeightfvEXT' weight@
--
-- The length of @weight@ should be @1@.


glVertexWeightfvEXT :: MonadIO m => Ptr GLfloat -> m ()
glVertexWeightfvEXT :: Ptr GLfloat -> m ()
glVertexWeightfvEXT = FunPtr (Ptr GLfloat -> IO ()) -> Ptr GLfloat -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (Ptr GLfloat -> IO ()) -> Ptr GLfloat -> m ()
ffiPtrfloatIOV FunPtr (Ptr GLfloat -> IO ())
glVertexWeightfvEXTFunPtr

glVertexWeightfvEXTFunPtr :: FunPtr (Ptr GLfloat -> IO ())
glVertexWeightfvEXTFunPtr :: FunPtr (Ptr GLfloat -> IO ())
glVertexWeightfvEXTFunPtr = IO (FunPtr (Ptr GLfloat -> IO ())) -> FunPtr (Ptr GLfloat -> IO ())
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (Ptr GLfloat -> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glVertexWeightfvEXT")

{-# NOINLINE glVertexWeightfvEXTFunPtr #-}

pattern $bGL_CURRENT_VERTEX_WEIGHT_EXT :: a
$mGL_CURRENT_VERTEX_WEIGHT_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_CURRENT_VERTEX_WEIGHT_EXT = 0x850B

pattern $bGL_MODELVIEW0_EXT :: a
$mGL_MODELVIEW0_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_MODELVIEW0_EXT = 0x1700

pattern $bGL_MODELVIEW0_MATRIX_EXT :: a
$mGL_MODELVIEW0_MATRIX_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_MODELVIEW0_MATRIX_EXT = 0x0BA6

pattern $bGL_MODELVIEW0_STACK_DEPTH_EXT :: a
$mGL_MODELVIEW0_STACK_DEPTH_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_MODELVIEW0_STACK_DEPTH_EXT = 0x0BA3

pattern $bGL_MODELVIEW1_EXT :: a
$mGL_MODELVIEW1_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_MODELVIEW1_EXT = 0x850A

pattern $bGL_MODELVIEW1_MATRIX_EXT :: a
$mGL_MODELVIEW1_MATRIX_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_MODELVIEW1_MATRIX_EXT = 0x8506

pattern $bGL_MODELVIEW1_STACK_DEPTH_EXT :: a
$mGL_MODELVIEW1_STACK_DEPTH_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_MODELVIEW1_STACK_DEPTH_EXT = 0x8502

pattern $bGL_VERTEX_WEIGHTING_EXT :: a
$mGL_VERTEX_WEIGHTING_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_WEIGHTING_EXT = 0x8509

pattern $bGL_VERTEX_WEIGHT_ARRAY_EXT :: a
$mGL_VERTEX_WEIGHT_ARRAY_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_WEIGHT_ARRAY_EXT = 0x850C

pattern $bGL_VERTEX_WEIGHT_ARRAY_POINTER_EXT :: a
$mGL_VERTEX_WEIGHT_ARRAY_POINTER_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_WEIGHT_ARRAY_POINTER_EXT = 0x8510

pattern $bGL_VERTEX_WEIGHT_ARRAY_SIZE_EXT :: a
$mGL_VERTEX_WEIGHT_ARRAY_SIZE_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_WEIGHT_ARRAY_SIZE_EXT = 0x850D

pattern $bGL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT :: a
$mGL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT = 0x850F

pattern $bGL_VERTEX_WEIGHT_ARRAY_TYPE_EXT :: a
$mGL_VERTEX_WEIGHT_ARRAY_TYPE_EXT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GL_VERTEX_WEIGHT_ARRAY_TYPE_EXT = 0x850E