HGamer3D-Ogre-Binding-0.2.0: HGamer3D/Bindings/Ogre/ClassSkeleton.hs

-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TypeSynonymInstances #-}

-- This source file is part of HGamer3D
-- (A project to enable 3D game development in Haskell)
-- For the latest info, see http://www.althainz.de/HGamer3D.html
-- 

-- (c) 2011, 2012 Peter Althainz
-- 
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
-- 
--     http://www.apache.org/licenses/LICENSE-2.0
-- 
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
-- 


-- ClassSkeleton.chs

-- 

module HGamer3D.Bindings.Ogre.ClassSkeleton 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
{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
import HGamer3D.Bindings.Ogre.ClassPtr
{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
import HGamer3D.Bindings.Ogre.StructHG3DClass
{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
import HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode
{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function ~Skeleton -}
delete :: HG3DClass -> IO ()
delete a1 =
  withHG3DClass a1 $ \a1' -> 
  delete'_ a1' >>= \res ->
  return ()
{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function createBone -}
createBone :: HG3DClass -> IO (HG3DClass)
createBone a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  createBone'_ a1' a2' >>= \res ->
  peek  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function createBone2 -}
createBone2 :: HG3DClass -> Int -> IO (HG3DClass)
createBone2 a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromIntegral a2} in 
  alloca $ \a3' -> 
  createBone2'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function createBone3 -}
createBone3 :: HG3DClass -> String -> IO (HG3DClass)
createBone3 a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  createBone3'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function createBone4 -}
createBone4 :: HG3DClass -> String -> Int -> IO (HG3DClass)
createBone4 a1 a2 a3 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  let {a3' = fromIntegral a3} in 
  alloca $ \a4' -> 
  createBone4'_ a1' a2' a3' a4' >>= \res ->
  peek  a4'>>= \a4'' -> 
  return (a4'')
{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getNumBones -}
getNumBones :: HG3DClass -> IO (Int)
getNumBones a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getNumBones'_ a1' a2' >>= \res ->
  peekIntConv  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getRootBone -}
getRootBone :: HG3DClass -> IO (HG3DClass)
getRootBone a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getRootBone'_ a1' a2' >>= \res ->
  peek  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getBone -}
getBone :: HG3DClass -> Int -> IO (HG3DClass)
getBone a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromIntegral a2} in 
  alloca $ \a3' -> 
  getBone'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getBone2 -}
getBone2 :: HG3DClass -> String -> IO (HG3DClass)
getBone2 a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  getBone2'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function hasBone -}
hasBone :: HG3DClass -> String -> IO (Bool)
hasBone a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  hasBone'_ a1' a2' a3' >>= \res ->
  peekBoolUtil  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function setBindingPose -}
setBindingPose :: HG3DClass -> IO ()
setBindingPose a1 =
  withHG3DClass a1 $ \a1' -> 
  setBindingPose'_ a1' >>= \res ->
  return ()
{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function reset -}
reset :: HG3DClass -> Bool -> IO ()
reset a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromBool a2} in 
  reset'_ a1' a2' >>= \res ->
  return ()
{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function createAnimation -}
createAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass)
createAnimation a1 a2 a3 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  let {a3' = realToFrac a3} in 
  alloca $ \a4' -> 
  createAnimation'_ a1' a2' a3' a4' >>= \res ->
  peek  a4'>>= \a4'' -> 
  return (a4'')
{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getAnimation2 -}
getAnimation2 :: HG3DClass -> String -> IO (HG3DClass)
getAnimation2 a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  getAnimation2'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function hasAnimation -}
hasAnimation :: HG3DClass -> String -> IO (Bool)
hasAnimation a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  hasAnimation'_ a1' a2' a3' >>= \res ->
  peekBoolUtil  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function removeAnimation -}
removeAnimation :: HG3DClass -> String -> IO ()
removeAnimation a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  removeAnimation'_ a1' a2' >>= \res ->
  return ()
{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function setAnimationState -}
setAnimationState :: HG3DClass -> HG3DClass -> IO ()
setAnimationState a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  setAnimationState'_ a1' a2' >>= \res ->
  return ()
{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getNumAnimations -}
getNumAnimations :: HG3DClass -> IO (Int)
getNumAnimations a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getNumAnimations'_ a1' a2' >>= \res ->
  peekIntConv  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getAnimation3 -}
getAnimation3 :: HG3DClass -> Int -> IO (HG3DClass)
getAnimation3 a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromIntegral a2} in 
  alloca $ \a3' -> 
  getAnimation3'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getBlendMode -}
getBlendMode :: HG3DClass -> IO (EnumSkeletonAnimationBlendMode)
getBlendMode a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getBlendMode'_ a1' a2' >>= \res ->
  peekEnumUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function setBlendMode -}
setBlendMode :: HG3DClass -> EnumSkeletonAnimationBlendMode -> IO ()
setBlendMode a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = cIntFromEnum a2} in 
  setBlendMode'_ a1' a2' >>= \res ->
  return ()
{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function optimiseAllAnimations -}
optimiseAllAnimations :: HG3DClass -> Bool -> IO ()
optimiseAllAnimations a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromBool a2} in 
  optimiseAllAnimations'_ a1' a2' >>= \res ->
  return ()
{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function addLinkedSkeletonAnimationSource -}
addLinkedSkeletonAnimationSource :: HG3DClass -> String -> Float -> IO ()
addLinkedSkeletonAnimationSource a1 a2 a3 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  let {a3' = realToFrac a3} in 
  addLinkedSkeletonAnimationSource'_ a1' a2' a3' >>= \res ->
  return ()
{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function removeAllLinkedSkeletonAnimationSources -}
removeAllLinkedSkeletonAnimationSources :: HG3DClass -> IO ()
removeAllLinkedSkeletonAnimationSources a1 =
  withHG3DClass a1 $ \a1' -> 
  removeAllLinkedSkeletonAnimationSources'_ a1' >>= \res ->
  return ()
{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function getManualBonesDirty -}
getManualBonesDirty :: HG3DClass -> IO (Bool)
getManualBonesDirty a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getManualBonesDirty'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 179 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}

{- function hasManualBones -}
hasManualBones :: HG3DClass -> IO (Bool)
hasManualBones a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  hasManualBones'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 184 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}


foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_destruct"
  delete'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createBone"
  createBone'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createBone2"
  createBone2'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createBone3"
  createBone3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createBone4"
  createBone4'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CUShort -> ((HG3DClassPtr) -> (IO ())))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getNumBones"
  getNumBones'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getRootBone"
  getRootBone'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getBone"
  getBone'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getBone2"
  getBone2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_hasBone"
  hasBone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_setBindingPose"
  setBindingPose'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_reset"
  reset'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createAnimation"
  createAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> ((HG3DClassPtr) -> (IO ())))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getAnimation2"
  getAnimation2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_hasAnimation"
  hasAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_removeAnimation"
  removeAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_setAnimationState"
  setAnimationState'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getNumAnimations"
  getNumAnimations'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getAnimation3"
  getAnimation3'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getBlendMode"
  getBlendMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_setBlendMode"
  setBlendMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_optimiseAllAnimations"
  optimiseAllAnimations'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_addLinkedSkeletonAnimationSource"
  addLinkedSkeletonAnimationSource'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_removeAllLinkedSkeletonAnimationSources"
  removeAllLinkedSkeletonAnimationSources'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getManualBonesDirty"
  getManualBonesDirty'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_hasManualBones"
  hasManualBones'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))