import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import Data.IORef
 
import Display
 
main = do
  (progname,_) <- getArgsAndInitialize
  initialDisplayMode $= [DoubleBuffered]
  createWindow "Hello World"
  accele <- newIORef (Vector3 (0.0::GLfloat) (-0.0000001) 0.0)
  velocity <- newIORef (Vector3 (-0.0001::GLfloat) 0.0  0.0)
  oposition <- newIORef  (Vector3 (0.9::GLfloat) 0.0  0.0)
  idleCallback $= Just (idle oposition velocity accele )
  displayCallback $= (display position oposition velocity accele)
  mainLoop