redraw :: Model -> State -> IO ()
redraw model state = do
  clear [ColorBuffer, DepthBuffer] 
  loadIdentity
  stateView state
  lighting $= Disabled
  orign
  lighting $= Enabled
  model
  flush
  glSwapBuffers
redraw :: Model -> State -> IO ()
redraw model state = do
  clear [ColorBuffer, DepthBuffer] 
  loadIdentity
  stateView state
  lighting $= Disabled
  orign
  lighting $= Enabled
  model
  flush
  glSwapBuffers
redraw model state = do
  clear [ColorBuffer, DepthBuffer] 
  loadIdentity
  stateView state
  lighting $= Disabled
  orign
  lighting $= Enabled
  model
  flush
  glSwapBuffers