cortex: org/skin.org comparison

touch has been GREATLY improved

comparison

equal deleted inserted replaced

-:014b14d48092
+:221052dac374
 (.collideWith node ray results)
 (let [answer (set (filter #(not (= geom %))
 (map #(.getGeometry %) results)))
 ;;color (contact-color answer)
 ]
-(if (= 2 (count answer))
-(dorun (map #(println-repl (.getName %)) answer)))
+;;(dorun (map #(println-repl (.getName %)) answer))
 (count answer) )))))))
 (defn enable-debug [world]
 (.enableDebug
 (.getPhysicsSpace
 (.setBlendMode RenderState$BlendMode/Alpha))
 (.setQueueBucket RenderQueue$Bucket/Transparent)))
 (defn test-skin []
 (let [b
-	(transparent-box)
+	;;(transparent-box)
-	;;(transparent-sphere)
+	(transparent-sphere)
 ;;(sphere)
 	f (transparent-floor)
 	;;controls
 	;;(make-touch-sphere b)
 	;;(make-touch b)
 (fn [world]
 ;;  (Capture/SimpleCaptureVideo
 ;;   world
 ;;   (file-str "/home/r/proj/cortex/tmp/blob.avi"))
 ;;  (no-logging)
-(enable-debug world)
+;;(enable-debug world)
 ;;  (set-accuracy world (/ 1 60))
 )
 (fn [& _]
-(let [touch-data (touch-percieve 0.2 b node)]
+(let [sensitivity 5
+touch-data (touch-percieve sensitivity b node)]
 ;;(println-repl touch-data)
-(manage-ray-debug-node debug-node b touch-data 0.2))
+(manage-ray-debug-node debug-node b touch-data sensitivity)
+)
 (Thread/sleep 10)
 ;;(touch-print controls)
 ;;(color-touch controls)
 ))))

Mercurial > cortex