Tweak start rooms

2021-11-26 14:40:32 +00:00
parent 040849a550
commit b0f89db66e
5 changed files with 19 additions and 17 deletions
@@ -46,7 +46,6 @@ generateLevelFromRoomList gr' w
    . doPartialPlacements
    . doExtendedPlacements
    . doIndividualPlacements
--    . flip (mapAccumR doRoomPlacements) (IM.elems rs')
    . setFloors
    . worldToGenWorld rs'
    $ w { _walls        = wallsFromRooms rs
@@ -207,7 +206,6 @@ gameRoomsFromRooms = fmap gameRoomFromRoom
 gameRoomFromRoom :: Room -> GameRoom
 gameRoomFromRoom rm = GameRoom
    { _grViewpoints = map doshift $ _rmViewpoints rm ++ (map fst . foldl' (flip cutWalls) [] $ _rmPolys rm)
--       ++ map fst (_rmLinks rm)
    , _grViewpointsEx = concatMap unpos (_rmPos rm)
    , _grBound = map doshift $ expandPolyCorners 50 . convexHullSafe . nubBy closePoints 
        . concat $ _rmBound rm ++ _rmPolys rm