Mercurial > cortex

comparison org/skin.org @ 58:25142dad240a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
created test suite
author Robert McIntyre <rlm@mit.edu>
date Sat, 19 Nov 2011 23:42:21 -0700
parents 00d0e1639d4b
children 63951929fe44
comparison
equal deleted inserted replaced
57:37a3256e1ed3 58:25142dad240a
225 (.setBlendMode RenderState$BlendMode/Alpha)) 225 (.setBlendMode RenderState$BlendMode/Alpha))
226 (.setQueueBucket RenderQueue$Bucket/Transparent))) 226 (.setQueueBucket RenderQueue$Bucket/Transparent)))
227 227
228 (defn test-skin [] 228 (defn test-skin []
229 (let [b 229 (let [b
230 ;;(transparent-box) 230 ;;(transparent-box)
231 (transparent-sphere) 231 (transparent-sphere)
232 ;;(sphere) 232 ;;(sphere)
233 f (transparent-floor) 233 f (transparent-floor)
234 debug-node (Node.) 234 debug-node (Node.)
235 node (doto (Node.) (.attachChild b) (.attachChild f)) 235 node (doto (Node.) (.attachChild b) (.attachChild f))
236 root-node (doto (Node.) (.attachChild node) 236 root-node (doto (Node.) (.attachChild node)
237 (.attachChild debug-node)) 237 (.attachChild debug-node))
238 ] 238 ]
245 ;; world 245 ;; world
246 ;; (file-str "/home/r/proj/cortex/tmp/blob.avi")) 246 ;; (file-str "/home/r/proj/cortex/tmp/blob.avi"))
247 ;; (no-logging) 247 ;; (no-logging)
248 ;;(enable-debug world) 248 ;;(enable-debug world)
249 ;; (set-accuracy world (/ 1 60)) 249 ;; (set-accuracy world (/ 1 60))
250 ) 250 )
251 251
252 (fn [& _] 252 (fn [& _]
253 (let [sensitivity 0.2 253 (let [sensitivity 0.2
254 touch-data (touch-percieve sensitivity b node)] 254 touch-data (touch-percieve sensitivity b node)]
255 (manage-ray-debug-node debug-node b touch-data sensitivity) 255 (manage-ray-debug-node debug-node b touch-data sensitivity)
256 ) 256 )