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

remove next lesson's code

Browse source
This commit is contained in:
nek0 2020-05-17 13:04:30 +02:00
parent 38a7c098dd
commit 2ad52f5ba2
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Main.hs
View file

@ -135,8 +135,6 @@ main = do
sp <- createShaderProgram vertSrc fragSrc sp <- createShaderProgram vertSrc fragSrc
GL.currentProgram $= Just sp GL.currentProgram $= Just sp
err <- get GL.errors
print $ "pre-loop errors: " <> show err
-- -- EVENTING AND DRAWING -- -- EVENTING AND DRAWING
@ -161,10 +159,7 @@ main = do
GL.clear [GL.ColorBuffer] GL.clear [GL.ColorBuffer]
-- the actual drawing happens here -- the actual drawing happens here
void $ get GL.errors
GL.drawElements GL.Triangles 6 GL.UnsignedInt nullPtr GL.drawElements GL.Triangles 6 GL.UnsignedInt nullPtr
err <- get GL.errors
when (not $ null err) (print $ "loop errors: " <> show err)
-- make GL finish things up -- make GL finish things up
-- GL.flush -- GL.flush