Add support for directional sound

2021-04-06 15:46:49 +02:00
parent ebcac39069
commit 7801920fd2
4 changed files with 32 additions and 3 deletions
@@ -6,6 +6,8 @@ import qualified Data.IntMap as IM
 import qualified Data.Map as M
 import Control.Lens
 import Geometry
+import Data.Word (Word8)
+import Data.Int (Int16)

 data SoundStatus 
    = Playing
@@ -22,7 +24,7 @@ data Sound = Sound
    , _soundFadeTime    :: Int
    , _soundStatus      :: SoundStatus
    , _soundChannel     :: Maybe Mix.Channel
-    , _soundPos         :: Maybe Point2
+    , _soundPos         :: Maybe (Int16,Word8)
    , _soundChunkID     :: Int
    }
  deriving (Eq,Ord,Show)