From 0714859e5a9f340519f0ae7b7094a0d49f088453 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 9 Aug 2020 22:34:10 +0200 Subject: [PATCH] purged old code --- src/Main.hs | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 1a22c3d..5af4d53 100644 --- a/src/Main.hs +++ b/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