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

Add collect-garbage to improve (?) smoothness; log instantaneous frame rates

This commit is contained in:
Tony Garnock-Jones 2015-10-29 16:08:10 -04:00
parent d3ca36beaf
commit de35a23a6c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/platformer/main.rkt
View File

@ -576,7 +576,12 @@
(update-impulses p))]
[(message (jump-request id))
(evaluate-jump-request id s)]
[(message (at-meta (at-meta (at-meta (frame-event _ _ elapsed-ms _)))))
[(message (at-meta (at-meta (at-meta (frame-event counter _ elapsed-ms _)))))
(when (zero? (modulo counter 10))
(collect-garbage 'incremental)
(log-info "Instantaneous frame rate at frame ~a: ~a Hz"
counter
(/ 1000.0 elapsed-ms)))
(for/fold [(t (transition s '()))]
[((id g) (in-hash (physics-state-configs s)))
#:when (game-piece-has-attribute? g 'mobile)]
@ -926,6 +931,7 @@
)))
(define (spawn-numbered-level level-number)
(collect-garbage 'major)
(if (< level-number (length (force levels)))
(list-ref (force levels) level-number)
(spawn-standalone-assertions