first commit

1 files changed, 23 insertions, 0 deletions

diff --git a/timing.scm b/timing.scm
new file mode 100644
index 0000000..4887af3
--- /dev/null
+++ b/timing.scm
@@ -0,0 +1,23 @@
+;;; ------------------------
+;;; Timing-related functions
+;;; ------------------------
+
+;; Set target FPS (maximum)
+;; void SetTargetFPS(int fps);
+(define set-target-fps
+  (c-lambda (int) void "SetTargetFPS"))
+
+;; Get time in seconds for last frame drawn (delta time)
+;; float GetFrameTime(void);
+(define get-frame-time
+  (c-lambda () float "GetFrameTime"))
+
+;; Get elapsed time in seconds since InitWindow()
+;; double GetTime(void);
+(define get-time
+  (c-lambda () double "GetTime"))
+
+;; Get current FPS
+;; int GetFPS(void);
+(define get-fps
+  (c-lambda () int "GetFPS"))