1.1 --- a/org/worm_learn.clj	Mon Mar 03 23:24:28 2014 -0500
     1.2 +++ b/org/worm_learn.clj	Tue Mar 04 00:01:38 2014 -0500
     1.3 @@ -19,8 +19,8 @@
     1.4    (load-blender-model "Models/worm-segment/worm-segment.blend"))
     1.5  
     1.6  
     1.7 -(defn worm-segment []
     1.8 -  (load-blender-model "Models/test-touch/touch-cube.blend"))
     1.9 +(defn worm []
    1.10 +  (load-blender-model "Models/worm-segment/worm.blend"))
    1.11  
    1.12  
    1.13  (defn gen-worm
    1.14 @@ -59,7 +59,7 @@
    1.15       <space> : fire ball"
    1.16    ([] (test-basic-touch false))
    1.17    ([record?]
    1.18 -     (let [head (doto (worm-segment) (body!))
    1.19 +     (let [head (doto (worm) (body!))
    1.20             touch (touch! head)
    1.21             touch-display (view-touch)]
    1.22         (world