comparison org/self_organizing_touch.clj @ 430:5205535237fb

fix skew in self-organizing-touch, work on thesis.
author Robert McIntyre <rlm@mit.edu>
date Sat, 22 Mar 2014 16:10:34 -0400
parents cc9957241076
children f339e3d5cc8c
comparison
equal deleted inserted replaced
429:b5d0f0adf19f 430:5205535237fb
60 (defn worm-segment-defaults [] 60 (defn worm-segment-defaults []
61 (let [direct-control (worm-direct-control worm-muscle-labels 40)] 61 (let [direct-control (worm-direct-control worm-muscle-labels 40)]
62 (merge (worm-world-defaults) 62 (merge (worm-world-defaults)
63 {:worm-model single-worm-segment 63 {:worm-model single-worm-segment
64 :view single-worm-segment-view 64 :view single-worm-segment-view
65 :experience-watch nil
65 :motor-control 66 :motor-control
66 (motor-control-program 67 (motor-control-program
67 worm-single-segment-muscle-labels 68 worm-single-segment-muscle-labels
68 (touch-kinesthetics)) 69 (touch-kinesthetics))
69 :end-frame 1200}))) 70 :end-frame 1200})))