Creature shadow test

This commit is contained in:
2021-08-28 20:42:20 +01:00
parent f977742f06
commit 55f1d89a5e
6 changed files with 26 additions and 8 deletions
+2 -1
View File
@@ -271,7 +271,8 @@ withTempLight time rad col eff item cr = eff item cr
V2 x y = _crPos cr +.+ 5 *.* unitVectorAtAngle (_crDir cr)
withMuzFlareI :: ChainEffect
withMuzFlareI f it cr w = tempLightForAt 3 pos . muzzleFlashAt pos2 $ f it cr w
withMuzFlareI f it cr w = tempLightForAt 3 pos2 -- . muzzleFlashAt pos2
$ f it cr w
where
pos = _crPos cr +.+ _crRad cr *.* unitVectorAtAngle (_crDir cr)
pos2 = _crPos cr +.+ (2 * _crRad cr) *.* unitVectorAtAngle (_crDir cr)