module HGamer3D.Bindings.Ogre.ClassControllerManager where
import Foreign
import Foreign.Ptr
import Foreign.C
import HGamer3D.Data.HG3DClass
import HGamer3D.Data.Vector
import HGamer3D.Data.Colour
import HGamer3D.Data.Angle
import HGamer3D.Bindings.Ogre.Utils
import HGamer3D.Bindings.Ogre.ClassPtr
import HGamer3D.Bindings.Ogre.StructHG3DClass
new :: IO (HG3DClass)
new =
alloca $ \a1' ->
new'_ a1' >>= \res ->
peek a1'>>= \a1'' ->
return (a1'')
delete :: HG3DClass -> IO ()
delete a1 =
withHG3DClass a1 $ \a1' ->
delete'_ a1' >>= \res ->
return ()
clearControllers :: HG3DClass -> IO ()
clearControllers a1 =
withHG3DClass a1 $ \a1' ->
clearControllers'_ a1' >>= \res ->
return ()
updateAllControllers :: HG3DClass -> IO ()
updateAllControllers a1 =
withHG3DClass a1 $ \a1' ->
updateAllControllers'_ a1' >>= \res ->
return ()
getTimeFactor :: HG3DClass -> IO (Float)
getTimeFactor a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getTimeFactor'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setTimeFactor :: HG3DClass -> Float -> IO ()
setTimeFactor a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setTimeFactor'_ a1' a2' >>= \res ->
return ()
getFrameDelay :: HG3DClass -> IO (Float)
getFrameDelay a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getFrameDelay'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setFrameDelay :: HG3DClass -> Float -> IO ()
setFrameDelay a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setFrameDelay'_ a1' a2' >>= \res ->
return ()
getElapsedTime :: HG3DClass -> IO (Float)
getElapsedTime a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getElapsedTime'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setElapsedTime :: HG3DClass -> Float -> IO ()
setElapsedTime a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setElapsedTime'_ a1' a2' >>= \res ->
return ()
getSingleton :: IO (HG3DClass)
getSingleton =
alloca $ \a1' ->
getSingleton'_ a1' >>= \res ->
peek a1'>>= \a1'' ->
return (a1'')
getSingletonPtr :: IO (HG3DClass)
getSingletonPtr =
alloca $ \a1' ->
getSingletonPtr'_ a1' >>= \res ->
peek a1'>>= \a1'' ->
return (a1'')
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_construct"
new'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_destruct"
delete'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_clearControllers"
clearControllers'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_updateAllControllers"
updateAllControllers'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getTimeFactor"
getTimeFactor'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_setTimeFactor"
setTimeFactor'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getFrameDelay"
getFrameDelay'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_setFrameDelay"
setFrameDelay'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getElapsedTime"
getElapsedTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_setElapsedTime"
setElapsedTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getSingleton"
getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getSingletonPtr"
getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))