{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.ARB.Shadow (
gl_ARB_shadow
, pattern GL_COMPARE_R_TO_TEXTURE_ARB
, pattern GL_TEXTURE_COMPARE_FUNC_ARB
, pattern GL_TEXTURE_COMPARE_MODE_ARB
) where
import Data.Set
import Graphics.GL.Internal.Proc
gl_ARB_shadow :: Bool
gl_ARB_shadow :: Bool
gl_ARB_shadow = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shadow" Set String
extensions
{-# NOINLINE gl_ARB_shadow #-}
pattern GL_COMPARE_R_TO_TEXTURE_ARB :: (Eq a, Num a) => a
pattern $mGL_COMPARE_R_TO_TEXTURE_ARB :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_COMPARE_R_TO_TEXTURE_ARB :: forall a. (Eq a, Num a) => a
GL_COMPARE_R_TO_TEXTURE_ARB = 0x884E
pattern GL_TEXTURE_COMPARE_FUNC_ARB :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_COMPARE_FUNC_ARB :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_COMPARE_FUNC_ARB :: forall a. (Eq a, Num a) => a
GL_TEXTURE_COMPARE_FUNC_ARB = 0x884D
pattern GL_TEXTURE_COMPARE_MODE_ARB :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_COMPARE_MODE_ARB :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_COMPARE_MODE_ARB :: forall a. (Eq a, Num a) => a
GL_TEXTURE_COMPARE_MODE_ARB = 0x884C