1.1 --- a/org/util.org	Thu Feb 16 11:04:22 2012 -0700
     1.2 +++ b/org/util.org	Thu Feb 16 12:48:51 2012 -0700
     1.3 @@ -113,13 +113,10 @@
     1.4  
     1.5  (defn position-camera
     1.6    "Change the position of the in-world camera."
     1.7 -  ([world position direction up]
     1.8 +  [world #^Vector3f position #^Quaternion rotation]
     1.9       (doto (.getCamera world)
    1.10 -       (.setLocation )
    1.11 -       (.lookAt direction up)))
    1.12 -  ([world position direction]
    1.13 -     (position-camera
    1.14 -      world position direction Vector3f/UNIT_Y)))
    1.15 +       (.setLocation position)
    1.16 +       (.setRotation rotation)))
    1.17  
    1.18  (defn enable-debug 
    1.19    "Turn on debug wireframes for every object in this simulation."
    1.20 @@ -219,7 +216,7 @@
    1.21  #+end_src
    1.22  
    1.23  #+results: util
    1.24 -: #'cortex.util/apply-map
    1.25 +: #'cortex.util/runonce
    1.26      
    1.27  
    1.28  *** Creating Basic Shapes