Simplify bullets

2024-12-24 13:59:06 +00:00
parent 15317882e6
commit 37da73bf6d
7 changed files with 70 additions and 70 deletions
@@ -17,13 +17,13 @@ import Geometry.Data
 data Bullet = Bullet
    { _buEffect :: BulletEffect
    , _buPayload :: BulletPayload
-    , _buTrajectory :: BulletTrajectory
+--    , _buTrajectory :: BulletTrajectory
    , _buVel :: Point2
    , _buDrag :: Float
    , _buPos :: Point2
    , _buOldPos :: Point2
    , _buWidth :: Float
-    , _buTimer :: Int
+--    , _buTimer :: Int
    , _buDamages :: [Damage]
    }
    deriving (Show, Eq, Ord, Read) --Generic, Flat)