Mercurial > cortex

comparison org/skin.org @ 68:6cd5a034d855

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
moved test namespaces
author Robert McIntyre <rlm@mit.edu>
date Fri, 09 Dec 2011 21:33:05 -0600
parents 1381a6ebd08b
children 39e4e1542e4a
comparison
equal deleted inserted replaced
67:6f74d89fb8b3 68:6cd5a034d855
105 105
106 * Example 106 * Example
107 107
108 #+name: touch-test 108 #+name: touch-test
109 #+begin_src clojure 109 #+begin_src clojure
110 (ns test.touch 110 (ns cortex.test.touch
111 (:use (cortex world util touch)) 111 (:use (cortex world util touch))
112 (:import 112 (:import
113 com.jme3.scene.shape.Sphere 113 com.jme3.scene.shape.Sphere
114 com.jme3.math.ColorRGBA 114 com.jme3.math.ColorRGBA
115 com.jme3.math.Vector3f 115 com.jme3.math.Vector3f
116 com.jme3.material.RenderState$BlendMode 116 com.jme3.material.RenderState$BlendMode
117 com.jme3.renderer.queue.RenderQueue$Bucket 117 com.jme3.renderer.queue.RenderQueue$Bucket
118 com.jme3.scene.shape.Box 118 com.jme3.scene.shape.Box
119 com.jme3.scene.Node 119 com.jme3.scene.Node))
120 ))
121
122
123 120
124 (defn ray-origin-debug 121 (defn ray-origin-debug
125 [ray color] 122 [ray color]
126 (make-shape 123 (make-shape
127 (assoc base-shape 124 (assoc base-shape
256 ) 253 )
257 254
258 (fn [& _] 255 (fn [& _]
259 (let [sensitivity 0.2 256 (let [sensitivity 0.2
260 touch-data (touch-percieve sensitivity b node)] 257 touch-data (touch-percieve sensitivity b node)]
261 (manage-ray-debug-node debug-node b touch-data sensitivity) 258 (manage-ray-debug-node debug-node b touch-data sensitivity))
262 )
263 (Thread/sleep 10)
264 )))) 259 ))))
265 260
266 261
267 #+end_src 262 #+end_src
268 263
273 * COMMENT code generation 268 * COMMENT code generation
274 #+begin_src clojure :tangle ../src/cortex/touch.clj 269 #+begin_src clojure :tangle ../src/cortex/touch.clj
275 <<skin-main>> 270 <<skin-main>>
276 #+end_src 271 #+end_src
277 272
278 #+begin_src clojure :tangle ../src/test/touch.clj 273 #+begin_src clojure :tangle ../src/cortex/test/touch.clj
279 <<touch-test>> 274 <<touch-test>>
280 #+end_src 275 #+end_src
281 276
282 277
283 278