Get shape shader working using vertex pulling

Seems slow, will try to improve

src/Preload/Render.hs

@@ -82,14 +82,12 @@ preloadRender = do
     shEBO <- setupEBO shPosVAO
     -- note the shape shader vao is distinct from the position vao, but they
     -- share an EBO
+--    shapeshader <- makeShaderUsingVBO "shape/basic" [vert, frag] shapeVerxAttributes
+--            pmTriangles
+--            shVBO
+--    glVertexArrayElementBuffer (shapeshader ^. shaderVAO . vaoName) (shEBO ^. uiboName)
     shapeshader <-
-        makeShaderUsingVBO
-            "shape/basic"
-            [vert, frag]
-            shapeVerxAttributes
-            pmTriangles
-            shVBO
-    glVertexArrayElementBuffer (shapeshader ^. shaderVAO . vaoName) (shEBO ^. uiboName)
+         makeShaderUsingVAO "shape/basic" [vert, frag] pmTriangles (VAO dummyvao)
 
     putStrLn "Setup wall/windows VBO, VAO, EBO, shader"
 --    winvbo <- setupVBO (floatSize * 8)