Add tilemap floors to rooms

src/Dodge/Default/Room.hs

@@ -0,0 +1,13 @@
+module Dodge.Default.Room
+    where
+import Dodge.Room.Data
+
+defaultRoom :: Room
+defaultRoom = Room
+    { _rmPolys = []
+    , _rmLinks = []
+    , _rmPath = []
+    , _rmPS = []
+    , _rmBound = []
+    , _rmFloor = []
+    }

src/Dodge/Default/World.hs

@@ -10,6 +10,8 @@ import Dodge.Item.Data
 import Picture
 import Geometry
 import Picture.Texture
+import Data.Tile
+import Tile
 
 import System.Random
 import qualified Data.IntMap.Strict as IM
@@ -37,17 +39,23 @@ defaultWorld = World
     , _wallsZone = IM.empty
     , _forceFields = IM.empty
     , _floorItems = IM.empty
-    , _floorTiles = 
-        let x = 200
-            y = 0.9
-            z = 16
-            r = 4
-        in tileToRender [(0,0,z),(r,0,z),(r,r,z),(0,r,z)]
-            [(20,100 + 20,y)
-            ,( x,100 + 20,y)
-            ,( x,100 +  x,y)
-            ,(20,100 +  x,y)
-            ]
+    , _floorTiles = tToRender $ Tile
+        { _tilePoly = rectNSWE 200 0 0 200
+        , _tileCenter = (0,0)
+        , _tileX = (100,0)
+        , _tileY = (0,100)
+        , _tileZ = 16
+        } 
+--        let x = 200
+--            y = 0.9
+--            z = 16
+--            r = 8
+--        in tileToRender [(0,0,z),(r,0,z),(r,r,z),(0,r,z)]
+--            [(20,100 + 20,y)
+--            ,( x,100 + 20,y)
+--            ,( x,100 +  x,y)
+--            ,(20,100 +  x,y)
+--            ]
     , _randGen = mkStdGen 2
     , _mousePos = (0,0)
     , _testString = []