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 -- -- 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