diff org/skin.org @ 16:d2e9f0d09475

remove useless function
author Robert McIntyre <rlm@mit.edu>
date Sun, 23 Oct 2011 11:51:15 -0700
parents c32f3eb9fdeb
children 014b14d48092
line wrap: on
line diff
     1.1 --- a/org/skin.org	Sun Oct 23 11:50:17 2011 -0700
     1.2 +++ b/org/skin.org	Sun Oct 23 11:51:15 2011 -0700
     1.3 @@ -110,21 +110,11 @@
     1.4          (.setLimit limit)))
     1.5      (triangles geom))))
     1.6  
     1.7 -
     1.8 -(defn collision-debug [node result]
     1.9 -  (println-repl "contact point: " (.getContactPoint result))
    1.10 -
    1.11 -
    1.12 -  )
    1.13 -
    1.14  (defn update-ray-debug [node ray contacts]
    1.15    (let [origin (.getChild node 0)]
    1.16      (.setLocalTranslation origin (.getOrigin ray))
    1.17      (.setColor (.getMaterial origin) "Color" (contact-color contacts))))
    1.18  
    1.19 -  
    1.20 -
    1.21 -
    1.22  (defn init-node
    1.23    [debug-node rays]
    1.24      (println-repl "Init touch debug node.")
    1.25 @@ -139,8 +129,6 @@
    1.26              ;;(.attachChild (ray-debug ray ColorRGBA/Gray))
    1.27              ))))))
    1.28  
    1.29 -
    1.30 -
    1.31  (defn manage-ray-debug-node [debug-node geom touch-data limit]
    1.32    (let [rays (normal-rays limit geom)]
    1.33      (if (not= (count (.getChildren debug-node)) (count touch-data))
    1.34 @@ -150,7 +138,6 @@
    1.35         (update-ray-debug
    1.36          (.getChild debug-node n) (nth rays n) (nth touch-data n))))))
    1.37  
    1.38 -
    1.39  (defn touch-percieve [limit geom node]
    1.40    (let [normals  (normal-rays limit geom)]
    1.41  
    1.42 @@ -163,12 +150,7 @@
    1.43                   ;;color (contact-color answer)
    1.44                   ]
    1.45               ;;(dorun (map #(println-repl (.getName (.getGeometry %))) results))
    1.46 -             
    1.47 -           
    1.48 -           ;;(println-repl (.size results) "results for " ray)
    1.49 -           ;;(doall (map (partial collision-debug node) results))
    1.50 -           answer
    1.51 -           )))))))
    1.52 +             answer )))))))
    1.53  
    1.54  (defn enable-debug [world]
    1.55    (.enableDebug