1 files changed, 1 insertions, 1 deletions
diff --git a/Spear/App.hs b/Spear/App.hs
index ac5f7a5..93837c2 100644
--- a/Spear/App.hs
+++ b/Spear/App.hs
@@ -101,7 +101,7 @@ loop' window ddt animationDdt lastAnimationTime inputTimer app = do
      let dt = timeDeltaToSec ddt
      let timeBudgetThisFrame = timeDiff lastAnimationTime (lastTick timer)
      let steps = timeBudgetThisFrame `div` ddt
-      let lastAnimationTimeNextFrame = timeAdd lastAnimationTime (timeBudgetThisFrame `mod` ddt)
+      let lastAnimationTimeNextFrame = timeAdd lastAnimationTime (steps * ddt)
      --gameIO . print $ "Steps: " ++ show steps ++ ", Budget: " ++ show timeBudgetThisFrame ++ ", ddt: " ++ show ddt
      continue <- and <$> forM [1..steps] (\i -> do
        inputEvents <- gameIO $ pollInputEvents window

diff --git a/Spear/App.hs b/Spear/App.hs index ac5f7a5..93837c2 100644 --- a/Spear/App.hs +++ b/Spear/App.hs
@@ -101,7 +101,7 @@ loop' window ddt animationDdt lastAnimationTime inputTimer app = do
101	let dt = timeDeltaToSec ddt	101	let dt = timeDeltaToSec ddt
102	let timeBudgetThisFrame = timeDiff lastAnimationTime (lastTick timer)	102	let timeBudgetThisFrame = timeDiff lastAnimationTime (lastTick timer)
103	let steps = timeBudgetThisFrame `div` ddt	103	let steps = timeBudgetThisFrame `div` ddt
104	let lastAnimationTimeNextFrame = timeAdd lastAnimationTime (timeBudgetThisFrame `mod` ddt)	104	let lastAnimationTimeNextFrame = timeAdd lastAnimationTime (steps * ddt)
105	--gameIO . print $ "Steps: " ++ show steps ++ ", Budget: " ++ show timeBudgetThisFrame ++ ", ddt: " ++ show ddt	105	--gameIO . print $ "Steps: " ++ show steps ++ ", Budget: " ++ show timeBudgetThisFrame ++ ", ddt: " ++ show ddt
106	continue <- and <$> forM [1..steps] (\i -> do	106	continue <- and <$> forM [1..steps] (\i -> do
107	inputEvents <- gameIO $ pollInputEvents window	107	inputEvents <- gameIO $ pollInputEvents window