Replace buggy circle seg intersection with a simpler test

2024-12-26 21:53:18 +00:00
parent 91ba6ee148
commit 0ef28c132e
29 changed files with 528 additions and 332 deletions
@@ -14,7 +14,6 @@ import Geometry.Data
 data Projectile
    = Shell
        { _prjPos :: Point2
-        , _prjStartPos :: Point2
        , _prjVel :: Point2
        , _prjAcc :: Point2
        , _prjDir :: Float
@@ -24,6 +23,7 @@ data Projectile
        , _prjPayload :: Payload
        , _prjTimer :: Int
        , _prjZ :: Float
+        , _prjZVel :: Float
        , _prjUpdates :: [ProjectileUpdate]
        }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)