From 5c34cd694117421e570b3a6cc3bb813e17e50b33 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Thu, 18 Mar 2010 09:14:32 +0100
Subject: Added bullet/tank collision; reduced tick count

---
 src/HTanks.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/HTanks.hs')

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}
   
-- 
cgit v1.2.3