module HGamer3D.Bindings.Ogre.ClassVertexAnimationTrack 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.EnumVertexAnimationTrackTargetMode
new :: HG3DClass -> Int -> EnumVertexAnimationType -> IO (HG3DClass)
new a1 a2 a3 =
withHG3DClass a1 $ \a1' ->
let {a2' = fromIntegral a2} in
let {a3' = cIntFromEnum a3} in
alloca $ \a4' ->
new'_ a1' a2' a3' a4' >>= \res ->
peek a4'>>= \a4'' ->
return (a4'')
getAnimationType :: HG3DClass -> IO (EnumVertexAnimationType)
getAnimationType a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getAnimationType'_ a1' a2' >>= \res ->
peekEnumUtil a2'>>= \a2'' ->
return (a2'')
getVertexAnimationIncludesNormals :: HG3DClass -> IO (Bool)
getVertexAnimationIncludesNormals a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getVertexAnimationIncludesNormals'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO ()
apply a1 a2 a3 a4 =
withHG3DClass a1 $ \a1' ->
withHG3DClass a2 $ \a2' ->
let {a3' = realToFrac a3} in
let {a4' = realToFrac a4} in
apply'_ a1' a2' a3' a4' >>= \res ->
return ()
setTargetMode :: HG3DClass -> EnumVertexAnimationTrackTargetMode -> IO ()
setTargetMode a1 a2 =
withHG3DClass a1 $ \a1' ->
let {a2' = cIntFromEnum a2} in
setTargetMode'_ a1' a2' >>= \res ->
return ()
getTargetMode :: HG3DClass -> IO (EnumVertexAnimationTrackTargetMode)
getTargetMode a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getTargetMode'_ a1' a2' >>= \res ->
peekEnumUtil a2'>>= \a2'' ->
return (a2'')
hasNonZeroKeyFrames :: HG3DClass -> IO (Bool)
hasNonZeroKeyFrames a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
hasNonZeroKeyFrames'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
optimise :: HG3DClass -> IO ()
optimise a1 =
withHG3DClass a1 $ \a1' ->
optimise'_ a1' >>= \res ->
return ()
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_construct"
new'_ :: ((HG3DClassPtr) -> (CUShort -> (CInt -> ((HG3DClassPtr) -> (IO ())))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_getAnimationType"
getAnimationType'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_getVertexAnimationIncludesNormals"
getVertexAnimationIncludesNormals'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_apply"
apply'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_setTargetMode"
setTargetMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_getTargetMode"
getTargetMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_hasNonZeroKeyFrames"
hasNonZeroKeyFrames'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_optimise"
optimise'_ :: ((HG3DClassPtr) -> (IO ()))