summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/api.texi8
-rw-r--r--sdl2.scm10
-rw-r--r--sdl2/bindings.scm6
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
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)
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