justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove fade out, temporary fix to sound bug

Browse Source
This commit is contained in:
justin
2021-04-14 14:04:31 +02:00
parent 353f27c576
commit 6119276d45
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
data/music/firstCompo.mid
BIN
View File
Binary file not shown.
src/Sound.hs
+8 -8
View File
@@ -106,16 +106,17 @@ decrementTimer s = case _soundTime s of
& soundStatus .~ FadingOut) & soundStatus .~ FadingOut)
Nothing -> return s Nothing -> return s
applyPosition = return --applyPosition = return
--applyPosition :: Sound -> IO Sound applyPosition :: Sound -> IO Sound
--applyPosition s = case _soundPos s of applyPosition s = case _soundPos s of
-- Nothing -> return s Nothing -> return s
-- Just (a,d) -> Mix.effectPosition (fromJust $ _soundChannel s) a d Just (a,d) -> Mix.effectPosition (fromJust $ _soundChannel s) a d
-- >> return (s & soundPos .~ Nothing) >> return (s & soundPos .~ Nothing)
fadeOutMaybe :: Maybe Mix.Channel -> Int -> IO () fadeOutMaybe :: Maybe Mix.Channel -> Int -> IO ()
fadeOutMaybe (Just x) fadeT = Mix.fadeOut (fromIntegral fadeT + 1) x --fadeOutMaybe (Just x) fadeT = Mix.fadeOut (fromIntegral fadeT + 1) x
fadeOutMaybe (Just x) fadeT = Mix.halt x
fadeOutMaybe _ _ = return () fadeOutMaybe _ _ = return ()
cleanupHalted :: Sound -> MaybeT IO Sound cleanupHalted :: Sound -> MaybeT IO Sound
@@ -161,7 +162,6 @@ setChannelPos a i = do
Behind the scenes, scales a float [0,1] to an Int [0..128]. Behind the scenes, scales a float [0,1] to an Int [0..128].
-} -}
setSoundVolume :: Float -> IO () setSoundVolume :: Float -> IO ()
--setSoundVolume x = Mix.setVolume (round (x * 128)) Mix.AllChannels
setSoundVolume x = Mix.setVolume (round (x * 128)) Mix.AllChannels setSoundVolume x = Mix.setVolume (round (x * 128)) Mix.AllChannels
{- | Set the music volume. {- | Set the music volume.