Add dust on bullet wall hit

2021-09-13 12:23:51 +01:00
parent b27c174d93
commit 29f048cfdd
15 changed files with 93 additions and 68 deletions
@@ -85,7 +85,7 @@ flashFlareAt col alphax (V2 x y) = Particle
    }

 explosionFlashAt :: Point2 -> World -> World
-explosionFlashAt p =  over tempLightSources ((:) $ tLightFade 20 150 intensityFunc p)
+explosionFlashAt p =  over tempLightSources ((:) $ tLightTimedIntensity 20 150 intensityFunc p)
  where 
    intensityFunc x 
        | x < 10 = 1 / (10 - fromIntegral x)