# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1319271634 25200
# Node ID 93ff2b4e7e6a416449a0d2d2f013c715e779dc20
# Parent  50c92af2018ecda2701ba57409c3682f74fdbcfc
trying to resolve sensitivity bugs with tough implementation

diff -r 50c92af2018e -r 93ff2b4e7e6a org/skin.org
--- a/org/skin.org	Thu Oct 20 15:10:38 2011 -0700
+++ b/org/skin.org	Sat Oct 22 01:20:34 2011 -0700
@@ -6,10 +6,22 @@
 #+INCLUDE: ../../aurellem/org/level-0.org
 
 
+let's see what checkboxes look like:
+ 
+* test [1/2]
+ - [ ] item 1
+ - [X] item 2
 
 
 * skin!
 
+
+  
+
+
+
+
+
 #+srcname: skin-main
 #+begin_src clojure
 (ns body.skin)
@@ -85,12 +97,12 @@
 	 (.getTriangle mesh n tri)
 	 (.calculateCenter tri)
 	 (.calculateNormal tri)
-	 (println-repl tri)
-	 (println-repl (.get1 tri))
-	 (println-repl (.get2 tri))
-	 (println-repl (.get3 tri))
-	 (println-repl (.getCenter tri))
-	 (println-repl (.getNormal tri))
+;;	 (println-repl tri)
+;;	 (println-repl (.get1 tri))
+;;	 (println-repl (.get2 tri))
+;;	 (println-repl (.get3 tri))
+;;	 (println-repl (.getCenter tri))
+;;	 (println-repl (.getNormal tri))
 	 (let [control
 	       (doto 
 		   (GhostControl.
@@ -102,70 +114,10 @@
 		      (.setMargin 0)
 		      ))
 		 (.setApplyPhysicsLocal true))]
-
 	   (.addControl geom control)
 	   (conj! controls! control)))))
     (persistent! controls!)))
 
-(defn make-fucked-touch [#^Geometry geom]
-  (let [tri (Triangle.)
-	mesh (.getMesh geom)
-	controls! (transient [])]
-    (dorun
-     (for [n (range (.getTriangleCount mesh))]
-       (do
-	 (.getTriangle mesh n tri)
-	 (.calculateCenter tri)
-	 (.calculateNormal tri)
-	 (println-repl tri)
-	 (println-repl (.get1 tri))
-	 (println-repl (.get2 tri))
-	 (println-repl (.get3 tri))
-	 (println-repl (.getCenter tri))
-	 (println-repl (.getNormal tri))
-	 (let [control1
-	       (doto 
-		   (GhostControl.
-		    (doto (CompoundCollisionShape.)
-		       (.addChildShape
-		        (SimplexCollisionShape. Vector3f/ZERO)
-		       (.get1 tri))))
-		 (.setApplyPhysicsLocal true))]
-
-	   (.addControl geom control1)
-	   (conj! controls! control1)
-	   )
-	 
-	 ;; (let [control1
-	 ;;       (doto 
-	 ;; 	   (GhostControl.
-	 ;; 	    (doto (CompoundCollisionShape.)
-	 ;; 	      (.addChildShape
-	 ;; 	       (SimplexCollisionShape. Vector3f/ZERO)
-	 ;; 	      (.get2 tri))))
-	 ;; 	 (.setApplyPhysicsLocal true))]
-	   
-	 ;;   (.addControl geom control1)
-	 ;;   (conj! controls! control1)
-	 ;;   )
-	 
-	 ;; (let [control1
-	 ;;       (doto 
-	 ;; 	   (GhostControl.
-	 ;; 	    (doto (CompoundCollisionShape.)
-	 ;; 	       (.addChildShape
-	 ;; 	        (SimplexCollisionShape. Vector3f/ZERO)
-	 ;; 	       (.get3 tri))))
-	 ;; 	 (.setApplyPhysicsLocal true))]
-	   
-	 ;;   (.addControl geom control1)
-	 ;;   (conj! controls! control1)
-	 
-	   )))
-	 (persistent! controls!)))
-
-
-
 (use 'hello.brick-wall)
 
 (defn touch-reception [controls]
@@ -189,7 +141,6 @@
   ((fn [[r g b]] (ColorRGBA. r g b (float 1)))
    (map #(float (/ (Integer/parseInt % 16) 255))
 	(map (partial apply str) (partition 2 html-str)))))
-  
 
 (defn color-touch [controls]
   (no-exceptions
@@ -216,13 +167,6 @@
      BulletAppState))
    (asset-manager)))
 
-(def with-debug
-     '(1 1 1 1 0 1 2 0 2 0 1 1 1 1 0 2 0 2 2 1 0 0 0 1 0 0 0 0 1 0))
-(def no-debug
-     '(1 1 1 1 0 1 2 0 2 0 1 1 1 1 0 2 0 2 2 1 0 0 0 1 0 0 0 0 1 0))
-
-
-
 (defn transparent-sphere []
   (doto
       (make-shape
@@ -301,7 +245,7 @@
        )
 
      (fn [& _]
-       (touch-print controls)
+       ;;(touch-print controls)
        (color-touch controls)
        ))))