idleCB :: IORef GLfloat -> IdleCallback
idleCB gScale = do
  gScale $~! (+ 0.1)
  postRedisplay Nothing
idleCB :: IORef GLfloat -> IdleCallback
idleCB gScale = do
  gScale $~! (+ 0.1)
  postRedisplay Nothing
idleCB gScale = do
  gScale $~! (+ 0.1)
  postRedisplay Nothing