{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.SGIX.Instruments (
gl_SGIX_instruments
, glGetInstrumentsSGIX
, glInstrumentsBufferSGIX
, glPollInstrumentsSGIX
, glReadInstrumentsSGIX
, glStartInstrumentsSGIX
, glStopInstrumentsSGIX
, pattern GL_INSTRUMENT_BUFFER_POINTER_SGIX
, pattern GL_INSTRUMENT_MEASUREMENTS_SGIX
) 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_SGIX_instruments :: Bool
gl_SGIX_instruments :: Bool
gl_SGIX_instruments = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_instruments" Set String
extensions
{-# NOINLINE gl_SGIX_instruments #-}
glGetInstrumentsSGIX :: MonadIO m => m GLint
glGetInstrumentsSGIX :: forall (m :: * -> *). MonadIO m => m GLint
glGetInstrumentsSGIX = FunPtr (IO GLint) -> m GLint
forall (m :: * -> *). MonadIO m => FunPtr (IO GLint) -> m GLint
ffiIOint FunPtr (IO GLint)
glGetInstrumentsSGIXFunPtr
glGetInstrumentsSGIXFunPtr :: FunPtr (IO GLint)
glGetInstrumentsSGIXFunPtr :: FunPtr (IO GLint)
glGetInstrumentsSGIXFunPtr = IO (FunPtr (IO GLint)) -> FunPtr (IO GLint)
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (IO GLint))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glGetInstrumentsSGIX")
{-# NOINLINE glGetInstrumentsSGIXFunPtr #-}
glInstrumentsBufferSGIX :: MonadIO m => GLsizei -> Ptr GLint -> m ()
glInstrumentsBufferSGIX :: forall (m :: * -> *). MonadIO m => GLint -> Ptr GLint -> m ()
glInstrumentsBufferSGIX = FunPtr (GLint -> Ptr GLint -> IO ()) -> GLint -> Ptr GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> Ptr GLint -> IO ()) -> GLint -> Ptr GLint -> m ()
ffisizeiPtrintIOV FunPtr (GLint -> Ptr GLint -> IO ())
glInstrumentsBufferSGIXFunPtr
glInstrumentsBufferSGIXFunPtr :: FunPtr (GLsizei -> Ptr GLint -> IO ())
glInstrumentsBufferSGIXFunPtr :: FunPtr (GLint -> Ptr GLint -> IO ())
glInstrumentsBufferSGIXFunPtr = IO (FunPtr (GLint -> Ptr GLint -> IO ()))
-> FunPtr (GLint -> Ptr GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLint -> Ptr GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glInstrumentsBufferSGIX")
{-# NOINLINE glInstrumentsBufferSGIXFunPtr #-}
glPollInstrumentsSGIX :: MonadIO m => Ptr GLint -> m GLint
glPollInstrumentsSGIX :: forall (m :: * -> *). MonadIO m => Ptr GLint -> m GLint
glPollInstrumentsSGIX = FunPtr (Ptr GLint -> IO GLint) -> Ptr GLint -> m GLint
forall (m :: * -> *).
MonadIO m =>
FunPtr (Ptr GLint -> IO GLint) -> Ptr GLint -> m GLint
ffiPtrintIOint FunPtr (Ptr GLint -> IO GLint)
glPollInstrumentsSGIXFunPtr
glPollInstrumentsSGIXFunPtr :: FunPtr (Ptr GLint -> IO GLint)
glPollInstrumentsSGIXFunPtr :: FunPtr (Ptr GLint -> IO GLint)
glPollInstrumentsSGIXFunPtr = IO (FunPtr (Ptr GLint -> IO GLint))
-> FunPtr (Ptr GLint -> IO GLint)
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (Ptr GLint -> IO GLint))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glPollInstrumentsSGIX")
{-# NOINLINE glPollInstrumentsSGIXFunPtr #-}
glReadInstrumentsSGIX :: MonadIO m => GLint -> m ()
glReadInstrumentsSGIX :: forall (m :: * -> *). MonadIO m => GLint -> m ()
glReadInstrumentsSGIX = FunPtr (GLint -> IO ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> IO ()) -> GLint -> m ()
ffiintIOV FunPtr (GLint -> IO ())
glReadInstrumentsSGIXFunPtr
glReadInstrumentsSGIXFunPtr :: FunPtr (GLint -> IO ())
glReadInstrumentsSGIXFunPtr :: FunPtr (GLint -> IO ())
glReadInstrumentsSGIXFunPtr = IO (FunPtr (GLint -> IO ())) -> FunPtr (GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glReadInstrumentsSGIX")
{-# NOINLINE glReadInstrumentsSGIXFunPtr #-}
glStartInstrumentsSGIX :: MonadIO m => m ()
glStartInstrumentsSGIX :: forall (m :: * -> *). MonadIO m => m ()
glStartInstrumentsSGIX = FunPtr (IO ()) -> m ()
forall (m :: * -> *). MonadIO m => FunPtr (IO ()) -> m ()
ffiIOV FunPtr (IO ())
glStartInstrumentsSGIXFunPtr
glStartInstrumentsSGIXFunPtr :: FunPtr (IO ())
glStartInstrumentsSGIXFunPtr :: FunPtr (IO ())
glStartInstrumentsSGIXFunPtr = IO (FunPtr (IO ())) -> FunPtr (IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glStartInstrumentsSGIX")
{-# NOINLINE glStartInstrumentsSGIXFunPtr #-}
glStopInstrumentsSGIX :: MonadIO m => GLint -> m ()
glStopInstrumentsSGIX :: forall (m :: * -> *). MonadIO m => GLint -> m ()
glStopInstrumentsSGIX = FunPtr (GLint -> IO ()) -> GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLint -> IO ()) -> GLint -> m ()
ffiintIOV FunPtr (GLint -> IO ())
glStopInstrumentsSGIXFunPtr
glStopInstrumentsSGIXFunPtr :: FunPtr (GLint -> IO ())
glStopInstrumentsSGIXFunPtr :: FunPtr (GLint -> IO ())
glStopInstrumentsSGIXFunPtr = IO (FunPtr (GLint -> IO ())) -> FunPtr (GLint -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLint -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glStopInstrumentsSGIX")
{-# NOINLINE glStopInstrumentsSGIXFunPtr #-}
pattern GL_INSTRUMENT_BUFFER_POINTER_SGIX :: (Eq a, Num a) => a
pattern $mGL_INSTRUMENT_BUFFER_POINTER_SGIX :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_INSTRUMENT_BUFFER_POINTER_SGIX :: forall a. (Eq a, Num a) => a
GL_INSTRUMENT_BUFFER_POINTER_SGIX = 0x8180
pattern GL_INSTRUMENT_MEASUREMENTS_SGIX :: (Eq a, Num a) => a
pattern $mGL_INSTRUMENT_MEASUREMENTS_SGIX :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_INSTRUMENT_MEASUREMENTS_SGIX :: forall a. (Eq a, Num a) => a
GL_INSTRUMENT_MEASUREMENTS_SGIX = 0x8181