1.1 --- a/org/test-creature.org	Thu Jan 19 22:19:24 2012 -0700
     1.2 +++ b/org/test-creature.org	Thu Jan 19 22:26:16 2012 -0700
     1.3 @@ -90,14 +90,6 @@
     1.4        
     1.5        image)))
     1.6  
     1.7 -(defn test-data
     1.8 -  []
     1.9 -  (vec
    1.10 -   (for [a (range 0 1000 2)
    1.11 -         b (range 0 1000 2)]
    1.12 -     (vector a b))
    1.13 -  ))
    1.14 -
    1.15  (defn average [coll]
    1.16    (/ (reduce + coll) (count coll)))
    1.17  
    1.18 @@ -108,8 +100,7 @@
    1.19          num-above (count (filter (partial < center) line))
    1.20          num-below (- length num-above)]
    1.21      (range (- center num-below)
    1.22 -           (+ center num-above))
    1.23 -    ))
    1.24 +           (+ center num-above))))
    1.25  
    1.26  (defn collapse
    1.27    "Take a set of pairs of integers and collapse them into a
    1.28 @@ -148,8 +139,7 @@
    1.29                      [(- x min-x)
    1.30                       (- y min-y)])
    1.31                    squeezed))]
    1.32 -        relocate
    1.33 -        )))
    1.34 +        relocate)))
    1.35  
    1.36  (defn load-bullet []
    1.37    (let [sim (world (Node.) {} no-op no-op)]
    1.38 @@ -232,7 +222,6 @@
    1.39       (.localToWorld object local-coordinate world-coordinate)
    1.40       world-coordinate))
    1.41  
    1.42 -
    1.43  (defmulti joint-dispatch
    1.44    "Translate blender pseudo-joints into real JME joints."
    1.45    (fn [constraints & _]