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
@@ -1,4 +1,5 @@
 module Dodge.Room.Room where
+import Data.Tile
 import Dodge.Data
 import Dodge.PlacementSpot
 import Dodge.RoomLink
@@ -206,7 +207,7 @@ roomOctogon = defaultRoom
    , _rmPath  = allPairs $ map fst lnks -- this is too much
    , _rmPmnts = []
    , _rmBound = [map toV2 [(-20,30),(20,30),(60,70),(60,110),(20,150),(-20,150),(-60,110),(-60,70)] ]
-    , _rmFloor = [makeTileFromPoly poly 7]
+    , _rmFloor = Tiled [makeTileFromPoly poly 7]
    }
  where 
    poly = map toV2 [(-20,40),(20,40),(50,70),(50,110),(20,140),(-20,140),(-50,110),(-50,70)]
@@ -228,7 +229,7 @@ roomNgon n x = defaultRoom
    , _rmPath  = [] -- TODO
    , _rmPmnts = []
    , _rmBound = [poly]
-    , _rmFloor = [makeTileFromPoly poly 9]
+    , _rmFloor = Tiled [makeTileFromPoly poly 9]
    , _rmName = show n ++ "gon"
    }
  where