diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/particles.scm | 2 | ||||
| -rw-r--r-- | examples/path.scm | 6 | ||||
| -rw-r--r-- | examples/sprite-batch.scm | 2 | ||||
| -rw-r--r-- | examples/tiled.scm | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/examples/particles.scm b/examples/particles.scm index 97cdb1d..abefd94 100644 --- a/examples/particles.scm +++ b/examples/particles.scm @@ -49,7 +49,7 @@ (sleep 60) (set! stats-text (format #f "particles: ~d fps: ~1,2f" (particles-size particles) - (/ 1000.0 avg-frame-time)))))) + (/ 1.0 avg-frame-time)))))) (define stats-text-pos (vec2 4.0 (- window-height 16.0))) (define sprite-position (vec2 (center-x 128.0) (center-y 128.0))) diff --git a/examples/path.scm b/examples/path.scm index 0223864..7bad91b 100644 --- a/examples/path.scm +++ b/examples/path.scm @@ -10,9 +10,9 @@ (define (stats-message) (format #f "fps: ~1,2f" - (/ 1000.0 avg-frame-time))) + (/ 1.0 avg-frame-time))) (define start-time 0.0) -(define avg-frame-time 16) +(define avg-frame-time 0.0) (define stats-text (stats-message)) (define stats-text-pos (vec2 4.0 464.0)) (define last-update start-time) @@ -67,7 +67,7 @@ (+ (* (- current-time start-time) 0.1) (* avg-frame-time 0.9))) (set! start-time current-time) - (when (>= (- current-time last-update) 1000) + (when (>= (- current-time last-update) 1.0) (set! stats-text (stats-message)) (set! last-update current-time)))) diff --git a/examples/sprite-batch.scm b/examples/sprite-batch.scm index 4b8d433..3aad219 100644 --- a/examples/sprite-batch.scm +++ b/examples/sprite-batch.scm @@ -31,7 +31,7 @@ (define (stats-message) (format #f "sprites: ~d fps: ~1,2f" num-sprites - (/ 1000.0 avg-frame-time))) + (/ 1.0 avg-frame-time))) (define stats-text (stats-message)) diff --git a/examples/tiled.scm b/examples/tiled.scm index 0f7c4fa..c528f74 100644 --- a/examples/tiled.scm +++ b/examples/tiled.scm @@ -16,7 +16,7 @@ (define text "0, 0") (define (stats-message) (format #f "fps: ~1,2f" - (/ 1000.0 avg-frame-time))) + (/ 1.0 avg-frame-time))) (define start-time 0.0) (define avg-frame-time 16) (define stats-text (stats-message)) |