diff options
Diffstat (limited to 'src/HTanks.hs')
-rw-r--r-- | src/HTanks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HTanks.hs b/src/HTanks.hs index 15c3ed6..63e647d 100644 --- a/src/HTanks.hs +++ b/src/HTanks.hs @@ -61,11 +61,11 @@ mainLoop = do liftIO $ threadDelay $ truncate $ 1e6*(minFrameTime - drender) currenttime <- liftIO getCurrentTime - let d = round $ 1e3*(diffUTCTime currenttime t) + let d = round $ 1e2*(diffUTCTime currenttime t) replicateM_ d simulationStep - let newtime = addUTCTime ((1e-3)*(fromIntegral d)) t + let newtime = addUTCTime ((1e-2)*(fromIntegral d)) t modify $ \state -> state {time = newtime} |