{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.PGI.MiscHints (
gl_PGI_misc_hints
, glHintPGI
, pattern GL_ALLOW_DRAW_FRG_HINT_PGI
, pattern GL_ALLOW_DRAW_MEM_HINT_PGI
, pattern GL_ALLOW_DRAW_OBJ_HINT_PGI
, pattern GL_ALLOW_DRAW_WIN_HINT_PGI
, pattern GL_ALWAYS_FAST_HINT_PGI
, pattern GL_ALWAYS_SOFT_HINT_PGI
, pattern GL_BACK_NORMALS_HINT_PGI
, pattern GL_CLIP_FAR_HINT_PGI
, pattern GL_CLIP_NEAR_HINT_PGI
, pattern GL_CONSERVE_MEMORY_HINT_PGI
, pattern GL_FULL_STIPPLE_HINT_PGI
, pattern GL_NATIVE_GRAPHICS_BEGIN_HINT_PGI
, pattern GL_NATIVE_GRAPHICS_END_HINT_PGI
, pattern GL_NATIVE_GRAPHICS_HANDLE_PGI
, pattern GL_PREFER_DOUBLEBUFFER_HINT_PGI
, pattern GL_RECLAIM_MEMORY_HINT_PGI
, pattern GL_STRICT_DEPTHFUNC_HINT_PGI
, pattern GL_STRICT_LIGHTING_HINT_PGI
, pattern GL_STRICT_SCISSOR_HINT_PGI
, pattern GL_WIDE_LINE_HINT_PGI
) 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
gl_PGI_misc_hints :: Bool
gl_PGI_misc_hints :: Bool
gl_PGI_misc_hints = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_PGI_misc_hints" Set String
extensions
{-# NOINLINE gl_PGI_misc_hints #-}
glHintPGI :: MonadIO m => GLenum -> GLint -> m ()
glHintPGI :: forall (m :: * -> *). MonadIO m => GLenum -> GLint -> m ()
glHintPGI = FunPtr (GLenum -> GLint -> IO ()) -> GLenum -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLint -> IO ()) -> GLenum -> GLint -> m ()
ffienumintIOV FunPtr (GLenum -> GLint -> IO ())
glHintPGIFunPtr
glHintPGIFunPtr :: FunPtr (GLenum -> GLint -> IO ())
glHintPGIFunPtr :: FunPtr (GLenum -> GLint -> IO ())
glHintPGIFunPtr = IO (FunPtr (GLenum -> GLint -> IO ()))
-> FunPtr (GLenum -> GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLenum -> GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glHintPGI")
{-# NOINLINE glHintPGIFunPtr #-}
pattern GL_ALLOW_DRAW_FRG_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_ALLOW_DRAW_FRG_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_ALLOW_DRAW_FRG_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_ALLOW_DRAW_FRG_HINT_PGI = 0x1A210
pattern GL_ALLOW_DRAW_MEM_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_ALLOW_DRAW_MEM_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_ALLOW_DRAW_MEM_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_ALLOW_DRAW_MEM_HINT_PGI = 0x1A211
pattern GL_ALLOW_DRAW_OBJ_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_ALLOW_DRAW_OBJ_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_ALLOW_DRAW_OBJ_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_ALLOW_DRAW_OBJ_HINT_PGI = 0x1A20E
pattern GL_ALLOW_DRAW_WIN_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_ALLOW_DRAW_WIN_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_ALLOW_DRAW_WIN_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_ALLOW_DRAW_WIN_HINT_PGI = 0x1A20F
pattern GL_ALWAYS_FAST_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_ALWAYS_FAST_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_ALWAYS_FAST_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_ALWAYS_FAST_HINT_PGI = 0x1A20C
pattern GL_ALWAYS_SOFT_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_ALWAYS_SOFT_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_ALWAYS_SOFT_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_ALWAYS_SOFT_HINT_PGI = 0x1A20D
pattern GL_BACK_NORMALS_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_BACK_NORMALS_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_BACK_NORMALS_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_BACK_NORMALS_HINT_PGI = 0x1A223
pattern GL_CLIP_FAR_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_CLIP_FAR_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_CLIP_FAR_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_CLIP_FAR_HINT_PGI = 0x1A221
pattern GL_CLIP_NEAR_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_CLIP_NEAR_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_CLIP_NEAR_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_CLIP_NEAR_HINT_PGI = 0x1A220
pattern GL_CONSERVE_MEMORY_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_CONSERVE_MEMORY_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_CONSERVE_MEMORY_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_CONSERVE_MEMORY_HINT_PGI = 0x1A1FD
pattern GL_FULL_STIPPLE_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_FULL_STIPPLE_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_FULL_STIPPLE_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_FULL_STIPPLE_HINT_PGI = 0x1A219
pattern GL_NATIVE_GRAPHICS_BEGIN_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_NATIVE_GRAPHICS_BEGIN_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_NATIVE_GRAPHICS_BEGIN_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_NATIVE_GRAPHICS_BEGIN_HINT_PGI = 0x1A203
pattern GL_NATIVE_GRAPHICS_END_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_NATIVE_GRAPHICS_END_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_NATIVE_GRAPHICS_END_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_NATIVE_GRAPHICS_END_HINT_PGI = 0x1A204
pattern GL_NATIVE_GRAPHICS_HANDLE_PGI :: (Eq a, Num a) => a
pattern $mGL_NATIVE_GRAPHICS_HANDLE_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_NATIVE_GRAPHICS_HANDLE_PGI :: forall a. (Eq a, Num a) => a
GL_NATIVE_GRAPHICS_HANDLE_PGI = 0x1A202
pattern GL_PREFER_DOUBLEBUFFER_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_PREFER_DOUBLEBUFFER_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_PREFER_DOUBLEBUFFER_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_PREFER_DOUBLEBUFFER_HINT_PGI = 0x1A1F8
pattern GL_RECLAIM_MEMORY_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_RECLAIM_MEMORY_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_RECLAIM_MEMORY_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_RECLAIM_MEMORY_HINT_PGI = 0x1A1FE
pattern GL_STRICT_DEPTHFUNC_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_STRICT_DEPTHFUNC_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_STRICT_DEPTHFUNC_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_STRICT_DEPTHFUNC_HINT_PGI = 0x1A216
pattern GL_STRICT_LIGHTING_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_STRICT_LIGHTING_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_STRICT_LIGHTING_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_STRICT_LIGHTING_HINT_PGI = 0x1A217
pattern GL_STRICT_SCISSOR_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_STRICT_SCISSOR_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_STRICT_SCISSOR_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_STRICT_SCISSOR_HINT_PGI = 0x1A218
pattern GL_WIDE_LINE_HINT_PGI :: (Eq a, Num a) => a
pattern $mGL_WIDE_LINE_HINT_PGI :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_WIDE_LINE_HINT_PGI :: forall a. (Eq a, Num a) => a
GL_WIDE_LINE_HINT_PGI = 0x1A222