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

purged old code

Browse source
This commit is contained in:
nek0 2020-08-09 22:34:10 +02:00
parent 51718c2c66
commit 0714859e5a
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/Main.hs
View file

@ -189,10 +189,6 @@ main = do
-- -- rebind everything neccessary for draw call -- -- rebind everything neccessary for draw call
bind sp bind sp
incrementValue <- takeMVar increment
redValue <- takeMVar red
let newRed = redValue + incrementValue
-- retrieve matrices from MVars and modify them on demand -- retrieve matrices from MVars and modify them on demand
moveQuad proj view model evs moveQuad proj view model evs
mproj <- readMVar proj mproj <- readMVar proj
@ -206,15 +202,6 @@ main = do
err <- get GL.errors err <- get GL.errors
when (not $ null err) (print $ "loop errors: " <> show err) when (not $ null err) (print $ "loop errors: " <> show err)
-- update MVAr values
putMVar red newRed
-- cycle the increment for red if neccessary
if (newRed + incrementValue > 1 || newRed + incrementValue < 0)
then
putMVar increment (-incrementValue)
else
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