Unify and cleanup radars

2022-05-27 11:35:26 +01:00
parent 3234d6b86d
commit 60fc2d44e8
6 changed files with 88 additions and 78 deletions
@@ -605,9 +605,16 @@ data BeamType
 Update themselves, perhaps with side effects.  -}
 data Particle
    = Particle
-        { _ptDraw :: Particle -> Picture
+        { _ptDraw   :: Particle -> Picture
        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
        }
+    | RadarCircleParticle
+        { _ptDraw   :: Particle -> Picture
+        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)
+        , _ptTimer  :: Int
+        , _ptRad    :: Float
+        , _ptPos    :: Point2
+        }
    | LaserParticle
        { _ptDraw   :: Particle -> Picture
        , _ptUpdate :: World -> Particle -> (World, Maybe Particle)