Add tilemap floors to rooms

src/Data/Tile.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Data.Tile
+    where
+import Geometry.Data
+
+import Control.Lens
+data Tile = Tile
+    { _tilePoly :: [Point2]
+    , _tileCenter :: Point2
+    , _tileX :: Point2
+    , _tileY :: Point2
+    , _tileZ :: Float
+    }
+makeLenses ''Tile