# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1319396313 25200
# Node ID 014b14d480926cad0680248b81a0e4bbc53cd004
# Parent  d2e9f0d094752c2b0fe327176887f32b3e32a1fc
fixed inacuraccy with touch implementation

diff -r d2e9f0d09475 -r 014b14d48092 org/skin.org
--- a/org/skin.org	Sun Oct 23 11:51:15 2011 -0700
+++ b/org/skin.org	Sun Oct 23 11:58:33 2011 -0700
@@ -146,11 +146,13 @@
        (do
          (let [results (CollisionResults.)]
            (.collideWith node ray results)
-           (let [answer (count (filter #(not (= geom (.getGeometry %))) results)) 
+           (let [answer (set (filter #(not (= geom %))
+                                (map #(.getGeometry %) results)))
                  ;;color (contact-color answer)
                  ]
-             ;;(dorun (map #(println-repl (.getName (.getGeometry %))) results))
-             answer )))))))
+             (if (= 2 (count answer))
+               (dorun (map #(println-repl (.getName %)) answer)))
+             (count answer) )))))))
 
 (defn enable-debug [world]
   (.enableDebug 
@@ -215,8 +217,8 @@
 
 (defn test-skin []
   (let [b
-	;;(transparent-box)
-	(transparent-sphere)
+	(transparent-box)
+	;;(transparent-sphere)
         ;;(sphere)
 	f (transparent-floor)
 	;;controls