Fix FPS counter below 1

2015-08-28 15:12:13 +02:00 · 2015-08-28 15:12:13 +02:00 · 0ff12bc9ed
commit 0ff12bc9ed
parent 5daadb78b6
1 changed files with 3 additions and 1 deletions
--- a/engine/render.lisp
+++ b/engine/render.lisp
@ -48,7 +48,9 @@ Destroy the opengl context and the related resources."
    (incf time-counter delta-time)
    (incf frames-counter)
    (when (> time-counter 1000000.0)
-      (setf *frames-per-second* frames-counter)
+      (setf *frames-per-second* (if (> frames-counter 1)
+                                    frames-counter
+                                    (/ frames-counter (/ time-counter 1000000.0))))
      (setf time-counter 0.0)
      (setf frames-counter 0))))