{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.SGIS.TextureLod (
gl_SGIS_texture_lod
, pattern GL_TEXTURE_BASE_LEVEL_SGIS
, pattern GL_TEXTURE_MAX_LEVEL_SGIS
, pattern GL_TEXTURE_MAX_LOD_SGIS
, pattern GL_TEXTURE_MIN_LOD_SGIS
) where
import Data.Set
import Graphics.GL.Internal.Proc
gl_SGIS_texture_lod :: Bool
gl_SGIS_texture_lod :: Bool
gl_SGIS_texture_lod = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_lod" Set String
extensions
{-# NOINLINE gl_SGIS_texture_lod #-}
pattern GL_TEXTURE_BASE_LEVEL_SGIS :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_BASE_LEVEL_SGIS :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_BASE_LEVEL_SGIS :: forall a. (Eq a, Num a) => a
GL_TEXTURE_BASE_LEVEL_SGIS = 0x813C
pattern GL_TEXTURE_MAX_LEVEL_SGIS :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_MAX_LEVEL_SGIS :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_MAX_LEVEL_SGIS :: forall a. (Eq a, Num a) => a
GL_TEXTURE_MAX_LEVEL_SGIS = 0x813D
pattern GL_TEXTURE_MAX_LOD_SGIS :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_MAX_LOD_SGIS :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_MAX_LOD_SGIS :: forall a. (Eq a, Num a) => a
GL_TEXTURE_MAX_LOD_SGIS = 0x813B
pattern GL_TEXTURE_MIN_LOD_SGIS :: (Eq a, Num a) => a
pattern $mGL_TEXTURE_MIN_LOD_SGIS :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_TEXTURE_MIN_LOD_SGIS :: forall a. (Eq a, Num a) => a
GL_TEXTURE_MIN_LOD_SGIS = 0x813A