summaryrefslogtreecommitdiff
path: root/examples/particles.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/particles.scm')
-rw-r--r--examples/particles.scm7
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)))