misc-deps
/
lux
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

incremental

This commit is contained in:
Jay McCarthy 2015-12-13 20:15:32 -05:00
parent a0d9e5566d
commit 5ccec8c9c5
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
word.rkt
View File

@ -72,16 +72,17 @@
(chaos-output! c (word-output w))
(define frame-end-time (current-inexact-milliseconds))
(define frame-time (- frame-end-time frame-start-time))
#;(printf "W: ~v\tG: ~v\tT: ~v\n"
(- pre-output-time frame-start-time)
(- frame-end-time pre-output-time)
frame-time)
(define new-label (word-label w frame-time))
(chaos-label! c new-label)
;; XXX This #f should be replaced with something that looks like
;; how much time is remaining in the frame-time budget. Right now
;; with Get Bonus, it is a bit too long to fit. Nevertheless,
;; doing this regularly seems to give about 2ms of delay.
(when #f
(collect-garbage 'incremental)
(collect-garbage 'minor))
;; Ideally we could compute how much time we have available for GC
;; and just use that so we never have any pauses. That's a very
;; big wish though.
(collect-garbage 'incremental)
(define fps (word-fps w))
(define next-time (compute-next-time frame-end-time fps))