dan
/
cl-opengl-tests
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

move wall-time def above use

This commit is contained in:
Dan Ballard 2011-07-06 08:04:00 -07:00
parent 34355949bd
commit 7fad870b21
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
3bb-1.lisp
View File

@ -32,6 +32,12 @@
(defparameter *position* (make-array 3 :initial-contents (defparameter *position* (make-array 3 :initial-contents
'(0 0 -3))) '(0 0 -3)))
(let ((time-units (/ 1.0 internal-time-units-per-second)))
(defun wall-time (&key (offset 0))
(+ (* (get-internal-real-time) time-units)
offset)))
(defparameter *start-time* (wall-time)) (defparameter *start-time* (wall-time))
(defparameter *last-time* nil) (defparameter *last-time* nil)
@ -43,10 +49,6 @@
(make-array (length faces) :initial-contents (make-array (length faces) :initial-contents
(loop for i across faces collecting (aref *v* i)))) (loop for i across faces collecting (aref *v* i))))
(let ((time-units (/ 1.0 internal-time-units-per-second)))
(defun wall-time (&key (offset 0))
(+ (* (get-internal-real-time) time-units)
offset)))
(defun shift-color (time) (defun shift-color (time)