From 750f55fda6007246ed4688d68c944f5a183d248d Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 22 May 2020 02:31:24 +0200 Subject: [PATCH] move clear to renderer --- src/Main.hs | 2 +- src/Renderer.hs | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index 744fd22..ba5be18 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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 diff --git a/src/Renderer.hs b/src/Renderer.hs index c39c829..9e06c17 100644 --- a/src/Renderer.hs +++ b/src/Renderer.hs @@ -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]