Add random floor tiles to floors

src/Dodge/Room.hs

@@ -34,6 +34,7 @@ import Dodge.Room.Airlock
 import Dodge.Room.LongDoor
 import Geometry
 import Picture
+import Tile
 
 import Control.Lens
 import Control.Monad.State
@@ -214,14 +215,15 @@ roomCenterPillar = changeLinkTo ((\p -> dist p (120,0) < 10) . fst)
 
 roomOctogon :: Room
 roomOctogon = defaultRoom
-    { _rmPolys = [[(-20,40),(20,40),(50,70),(50,110),(20,140),(-20,140),(-50,110),(-50,70)]
-                 ]
+    { _rmPolys = [poly ]
     , _rmLinks = lnks
     , _rmPath  = allPairs $ map fst lnks
     , _rmPS    = []
     , _rmBound = [[(-20,30),(20,30),(60,70),(60,110),(20,150),(-20,150),(-60,110),(-60,70)] ]
+    , _rmFloor = [oTile poly 7]
     }
   where 
+    poly = [(-20,40),(20,40),(50,70),(50,110),(20,140),(-20,140),(-50,110),(-50,70)]
     lnks = 
         [((0,140),0)
         ,((35,125),0-pi/4)