Remove ssaTri, bullet movement is broken

2021-12-15 17:34:20 +00:00
parent dccacd9d22
commit adab32bf68
13 changed files with 74 additions and 213 deletions
@@ -463,7 +463,7 @@ data Particle
    | BulletPt  
        { _ptDraw   :: Particle -> Picture
        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
-        , _btVel'   :: Point2
+        , _ptVel    :: Point2
        , _btDrag   :: Float
        , _btColor' :: Color
        , _btTrail' :: [Point2]
@@ -475,7 +475,7 @@ data Particle
    | PtZ  
        { _ptDraw :: Particle -> Picture
        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
-        , _btVel' :: Point2
+        , _ptVel    :: Point2
        , _btColor' :: Color
        , _btPos' :: Point2
        , _btPassThrough' :: Maybe Int