1.1 --- a/org/worm_learn.clj	Mon Mar 24 22:43:06 2014 -0400
     1.2 +++ b/org/worm_learn.clj	Tue Mar 25 00:20:01 2014 -0400
     1.3 @@ -164,7 +164,7 @@
     1.4        (Math/abs)))
     1.5  
     1.6  (defn resting?
     1.7 -  "Is the worm straight?"
     1.8 +  "Is the worm resting on the ground?"
     1.9    [experiences]
    1.10    (every?
    1.11     (fn [touch-data]
    1.12 @@ -261,6 +261,8 @@
    1.13  (defn record-experience! [experiences data]
    1.14    (swap! experiences #(conj % data)))
    1.15  
    1.16 +
    1.17 +
    1.18  (defn worm-world
    1.19    [& {:keys [record motor-control keybindings view experiences
    1.20               worm-model end-frame experience-watch] :as settings}]
    1.21 @@ -277,13 +279,16 @@
    1.22          muscle-display (view-movement)
    1.23          
    1.24          floor (box 10 1 10 :position (Vector3f. 0 -10 0)
    1.25 -                   :color ColorRGBA/Gray :mass 0)
    1.26 +                   :color ColorRGBA/Gray :mass 0
    1.27 +                   :texture "Textures/greenGrid.png")
    1.28          timer (IsoTimer. 60)]
    1.29  
    1.30      (world
    1.31         (nodify [worm floor])
    1.32         (merge standard-debug-controls keybindings)
    1.33         (fn [world]
    1.34 +         (.setDisplayStatView world false)
    1.35 +         (.setDisplayFps world false)
    1.36           (position-camera world view)
    1.37           (.setTimer world timer)
    1.38           (display-dilated-time world timer)