Commit before attempting to remove ptDraw field

2022-07-10 10:49:49 +01:00
parent 2a70dcc9a6
commit 8202d12b6a
8 changed files with 59 additions and 28 deletions
@@ -636,6 +636,15 @@ data Particle
        { _ptDraw   :: Particle -> Picture
        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
        }
+    | BlipParticle
+        { _ptDraw   :: Particle -> Picture
+        , _ptColor  :: Color
+        , _ptTimer  :: Int
+        , _ptMaxTime :: Int
+        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
+        , _ptRad    :: Float
+        , _ptPos    :: Point2
+        }
    | RadarCircleParticle
        { _ptDraw   :: Particle -> Picture
        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)