Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import qualified Graphics.UI.GLFW as G
- import qualified Control.Concurrent as C
- import Graphics.Rendering.OpenGL
- main :: IO ()
- main = do
- i <- G.init
- w <- G.createWindow 640 480 "HGL" Nothing Nothing
- case w of
- (Just win) -> do
- G.makeContextCurrent w
- clear [ColorBuffer]
- C.threadDelay 7000000
- G.destroyWindow win
- Nothing -> return ()
- G.terminate
- return ()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement