initializeGlutCallbacks :: BufferObject
                        -> BufferObject
                        -> UniformLocation
                        -> IORef GLfloat
                        -> IO ()
initializeGlutCallbacks vbo ibo gWorldLocation gScale = do
    displayCallback $= renderSceneCB vbo ibo gWorldLocation gScale
    idleCallback    $= Just (idleCB gScale)
initializeGlutCallbacks :: BufferObject
                        -> BufferObject
                        -> UniformLocation
                        -> IORef GLfloat
                        -> IO ()
initializeGlutCallbacks vbo ibo gWorldLocation gScale = do
    displayCallback $= renderSceneCB vbo ibo gWorldLocation gScale
    idleCallback    $= Just (idleCB gScale)
initializeGlutCallbacks vbo ibo gWorldLocation gScale = do
    displayCallback $= renderSceneCB vbo ibo gWorldLocation gScale
    idleCallback    $= Just (idleCB gScale)