Add random floor tiles to floors

src/Dodge/Layout.hs

@@ -9,6 +9,7 @@ import Dodge.Base
 import Dodge.Graph
 import Dodge.Layout.Tree.Polymorphic (applyToRoot)
 import Dodge.Room.Data
+import Dodge.Room.AddTile
 import Dodge.Default.Wall
 import Geometry
 import Dodge.Room.Link
@@ -36,7 +37,9 @@ generateLevelFromRoomList gr w = updateWallZoning
         }
   where
     plmnts = concatMap _rmPS rs
-    rs = evalState gr $ _randGen w
+    rs = zipWith addTile zs rs'
+    zs = map fromIntegral $ randomRs (0,(63::Int)) $ _randGen w
+    rs' = evalState gr $ _randGen w
 
 -- | connects a collection (tree) of rooms together
 generateFromTree :: State StdGen (Tree Room) -> World -> World