Improve wall glare

2021-03-24 21:33:15 +01:00
parent 7fd49d9b41
commit baecb8e15a
4 changed files with 26 additions and 32 deletions
@@ -432,15 +432,6 @@ data Particle'
        { _ptDraw :: Particle' -> Picture
        , _ptUpdate' :: World -> Particle' -> (World, Maybe Particle')
        }
-    | GlareLine
-        { _ptDraw       :: Particle' -> Picture
-        , _ptUpdate'    :: World -> Particle' -> (World, Maybe Particle')
-        , _glareTimer   :: Int
-        , _glareLength  :: Float
-        , _glareWidth   :: Float
-        , _glareColor   :: Color
-        , _glareLine    :: (Point2,Point2)
-        }
    | Bul'  { _ptDraw :: Particle' -> Picture
           , _ptUpdate' :: World -> Particle' -> (World, Maybe Particle')
           , _btVel' :: Point2