From 7fad870b21222a206013eeea791b7182332ac57c Mon Sep 17 00:00:00 2001 From: Dan Ballard Date: Wed, 6 Jul 2011 08:04:00 -0700 Subject: [PATCH] move wall-time def above use --- 3bb-1.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/3bb-1.lisp b/3bb-1.lisp index 967abf9..0f33de6 100644 --- a/3bb-1.lisp +++ b/3bb-1.lisp @@ -32,6 +32,12 @@ (defparameter *position* (make-array 3 :initial-contents '(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 *last-time* nil) @@ -43,10 +49,6 @@ (make-array (length faces) :initial-contents (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)