Remove wall corner collision test for creatures

src/Dodge/Base.hs

@@ -217,8 +217,8 @@ overlapCircWallsReturnWall p rad
 -- | Looks for any collision of a circle with walls.
 -- If found, gives point and reflection velocity, reflection damped in normal.
 -- note that in this version the circle can overlap the wall
-collidePointAnyWalls :: Point2 -> Point2 -> IM.IntMap Wall -> Maybe (Point2,Point2)
-collidePointAnyWalls p1 p2 
+collidePointAnyWallsReflect :: Point2 -> Point2 -> IM.IntMap Wall -> Maybe (Point2,Point2)
+collidePointAnyWallsReflect p1 p2 
     = getFirst
     . foldMap (First . findPoint . _wlLine)
   where 
@@ -226,6 +226,15 @@ collidePointAnyWalls p1 p2
         Just ip -> Just (ip +.+ normalizeV (vNormal (x -.- y)), reflectInParam 0.5 (x -.- y) (p2 -.- p1))
         Nothing -> Nothing
 
+-- | Looks for collision of a point with walls.
+-- If found, gives collision point
+-- If not found, returns point
+collidePointWalls :: Point2 -> Point2 -> IM.IntMap Wall -> Point2
+collidePointWalls p1 p2 
+    = foldr findPoint p2 . fmap _wlLine
+  where
+    findPoint (x,y) p = fromMaybe p $ intersectSegSeg p1 p x y
+
 -- | Looks for first collision of a circle with walls.
 -- If found, gives point and reflection velocity, reflection damped in normal.
 -- note that the "intersection" point is the center of the circle flush against the wall