Add SDL_GetPerformanceCounter and SDL_GetPerformanceFrequency bindings.

1 files changed, 10 insertions, 0 deletions

diff --git a/sdl2.scm b/sdl2.scm
index 53eef74..32d7e84 100644
--- a/sdl2.scm
+++ b/sdl2.scm
@@ -35,6 +35,8 @@
             sdl-init
             sdl-quit
             sdl-ticks
+            sdl-performance-counter
+            sdl-performance-frequency
 
             <color>
             make-color
@@ -94,6 +96,14 @@ upon all exit conditions."
 initialized."
   (ffi:sdl-get-ticks))
 
+(define (sdl-performance-counter)
+  "Return the current value of the high resolution counter."
+  (ffi:sdl-get-performance-counter))
+
+(define (sdl-performance-frequency)
+  "Return the count per second of the high resolution counter."
+  (ffi:sdl-get-performance-frequency))
+
 ;; SDL_Color
 (define-record-type <color>
   (make-color r g b a)