neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added bullet/tank collision; reduced tick count

Browse source
This commit is contained in:
Matthias Schiffer 2010-03-18 09:14:32 +01:00
parent a1294859c7
commit 5c34cd6941
5 changed files with 41 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/HTanks.hs
View file

@ -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}