Fix bug in intersectCircSeg

This commit is contained in:
2021-12-15 17:47:41 +00:00
parent adab32bf68
commit 9dadea2c36
4 changed files with 7 additions and 8 deletions
+1 -1
View File
@@ -24,7 +24,7 @@ damageWall dt wl = case _wlStructure wl of
wallEff :: DamageType -> Wall -> World -> World
wallEff dt wl = case dt of
Lasering _ sp p _ -> colSpark 8 lSparkCol (outTo sp p) (reflDirWall sp p wl)
Piercing _ sp p _ -> colSpark' 0.2 8 pSparkCol (outTo sp p) (reflDirWall sp p wl)
Piercing _ sp p _ -> colSparkRandDir 0.2 8 pSparkCol (outTo sp p) (reflDirWall sp p wl)
. wlDustAt wl (outTo sp p)
Blunt _ sp p _ -> wlDustAt wl (outTo sp p)
Explosive _ _ -> id