Cleanup particles slightly

2021-09-03 17:26:21 +01:00
parent 111b86d2df
commit fd85093833
10 changed files with 64 additions and 95 deletions
@@ -363,7 +363,7 @@ data Particle
        , _ptTimer :: Int
        , _ptColor :: Color
        }
-    | Bul'  
+    | BulletPt  
        { _ptDraw :: Particle -> Picture
        , _ptUpdate' :: World -> Particle -> (World, Maybe Particle)
        , _btVel' :: Point2
@@ -386,17 +386,6 @@ data Particle
        , _btHitEffect' :: HitEffect
        , _ptZ :: Float
        }
-    | Pt'  
-        { _ptDraw :: Particle -> Picture
-        , _ptUpdate' :: World -> Particle -> (World, Maybe Particle)
-        , _btVel' :: Point2
-        , _btColor' :: Color
-        , _btPos' :: Point2
-        , _btPassThrough' :: Maybe Int
-        , _btWidth' :: Float 
-        , _btTimer' :: Int
-        , _btHitEffect' :: HitEffect
-        }
    | Shockwave' 
        { _ptDraw       :: Particle -> Picture
        , _ptUpdate'    :: World -> Particle -> (World, Maybe Particle)