diff --git a/src/Main.hs b/src/Main.hs index ba5be18..d7781ba 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -167,28 +167,16 @@ 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 - incrementValue <- takeMVar increment redValue <- takeMVar red let newRed = redValue + incrementValue -- write data to the uniform + bind sp setUniform sp "u_color" (GL.Color4 newRed 0.5 0 1 :: GL.Color4 GL.GLfloat) -- the actual drawing happens here draw vao ibo sp - -- GL.drawElements GL.Triangles 6 GL.UnsignedInt nullPtr err <- get GL.errors when (not $ null err) (print $ "loop errors: " <> show err) @@ -201,8 +189,6 @@ main = do else putMVar increment incrementValue - -- make GL finish things up - -- GL.flush -- draw context on screen SDL.glSwapWindow window