diff org/joint.org @ 351:0596613e5a41

evened out touch sensor sensitivity in joint creature model.
author Robert McIntyre <rlm@mit.edu>
date Mon, 23 Jul 2012 07:59:55 -0500
parents d2806d5c5f74
children d9128eb5f42e
line wrap: on
line diff
     1.1 --- a/org/joint.org	Mon Jul 23 07:41:12 2012 -0500
     1.2 +++ b/org/joint.org	Mon Jul 23 07:59:55 2012 -0500
     1.3 @@ -30,12 +30,12 @@
     1.4  
     1.5  (def joint "Models/joint/joint.blend")
     1.6  
     1.7 -(defn load-creature []
     1.8 +(defn joint-creature []
     1.9    (load-blender-model joint))
    1.10  
    1.11 -(defn test-creature []
    1.12 +(defn test-joint-creature []
    1.13    (let [me (sphere 0.5 :color ColorRGBA/Blue :physical? false)
    1.14 -        creature (doto (load-creature) (body!))
    1.15 +        creature (doto (joint-creature) (body!))
    1.16  
    1.17        ;;;;;;;;;;;;  Sensors/Effectors  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    1.18          touch (touch! creature)
    1.19 @@ -62,6 +62,8 @@
    1.20       (nodify [floor me creature])
    1.21       standard-debug-controls
    1.22       (fn [world]
    1.23 +       ;;(speed-up world)
    1.24 +       (light-up-everything world)
    1.25         (let [timer (RatchetTimer. 60)]
    1.26           (.setTimer world timer)
    1.27           (display-dilated-time world timer)))