Translate VAOs to DSA

2023-03-09 10:10:57 +00:00
parent 18fa216dff
commit 7b797dfdb4
9 changed files with 61 additions and 32 deletions
@@ -5,8 +5,8 @@ import Foreign.Storable
 import Graphics.GL.Core45


-mglCreateSingle :: (Ptr GLuint -> IO ()) -> IO GLuint
+mglCreateSingle :: (GLsizei -> Ptr GLuint -> IO ()) -> IO GLuint
 mglCreateSingle f = do
    alloca $ \nameptr -> do
-        f nameptr
+        f 1 nameptr
        peek nameptr