Reduce rendertype down to vertex information

src/Shader/AuxAddition.hs

@@ -1,6 +1,7 @@
 module Shader.AuxAddition
     ( addTexture
     , addTextureNoFilter
+    , vaddTextureNoFilter
     , addTextureArray
     , addUniforms
     ) where
@@ -34,6 +35,21 @@ addTexture texturePath shad = do
     generateMipmap' Texture2D
     return $ shad & shaderTexture ?~ ShaderTexture {_textureObject = textureOb}
 
+vaddTextureNoFilter :: String -> VShader -> IO VShader
+vaddTextureNoFilter texturePath shad = do
+    Right cmap <- readImage texturePath
+    let tex = convertRGBA8 cmap
+    textureOb <- genObjectName
+    textureBinding Texture2D $= Just textureOb
+    textureFilter Texture2D $= ((Nearest,Nothing) , Nearest)
+    let texData = V.toList $ imageData tex
+        wtex = fromIntegral $ imageWidth  tex
+        htex = fromIntegral $ imageHeight tex
+    glTexStorage2D GL_TEXTURE_2D 1 GL_RGBA8 wtex htex
+    withArray texData $ \ptr -> do
+        glTexSubImage2D GL_TEXTURE_2D 0 0 0 wtex htex GL_RGBA GL_UNSIGNED_BYTE ptr
+    return $ shad & vshaderTexture ?~ ShaderTexture {_textureObject = textureOb}
+
 addTextureNoFilter :: String -> FullShader -> IO FullShader
 addTextureNoFilter texturePath shad = do
     Right cmap <- readImage texturePath