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

1 files changed, 3 insertions, 4 deletions

diff --git a/examples/particles.scm b/examples/particles.scm
index 5b42025..97cdb1d 100644
--- a/examples/particles.scm
+++ b/examples/particles.scm
@@ -8,8 +8,7 @@
              (chickadee graphics sprite)
              (chickadee graphics texture)
              (chickadee scripting)
-             (ice-9 format)
-             ((sdl2) #:select (sdl-ticks)))
+             (ice-9 format))
 
 (define window-width 800)
 (define window-height 600)
@@ -17,7 +16,7 @@
 (define emitter #f)
 (define particle-texture #f)
 (define sprite-texture #f)
-(define start-time (sdl-ticks))
+(define start-time 0.0)
 (define avg-frame-time 0)
 (define stats-text "")
 
@@ -58,7 +57,7 @@
   (draw-particles particles)
   (draw-sprite sprite-texture sprite-position)
   (draw-text stats-text stats-text-pos)
-  (let ((current-time (sdl-ticks)))
+  (let ((current-time (elapsed-time)))
     (set! avg-frame-time
           (+ (* (- current-time start-time) 0.1)
              (* avg-frame-time 0.9)))