Add tilemap floors to rooms

src/Dodge/Room/Corridor.hs

@@ -1,11 +1,12 @@
 module Dodge.Room.Corridor
     where
 import Dodge.Room.Data
+import Dodge.Default.Room
 import Geometry
 {- | First exit due north, two other exits at angles next to this.
  Entrance from south.  -}
 corridor :: Room
-corridor = Room
+corridor = defaultRoom
     { _rmPolys = [rectNSWE 80 0 0 40
     --{ _rmPolys = [rectNSWE 90 (-10) 0 40
 --                 ,[(0,80), (0,80) +.+ rotateV (pi/3) (40,0),(40,80)]
@@ -25,7 +26,7 @@ corridor = Room
         ]
 {- | Debug drop-in copy of corridor  -}
 corridorDebug :: Room
-corridorDebug = Room
+corridorDebug = defaultRoom
     { _rmPolys = 
         [   rectNSWE 80 0 0 40
         --,   [ (0,0), (0,200) , (200,100)]
@@ -44,7 +45,7 @@ corridorDebug = Room
         ,((20,10)    ,pi)
         ]
 corridorN :: Room
-corridorN = Room
+corridorN = defaultRoom
     { _rmPolys = [rectNSWE 80 0 0 40
                  ]
     , _rmLinks = lnks
@@ -58,7 +59,7 @@ corridorN = Room
           pth = doublePair ((20,70),(20,10))
 
 tEast :: Room
-tEast = Room
+tEast = defaultRoom
     { _rmPolys = [rectNSWE 80 0  (-20) 20
                  ,rectNSWE 80 40 (-40) 40
                  ]
@@ -72,7 +73,7 @@ tEast = Room
                  ,((0,10),pi)
                  ]
 tWest :: Room
-tWest = Room
+tWest = defaultRoom
     { _rmPolys = [rectNSWE 80 0  (-20) 20
                  ,rectNSWE 80 40 (-40) 40
                  ]