-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/


-- | Open OpenGL context windows in X11 with libX11
--   
--   Haskell functions to open and manage a OpenGL window with libX11.
--   
--   This module is intended to be imported qualified, to avoid clashes
--   with Prelude functions, e.g.
--   
--   <pre>
--   import qualified Graphics.UI.GLWindow as Window
--   </pre>
--   
--   As an example, here is a simple module that uses some of these
--   functions to open a OpenGL 3.2 Context:
--   
--   <pre>
--   module Main where
--   
--   import Graphics.Rendering.OpenGL
--   import qualified Graphics.UI.GLWindow as Window
--   
--   myLoop = do clear [ColorBuffer]
--               t &lt;- Window.time
--               clearColor $= Color4 (sin (realToFrac t) * 0.5 + 0.5)
--                                    (sin (realToFrac (t+1)) * 0.5 + 0.5)
--                                    (sin (realToFrac (t+2)) * 0.5 +0.5)
--                                    0
--   
--   main = do Window.init 3 2 -- initializes a OpenGL 3.2 context
--             Window.loop myLoop -- stops when the ESC key is pressed
--             Window.kill -- removes the window when the loop stops
--   </pre>
--   
--   Special thanks to Tiago Farto (aka xernobyl) for coding the initial C
--   version that was used as a base for these functions
@package GLHUI
@version 1.1.0


-- | A simple OpenGL window creator that runs on X.Org with libX11. This
--   module allows the creation of different versions of OpenGL contexts by
--   initializing with the required versions.
--   
--   <i>Note</i>: The Haskell only has bindings up to OpenGL 3.2 This
--   module is intended to be imported qualified, to avoid clashes with
--   Prelude functions, e.g.
--   
--   <pre>
--   import qualified Graphics.UI.GLWindow as Window                            
--   </pre>
--   
--   As an example, here is a simple module that uses some of these
--   functions to open a OpenGL 3.2 Context:
--   
--   <pre>
--   module Main where                                                          
--                                                                              
--   import Graphics.Rendering.OpenGL                                           
--   import qualified Graphics.UI.GLWindow as Window                            
--                                                                              
--   myLoop = do clear [ColorBuffer]                                            
--               t &lt;- Window.time                                               
--               clearColor $= Color4 (sin (realToFrac t) * 0.5 + 0.5)          
--                                    (sin (realToFrac (t+1)) * 0.5 + 0.5)      
--                                    (sin (realToFrac (t+2)) * 0.5 +0.5)       
--                                    0                                              
--                                                                              
--   main = do Window.init 3 2 -- initializes a OpenGL 3.2 context              
--             Window.loop myLoop -- stops when the ESC key is pressed          
--             Window.kill -- removes the window when the loop stops            
--   </pre>
module Graphics.UI.GLWindow
type LoopFunc = IO ()
init :: Integer -> Integer -> IO (Integer)
setFullscreen :: Bool -> IO ()
kill :: IO ()
frame :: IO (Integer)
time :: IO (Double)
dtime :: IO (Double)
width :: IO (Integer)
height :: IO (Integer)
scrWidth :: IO (Integer)
scrHeight :: IO (Integer)
loop :: LoopFunc -> IO ()