1.1 --- a/org/movement.org	Thu Mar 01 06:24:17 2012 -0700
     1.2 +++ b/org/movement.org	Tue May 08 08:22:19 2012 -0500
     1.3 @@ -123,7 +123,7 @@
     1.4          (vec (map  #(float (* strength (/ % (last pool-integral))))
     1.5                pool-integral))
     1.6          control (.getControl target RigidBodyControl)]
     1.7 -    (println-repl (.getName target) axis)
     1.8 +    ;;(println-repl (.getName target) axis)
     1.9      (fn [n]
    1.10        (let [pool-index (max 0 (min n (dec (count pool))))
    1.11              force (forces pool-index)]
    1.12 @@ -186,6 +186,15 @@
    1.13  #+name: test-movement
    1.14  #+begin_src clojure
    1.15  (defn test-worm-movement
    1.16 +  "Testing movement:
    1.17 +   You should see the worm suspended in mid air and a display on the
    1.18 +   right which shows the current relative power being exerted by the
    1.19 +   muscle. As you increase muscle strength, the bar should fill with
    1.20 +   red, and the worm's upper segment should move.
    1.21 +
    1.22 +   Keys:
    1.23 +     h  : increase muscle exertion
    1.24 +     n  : decrease muscle exertion"
    1.25    ([] (test-worm-movement false))
    1.26    ([record?]
    1.27       (let [creature (doto (worm) (body!))