module Sound.AL.Listener where
import Control.Monad.Trans ( MonadIO(..) )
import Foreign.C.Types
import Foreign.Ptr ( Ptr )
import Sound.AL.Types
foreign import CALLCV "alListenerf" alListenerf_ :: ALenum -> ALfloat -> IO ()
alListenerf :: (MonadIO m) => ALenum -> ALfloat -> m ()
alListenerf a b = liftIO $ alListenerf_ a b
foreign import CALLCV "alListener3f" alListener3f_ :: ALenum -> ALfloat -> ALfloat -> ALfloat -> IO ()
alListener3f :: (MonadIO m) => ALenum -> ALfloat -> ALfloat -> ALfloat -> m ()
alListener3f a b c d = liftIO $ alListener3f_ a b c d
foreign import CALLCV "alListenerfv" alListenerfv_ :: ALenum -> Ptr ALfloat -> IO ()
alListenerfv :: (MonadIO m) => ALenum -> Ptr ALfloat -> m ()
alListenerfv a b = liftIO $ alListenerfv_ a b
foreign import CALLCV "alListeneri" alListeneri_ :: ALenum -> ALint -> IO ()
alListeneri :: (MonadIO m) => ALenum -> ALint -> m ()
alListeneri a b = liftIO $ alListeneri_ a b
foreign import CALLCV "alGetListenerf" alGetListenerf_ :: ALenum -> Ptr ALfloat -> IO ()
alGetListenerf :: (MonadIO m) => ALenum -> Ptr ALfloat -> m ()
alGetListenerf a b = liftIO $ alGetListenerf_ a b
foreign import CALLCV "alGetListener3f" alGetListener3f_ :: ALenum -> Ptr ALfloat -> Ptr ALfloat -> Ptr ALfloat -> IO ()
alGetListener3f :: (MonadIO m) => ALenum -> Ptr ALfloat -> Ptr ALfloat -> Ptr ALfloat -> m ()
alGetListener3f a b c d = liftIO $ alGetListener3f_ a b c d
foreign import CALLCV "alGetListenerfv" alGetListenerfv_ :: ALenum -> Ptr ALfloat -> IO ()
alGetListenerfv :: (MonadIO m) => ALenum -> Ptr ALfloat -> m ()
alGetListenerfv a b = liftIO $ alGetListenerfv_ a b
foreign import CALLCV "alGetListeneri" alGetListeneri_ :: ALenum -> Ptr ALint -> IO ()
alGetListeneri :: (MonadIO m) => ALenum -> Ptr ALint -> m ()
alGetListeneri a b = liftIO $ alGetListeneri_ a b