purged old code

src/Main.hs

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