module HGamer3D.Bindings.Ogre.ClassAnimation 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
import HGamer3D.Bindings.Ogre.EnumVertexAnimationType
import HGamer3D.Bindings.Ogre.EnumAnimationInterpolationMode
import HGamer3D.Bindings.Ogre.EnumAnimationRotationInterpolationMode
delete :: HG3DClass
-> IO ()
delete a1 =
withHG3DClass a1 $ \a1' ->
delete'_ a1' >>= \res ->
return ()
getName :: HG3DClass
-> IO (String)
getName a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
getName'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
getLength :: HG3DClass
-> IO (Float)
getLength a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getLength'_ a1' a2' >>= \res ->
peekFloatConv a2'>>= \a2'' ->
return (a2'')
setLength :: HG3DClass
-> Float
-> IO ()
setLength a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
setLength'_ a1' a2' >>= \res ->
return ()
createNodeTrack :: HG3DClass
-> Int
-> IO (HG3DClass)
createNodeTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
createNodeTrack'_ a1' a2' a3' >>= \res ->
peek a3'>>= \a3'' ->
return (a3'')
createNumericTrack :: HG3DClass
-> Int
-> IO (HG3DClass)
createNumericTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
createNumericTrack'_ a1' a2' a3' >>= \res ->
peek a3'>>= \a3'' ->
return (a3'')
createVertexTrack :: HG3DClass
-> Int
-> EnumVertexAnimationType
-> IO (HG3DClass)
createVertexTrack a1 a2 a3 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = cIntFromEnum a3} in
alloca $ \a4' ->
createVertexTrack'_ a1' a2' a3' a4' >>= \res ->
peek a4'>>= \a4'' ->
return (a4'')
createNodeTrack2 :: HG3DClass
-> Int
-> HG3DClass
-> IO (HG3DClass)
createNodeTrack2 a1 a2 a3 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
withHG3DClass a3 $ \a3' ->
alloca $ \a4' ->
createNodeTrack2'_ a1' a2' a3' a4' >>= \res ->
peek a4'>>= \a4'' ->
return (a4'')
getNumNodeTracks :: HG3DClass
-> IO (Int)
getNumNodeTracks a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getNumNodeTracks'_ a1' a2' >>= \res ->
peekIntConv a2'>>= \a2'' ->
return (a2'')
getNodeTrack :: HG3DClass
-> Int
-> IO (HG3DClass)
getNodeTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
getNodeTrack'_ a1' a2' a3' >>= \res ->
peek a3'>>= \a3'' ->
return (a3'')
hasNodeTrack :: HG3DClass
-> Int
-> IO (Bool)
hasNodeTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
hasNodeTrack'_ a1' a2' a3' >>= \res ->
peekBoolUtil a3'>>= \a3'' ->
return (a3'')
getNumNumericTracks :: HG3DClass
-> IO (Int)
getNumNumericTracks a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getNumNumericTracks'_ a1' a2' >>= \res ->
peekIntConv a2'>>= \a2'' ->
return (a2'')
getNumericTrack :: HG3DClass
-> Int
-> IO (HG3DClass)
getNumericTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
getNumericTrack'_ a1' a2' a3' >>= \res ->
peek a3'>>= \a3'' ->
return (a3'')
hasNumericTrack :: HG3DClass
-> Int
-> IO (Bool)
hasNumericTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
hasNumericTrack'_ a1' a2' a3' >>= \res ->
peekBoolUtil a3'>>= \a3'' ->
return (a3'')
getNumVertexTracks :: HG3DClass
-> IO (Int)
getNumVertexTracks a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getNumVertexTracks'_ a1' a2' >>= \res ->
peekIntConv a2'>>= \a2'' ->
return (a2'')
getVertexTrack :: HG3DClass
-> Int
-> IO (HG3DClass)
getVertexTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
getVertexTrack'_ a1' a2' a3' >>= \res ->
peek a3'>>= \a3'' ->
return (a3'')
hasVertexTrack :: HG3DClass
-> Int
-> IO (Bool)
hasVertexTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
alloca $ \a3' ->
hasVertexTrack'_ a1' a2' a3' >>= \res ->
peekBoolUtil a3'>>= \a3'' ->
return (a3'')
destroyNodeTrack :: HG3DClass
-> Int
-> IO ()
destroyNodeTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
destroyNodeTrack'_ a1' a2' >>= \res ->
return ()
destroyNumericTrack :: HG3DClass
-> Int
-> IO ()
destroyNumericTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
destroyNumericTrack'_ a1' a2' >>= \res ->
return ()
destroyVertexTrack :: HG3DClass
-> Int
-> IO ()
destroyVertexTrack a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
destroyVertexTrack'_ a1' a2' >>= \res ->
return ()
destroyAllTracks :: HG3DClass
-> IO ()
destroyAllTracks a1 =
withHG3DClass a1 $ \a1' ->
destroyAllTracks'_ a1' >>= \res ->
return ()
destroyAllNodeTracks :: HG3DClass
-> IO ()
destroyAllNodeTracks a1 =
withHG3DClass a1 $ \a1' ->
destroyAllNodeTracks'_ a1' >>= \res ->
return ()
destroyAllNumericTracks :: HG3DClass
-> IO ()
destroyAllNumericTracks a1 =
withHG3DClass a1 $ \a1' ->
destroyAllNumericTracks'_ a1' >>= \res ->
return ()
destroyAllVertexTracks :: HG3DClass
-> IO ()
destroyAllVertexTracks a1 =
withHG3DClass a1 $ \a1' ->
destroyAllVertexTracks'_ a1' >>= \res ->
return ()
apply :: HG3DClass
-> Float
-> Float
-> Float
-> IO ()
apply a1 a2 a3 a4 =
withHG3DClass a1 $ \a1' ->
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
let {a4' = realToFrac a4} in
apply'_ a1' a2' a3' a4' >>= \res ->
return ()
applyToNode :: HG3DClass
-> HG3DClass
-> Float
-> Float
-> Float
-> IO ()
applyToNode a1 a2 a3 a4 a5 =
withHG3DClass a1 $ \a1' ->
withHG3DClass a2 $ \a2' ->
let {a3' = realToFrac a3} in
let {a4' = realToFrac a4} in
let {a5' = realToFrac a5} in
applyToNode'_ a1' a2' a3' a4' a5' >>= \res ->
return ()
apply2 :: HG3DClass
-> HG3DClass
-> Float
-> Float
-> Float
-> IO ()
apply2 a1 a2 a3 a4 a5 =
withHG3DClass a1 $ \a1' ->
withHG3DClass a2 $ \a2' ->
let {a3' = realToFrac a3} in
let {a4' = realToFrac a4} in
let {a5' = realToFrac a5} in
apply2'_ a1' a2' a3' a4' a5' >>= \res ->
return ()
apply4 :: HG3DClass
-> HG3DClass
-> Float
-> Float
-> Bool
-> Bool
-> IO ()
apply4 a1 a2 a3 a4 a5 a6 =
withHG3DClass a1 $ \a1' ->
withHG3DClass a2 $ \a2' ->
let {a3' = realToFrac a3} in
let {a4' = realToFrac a4} in
let {a5' = fromBool a5} in
let {a6' = fromBool a6} in
apply4'_ a1' a2' a3' a4' a5' a6' >>= \res ->
return ()
setInterpolationMode :: HG3DClass
-> EnumAnimationInterpolationMode
-> IO ()
setInterpolationMode a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = cIntFromEnum a2} in
setInterpolationMode'_ a1' a2' >>= \res ->
return ()
getInterpolationMode :: HG3DClass
-> IO (EnumAnimationInterpolationMode)
getInterpolationMode a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getInterpolationMode'_ a1' a2' >>= \res ->
peekEnumUtil a2'>>= \a2'' ->
return (a2'')
setRotationInterpolationMode :: HG3DClass
-> EnumAnimationRotationInterpolationMode
-> IO ()
setRotationInterpolationMode a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = cIntFromEnum a2} in
setRotationInterpolationMode'_ a1' a2' >>= \res ->
return ()
getRotationInterpolationMode :: HG3DClass
-> IO (EnumAnimationRotationInterpolationMode)
getRotationInterpolationMode a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getRotationInterpolationMode'_ a1' a2' >>= \res ->
peekEnumUtil a2'>>= \a2'' ->
return (a2'')
optimise :: HG3DClass
-> Bool
-> IO ()
optimise a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromBool a2} in
optimise'_ a1' a2' >>= \res ->
return ()
clone :: HG3DClass
-> String
-> IO (HG3DClass)
clone a1 a2 =
withHG3DClass a1 $ \a1' ->
withCString a2 $ \a2' ->
alloca $ \a3' ->
clone'_ a1' a2' a3' >>= \res ->
peek a3'>>= \a3'' ->
return (a3'')
setDefaultInterpolationMode :: EnumAnimationInterpolationMode
-> IO ()
setDefaultInterpolationMode a1 =
let {a1' = cIntFromEnum a1} in
setDefaultInterpolationMode'_ a1' >>= \res ->
return ()
getDefaultInterpolationMode :: IO (EnumAnimationInterpolationMode)
getDefaultInterpolationMode =
alloca $ \a1' ->
getDefaultInterpolationMode'_ a1' >>= \res ->
peekEnumUtil a1'>>= \a1'' ->
return (a1'')
setDefaultRotationInterpolationMode :: EnumAnimationRotationInterpolationMode
-> IO ()
setDefaultRotationInterpolationMode a1 =
let {a1' = cIntFromEnum a1} in
setDefaultRotationInterpolationMode'_ a1' >>= \res ->
return ()
getDefaultRotationInterpolationMode :: IO (EnumAnimationRotationInterpolationMode)
getDefaultRotationInterpolationMode =
alloca $ \a1' ->
getDefaultRotationInterpolationMode'_ a1' >>= \res ->
peekEnumUtil a1'>>= \a1'' ->
return (a1'')
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destruct"
delete'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getName"
getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getLength"
getLength'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setLength"
setLength'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_createNodeTrack"
createNodeTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_createNumericTrack"
createNumericTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_createVertexTrack"
createVertexTrack'_ :: ((HG3DClassPtr) -> (CUShort -> (CInt -> ((HG3DClassPtr) -> (IO ())))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_createNodeTrack2"
createNodeTrack2'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNumNodeTracks"
getNumNodeTracks'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNodeTrack"
getNodeTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_hasNodeTrack"
hasNodeTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((Ptr CInt) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNumNumericTracks"
getNumNumericTracks'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNumericTrack"
getNumericTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_hasNumericTrack"
hasNumericTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((Ptr CInt) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNumVertexTracks"
getNumVertexTracks'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getVertexTrack"
getVertexTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_hasVertexTrack"
hasVertexTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((Ptr CInt) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyNodeTrack"
destroyNodeTrack'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyNumericTrack"
destroyNumericTrack'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyVertexTrack"
destroyVertexTrack'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyAllTracks"
destroyAllTracks'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyAllNodeTracks"
destroyAllNodeTracks'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyAllNumericTracks"
destroyAllNumericTracks'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyAllVertexTracks"
destroyAllVertexTracks'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_apply"
apply'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_applyToNode"
applyToNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_apply2"
apply2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_apply4"
apply4'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CInt -> (CInt -> (IO ())))))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setInterpolationMode"
setInterpolationMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getInterpolationMode"
getInterpolationMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setRotationInterpolationMode"
setRotationInterpolationMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getRotationInterpolationMode"
getRotationInterpolationMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_optimise"
optimise'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_clone"
clone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setDefaultInterpolationMode"
setDefaultInterpolationMode'_ :: (CInt -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getDefaultInterpolationMode"
getDefaultInterpolationMode'_ :: ((Ptr CInt) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setDefaultRotationInterpolationMode"
setDefaultRotationInterpolationMode'_ :: (CInt -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getDefaultRotationInterpolationMode"
getDefaultRotationInterpolationMode'_ :: ((Ptr CInt) -> (IO ()))