summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sdl2.scm8
-rw-r--r--sdl2/bindings.scm8
2 files changed, 15 insertions, 1 deletions
diff --git a/sdl2.scm b/sdl2.scm
index afed5c0..74839fe 100644
--- a/sdl2.scm
+++ b/sdl2.scm
@@ -32,7 +32,8 @@
sdl-error
sdl-version
sdl-init
- sdl-quit))
+ sdl-quit
+ sdl-ticks))
(define %default-init-flags
'(timer audio video haptic game-controller events))
@@ -77,3 +78,8 @@ The possible flags are 'timer', 'audio', 'video', 'haptic',
"Quit all activated SDL subsystems. This procedure should be called
upon all exit conditions."
(ffi:sdl-quit))
+
+(define (sdl-ticks)
+ "Return the number of milliseconds since the SDL library
+initialization."
+ (ffi:sdl-get-ticks))
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index 138d4fc..25b3576 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -192,3 +192,11 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
(define-foreign sdl-gl-swap-window
void "SDL_GL_SwapWindow" '(*))
+
+
+;;;
+;;; Timer
+;;;
+
+(define-foreign sdl-get-ticks
+ uint32 "SDL_GetTicks" '())