diff options
-rw-r--r-- | sdl2.scm | 8 | ||||
-rw-r--r-- | sdl2/bindings.scm | 8 |
2 files changed, 15 insertions, 1 deletions
@@ -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" '()) |