diff options
| -rw-r--r-- | doc/api.texi | 8 | ||||
| -rw-r--r-- | sdl2.scm | 10 | ||||
| -rw-r--r-- | sdl2/bindings.scm | 6 |
3 files changed, 24 insertions, 0 deletions
diff --git a/doc/api.texi b/doc/api.texi index ed79da5..3c4e645 100644 --- a/doc/api.texi +++ b/doc/api.texi @@ -44,6 +44,14 @@ Return the number of milliseconds since the SDL library was initialized. @end deffn +@deffn {Procedure} sdl-performance-counter +Return the current value of the high resolution counter. +@end deffn + +@deffn {Procedure} sdl-performance-frequency +Return the count per second of the high resolution counter. +@end deffn + @node Window Management @section Window Management @@ -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) diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 373f3aa..a9fa17c 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -1007,6 +1007,12 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-get-ticks uint32 "SDL_GetTicks" '()) +(define-foreign sdl-get-performance-counter + uint64 "SDL_GetPerformanceCounter" '()) + +(define-foreign sdl-get-performance-frequency + uint64 "SDL_GetPerformanceFrequency" '()) + ;;; ;;; File I/O |