Fix bug determining max radius of convex polys, fixes bugs in room positioning

2022-03-21 07:43:27 +00:00
parent 2a5b6d3597
commit d6285c45b3
12 changed files with 80 additions and 32 deletions
@@ -27,7 +27,7 @@ pointsToPoly :: [Point2] -> ConvexPoly
 pointsToPoly xs = ConvexPoly
    { _cpPoints = xs
    , _cpCen    = cen
-    , _cpRad    = minimum $ map (dist cen) xs
+    , _cpRad    = maximum $ map (dist cen) xs
    }
  where
    cen = centroid xs