# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1319396969 25200
# Node ID 5a371057078fd6402236495034992c8e42f66548
# Parent  221052dac37408939ef47503b7b6310b031ff49f
removed old cruft

diff -r 221052dac374 -r 5a371057078f org/skin.org
--- a/org/skin.org	Sun Oct 23 12:07:34 2011 -0700
+++ b/org/skin.org	Sun Oct 23 12:09:29 2011 -0700
@@ -146,13 +146,10 @@
        (do
          (let [results (CollisionResults.)]
            (.collideWith node ray results)
-           (let [answer (set (filter #(not (= geom %))
-                                (map #(.getGeometry %) results)))
-                 ;;color (contact-color answer)
-                 ]
-         
-               ;;(dorun (map #(println-repl (.getName %)) answer))
-             (count answer) )))))))
+           (let [touch-objects (set (filter #(not (= geom %))
+                                (map #(.getGeometry %) results)))]
+               ;;(dorun (map #(println-repl (.getName %)) touch-objects))
+             (count touch-objects))))))))
 
 (defn enable-debug [world]
   (.enableDebug 
@@ -221,9 +218,6 @@
 	(transparent-sphere)
         ;;(sphere)
 	f (transparent-floor)
-	;;controls
-	;;(make-touch-sphere b)
-	;;(make-touch b)
         debug-node (Node.)
         node      (doto (Node.) (.attachChild b) (.attachChild f))
         root-node (doto (Node.) (.attachChild node)
@@ -244,14 +238,11 @@
      )
 
      (fn [& _]
-       (let [sensitivity 5
+       (let [sensitivity 0.2
              touch-data (touch-percieve sensitivity b node)]
-         ;;(println-repl touch-data)
          (manage-ray-debug-node debug-node b touch-data sensitivity)
          )
        (Thread/sleep 10)
-       ;;(touch-print controls)
-       ;;(color-touch controls)
        ))))
 
 #+end_src