# HG changeset patch # User Robert McIntyre # Date 1319398376 25200 # Node ID 67d508a1e34de4a6ec19223da9c58bb95be5fe33 # Parent 5a371057078fd6402236495034992c8e42f66548 going to update website/documentation diff -r 5a371057078f -r 67d508a1e34d org/skin.org --- a/org/skin.org Sun Oct 23 12:09:29 2011 -0700 +++ b/org/skin.org Sun Oct 23 12:32:56 2011 -0700 @@ -28,8 +28,6 @@ (import java.util.logging.Logger) (use 'hello.brick-wall) - - (defn triangles [#^Geometry geom] (let [mesh (.getMesh geom) @@ -43,7 +41,6 @@ (conj! triangles tri)))) (persistent! triangles))) - (defn get-ray-origin [geom tri] (let [new (Vector3f.)] @@ -63,14 +60,14 @@ (defn ray-origin-debug [ray color] (make-shape - (assoc base-shape - :shape (Sphere. 5 5 0.05) - :name "arrow" - :color color - :texture false - :physical? false - :position - (.getOrigin ray)))) + (assoc base-shape + :shape (Sphere. 5 5 0.05) + :name "arrow" + :color color + :texture false + :physical? false + :position + (.getOrigin ray)))) (defn ray-debug [ray color] (make-shape @@ -126,7 +123,7 @@ debug-node (doto (Node.) (.attachChild (ray-origin-debug ray ColorRGBA/Gray)) - ;;(.attachChild (ray-debug ray ColorRGBA/Gray)) + (.attachChild (ray-debug ray ColorRGBA/Gray)) )))))) (defn manage-ray-debug-node [debug-node geom touch-data limit] @@ -166,7 +163,6 @@ (let [physics-manager (.getState (.getStateManager world) BulletAppState)] (.setAccuracy (.getPhysicsSpace physics-manager) (float new-accuracy)))) - (defn transparent-sphere [] (doto (make-shape @@ -227,14 +223,13 @@ (world root-node {"key-return" (fire-cannon-ball node)} - ;;no-op (fn [world] - ;; (Capture/SimpleCaptureVideo - ;; world - ;; (file-str "/home/r/proj/cortex/tmp/blob.avi")) - ;; (no-logging) - ;;(enable-debug world) - ;; (set-accuracy world (/ 1 60)) + ;; (Capture/SimpleCaptureVideo + ;; world + ;; (file-str "/home/r/proj/cortex/tmp/blob.avi")) + ;; (no-logging) + ;;(enable-debug world) + ;; (set-accuracy world (/ 1 60)) ) (fn [& _]