Commit 531878b379ba83a753dc2974b912f2bd291b0be8

Full screen support. @altparty
Main.hs
(2 / 1)
  
22
33import Graphics.GPipe
44import Graphics.GPipe.Texture.Load
5import Graphics.UI.GLUT (Window, mainLoop, postRedisplay, idleCallback, getArgsAndInitialize, ($=))
5import Graphics.UI.GLUT (Window, mainLoop, postRedisplay, idleCallback, getArgsAndInitialize, fullScreen, ($=))
66import Data.IORef
77import Control.Monad.State
88import Textures
3131 (1280:.720:.())
3232 (paskanJohdatin env readyScenes)
3333 initWindow
34 fullScreen
3435 putStrLn "Entering mainloop..."
3536 mainLoop
3637