From 5ccec8c9c58b205966efa681d00ec30a8493f335 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sun, 13 Dec 2015 20:15:32 -0500 Subject: [PATCH] incremental --- word.rkt | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/word.rkt b/word.rkt index e7e3dc1..320f996 100644 --- a/word.rkt +++ b/word.rkt @@ -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))