Mercurial > cortex

comparison org/util.org @ 60:e5e627f50a3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
finally got euler angle stuff working
author Robert McIntyre <rlm@mit.edu>
date Mon, 28 Nov 2011 02:54:48 -0700
parents b1b90c4ab0bf
children 2b9d81017cb7
comparison
equal deleted inserted replaced
59:63951929fe44 60:e5e627f50a3a
278 278
279 279
280 *** Debug Actions 280 *** Debug Actions
281 #+srcname: debug-actions 281 #+srcname: debug-actions
282 #+begin_src clojure :results silent 282 #+begin_src clojure :results silent
283 (in-ns 'cortex.util)
284
283 (defn basic-light-setup 285 (defn basic-light-setup
284 "returns a sequence of lights appropiate for fully lighting a scene" 286 "returns a sequence of lights appropiate for fully lighting a scene"
285 [] 287 []
286 (conj 288 (conj
287 (doall 289 (doall
331 (.getControl cannon-ball RigidBodyControl) 333 (.getControl cannon-ball RigidBodyControl)
332 (.mult (.getDirection camera) (float 50))) ;50 334 (.mult (.getDirection camera) (float 50))) ;50
333 (add-element game cannon-ball (if node node (.getRootNode game))))))) 335 (add-element game cannon-ball (if node node (.getRootNode game)))))))
334 ([] 336 ([]
335 (fire-cannon-ball false))) 337 (fire-cannon-ball false)))
338
339 (def standard-debug-controls
340 {"key-space" (fire-cannon-ball)})
341
342
343
344
336 #+end_src 345 #+end_src
337 346
338 347
339 *** Viewing Objects 348 *** Viewing Objects
340 349