Move debug flags to config, various perf improvements

2021-09-24 13:25:24 +01:00
parent 899cf6ef81
commit 7da1a8bc45
17 changed files with 112 additions and 265 deletions
@@ -281,13 +281,13 @@ collideCircWalls'' p1 p2 rad ws

 -- | Looks for first collision of a point with a list of lines.
 -- If found, gives point and normal of wall.
-collidePointLines :: Point2 -> Point2 -> [Wall'] -> Maybe (Point2,Point2)
-collidePointLines p1 p2 ws 
-    = safeMinimumOn f
-    $ mapMaybe (( \(x,y) -> intersectSegSeg p1 p2 x y <&> ( , vNormal $ x -.- y ) ) 
-        . _wlLine') ws
-  where 
-    f (a,_) = magV (p1 -.- a)
+--collidePointLines :: Point2 -> Point2 -> [Wall'] -> Maybe (Point2,Point2)
+--collidePointLines p1 p2 ws 
+--    = safeMinimumOn f
+--    $ mapMaybe (( \(x,y) -> intersectSegSeg p1 p2 x y <&> ( , vNormal $ x -.- y ) ) 
+--        . _wlLine') ws
+--  where 
+--    f (a,_) = magV (p1 -.- a)

 -- | Looks for first collision of a point with walls.
 -- If found, gives point and normal of wall.