Mercurial > cortex

comparison org/proprioception.org @ 321:702b5c78c2de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gathered all the tests into (run-suite), which should make testing vastly easier.
author Robert McIntyre <rlm@mit.edu>
date Tue, 08 May 2012 08:22:19 -0500
parents bb3f8a4af87f
children 4f5a5d5f1613
comparison
equal deleted inserted replaced
320:52de8a36edde 321:702b5c78c2de
215 #+begin_src clojure 215 #+begin_src clojure
216 (in-ns 'cortex.test.proprioception) 216 (in-ns 'cortex.test.proprioception)
217 217
218 (defn test-proprioception 218 (defn test-proprioception
219 "Testing proprioception: 219 "Testing proprioception:
220 You should see two floating bars, and a printout of pitch, yaw, and 220 You should see two floating bars, and a display of pitch, yaw, and
221 roll. Pressing key-r/key-t should move the blue bar up and down and 221 roll. The white dot measures pitch (spin around the long axis), the
222 change only the value of pitch. key-f/key-g moves it side to side 222 green dot measures yaw (in this case, rotation around a circle
223 and changes yaw. key-v/key-b will spin the blue segment clockwise 223 perpendicular to your line of view), and the red dot measures
224 and counterclockwise, and only affect roll." 224 roll (rotation around a circle perlendicular to the the other two
225 circles).
226
227 Keys:
228 r : rotate along long axis
229 t : opposite direction of rotation as <r>
230
231 f : rotate in field of view
232 g : opposite direction of rotation as <f>
233
234 v : rotate in final direction
235 b : opposite direction of rotation as <v>"
236
225 ([] (test-proprioception false)) 237 ([] (test-proprioception false))
226 ([record?] 238 ([record?]
227 (let [hand (box 0.2 1 0.2 :position (Vector3f. 0 0 0) 239 (let [hand (box 0.2 1 0.2 :position (Vector3f. 0 0 0)
228 :mass 0 :color ColorRGBA/Gray :name "hand") 240 :mass 0 :color ColorRGBA/Gray :name "hand")
229 finger (box 0.2 1 0.2 :position (Vector3f. 0 2.4 0) 241 finger (box 0.2 1 0.2 :position (Vector3f. 0 2.4 0)