Commit before placement refactor

2021-09-28 14:55:22 +01:00
parent 751000636e
commit b8af2ce9d8
16 changed files with 134 additions and 331 deletions
@@ -137,7 +137,7 @@ gameRoomsFromRooms :: [Room] -> [GameRoom]
 gameRoomsFromRooms = map f
  where
    f rm = GameRoom
-        { _grViewpoints = (map fst . foldl' (flip cutWalls) [] $ _rmPolys rm)
+        { _grViewpoints = map fst . foldl' (flip cutWalls) [] $ _rmPolys rm
        , _grViewpointsEx = map fst (_rmLinks rm)
        , _grBound = expandPolyByFixed 100 $ orderPolygon $ convexHullSafe $ concat $ _rmBound rm ++ _rmPolys rm
        , _grDir   = snd . last $ _rmLinks rm