diff org/test-creature.org @ 105:3334bf15854b

removed useless code
author Robert McIntyre <rlm@mit.edu>
date Sat, 14 Jan 2012 23:06:44 -0700
parents ee302b65213b
children 40e72c6943d8
line wrap: on
line diff
     1.1 --- a/org/test-creature.org	Sat Jan 14 23:05:52 2012 -0700
     1.2 +++ b/org/test-creature.org	Sat Jan 14 23:06:44 2012 -0700
     1.3 @@ -753,31 +753,6 @@
     1.4                        1 -1} (sensor-data i)))))
     1.5          (vi image)))))
     1.6  
     1.7 -
     1.8 -(defn all-names []
     1.9 -  (concat 
    1.10 -   (re-split #"\n" (slurp (file-str
    1.11 -                           "/home/r/proj/names/dist.female.first")))
    1.12 -   (re-split #"\n" (slurp (file-str
    1.13 -                           "/home/r/proj/names/dist.male.first")))
    1.14 -   (re-split #"\n" (slurp (file-str
    1.15 -                           "/home/r/proj/names/dist.all.last")))))
    1.16 -
    1.17 -
    1.18 -
    1.19 -
    1.20 -
    1.21 -
    1.22 -
    1.23 -
    1.24 -       
    1.25 -(defrecord LulzLoader [])
    1.26 -(defprotocol Lulzable (load-lulz [this]))
    1.27 -(extend-type LulzLoader
    1.28 -  Lulzable
    1.29 -  (load-lulz [this] (println "the lulz have arrived!")))
    1.30 -
    1.31 -
    1.32  (defn world-setup [joint]
    1.33    (let [joint-position (Vector3f. 0 0 0)
    1.34          joint-rotation