Define shape datatype

2021-09-14 01:17:07 +01:00
parent 29f048cfdd
commit 294e01479a
18 changed files with 226 additions and 111 deletions
@@ -8,14 +8,14 @@ import Geometry.Data
 basicBullet :: Ammo
 basicBullet = BulletAmmo
    { _amString = "BULLET"
-    , _amBulEff = destroyOnImpact bulHitCr bulHitWall' bulHitFF'
+    , _amBulEff = destroyOnImpact bulHitCr bulHitWall bulHitFF'
    , _amBulWth = 2
    , _amBulVel = V2 50 0
    }
 ltBullet :: Ammo
 ltBullet = BulletAmmo
    { _amString = "LTBULLET"
-    , _amBulEff = destroyOnImpact bulHitCr bulHitWall' bulHitFF'
+    , _amBulEff = destroyOnImpact bulHitCr bulHitWall bulHitFF'
    , _amBulWth = 2
    , _amBulVel = V2 40 0
    }