syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

I don't understand how elapsed-ms can end up negative, but I was seeing it in the platformer at frame 0

This commit is contained in:
Tony Garnock-Jones 2016-07-30 14:48:17 -04:00
parent b6a03bdd9b
commit 9e3f804aae
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/syndicate-gl/2d.rkt
View File

@ -344,12 +344,12 @@
(define/override (on-paint)
(with-gl-context
(lambda ()
(let ((this-frame-time (sim-time)))
(inject-event! (message (frame-event counter
this-frame-time
(- this-frame-time prev-frame-time)
target-frame-rate)))
(set! counter (+ counter 1))
(let* ((this-frame-time (sim-time))
(elapsed-ms (- this-frame-time prev-frame-time)))
(when (not (negative? elapsed-ms))
(inject-event! (message
(frame-event counter this-frame-time elapsed-ms target-frame-rate)))
(set! counter (+ counter 1)))
(set! prev-frame-time this-frame-time))
(quiesce!)
(unless initialised?