summaryrefslogtreecommitdiff
path: root/examples/path.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2020-12-15 17:59:09 -0500
committerDavid Thompson <dthompson2@worcester.edu>2020-12-15 17:59:09 -0500
commit8726cc42e3e7e5e6f34f7328898e35ed207bfb08 (patch)
treef2599a60f404b086c1054befa07106c3f6d1320d /examples/path.scm
parent11cf5c63610e8bb858fa21ecea37196d9c8f17e4 (diff)
Switch to high resolution timer.
Diffstat (limited to 'examples/path.scm')
-rw-r--r--examples/path.scm6
1 files changed, 3 insertions, 3 deletions
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))))