Refactor sound

2021-09-12 17:52:34 +01:00
parent ea333a363b
commit 51a85bd1ec
97 changed files with 409 additions and 177 deletions
@@ -15,6 +15,9 @@ data SoundStatus
    | ToStart
  deriving (Eq,Ord,Show)

+newtype SoundID = SoundID { _getSoundID :: Int }
+  deriving (Eq,Ord,Show)
+
 newtype SoundData = SoundData
    {_loadedChunks :: IM.IntMap Mix.Chunk
    }
@@ -25,7 +28,7 @@ data Sound = Sound
    , _soundAngDist     :: Maybe (Int16,Word8)
    , _soundPos         :: Point2
    , _soundVolume      :: Float
-    , _soundChunkID     :: Int
+    , _soundChunkID     :: SoundID
    }
  deriving (Eq,Ord,Show)