Add missing dependencies, fix arc rendering

2021-08-28 16:22:21 +01:00
parent 4e97a1998c
commit c36654520d
9 changed files with 77 additions and 15 deletions
@@ -86,7 +86,6 @@ flashFlareAt col alphax (V2 x y) = Particle

 explosionFlashAt :: Point2 -> World -> World
 explosionFlashAt p =  over tempLightSources ((:) $ tLightFade 20 150 intensityFunc p)
-    . glareAt 20 10 5 (withAlpha 0.3 white) 75 150 p
  where 
    intensityFunc x 
        | x < 10 = 1 / (10 - fromIntegral x)