Add more debug info for selected creatures

2023-04-30 13:55:54 +01:00
parent 5b1212e4f6
commit 08e71e5451
17 changed files with 116 additions and 50 deletions
@@ -104,7 +104,8 @@ crsHitRadial :: Point2 -> Float -> World -> [(Point2, Creature)]
 crsHitRadial p r = mapMaybe f . crsNearCirc p r
  where
    f cr
-        | dist cpos p <= r = Just (cpos +.+ r *.* normalizeV (p -.- cpos), cr)
+        | dist hitpos p <= r = Just (hitpos, cr)
        | otherwise = Nothing
      where
+        hitpos = cpos +.+ r *.* normalizeV (p -.- cpos)
        cpos = _crPos cr