{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.HP.TextureLighting (
gl_HP_texture_lighting
, pattern GL_TEXTURE_LIGHTING_MODE_HP
, pattern GL_TEXTURE_POST_SPECULAR_HP
, pattern GL_TEXTURE_PRE_SPECULAR_HP
) where
import Data.Set
import Graphics.GL.Internal.Proc
gl_HP_texture_lighting :: Bool
gl_HP_texture_lighting :: Bool
gl_HP_texture_lighting = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_texture_lighting" Set String
extensions
{-# NOINLINE gl_HP_texture_lighting #-}
pattern GL_TEXTURE_LIGHTING_MODE_HP :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_LIGHTING_MODE_HP :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_LIGHTING_MODE_HP :: forall a. (Eq a, Num a) => a
GL_TEXTURE_LIGHTING_MODE_HP = 0x8167
pattern GL_TEXTURE_POST_SPECULAR_HP :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_POST_SPECULAR_HP :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_POST_SPECULAR_HP :: forall a. (Eq a, Num a) => a
GL_TEXTURE_POST_SPECULAR_HP = 0x8168
pattern GL_TEXTURE_PRE_SPECULAR_HP :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_PRE_SPECULAR_HP :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_PRE_SPECULAR_HP :: forall a. (Eq a, Num a) => a
GL_TEXTURE_PRE_SPECULAR_HP = 0x8169