Implement texture atlas, details on why it works unclear

src/Dodge/Default/World.hs

@@ -9,6 +9,7 @@ import Dodge.Config.KeyConfig
 import Dodge.Item.Data
 import Picture
 import Geometry
+import Picture.Texture
 
 import System.Random
 import qualified Data.IntMap.Strict as IM
@@ -36,6 +37,17 @@ 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)
+            ]
     , _randGen = mkStdGen 2
     , _mousePos = (0,0)
     , _testString = []