diff options
| author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-07 15:07:27 +0200 |
|---|---|---|
| committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-07 15:07:27 +0200 |
| commit | d6b28723a26151d8ac6cb195d4e2135b05fdac5a (patch) | |
| tree | 3b70252d6384a1a4434364095c3b600118872307 /src/Collision.hs | |
| parent | c0d2d54ea1687a80ff76fa032ad4dc89670d2988 (diff) | |
| download | htanks-d6b28723a26151d8ac6cb195d4e2135b05fdac5a.tar htanks-d6b28723a26151d8ac6cb195d4e2135b05fdac5a.zip | |
Use system sleep functions as threadDelay sleep to long without -threaded
Diffstat (limited to 'src/Collision.hs')
| -rw-r--r-- | src/Collision.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Collision.hs b/src/Collision.hs index a69dc10..30ec6e9 100644 --- a/src/Collision.hs +++ b/src/Collision.hs @@ -16,7 +16,7 @@ tankLength :: Micro tankLength = 0.95 bulletDiameter :: Micro -bulletDiameter = 0.1 +bulletDiameter = 0.05 collisionTankBorder :: Micro -> Micro -> Tank -> Tank collisionTankBorder lw lh tank = tank {tankX = newx, tankY = newy} |