Reimplement continuous sounds (package dependencies should be reworked)

2021-02-23 20:51:05 +01:00
parent 93ab10e77e
commit 47eb0b378b
5 changed files with 63 additions and 8 deletions
@@ -64,7 +64,8 @@ main = do
                                            (lightsForGloom' w)
                                            (draw blank w)
                      playSoundQueue (_soundData preData) (_soundQueue w)
-                      return preData
+                      newSoundData <- playAndUpdate (_sounds w) (_soundData preData)
+                      return $ preData {_soundData = newSoundData}
                      --renderPicture' preData (_windowX w,_windowY w) (Circle 5)
 --            renderPicture' preData 
 --                          (pictures [scale 0.5 0.9 $ polygon [(0,0),(0,-0.5),(-0.5,-0.5),(-0.5,0.0)]