examples: Replace calls to sdl-ticks with elapsed-time.

1 files changed, 4 insertions, 4 deletions

diff --git a/examples/sprite-batch.scm b/examples/sprite-batch.scm
index d4cccb5..30d8167 100644
--- a/examples/sprite-batch.scm
+++ b/examples/sprite-batch.scm
@@ -3,19 +3,19 @@
              (chickadee math rect)
              (chickadee math vector)
              (chickadee graphics)
+             (chickadee graphics color)
              (chickadee graphics font)
              (chickadee graphics sprite)
              (chickadee graphics texture)
              (chickadee scripting)
              (ice-9 format)
              (ice-9 match)
-             ((sdl2) #:select (sdl-ticks))
              (srfi srfi-1)
              (statprof))
 
 (define texture #f)
 (define batch #f)
-(define start-time (sdl-ticks))
+(define start-time 0.0)
 (define avg-frame-time 16)
 (define num-sprites 5000)
 (define sprites
@@ -54,8 +54,8 @@
               (sprite-batch-add* batch r matrix)))
             sprites)
   (draw-sprite-batch batch)
-  (draw-text stats-text stats-text-pos)
-  (let ((current-time (sdl-ticks)))
+  (draw-text stats-text stats-text-pos #:color black)
+  (let ((current-time (elapsed-time)))
     (set! avg-frame-time
           (+ (* (- current-time start-time) 0.1)
              (* avg-frame-time 0.9)))