module HGamer3D.Bindings.SFML.ClassListener 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.SFML.Utils
import HGamer3D.Bindings.SFML.ClassPtr
import HGamer3D.Bindings.SFML.StructHG3DClass
import HGamer3D.Bindings.SFML.StructVec3
setGlobalVolume :: Float -> IO ()
setGlobalVolume a1 =
let {a1' = realToFrac a1} in
setGlobalVolume'_ a1' >>= \res ->
return ()
getGlobalVolume :: IO (Float)
getGlobalVolume =
alloca $ \a1' ->
getGlobalVolume'_ a1' >>= \res ->
peekFloatConv a1'>>= \a1'' ->
return (a1'')
setPosition :: Float -> Float -> Float -> IO ()
setPosition a1 a2 a3 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
setPosition'_ a1' a2' a3' >>= \res ->
return ()
getPosition :: IO (Vec3)
getPosition =
alloca $ \a1' ->
getPosition'_ a1' >>= \res ->
peekVec3 a1'>>= \a1'' ->
return (a1'')
setDirection :: Float -> Float -> Float -> IO ()
setDirection a1 a2 a3 =
let {a1' = realToFrac a1} in
let {a2' = realToFrac a2} in
let {a3' = realToFrac a3} in
setDirection'_ a1' a2' a3' >>= \res ->
return ()
getDirection :: IO (Vec3)
getDirection =
alloca $ \a1' ->
getDirection'_ a1' >>= \res ->
peekVec3 a1'>>= \a1'' ->
return (a1'')
foreign import ccall safe "HGamer3D\\Bindings\\SFML\\ClassListener.chs.h sfml_lst_setGlobalVolume"
setGlobalVolume'_ :: (CFloat -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\SFML\\ClassListener.chs.h sfml_lst_getGlobalVolume"
getGlobalVolume'_ :: ((Ptr CFloat) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\SFML\\ClassListener.chs.h sfml_lst_setPosition"
setPosition'_ :: (CFloat -> (CFloat -> (CFloat -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\SFML\\ClassListener.chs.h sfml_lst_getPosition"
getPosition'_ :: ((Vec3Ptr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\SFML\\ClassListener.chs.h sfml_lst_setDirection"
setDirection'_ :: (CFloat -> (CFloat -> (CFloat -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\SFML\\ClassListener.chs.h sfml_lst_getDirection"
getDirection'_ :: ((Vec3Ptr) -> (IO ()))