justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Set up vertex attributes using DSA

Browse Source
This commit is contained in:
justin
2023-03-09 14:12:07 +00:00
parent 3e2b51b5e9
commit eab27776cf
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Shader/Compile.hs
+10 -3
View File
@@ -185,10 +185,17 @@ setupVertexAttribPointer ::
Int -> Int ->
IO () IO ()
setupVertexAttribPointer vao vbo loc siz strd off = do setupVertexAttribPointer vao vbo loc siz strd off = do
vertexAttribPointer (AttribLocation (fi loc)) -- vertexAttribPointer (AttribLocation (fi loc))
$= (ToFloat, VertexArrayDescriptor (fi' siz) Float (fi'' $ floatSize * strd) (bufferOffset off)) -- $= (ToFloat, VertexArrayDescriptor (fi' siz) Float (fi'' $ floatSize * strd) (bufferOffset off))
vertexAttribArray (AttribLocation (fi loc)) $= Enabled -- vertexAttribArray (AttribLocation (fi loc)) $= Enabled
glVertexArrayVertexBuffer vao 0 vbo 0 (fromIntegral $ floatSize * strd)
glEnableVertexArrayAttrib vao loc'
glVertexArrayAttribFormat vao loc' siz' GL_FLOAT GL_FALSE (fromIntegral $ floatSize * off)
glVertexArrayAttribBinding vao loc' 0
where where
loc' = fi loc
siz' = fi' siz
off' = fi'' off
fi = fromIntegral fi = fromIntegral
fi' = fromIntegral fi' = fromIntegral
fi'' = fromIntegral fi'' = fromIntegral