{-# OPTIONS -fglasgow-exts -fffi #-}

import Graphics.UI.GLUT
import Graphics.Rendering.OpenGL hiding (Double)

dc = do set [clearColor $= Color4 0 0 1 0]
        clear [ColorBuffer,DepthBuffer]
        --flush
        --finish
        putStrLn "begin swapBuffers"
        swapBuffers
        putStrLn "end swapBuffers"
        return ()


main = do getArgsAndInitialize
          set [initialDisplayMode $= [Double,Depth]]
          b <- get displayModePossible
          putStrLn $ "displayModePossible? ..." ++ show b
          w <- createWindow "main"
          set [displayCallback $= dc]
          mainLoop