# HG changeset patch # User Robert McIntyre # Date 1319395875 25200 # Node ID d2e9f0d094752c2b0fe327176887f32b3e32a1fc # Parent c32f3eb9fdeba7001e03273341605b0a725ebf1d remove useless function diff -r c32f3eb9fdeb -r d2e9f0d09475 org/skin.org --- a/org/skin.org Sun Oct 23 11:50:17 2011 -0700 +++ b/org/skin.org Sun Oct 23 11:51:15 2011 -0700 @@ -110,21 +110,11 @@ (.setLimit limit))) (triangles geom)))) - -(defn collision-debug [node result] - (println-repl "contact point: " (.getContactPoint result)) - - - ) - (defn update-ray-debug [node ray contacts] (let [origin (.getChild node 0)] (.setLocalTranslation origin (.getOrigin ray)) (.setColor (.getMaterial origin) "Color" (contact-color contacts)))) - - - (defn init-node [debug-node rays] (println-repl "Init touch debug node.") @@ -139,8 +129,6 @@ ;;(.attachChild (ray-debug ray ColorRGBA/Gray)) )))))) - - (defn manage-ray-debug-node [debug-node geom touch-data limit] (let [rays (normal-rays limit geom)] (if (not= (count (.getChildren debug-node)) (count touch-data)) @@ -150,7 +138,6 @@ (update-ray-debug (.getChild debug-node n) (nth rays n) (nth touch-data n)))))) - (defn touch-percieve [limit geom node] (let [normals (normal-rays limit geom)] @@ -163,12 +150,7 @@ ;;color (contact-color answer) ] ;;(dorun (map #(println-repl (.getName (.getGeometry %))) results)) - - - ;;(println-repl (.size results) "results for " ray) - ;;(doall (map (partial collision-debug node) results)) - answer - ))))))) + answer ))))))) (defn enable-debug [world] (.enableDebug