Commit before connecting each vao to unique vbos

src/Picture/Preload.hs

@@ -116,10 +116,10 @@ preloadRender = do
 
 --the following vbo is set up to contain one fixed vertex
     dummyvbo <- genObjectName
-    dummyptr <- malloc
-    poke dummyptr 0
-    bindBuffer ArrayBuffer$= Just dummyvbo
-    bufferData ArrayBuffer$= (fromIntegral floatSize, dummyptr, StaticDraw)
+    dummyptr <- mallocArray numDrawableElements
+    pokeArray dummyptr [0..2000]
+    bindBuffer ArrayBuffer $= Just dummyvbo
+    bufferData ArrayBuffer $= (fromIntegral floatSize, dummyptr, StaticDraw)
 
 -- load charmap as texture
 --    Right cmap <- readImage "data/texture/smudgedDirt.png"