Add random floor tiles to floors

src/Dodge/Room/Corridor.hs

@@ -3,21 +3,20 @@ module Dodge.Room.Corridor
 import Dodge.Room.Data
 import Dodge.Default.Room
 import Geometry
+import Tile
 {- | First exit due north, two other exits at angles next to this.
  Entrance from south.  -}
 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)]
---                 ,[(40,0), (0,0) +.+ rotateV (0-pi/3) (40,0),( 0, 0)]
-                 ]
+    { _rmPolys = [poly]
     , _rmLinks = lnks
     , _rmPath  = concatMap (doublePair . (,) (20,60) . fst) lnks
     , _rmPS    = []
     , _rmBound = [ rectNSWE 50 30 0 40 ]
+    , _rmFloor = [oTile poly 2]  
     }
   where 
+    poly = rectNSWE 80 0 0 40
     lnks = 
         [((20,70)  ,0)
         ,((20,70), pi/6)