diff --git a/src/Main.hs b/src/Main.hs index 21ce711..9694b0d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -170,17 +170,8 @@ main = do -- <*> pure 1 -- GL.clearColor $= clearcol - -- clear buffers before drawing - -- GL.clear [GL.ColorBuffer] - -- -- rebind everything neccessary for draw call - -- bind vao - -- -- (note the missing bindings to the vertex buffer and the attrib pointer) - -- bind ibo - -- bind sp - - -- throw away previous errors - -- void $ get GL.errors + bind sp incrementValue <- takeMVar increment redValue <- takeMVar red @@ -205,7 +196,7 @@ main = do putMVar increment incrementValue -- make GL finish things up - -- GL.flush + GL.flush -- draw context on screen SDL.glSwapWindow window