Add tilemap floors to rooms

src/Dodge/Room.hs

@@ -6,6 +6,7 @@ module Dodge.Room
     , module Dodge.Room.Corridor
     ) where
 import Dodge.Data
+import Dodge.Default.Room
 import Dodge.Item.Weapon
 import Dodge.Item.Weapon.AutoGun
 import Dodge.Item.Weapon.Launcher
@@ -43,7 +44,7 @@ import Data.Tree
 --import qualified Data.IntMap.Strict as IM
 
 roomC :: Float -> Float -> Room
-roomC x y = Room
+roomC x y = defaultRoom
     { _rmPolys = [rectNSWE y 0 0 x]
     , _rmLinks = lnks
     , _rmPath  = []
@@ -59,7 +60,7 @@ roomC x y = Room
         ]
 
 roomPadCut :: [Point2] -> Point2 -> Room
-roomPadCut ps p = Room
+roomPadCut ps p = defaultRoom
     { _rmPolys = [ps]
     , _rmLinks = [(p,0),((0,0),pi)]
     , _rmPath  = [((0,0),p)]
@@ -212,7 +213,7 @@ roomCenterPillar = changeLinkTo ((\p -> dist p (120,0) < 10) . fst)
         ]
 
 roomOctogon :: Room
-roomOctogon = Room
+roomOctogon = defaultRoom
     { _rmPolys = [[(-20,40),(20,40),(50,70),(50,110),(20,140),(-20,140),(-50,110),(-50,70)]
                  ]
     , _rmLinks = lnks
@@ -338,7 +339,7 @@ critInDeadEnd :: Room
 critInDeadEnd = set rmPS [sPS (0,0) 0 randC1] deadEndRoom
 
 deadEndRoom :: Room
-deadEndRoom = Room
+deadEndRoom = defaultRoom
     { _rmPolys = [rectNSWE 40 (-20) (-20) 20
                  ]
     , _rmLinks = lnks