floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a compute-fps function in render module

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-08-27 18:38:13 +02:00
parent 326fe654c2
commit de99347555
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
engine/render.lisp
View file

@ -21,6 +21,7 @@
())
(defvar *render-thread* nil)
(defvar *frames-per-second* 0.0)
(defun initialize (&optional argv)
"Initialize the render module.
@ -40,6 +41,16 @@ Destroy the opengl context and the related resources."
(defmodule stoe/engine/render :render)
(let ((time-counter 0.0)
(frames-counter 0))
(defun compute-fps (delta-time)
(incf time-counter delta-time)
(incf frames-counter)
(when (> time-counter 1000000.0)
(setf *frames-per-second* frames-counter)
(setf time-counter 0.0)
(setf frames-counter 0))))
(defun render-single-mesh (mesh transform)
(using-program (program 'blue-shader)
(with-locations (model-to-camera camera-to-clip) program
@ -81,4 +92,5 @@ Destroy the opengl context and the related resources."
(format t "Thread ~a: Running job ~a~%" (name thread) (id job))
(job-run job thread)))
(render-world (get-world)))
(update-clock clock)))))
(update-clock clock)
(compute-fps (clock-delta clock))))))