Mercurial > cortex

comparison org/body.org @ 72:6f1c86126d51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
adding senses brainstoming list
author Robert McIntyre <rlm@mit.edu>
date Wed, 14 Dec 2011 17:41:19 -0700
parents a1e421d9c485
children 257a86328adb
comparison
equal deleted inserted replaced
71:a1e421d9c485 72:6f1c86126d51
2 #+author: Robert McIntyre 2 #+author: Robert McIntyre
3 #+email: rlm@mit.edu 3 #+email: rlm@mit.edu
4 #+description: Simulating a body (movement, touch, propioception) in jMonkeyEngine3. 4 #+description: Simulating a body (movement, touch, propioception) in jMonkeyEngine3.
5 #+SETUPFILE: ../../aurellem/org/setup.org 5 #+SETUPFILE: ../../aurellem/org/setup.org
6 #+INCLUDE: ../../aurellem/org/level-0.org 6 #+INCLUDE: ../../aurellem/org/level-0.org
7
8
9 7
10 * Proprioception 8 * Proprioception
11 #+name: proprioception 9 #+name: proprioception
12 #+begin_src clojure 10 #+begin_src clojure
13 (ns cortex.body 11 (ns cortex.body
175 pivotA 173 pivotA
176 pivotB)] 174 pivotB)]
177 segmentB)) 175 segmentB))
178 176
179 (defn eve-worm 177 (defn eve-worm
180 "Create a worm body bound by invisible joint constraints." 178 "Create a worm-like body bound by invisible joint constraints."
181 [] 179 []
182 (let [segments (worm-segments 0.2 5 0.1 0.1)] 180 (let [segments (worm-segments 0.2 5 0.1 0.1)]
183 (dorun (map (partial apply connect-at-midpoint) 181 (dorun (map (partial apply connect-at-midpoint)
184 (partition 2 1 segments))) 182 (partition 2 1 segments)))
185 (nodify "worm" segments))) 183 (nodify "worm" segments)))
306 println-repl 304 println-repl
307 #(format "pitch: %1.2f\nyaw: %1.2f\nroll: %1.2f\n" %1 %2 %3)) 305 #(format "pitch: %1.2f\nyaw: %1.2f\nroll: %1.2f\n" %1 %2 %3))
308 (joint-proprioception joint)))))))) 306 (joint-proprioception joint))))))))
309 #+end_src 307 #+end_src
310 308
311 #+results: test-body
312 : #'test.body/test-proprioception
313
314
315 309
316 * COMMENT code-limbo 310 * COMMENT code-limbo
317 #+begin_src clojure 311 #+begin_src clojure
318 ;;(.loadModel 312 ;;(.loadModel
319 ;; (doto (asset-manager) 313 ;; (doto (asset-manager)