Implement teleporting bullets

2022-02-21 20:51:01 +00:00
parent 724ee21afc
commit f626fce105
23 changed files with 245 additions and 154 deletions
@@ -23,7 +23,7 @@ import qualified FoldlHelp as L

 hasLOS :: Point2 -> Point2 -> World -> Bool
 {-# INLINE hasLOS #-}
-hasLOS p1 p2 w = not $ pointHitsWalls p1 p2 $ wallsAlongLine p1 p2 w
+hasLOS p1 p2 = not . pointHitsWalls p1 p2 . wallsAlongLine p1 p2

 --hitPointLines
 --    :: Point2