-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.IBM.VertexArrayLists (
  -- * Extension Support
    gl_IBM_vertex_array_lists

  -- * GL_IBM_vertex_array_lists
  , glColorPointerListIBM
  , glEdgeFlagPointerListIBM
  , glFogCoordPointerListIBM
  , glIndexPointerListIBM
  , glNormalPointerListIBM
  , glSecondaryColorPointerListIBM
  , glTexCoordPointerListIBM
  , glVertexPointerListIBM
  , pattern GL_COLOR_ARRAY_LIST_IBM
  , pattern GL_COLOR_ARRAY_LIST_STRIDE_IBM
  , pattern GL_EDGE_FLAG_ARRAY_LIST_IBM
  , pattern GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM
  , pattern GL_FOG_COORDINATE_ARRAY_LIST_IBM
  , pattern GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM
  , pattern GL_INDEX_ARRAY_LIST_IBM
  , pattern GL_INDEX_ARRAY_LIST_STRIDE_IBM
  , pattern GL_NORMAL_ARRAY_LIST_IBM
  , pattern GL_NORMAL_ARRAY_LIST_STRIDE_IBM
  , pattern GL_SECONDARY_COLOR_ARRAY_LIST_IBM
  , pattern GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM
  , pattern GL_TEXTURE_COORD_ARRAY_LIST_IBM
  , pattern GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM
  , pattern GL_VERTEX_ARRAY_LIST_IBM
  , pattern GL_VERTEX_ARRAY_LIST_STRIDE_IBM
) 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/IBM/vertex_array_lists.txt GL_IBM_vertex_array_lists> extension is available.

gl_IBM_vertex_array_lists :: Bool
gl_IBM_vertex_array_lists :: Bool
gl_IBM_vertex_array_lists = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_vertex_array_lists" Set String
extensions
{-# NOINLINE gl_IBM_vertex_array_lists #-}

-- | Usage: @'glColorPointerListIBM' size type stride pointer ptrstride@
--
-- The parameter @type@ is a @ColorPointerType@, one of: 'Graphics.GL.Internal.Shared.GL_BYTE', 'Graphics.GL.Internal.Shared.GL_DOUBLE', 'Graphics.GL.Internal.Shared.GL_FLOAT', 'Graphics.GL.Internal.Shared.GL_INT', 'Graphics.GL.Internal.Shared.GL_SHORT', 'Graphics.GL.Internal.Shared.GL_UNSIGNED_BYTE', 'Graphics.GL.Internal.Shared.GL_UNSIGNED_INT', 'Graphics.GL.Internal.Shared.GL_UNSIGNED_SHORT'.
--
-- The length of @pointer@ should be @COMPSIZE(size,type,stride)@.


glColorPointerListIBM :: MonadIO m => GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glColorPointerListIBM :: forall (m :: * -> *).
MonadIO m =>
GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glColorPointerListIBM = FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
ffiintenumintPtrPtrVintIOV FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glColorPointerListIBMFunPtr

glColorPointerListIBMFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glColorPointerListIBMFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glColorPointerListIBMFunPtr = IO
  (FunPtr
     (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
-> FunPtr
     (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glColorPointerListIBM")

{-# NOINLINE glColorPointerListIBMFunPtr #-}

-- | Usage: @'glEdgeFlagPointerListIBM' stride pointer ptrstride@
--
-- The parameter @pointer@ is a @BooleanPointer@.
--
-- The length of @pointer@ should be @COMPSIZE(stride)@.


glEdgeFlagPointerListIBM :: MonadIO m => GLint -> Ptr (Ptr GLboolean) -> GLint -> m ()
glEdgeFlagPointerListIBM :: forall (m :: * -> *).
MonadIO m =>
GLint -> Ptr (Ptr GLboolean) -> GLint -> m ()
glEdgeFlagPointerListIBM = FunPtr (GLint -> Ptr (Ptr GLboolean) -> GLint -> IO ())
-> GLint -> Ptr (Ptr GLboolean) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> Ptr (Ptr GLboolean) -> GLint -> IO ())
-> GLint -> Ptr (Ptr GLboolean) -> GLint -> m ()
ffiintPtrPtrbooleanintIOV FunPtr (GLint -> Ptr (Ptr GLboolean) -> GLint -> IO ())
glEdgeFlagPointerListIBMFunPtr

glEdgeFlagPointerListIBMFunPtr :: FunPtr (GLint -> Ptr (Ptr GLboolean) -> GLint -> IO ())
glEdgeFlagPointerListIBMFunPtr :: FunPtr (GLint -> Ptr (Ptr GLboolean) -> GLint -> IO ())
glEdgeFlagPointerListIBMFunPtr = IO (FunPtr (GLint -> Ptr (Ptr GLboolean) -> GLint -> IO ()))
-> FunPtr (GLint -> Ptr (Ptr GLboolean) -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO (FunPtr (GLint -> Ptr (Ptr GLboolean) -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glEdgeFlagPointerListIBM")

{-# NOINLINE glEdgeFlagPointerListIBMFunPtr #-}

-- | Usage: @'glFogCoordPointerListIBM' type stride pointer ptrstride@
--
-- The parameter @type@ is a @FogPointerTypeIBM@, one of: 'Graphics.GL.Internal.Shared.GL_FLOAT', 'Graphics.GL.Internal.Shared.GL_DOUBLE'.
--
-- The length of @pointer@ should be @COMPSIZE(type,stride)@.


glFogCoordPointerListIBM :: MonadIO m => GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glFogCoordPointerListIBM :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glFogCoordPointerListIBM = FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
ffienumintPtrPtrVintIOV FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glFogCoordPointerListIBMFunPtr

glFogCoordPointerListIBMFunPtr :: FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glFogCoordPointerListIBMFunPtr :: FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glFogCoordPointerListIBMFunPtr = IO (FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
-> FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO (FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glFogCoordPointerListIBM")

{-# NOINLINE glFogCoordPointerListIBMFunPtr #-}

-- | Usage: @'glIndexPointerListIBM' type stride pointer ptrstride@
--
-- The parameter @type@ is a @IndexPointerType@, one of: 'Graphics.GL.Internal.Shared.GL_DOUBLE', 'Graphics.GL.Internal.Shared.GL_FLOAT', 'Graphics.GL.Internal.Shared.GL_INT', 'Graphics.GL.Internal.Shared.GL_SHORT'.
--
-- The length of @pointer@ should be @COMPSIZE(type,stride)@.


glIndexPointerListIBM :: MonadIO m => GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glIndexPointerListIBM :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glIndexPointerListIBM = FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
ffienumintPtrPtrVintIOV FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glIndexPointerListIBMFunPtr

glIndexPointerListIBMFunPtr :: FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glIndexPointerListIBMFunPtr :: FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glIndexPointerListIBMFunPtr = IO (FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
-> FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO (FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glIndexPointerListIBM")

{-# NOINLINE glIndexPointerListIBMFunPtr #-}

-- | Usage: @'glNormalPointerListIBM' type stride pointer ptrstride@
--
-- The parameter @type@ is a @NormalPointerType@, one of: 'Graphics.GL.Internal.Shared.GL_BYTE', 'Graphics.GL.Internal.Shared.GL_DOUBLE', 'Graphics.GL.Internal.Shared.GL_FLOAT', 'Graphics.GL.Internal.Shared.GL_INT', 'Graphics.GL.Internal.Shared.GL_SHORT'.
--
-- The length of @pointer@ should be @COMPSIZE(type,stride)@.


glNormalPointerListIBM :: MonadIO m => GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glNormalPointerListIBM :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glNormalPointerListIBM = FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
ffienumintPtrPtrVintIOV FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glNormalPointerListIBMFunPtr

glNormalPointerListIBMFunPtr :: FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glNormalPointerListIBMFunPtr :: FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glNormalPointerListIBMFunPtr = IO (FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
-> FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO (FunPtr (GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glNormalPointerListIBM")

{-# NOINLINE glNormalPointerListIBMFunPtr #-}

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


glSecondaryColorPointerListIBM :: MonadIO m => GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glSecondaryColorPointerListIBM :: forall (m :: * -> *).
MonadIO m =>
GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glSecondaryColorPointerListIBM = FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
ffiintenumintPtrPtrVintIOV FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glSecondaryColorPointerListIBMFunPtr

glSecondaryColorPointerListIBMFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glSecondaryColorPointerListIBMFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glSecondaryColorPointerListIBMFunPtr = IO
  (FunPtr
     (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
-> FunPtr
     (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glSecondaryColorPointerListIBM")

{-# NOINLINE glSecondaryColorPointerListIBMFunPtr #-}

-- | Usage: @'glTexCoordPointerListIBM' size type stride pointer ptrstride@
--
-- The parameter @type@ is a @TexCoordPointerType@, one of: 'Graphics.GL.Internal.Shared.GL_DOUBLE', 'Graphics.GL.Internal.Shared.GL_FLOAT', 'Graphics.GL.Internal.Shared.GL_INT', 'Graphics.GL.Internal.Shared.GL_SHORT'.
--
-- The length of @pointer@ should be @COMPSIZE(size,type,stride)@.


glTexCoordPointerListIBM :: MonadIO m => GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glTexCoordPointerListIBM :: forall (m :: * -> *).
MonadIO m =>
GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glTexCoordPointerListIBM = FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
ffiintenumintPtrPtrVintIOV FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glTexCoordPointerListIBMFunPtr

glTexCoordPointerListIBMFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glTexCoordPointerListIBMFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glTexCoordPointerListIBMFunPtr = IO
  (FunPtr
     (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
-> FunPtr
     (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glTexCoordPointerListIBM")

{-# NOINLINE glTexCoordPointerListIBMFunPtr #-}

-- | Usage: @'glVertexPointerListIBM' size type stride pointer ptrstride@
--
-- The parameter @type@ is a @VertexPointerType@, one of: 'Graphics.GL.Internal.Shared.GL_DOUBLE', 'Graphics.GL.Internal.Shared.GL_FLOAT', 'Graphics.GL.Internal.Shared.GL_INT', 'Graphics.GL.Internal.Shared.GL_SHORT'.
--
-- The length of @pointer@ should be @COMPSIZE(size,type,stride)@.


glVertexPointerListIBM :: MonadIO m => GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glVertexPointerListIBM :: forall (m :: * -> *).
MonadIO m =>
GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
glVertexPointerListIBM = FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
-> GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> m ()
ffiintenumintPtrPtrVintIOV FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glVertexPointerListIBMFunPtr

glVertexPointerListIBMFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glVertexPointerListIBMFunPtr :: FunPtr (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
glVertexPointerListIBMFunPtr = IO
  (FunPtr
     (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
-> FunPtr
     (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLint -> GLenum -> GLint -> Ptr (Ptr ()) -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glVertexPointerListIBM")

{-# NOINLINE glVertexPointerListIBMFunPtr #-}

pattern GL_COLOR_ARRAY_LIST_IBM  :: (Eq a, Num a) => a

pattern $mGL_COLOR_ARRAY_LIST_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_COLOR_ARRAY_LIST_IBM :: forall a. (Eq a, Num a) => a
GL_COLOR_ARRAY_LIST_IBM = 103072

pattern GL_COLOR_ARRAY_LIST_STRIDE_IBM  :: (Eq a, Num a) => a

pattern $mGL_COLOR_ARRAY_LIST_STRIDE_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_COLOR_ARRAY_LIST_STRIDE_IBM :: forall a. (Eq a, Num a) => a
GL_COLOR_ARRAY_LIST_STRIDE_IBM = 103082

pattern GL_EDGE_FLAG_ARRAY_LIST_IBM  :: (Eq a, Num a) => a

pattern $mGL_EDGE_FLAG_ARRAY_LIST_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_EDGE_FLAG_ARRAY_LIST_IBM :: forall a. (Eq a, Num a) => a
GL_EDGE_FLAG_ARRAY_LIST_IBM = 103075

pattern GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM  :: (Eq a, Num a) => a

pattern $mGL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM :: forall a. (Eq a, Num a) => a
GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM = 103085

pattern GL_FOG_COORDINATE_ARRAY_LIST_IBM  :: (Eq a, Num a) => a

pattern $mGL_FOG_COORDINATE_ARRAY_LIST_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_FOG_COORDINATE_ARRAY_LIST_IBM :: forall a. (Eq a, Num a) => a
GL_FOG_COORDINATE_ARRAY_LIST_IBM = 103076

pattern GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM  :: (Eq a, Num a) => a

pattern $mGL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM :: forall a. (Eq a, Num a) => a
GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM = 103086

pattern GL_INDEX_ARRAY_LIST_IBM  :: (Eq a, Num a) => a

pattern $mGL_INDEX_ARRAY_LIST_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_INDEX_ARRAY_LIST_IBM :: forall a. (Eq a, Num a) => a
GL_INDEX_ARRAY_LIST_IBM = 103073

pattern GL_INDEX_ARRAY_LIST_STRIDE_IBM  :: (Eq a, Num a) => a

pattern $mGL_INDEX_ARRAY_LIST_STRIDE_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_INDEX_ARRAY_LIST_STRIDE_IBM :: forall a. (Eq a, Num a) => a
GL_INDEX_ARRAY_LIST_STRIDE_IBM = 103083

pattern GL_NORMAL_ARRAY_LIST_IBM  :: (Eq a, Num a) => a

pattern $mGL_NORMAL_ARRAY_LIST_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_NORMAL_ARRAY_LIST_IBM :: forall a. (Eq a, Num a) => a
GL_NORMAL_ARRAY_LIST_IBM = 103071

pattern GL_NORMAL_ARRAY_LIST_STRIDE_IBM  :: (Eq a, Num a) => a

pattern $mGL_NORMAL_ARRAY_LIST_STRIDE_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_NORMAL_ARRAY_LIST_STRIDE_IBM :: forall a. (Eq a, Num a) => a
GL_NORMAL_ARRAY_LIST_STRIDE_IBM = 103081

pattern GL_SECONDARY_COLOR_ARRAY_LIST_IBM  :: (Eq a, Num a) => a

pattern $mGL_SECONDARY_COLOR_ARRAY_LIST_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_SECONDARY_COLOR_ARRAY_LIST_IBM :: forall a. (Eq a, Num a) => a
GL_SECONDARY_COLOR_ARRAY_LIST_IBM = 103077

pattern GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM  :: (Eq a, Num a) => a

pattern $mGL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM :: forall a. (Eq a, Num a) => a
GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM = 103087

pattern GL_TEXTURE_COORD_ARRAY_LIST_IBM  :: (Eq a, Num a) => a

pattern $mGL_TEXTURE_COORD_ARRAY_LIST_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_COORD_ARRAY_LIST_IBM :: forall a. (Eq a, Num a) => a
GL_TEXTURE_COORD_ARRAY_LIST_IBM = 103074

pattern GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM  :: (Eq a, Num a) => a

pattern $mGL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM :: forall a. (Eq a, Num a) => a
GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM = 103084

pattern GL_VERTEX_ARRAY_LIST_IBM  :: (Eq a, Num a) => a

pattern $mGL_VERTEX_ARRAY_LIST_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_VERTEX_ARRAY_LIST_IBM :: forall a. (Eq a, Num a) => a
GL_VERTEX_ARRAY_LIST_IBM = 103070

pattern GL_VERTEX_ARRAY_LIST_STRIDE_IBM  :: (Eq a, Num a) => a

pattern $mGL_VERTEX_ARRAY_LIST_STRIDE_IBM :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_VERTEX_ARRAY_LIST_STRIDE_IBM :: forall a. (Eq a, Num a) => a
GL_VERTEX_ARRAY_LIST_STRIDE_IBM = 103080