Improve wall glare

2021-03-24 21:33:15 +01:00
parent 7fd49d9b41
commit baecb8e15a
4 changed files with 26 additions and 32 deletions
@@ -1067,7 +1067,7 @@ moveRemoteBomb itid time pID w
        updatePicture = set (projectiles . ix pID.ptPict)
                            (onLayer PtLayer $ uncurry translate newPos 
                                $ remoteBombPic time)
-                        . lowLightDirected red 0.1 newPos 
+                        . lowLightDirected (withAlpha 0.1 red) newPos 
                                         (50 *.* unitVectorAtAngle (negate $ degToRad (10 * fromIntegral time)))
                                         [-0.2,-0.15,-0.1,-0.05,0,0.05,0.1,0.15,0.2]