Move configuration from world to universe
This commit is contained in:
+1
-1
@@ -10,5 +10,5 @@ clockCycle :: Int -> V.Vector a -> World -> a
|
||||
clockCycle tPeriod xs w = xs V.! i
|
||||
where
|
||||
l = V.length xs
|
||||
t = _frameClock w `mod` (l * tPeriod)
|
||||
t = _worldClock w `mod` (l * tPeriod)
|
||||
i = t `div` tPeriod
|
||||
|
||||
Reference in New Issue
Block a user