Add test tileset textures

src/Picture/Preload.hs

@@ -22,6 +22,7 @@ data RenderData = RenderData
     , _wallBlankShader          :: FullShader ((Point2,Point2),Point4)
     , _wallTextureShader        :: FullShader ((Point2,Point2),Point4)
     , _backgroundShader         :: FullShader (Point2,Point2,Point2,Point2)
+    , _textureShader            :: FullShader (Point3,Point2)
     , _fullscreenShader         :: FullShader ()
     , _boxBlurShader            :: FullShader ()
     , _grayscaleShader          :: FullShader ()
@@ -85,6 +86,11 @@ preloadRender = do
 -- textured wallShader
     wlTexture <- makeShader "wall/texture" [vert,geom,frag] [(0,4),(1,4)] Points pokeWPColStrat
                 >>= addTexture "data/texture/grayscaleDirt.png"
+
+-- texture shader
+    textShad <- makeShader "texture/simpleWorld" [vert,frag] [(0,3),(1,2)] Triangles poke32
+        >>= addTexture "data/texture/ayene_wooden_floor.png"
+
 -- framebuffer for lighting
     (fbo,fboTO,fboRBO) <- setupFramebufferWithStencil
     framebuf2 <- setupFramebufferWithStencil
@@ -98,6 +104,7 @@ preloadRender = do
         , _lightingWallShader       = wlLightShad
         , _wallBlankShader          = wlBlank
         , _wallTextureShader        = wlTexture
+        , _textureShader            = textShad
         , _backgroundShader         = bgShad
         , _fullscreenShader         = fsShad
         , _boxBlurShader            = boxBlurShad
@@ -209,5 +216,8 @@ pokeWPStrat ((x,y),(z,w)) = [[[x,y,z,w]]]
 pokeWPColStrat :: ((Point2,Point2),Point4) -> [[[Float]]]
 pokeWPColStrat (((x,y),(z,w)),(r,g,b,a)) = [[[x,y,z,w],[r,g,b,a]]]
 
+poke32 :: (Point3,Point2) -> [[[Float]]]
+poke32 ((x,y,z),(a,b)) = [[[x,y,z],[a,b]]]
+
 pokeBGStrat :: a -> [[[Float]]]
 pokeBGStrat = const []