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

Actually-useful instantaneous frame rate measurement

This commit is contained in:
Tony Garnock-Jones 2018-05-01 22:40:12 +01:00
parent eb208f3a10
commit 74cb70bdf3
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
syndicate/examples/gl-2d-platformer.rkt
View File

@ -519,15 +519,20 @@
(play-sound-sequence 270318) (play-sound-sequence 270318)
(update-piece! g pos jump-vel))) (update-piece! g pos jump-vel)))
(on (message (inbound (inbound (frame-event $counter _ $elapsed-ms _)))) (define start-time #f)
(when (zero? (modulo counter 10)) (on (message (inbound (inbound (frame-event $counter _ _ _))))
(log-info "Instantaneous frame rate at frame ~a: ~a Hz" (let ((stop-time (current-inexact-milliseconds)))
counter (when (not (eq? start-time #f))
(/ 1000.0 elapsed-ms))) (define elapsed-ms (- stop-time start-time))
(previous-positions (positions)) (when (zero? (modulo counter 10))
(previous-velocities (velocities)) (log-info "Instantaneous frame rate at frame ~a: ~a Hz"
(for [((id g) (in-hash (configs))) #:when (game-piece-has-attribute? g 'mobile)] counter
(update-game-piece! elapsed-ms id))))) (/ 1000.0 elapsed-ms)))
(previous-positions (positions))
(previous-velocities (velocities))
(for [((id g) (in-hash (configs))) #:when (game-piece-has-attribute? g 'mobile)]
(update-game-piece! elapsed-ms id)))
(set! start-time stop-time)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Player ;; Player