From 77a81ead3c0f5c25169b3ecafb9ffd247838dbd0 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 19 Dec 2017 22:04:27 +0100 Subject: [PATCH] removing dead code --- src/Main.hs | 9 --------- 1 file changed, 9 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 3992e57..ead72a6 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -71,12 +71,3 @@ draw = do liftIO $ beginFrame (nano ud) 800 600 (800/600) smDraw (state ud) liftIO $ endFrame (nano ud) - -- GL.viewport $= (GL.Position 0 0, GL.Size 800 600) - -- ud <- getAffection - -- GL.currentProgram $= (Just . GLU.program $ program sd) - -- let proj = ortho (-1) 1 (-1) 1 (-1) 1 - -- view = lookAt - -- (V3 0 0 (-1)) - -- (V3 0 0 0) - -- (V3 0 1 0) - -- model = mkTransformation (Quaternion 1 (V3 0 0 0)) (V3 0 0 0)