1.1 --- a/org/vision.org	Thu Mar 01 06:24:17 2012 -0700
     1.2 +++ b/org/vision.org	Tue May 08 08:22:19 2012 -0500
     1.3 @@ -537,7 +537,7 @@
     1.4  (in-ns 'cortex.test.vision)
     1.5  
     1.6  (defn change-color [obj color]
     1.7 -  (println-repl obj)
     1.8 +  ;;(println-repl obj)
     1.9    (if obj
    1.10      (.setColor  (.getMaterial obj) "Color" color)))
    1.11  
    1.12 @@ -546,6 +546,18 @@
    1.13           (fire-cannon-ball)))
    1.14  
    1.15  (defn test-worm-vision 
    1.16 +  "Testing vision:
    1.17 +   You should see the worm suspended in mid-air, looking down at a
    1.18 +   table. There are four small displays, one each for red, green blue,
    1.19 +   and gray channels. You can fire balls of various colors, and the
    1.20 +   four channels should react accordingly.
    1.21 +
    1.22 +   Keys:
    1.23 +     r  : fire red-ball
    1.24 +     b  : fire blue-ball
    1.25 +     g  : fire green-ball
    1.26 +     <space> : fire white ball"
    1.27 +   
    1.28    ([] (test-worm-vision false))
    1.29    ([record?] 
    1.30       (let [the-worm (doto (worm)(body!))