Mercurial > cortex

comparison org/util.org @ 74:fb810a2c50c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
trying to get the hand to work
author Robert McIntyre <rlm@mit.edu>
date Wed, 28 Dec 2011 06:44:36 -0700
parents 257a86328adb
children 77b506ac64f3
comparison
equal deleted inserted replaced
73:257a86328adb 74:fb810a2c50c2
272 (let [options (merge base-shape options)] 272 (let [options (merge base-shape options)]
273 (make-shape (assoc options 273 (make-shape (assoc options
274 :shape (Sphere. 32 32 (float r)))))) 274 :shape (Sphere. 32 32 (float r))))))
275 ([] (sphere 0.5))) 275 ([] (sphere 0.5)))
276 276
277 (defn green-x-ray
278 "A usefull material for debuging -- it can be seen no matter what
279 object occuldes it."
280 []
281 (doto (Material. (asset-manager)
282 "Common/MatDefs/Misc/Unshaded.j3md")
283 (.setColor "Color" ColorRGBA/Green)
284 (-> (.getAdditionalRenderState)
285 (.setDepthTest false))))
286
277 (defn node-seq 287 (defn node-seq
278 "Take a node and return a seq of all its children 288 "Take a node and return a seq of all its children
279 recursively. There will be no nodes left in the resulting 289 recursively. There will be no nodes left in the resulting
280 structure" 290 structure"
281 [#^Node node] 291 [#^Node node]