Mercurial > cortex

comparison org/body.org @ 71:a1e421d9c485

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improved test suite
author Robert McIntyre <rlm@mit.edu>
date Sun, 11 Dec 2011 22:32:28 -0700
parents 39e4e1542e4a
children 6f1c86126d51
comparison
equal deleted inserted replaced
70:0235c32152af 71:a1e421d9c485
266 "key-f" (fn [_ pressed?] (reset! move-left? pressed?)) 266 "key-f" (fn [_ pressed?] (reset! move-left? pressed?))
267 "key-g" (fn [_ pressed?] (reset! move-right? pressed?)) 267 "key-g" (fn [_ pressed?] (reset! move-right? pressed?))
268 "key-v" (fn [_ pressed?] (reset! roll-left? pressed?)) 268 "key-v" (fn [_ pressed?] (reset! roll-left? pressed?))
269 "key-b" (fn [_ pressed?] (reset! roll-right? pressed?))}) 269 "key-b" (fn [_ pressed?] (reset! roll-right? pressed?))})
270 (fn [world] 270 (fn [world]
271 (.setTimer world (NanoTimer.))
271 (set-gravity world (Vector3f. 0 0 0)) 272 (set-gravity world (Vector3f. 0 0 0))
272 (.setMoveSpeed (.getFlyByCamera world) 50) 273 (.setMoveSpeed (.getFlyByCamera world) 50)
273 (.setRotationSpeed (.getFlyByCamera world) 50) 274 (.setRotationSpeed (.getFlyByCamera world) 50)
274 (light-up-everything world)) 275 (light-up-everything world))
275 (fn [_ _] 276 (fn [_ _]