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:
parent
b6a03bdd9b
commit
9e3f804aae
|
@ -344,12 +344,12 @@
|
||||||
(define/override (on-paint)
|
(define/override (on-paint)
|
||||||
(with-gl-context
|
(with-gl-context
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(let ((this-frame-time (sim-time)))
|
(let* ((this-frame-time (sim-time))
|
||||||
(inject-event! (message (frame-event counter
|
(elapsed-ms (- this-frame-time prev-frame-time)))
|
||||||
this-frame-time
|
(when (not (negative? elapsed-ms))
|
||||||
(- this-frame-time prev-frame-time)
|
(inject-event! (message
|
||||||
target-frame-rate)))
|
(frame-event counter this-frame-time elapsed-ms target-frame-rate)))
|
||||||
(set! counter (+ counter 1))
|
(set! counter (+ counter 1)))
|
||||||
(set! prev-frame-time this-frame-time))
|
(set! prev-frame-time this-frame-time))
|
||||||
(quiesce!)
|
(quiesce!)
|
||||||
(unless initialised?
|
(unless initialised?
|
||||||
|
|
Loading…
Reference in New Issue