hunt errors
This commit is contained in:
parent
c55cb22ee2
commit
3dab16259e
1 changed files with 2 additions and 11 deletions
13
src/Main.hs
13
src/Main.hs
|
@ -170,17 +170,8 @@ main = do
|
||||||
-- <*> pure 1
|
-- <*> pure 1
|
||||||
-- GL.clearColor $= clearcol
|
-- GL.clearColor $= clearcol
|
||||||
|
|
||||||
-- clear buffers before drawing
|
|
||||||
-- GL.clear [GL.ColorBuffer]
|
|
||||||
|
|
||||||
-- -- rebind everything neccessary for draw call
|
-- -- rebind everything neccessary for draw call
|
||||||
-- bind vao
|
bind sp
|
||||||
-- -- (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
|
incrementValue <- takeMVar increment
|
||||||
redValue <- takeMVar red
|
redValue <- takeMVar red
|
||||||
|
@ -205,7 +196,7 @@ main = do
|
||||||
putMVar increment incrementValue
|
putMVar increment incrementValue
|
||||||
|
|
||||||
-- make GL finish things up
|
-- make GL finish things up
|
||||||
-- GL.flush
|
GL.flush
|
||||||
-- draw context on screen
|
-- draw context on screen
|
||||||
SDL.glSwapWindow window
|
SDL.glSwapWindow window
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue