Allow for rooms to inherit floor tiling from parents

2021-11-26 13:57:22 +00:00
parent 123bcd2c94
commit 040849a550
9 changed files with 75 additions and 29 deletions
@@ -23,7 +23,9 @@ type RoomInt = (Room,Int)

 positionRoomsFromTree :: Tree RoomInt -> IO (Maybe [RoomInt])
 positionRoomsFromTree (Node (r,i) ts) = printHeader 
-    >> posRms (map pointsToPoly $ _rmBound r) (r,i) (zipCount ts) Empty
+    >> posRms (map pointsToPoly $ _rmBound r') (r',i) (zipCount ts) Empty
+  where
+    r' = r & rmMID ?~ 0

 posRms :: [ConvexPoly]
    -> RoomInt