Play with floor textures

src/Data/Preload/Render.hs

@@ -28,7 +28,7 @@ data RenderData = RenderData
     , _wallBlankShader :: FullShader
     , _windowShader :: FullShader
     , _wallTextureShader :: FullShader
-    , _textureArrayShader :: (FullShader,VBO)
+--    , _textureArrayShader :: (FullShader,VBO)
     , _fullscreenShader :: (FullShader,VBO)
     , _bloomBlurShader :: FullShader
     , _colorBlurShader :: FullShader
@@ -59,6 +59,7 @@ data RenderData = RenderData
     , _floorVBO :: VBO
     , _floorShader :: FullShader
     , _toNormalMaps :: TO
+    , _toDiffuse :: TO
     }
 
 makeLenses ''RenderData

src/Data/Tile.hs

@@ -18,7 +18,7 @@ data Tile = Tile
         -- ^ world position one along in the X direction, note this also set the scale of the
         -- texture
         -- this has to be a position because it is shifted
-    , _tileZ    :: Float
+    , _tileArrayZ    :: Float
     }
   deriving (Eq, Ord, Show)
 makeLenses ''Floor