Remove ptCrIgnore

2022-07-13 11:26:13 +01:00
parent 6c50021f04
commit cede677560
17 changed files with 42 additions and 58 deletions
@@ -670,21 +670,19 @@ data Particle
        , _btDrag   :: Float
        , _ptColor  :: Color
        , _ptTrail  :: [Point2]
-        , _ptCrIgnore :: Maybe Int
-        , _ptWidth :: Float 
-        , _ptTimer :: Int
+        , _ptWidth  :: Float 
+        , _ptTimer  :: Int
        , _ptHitEff :: HitEffect
        }
    | PtFlame  
        { _ptUpdate :: World -> Particle -> (World, Maybe Particle)
        , _ptVel    :: Point2
        , _ptColor  :: Color
-        , _ptPos :: Point2
-        , _ptCrIgnore :: Maybe Int
-        , _ptWidth :: Float 
-        , _ptTimer :: Int
+        , _ptPos    :: Point2
+        , _ptWidth  :: Float 
+        , _ptTimer  :: Int
        , _ptHitEff :: HitEffect
-        , _ptZ :: Float
+        , _ptZ      :: Float
        , _ptOriginalVel :: Point2
        }
    | PtIncBall  
@@ -692,7 +690,6 @@ data Particle
        , _ptVel    :: Point2
        , _ptColor  :: Color
        , _ptPos :: Point2
-        , _ptCrIgnore :: Maybe Int
        , _ptWidth :: Float 
        , _ptTimer :: Int
        , _ptHitEff :: HitEffect
@@ -704,7 +701,6 @@ data Particle
        , _ptVel    :: Point2
        , _ptColor  :: Color
        , _ptPos :: Point2
-        , _ptCrIgnore :: Maybe Int
        , _ptWidth :: Float 
        , _ptTimer :: Int
        , _ptHitEff :: HitEffect