summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Collision.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Collision.hs b/src/Collision.hs
index 909e7f7..6ce2df7 100644
--- a/src/Collision.hs
+++ b/src/Collision.hs
@@ -56,10 +56,10 @@ collisionBulletTank (b, b') (tank, tank') = (not ((between bx minx maxx) && (bet
V.Vector bx by = (rotp tank) . (transp tank) $ bulletPos b
V.Vector bx' by' = (rotp tank') . (transp tank') $ bulletPos b'
- minx = -tankLength/2
- maxx = tankLength/2
- miny = -tankWidth/2
- maxy = tankWidth/2
+ minx = -(tankLength+bulletDiameter)/2
+ maxx = (tankLength+bulletDiameter)/2
+ miny = -(tankWidth+bulletDiameter)/2
+ maxy = (tankWidth+bulletDiameter)/2
collisionTankTank :: ((Tank, Tank), (Tank, Tank)) -> ((Tank, Tank), (Tank, Tank))
collisionTankTank ((t1, t1'), (t2, t2')) = ((t1, t1'), (t2, t2'))