Remove RenderType datatype

src/Tile.hs

@@ -2,11 +2,10 @@ module Tile
     where
 import Data.Tile
 import Geometry
-import Geometry.Data
-import Picture.Data
+--import Geometry.Data
 
-tToRender :: Tile -> [RenderType]
-tToRender t = map Render3x3 $ polyToTris $ zip ps3 coords3
+tToRender :: Tile -> [(Point3,Point3)]
+tToRender t = polyToTris $ zip ps3 coords3
   where
     ps = _tilePoly t
     coords = map (calcTexCoord (_tileCenter t) (_tileX t) (_tileY t)) ps