From 526a67146ae88b3f120ed64ec95d0af07ce2be82 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 16 Nov 2020 17:24:04 -0500
Subject: Add elapsed-time procedure.

---
 chickadee.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'chickadee.scm')

diff --git a/chickadee.scm b/chickadee.scm
index 10085ae..e2d8624 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -63,6 +63,7 @@
             set-window-size!
             set-window-position!
             set-window-fullscreen!
+            elapsed-time
             controller-button-pressed?
             controller-button-released?
             controller-axis
@@ -76,6 +77,11 @@
             run-game)
   #:re-export (abort-game))
 
+(define (elapsed-time)
+  "Return the number of milliseconds that have passed since the game
+loop was started."
+  (sdl-ticks))
+
 (define (key-pressed? key)
   "Return #t if KEY is currently being pressed."
   (sdl2:key-pressed? key))
-- 
cgit v1.2.3