1.1 --- a/org/skin.org	Sun Oct 23 12:07:34 2011 -0700
     1.2 +++ b/org/skin.org	Sun Oct 23 12:09:29 2011 -0700
     1.3 @@ -146,13 +146,10 @@
     1.4         (do
     1.5           (let [results (CollisionResults.)]
     1.6             (.collideWith node ray results)
     1.7 -           (let [answer (set (filter #(not (= geom %))
     1.8 -                                (map #(.getGeometry %) results)))
     1.9 -                 ;;color (contact-color answer)
    1.10 -                 ]
    1.11 -         
    1.12 -               ;;(dorun (map #(println-repl (.getName %)) answer))
    1.13 -             (count answer) )))))))
    1.14 +           (let [touch-objects (set (filter #(not (= geom %))
    1.15 +                                (map #(.getGeometry %) results)))]
    1.16 +               ;;(dorun (map #(println-repl (.getName %)) touch-objects))
    1.17 +             (count touch-objects))))))))
    1.18  
    1.19  (defn enable-debug [world]
    1.20    (.enableDebug 
    1.21 @@ -221,9 +218,6 @@
    1.22  	(transparent-sphere)
    1.23          ;;(sphere)
    1.24  	f (transparent-floor)
    1.25 -	;;controls
    1.26 -	;;(make-touch-sphere b)
    1.27 -	;;(make-touch b)
    1.28          debug-node (Node.)
    1.29          node      (doto (Node.) (.attachChild b) (.attachChild f))
    1.30          root-node (doto (Node.) (.attachChild node)
    1.31 @@ -244,14 +238,11 @@
    1.32       )
    1.33  
    1.34       (fn [& _]
    1.35 -       (let [sensitivity 5
    1.36 +       (let [sensitivity 0.2
    1.37               touch-data (touch-percieve sensitivity b node)]
    1.38 -         ;;(println-repl touch-data)
    1.39           (manage-ray-debug-node debug-node b touch-data sensitivity)
    1.40           )
    1.41         (Thread/sleep 10)
    1.42 -       ;;(touch-print controls)
    1.43 -       ;;(color-touch controls)
    1.44         ))))
    1.45  
    1.46  #+end_src