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,6 +1,6 @@
 {-# LANGUAGE TupleSections #-}
-module Dodge.Room.Corridor
-    where
+module Dodge.Room.Corridor where
+import Data.Tile
 import Dodge.LevelGen.Data
 import Dodge.RoomLink
 --import Dodge.Room.Foreground
@@ -22,7 +22,7 @@ corridor = defaultRoom
    , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
    , _rmPmnts = [ spanLightI (V2 0 40) (V2 40 40) ]
    , _rmBound = [ rectNSWE 50 30 0 40 ]
-    , _rmFloor = [makeTileFromPoly poly 2]  
+    , _rmFloor = Tiled [makeTileFromPoly poly 2]  
    , _rmRandPSs = [psRandRanges (10,30) (30,60) (0,2*pi)]
    , _rmName = "Corridor"
    }