From 366364c9b2724b294a86fd1529e4764286d27342 Mon Sep 17 00:00:00 2001
From: cqc <cqc@conrailqualitycontent.net>
Date: Fri, 10 May 2024 12:43:37 -0500
Subject: [PATCH] fps limit

---
 oplevel.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/oplevel.ml b/oplevel.ml
index 73378fa..61b4b02 100644
--- a/oplevel.ml
+++ b/oplevel.ml
@@ -125,7 +125,7 @@ let () =
   in
 
   F.pr "oplevel.ml: entering drawing loop@.";
-
+  let period_min = 1.0 /. 30. in
   let t = GLFW.getTime () |> ref in
   while (not GLFW.(windowShouldClose ~window)) && !continue do
     Lwt_main.run
@@ -166,6 +166,8 @@ let () =
          Gc.major_slice 0 |> ignore;
          GLFW.swapBuffers ~window;
          GLFW.pollEvents ();
+         Unix.sleepf
+           Float.(max 0. (period_min -. GLFW.getTime () +. !t));
          Lwt.return_unit)
          ())
   done;