Mercurial > cortex

comparison org/integration.org @ 295:67a4e92d4628

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
made the hand 10x stronger
author Robert McIntyre <rlm@mit.edu>
date Thu, 16 Feb 2012 09:59:44 -0700
parents 76a5edd6507d
children 1eed471e2ebf
comparison
equal deleted inserted replaced
294:76a5edd6507d 295:67a4e92d4628
28 (rlm.rlm-commands/help) 28 (rlm.rlm-commands/help)
29 29
30 (def hand "Models/test-creature/hand.blend") 30 (def hand "Models/test-creature/hand.blend")
31 31
32 (def output-base (File. "/home/r/proj/cortex/render/hand")) 32 (def output-base (File. "/home/r/proj/cortex/render/hand"))
33
34 (def control-list
35 [
36 0 ;;pointer-21 #<Vector3f (0.99999994, 0.0, 0.0)>
37 1 ;;pointer-21 #<Vector3f (-0.99999994, 0.0, 0.0)>
38 0 ;;thumb-11 #<Vector3f (-0.8802276, -0.39781287, -0.25873658)>
39 0 ;;thumb-11 #<Vector3f (0.8485723, 0.46149826, 0.2587364)>
40 0 ;;pointer-11 #<Vector3f (0.99999994, 0.0, 0.0)>
41 0 ;;pointer-11 #<Vector3f (-0.99999994, 0.0, 0.0)>
42 0 ;;thumb-2.0011 #<Vector3f (-0.71705645, -0.44753736, -0.5343599)>
43 0 ;;thumb-2.0011 #<Vector3f (-0.10567085, 0.83862597, 0.53435963)>
44 0 ;;middle-11 #<Vector3f (0.99999994, 0.0, 0.0)>
45 0 ;;middle-11 #<Vector3f (-0.99999994, 0.0, 0.0)>
46 0 ;;pointer-31 #<Vector3f (-0.99999994, 0.0, 0.0)>
47 0 ;;pointer-31 #<Vector3f (0.99999994, 0.0, 0.0)>
48 0 ;;middle-21 #<Vector3f (0.99999994, 0.0, 0.0)>
49 0 ;;middle-21 #<Vector3f (-0.99999994, 0.0, 0.0)>
50 0 ;;middle-31 #<Vector3f (-0.99999994, 0.0, 0.0)>
51 0 ;;middle-31 #<Vector3f (0.99999994, 0.0, 0.0)>
52 0 ;;pinky-21 #<Vector3f (0.99999994, 0.0, 0.0)>
53 0 ;;pinky-21 #<Vector3f (-0.99999994, 0.0, 0.0)>
54 0 ;;pinky-31 #<Vector3f (0.99999994, 0.0, 0.0)>
55 0 ;;ring-31 #<Vector3f (0.99999994, 0.0, 0.0)>
56 0 ;;ring-31 #<Vector3f (-0.99999994, 0.0, 0.0)>
57 0 ;;ring-21 #<Vector3f (-0.99999994, 0.0, 0.0)>
58 0 ;;ring-21 #<Vector3f (0.99999994, 0.0, 0.0)>
59 0 ;;ring-11 #<Vector3f (0.99999994, 0.0, 0.0)>
60 0 ;;ring-11 #<Vector3f (-0.99999994, 0.0, 0.0)>
61 0 ;;thumb-11 #<Vector3f (-0.43154645, 0.7302033, 0.5296894)>
62 0 ;;thumb-11 #<Vector3f (-0.8032993, -0.2722854, -0.5296895)>
63 0 ;;pinky-11 #<Vector3f (-0.99999994, 0.0, 0.0)>
64 0 ;;pinky-11 #<Vector3f (0.99999994, 0.0, 0.0)>
65 ])
33 66
34 (defn test-everything! 67 (defn test-everything!
35 ([] (test-everything! false)) 68 ([] (test-everything! false))
36 ([record?] 69 ([record?]
37 (let [me (sphere 0.5 :color ColorRGBA/Blue :physical? false) 70 (let [me (sphere 0.5 :color ColorRGBA/Blue :physical? false)
91 (fn [world tpf] 124 (fn [world tpf]
92 ;;(prop-display (prop)) 125 ;;(prop-display (prop))
93 ;;(touch-display (map #(% (.getRootNode world)) touch)) 126 ;;(touch-display (map #(% (.getRootNode world)) touch))
94 ;;(vision-display (map #(% world) vision)) 127 ;;(vision-display (map #(% world) vision))
95 ;;(hearing-display (map #(% world) hearing)) 128 ;;(hearing-display (map #(% world) hearing))
96 (muscle-display (map #(% @muscle-exertion) muscles)) 129
130 (muscle-display
131 (map (fn [effector control]
132 (effector (int (* @muscle-exertion control))))
133 muscles
134 control-list))
135
97 (.setLocalTranslation me (.getLocation (.getCamera world))) 136 (.setLocalTranslation me (.getLocation (.getCamera world)))
98 (fix-display world)))))) 137 (fix-display world))))))
99 #+end_src 138 #+end_src
100 139
101 #+results: integration 140 #+results: integration