nek0/renderer-tutorial
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

move clear to renderer

Browse source
This commit is contained in:
nek0 2020-05-22 02:31:24 +02:00
parent 4a499165c4
commit 750f55fda6
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -168,7 +168,7 @@ main = do
-- GL.clearColor $= clearcol
-- clear buffers before drawing
GL.clear [GL.ColorBuffer]
-- GL.clear [GL.ColorBuffer]
-- -- rebind everything neccessary for draw call
-- bind vao

4
src/Renderer.hs
View file

@ -15,7 +15,11 @@ import Shader
draw :: VertexArray -> (IndexBuffer a) -> Shader -> IO ()
draw va ib sp = do
clear
bind sp
bind va
bind ib
GL.drawElements GL.Triangles (iBufCount ib) GL.UnsignedInt nullPtr
clear :: IO ()
clear = GL.clear [GL.ColorBuffer]