module Graphics.Rendering.OpenGL.GLU.Initialization (
gluVersion, gluExtensions
) where
import Data.StateVar
import Graphics.GLU
import Graphics.Rendering.OpenGL.GL.ByteString
import Graphics.GL
gluVersion :: GettableStateVar String
gluVersion :: GettableStateVar String
gluVersion = forall a. IO a -> IO a
makeGettableStateVar (GLenum -> GettableStateVar String
getString GLenum
GLU_VERSION)
gluExtensions :: GettableStateVar [String]
gluExtensions :: GettableStateVar [String]
gluExtensions = forall a. IO a -> IO a
makeGettableStateVar (forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap String -> [String]
words forall a b. (a -> b) -> a -> b
$ GLenum -> GettableStateVar String
getString GLenum
GLU_EXTENSIONS)
getString :: GLenum -> IO String
getString :: GLenum -> GettableStateVar String
getString = IO (Ptr GLubyte) -> GettableStateVar String
getStringWith forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall (m :: * -> *). MonadIO m => GLenum -> m (Ptr GLubyte)
gluGetString