Refactor sounds

2021-09-09 14:58:07 +01:00
parent be7b2d2cd7
commit 70c97f5367
26 changed files with 113 additions and 162 deletions
@@ -12,7 +12,6 @@ import Data.Int (Int16)
 data SoundStatus 
    = JustStartedPlaying
    | Playing
-    | FadingOut
    | ToStart
  deriving (Eq,Ord,Show)

@@ -21,7 +20,6 @@ newtype SoundData = SoundData
    }
 data Sound = Sound 
    { _soundTime        :: Maybe Int
-    , _soundFadeTime    :: Int
    , _soundStatus      :: SoundStatus
    , _soundChannel     :: Maybe Mix.Channel
    , _soundAngDist     :: Maybe (Int16,Word8)