Untitled

mail@pastecode.io avatar
unknown
plain_text
20 days ago
293 B
2
Indexable
Never
      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
Leave a Comment