Stop all sound when stopping time

2022-10-28 14:36:16 +01:00
parent d3233c7daa
commit 0150655c6d
16 changed files with 99 additions and 96 deletions
@@ -11,5 +11,5 @@ clockCycle :: Int -> V.Vector a -> World -> a
 clockCycle tPeriod xs w = xs V.! i
  where
    l = V.length xs
-    t = (w ^. cwTime . worldClock) `mod` (l * tPeriod)
+    t = (w ^. cWorld . lWorld . lClock) `mod` (l * tPeriod)
    i = t `div` tPeriod