From 5e764e9edd3c5e33fa9a384b49b74e5c4eb370a3 Mon Sep 17 00:00:00 2001
From: gonzo <gonzo@toniatuh.com>
Date: Fri, 25 Oct 2024 19:20:18 +0200
Subject: first commit

---
 timing.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 timing.scm

(limited to 'timing.scm')

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"))
-- 
cgit v1.2.3