purged old code

This commit is contained in:
nek0 2020-08-09 22:34:10 +02:00
parent 51718c2c66
commit 0714859e5a

View file

@ -189,10 +189,6 @@ main = do
-- -- rebind everything neccessary for draw call
bind sp
incrementValue <- takeMVar increment
redValue <- takeMVar red
let newRed = redValue + incrementValue
-- retrieve matrices from MVars and modify them on demand
moveQuad proj view model evs
mproj <- readMVar proj
@ -206,15 +202,6 @@ main = do
err <- get GL.errors
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
GL.flush
-- draw context on screen