import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT  as GLUT

import Cube

main = do 
  (progName,_) <-  getArgsAndInitialize
  createWindow progName
  displayCallback $= display
  mainLoop

display = do
  clear [ColorBuffer]
  rotate 40 (Vector3 1 1 (1::GLfloat)) 
  cube 0.5
  loadIdentity
  flush