Skip to content
Permalink
Browse files

Minor

  • Loading branch information
Shinmera committed Mar 6, 2020
1 parent 074fbe0 commit 5de30412ed329ab3db33cb31014747b504e5e04a
Showing with 12 additions and 12 deletions.
  1. +12 −12 renderable.lisp
@@ -33,16 +33,16 @@
(let ((fc 0))
(declare (type fixnum fc))
(with-simple-restart (exit-render-loop "Exit the render loop entirely.")
(with-retry-restart (reset-render-loop "Reset the render loop timing, not catching up with lost frames.")
(let ((tt 0.0d0)
(dt (coerce (delta-time renderable) 'double-float))
(current-time (current-time))
(accumulator 0.0d0)
(new-time 0.0d0)
(frame-time 0.0d0))
(declare (type double-float tt dt current-time
accumulator new-time frame-time))
(unwind-protect
(unwind-protect
(with-retry-restart (reset-render-loop "Reset the render loop timing, not catching up with lost frames.")
(let ((tt 0.0d0)
(dt (coerce (delta-time renderable) 'double-float))
(current-time (current-time))
(accumulator 0.0d0)
(new-time 0.0d0)
(frame-time 0.0d0))
(declare (type double-float tt dt current-time
accumulator new-time frame-time))
(with-error-logging (:trial.renderable "Error in render thread")
(loop while (thread renderable)
do (setf new-time (current-time))
@@ -58,5 +58,5 @@
(setf (frame-time renderable) frame-time)
(with-simple-restart (abort "Abort the update and retry.")
(render renderable renderable)
(incf fc))))
(v:info :trial.renderable "Exiting render-loop for ~a." renderable)))))))
(incf fc))))))
(v:info :trial.renderable "Exiting render-loop for ~a." renderable)))))

0 comments on commit 5de3041

Please sign in to comment.
You can’t perform that action at this time.