# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1319396854 25200
# Node ID 221052dac37408939ef47503b7b6310b031ff49f
# Parent  014b14d480926cad0680248b81a0e4bbc53cd004
touch has been GREATLY improved

diff -r 014b14d48092 -r 221052dac374 org/skin.org
--- a/org/skin.org	Sun Oct 23 11:58:33 2011 -0700
+++ b/org/skin.org	Sun Oct 23 12:07:34 2011 -0700
@@ -150,8 +150,8 @@
                                 (map #(.getGeometry %) results)))
                  ;;color (contact-color answer)
                  ]
-             (if (= 2 (count answer))
-               (dorun (map #(println-repl (.getName %)) answer)))
+         
+               ;;(dorun (map #(println-repl (.getName %)) answer))
              (count answer) )))))))
 
 (defn enable-debug [world]
@@ -217,8 +217,8 @@
 
 (defn test-skin []
   (let [b
-	(transparent-box)
-	;;(transparent-sphere)
+	;;(transparent-box)
+	(transparent-sphere)
         ;;(sphere)
 	f (transparent-floor)
 	;;controls
@@ -239,14 +239,16 @@
      ;;   world 
      ;;   (file-str "/home/r/proj/cortex/tmp/blob.avi"))
      ;;  (no-logging)
-     (enable-debug world)
+     ;;(enable-debug world)
      ;;  (set-accuracy world (/ 1 60))
      )
 
      (fn [& _]
-       (let [touch-data (touch-percieve 0.2 b node)]
+       (let [sensitivity 5
+             touch-data (touch-percieve sensitivity b node)]
          ;;(println-repl touch-data)
-         (manage-ray-debug-node debug-node b touch-data 0.2))
+         (manage-ray-debug-node debug-node b touch-data sensitivity)
+         )
        (Thread/sleep 10)
        ;;(touch-print controls)
        ;;(color-touch controls)