nek0/haskelloids
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

removing dead code

Browse source
This commit is contained in:
nek0 2017-12-19 22:04:27 +01:00
parent a43f9699d6
commit 77a81ead3c
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Main.hs
View file

@ -71,12 +71,3 @@ draw = do
liftIO $ beginFrame (nano ud) 800 600 (800/600) liftIO $ beginFrame (nano ud) 800 600 (800/600)
smDraw (state ud) smDraw (state ud)
liftIO $ endFrame (nano 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)