Mercurial > cortex

comparison org/util.org @ 400:6ba908c1a0a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
on the warpath to the final stretch.
author Robert McIntyre <rlm@mit.edu>
date Sun, 16 Mar 2014 23:30:32 -0400
parents 4c37d39a3cf6
children 0a4362d1f138
comparison
equal deleted inserted replaced
399:85393ec986dc 400:6ba908c1a0a9
126 will always output to the REPL" 126 will always output to the REPL"
127 (bound-fn [& args] (apply println args))) 127 (bound-fn [& args] (apply println args)))
128 128
129 (defn position-camera 129 (defn position-camera
130 "Change the position of the in-world camera." 130 "Change the position of the in-world camera."
131 [world #^Vector3f position #^Quaternion rotation] 131 ([world #^Vector3f position #^Quaternion rotation]
132 (doto (.getCamera world) 132 (doto (.getCamera world)
133 (.setLocation position) 133 (.setLocation position)
134 (.setRotation rotation))) 134 (.setRotation rotation)))
135 ([world [position rotation]]
136 (position-camera world position rotation)))
137
135 138
136 (defn enable-debug 139 (defn enable-debug
137 "Turn on debug wireframes for every object in this simulation." 140 "Turn on debug wireframes for every object in this simulation."
138 [world] 141 [world]
139 (.enableDebug 142 (.enableDebug
612 #+begin_src clojure :results silent 615 #+begin_src clojure :results silent
613 (cortex.util/view (cortex.util/box)) 616 (cortex.util/view (cortex.util/box))
614 #+end_src 617 #+end_src
615 618
616 619
617 * COMMENT code generation 620 * code generation
618 #+begin_src clojure :tangle ../src/cortex/import.clj 621 #+begin_src clojure :tangle ../src/cortex/import.clj
619 <<import>> 622 <<import>>
620 #+end_src 623 #+end_src
621 624
622 625