Untitled

      stepWorld :: Float -> DTime -> IO DTime
      stepWorld delta timeAcc
          | delta' > 0 = react handle (delta', Just NoEvent) >> return 0.0
          | otherwise  = return (-delta')
        where
          -- delta' = realToFrac delta - timeAcc
          delta' = 200000 -- speed up