Commit mid add time scroll

2022-10-24 10:44:23 +01:00
parent 21dc670c9f
commit 86a9ab7582
17 changed files with 62 additions and 55 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 ^. cWorld . cwTime . worldClock) `mod` (l * tPeriod)
+    t = (w ^. cwTime . worldClock) `mod` (l * tPeriod)
    i = t `div` tPeriod