Create post world load function

src/Shader/Compile.hs

@@ -1,5 +1,6 @@
 module Shader.Compile (
     setupVBO,
+    setupVBO',
     makeShader,
     makeShader4,
     makeByteStringShaderUsingVAO,
@@ -80,6 +81,17 @@ setupVBO vertexsize = do
         GL_STREAM_DRAW
     return VBO {_vboName = vboname, _vboPtr = thePtr, _vboVertexSize = vertexsize}
 
+setupVBO' :: Int -> IO VBO
+setupVBO' vertexsize = do
+    vboname <- mglCreate glCreateBuffers
+    thePtr <- mallocArray (vertexsize * numDrawableElements)
+    -- Allocate space
+    glNamedBufferData vboname
+        ( fromIntegral $ floatSize * numDrawableElements * vertexsize)
+            nullPtr
+        GL_STATIC_DRAW
+    return VBO {_vboName = vboname, _vboPtr = thePtr, _vboVertexSize = vertexsize}
+
 makeByteStringShaderUsingVAO ::
     -- | (Arbitrary) name of the shader
     String ->
@@ -269,6 +281,7 @@ checkErrorGL str f g x statustype =
                     char <- peekCString charPtr
                     error $ str ++ show char
 
+-- use glCreateShaderProgramv here
 compileAndCheckShader :: String -> (GLenum, BS.ByteString) -> IO GLuint
 compileAndCheckShader str (theShaderType, sourceCode) = do
     theShader <- glCreateShader theShaderType