Remove RenderType datatype

src/Dodge/Render.hs

@@ -12,11 +12,10 @@ import Dodge.Base.Window
 import Dodge.Render.Picture
 --import Dodge.Render.PerspectiveMatrix
 import Geometry
-import Geometry.Data
+--import Geometry.Data
 --import Picture
 import Render
 import Data.Preload.Render
-import Picture.Data
 import Shader
 import Shader.Poke
 import Shader.Data
@@ -90,7 +89,7 @@ doDrawing pdata w = do
     let shads = _pictureShaders pdata
     renderLayer 0 shads vnums
 
-    nTextArrayVs <- pokePoint33s (shadVBOptr $ _textureArrayShader pdata) (map _unRender3x3 $ _floorTiles w)
+    nTextArrayVs <- pokePoint33s (shadVBOptr $ _textureArrayShader pdata) (_floorTiles w)
     bindShaderBuffers [_textureArrayShader pdata] [nTextArrayVs]
     drawShader (_textureArrayShader pdata) nTextArrayVs