Cleanup

2022-07-11 10:26:33 +01:00
parent 75d597f774
commit 3447b9b0bb
15 changed files with 28 additions and 28 deletions
@@ -18,7 +18,7 @@ import Data.Tuple
 reflectLaserAlong :: Float -> Point2 -> Point2 -> World 
    -> (Maybe (Point2,Either Creature Wall),[Point2])
 {-# INLINE reflectLaserAlong #-}
-reflectLaserAlong phasev sp ep w = case thingHitFilt (const True) _wlDraw sp ep w of
+reflectLaserAlong phasev sp ep w = case thingHitFilt (const True) _wlUnshadowed sp ep w of
    Just (p,Right wl) 
        | _wlReflect wl -> second (p:) $ reflectLaserAlong phasev 
            (p +.+ unitVectorAtAngle (reflDirWall sp p wl))