Mercurial > cortex

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed useless code
author Robert McIntyre <rlm@mit.edu>
date Sat, 14 Jan 2012 23:06:44 -0700
parents ee302b65213b
children 40e72c6943d8
comparison
equal deleted inserted replaced
104:ee302b65213b 105:3334bf15854b
750 (for [i (range (count coords))] 750 (for [i (range (count coords))]
751 (.setRGB image ((coords i) 0) ((coords i) 1) 751 (.setRGB image ((coords i) 0) ((coords i) 1)
752 ({0 -16777216 752 ({0 -16777216
753 1 -1} (sensor-data i))))) 753 1 -1} (sensor-data i)))))
754 (vi image))))) 754 (vi image)))))
755
756
757 (defn all-names []
758 (concat
759 (re-split #"\n" (slurp (file-str
760 "/home/r/proj/names/dist.female.first")))
761 (re-split #"\n" (slurp (file-str
762 "/home/r/proj/names/dist.male.first")))
763 (re-split #"\n" (slurp (file-str
764 "/home/r/proj/names/dist.all.last")))))
765
766
767
768
769
770
771
772
773
774 (defrecord LulzLoader [])
775 (defprotocol Lulzable (load-lulz [this]))
776 (extend-type LulzLoader
777 Lulzable
778 (load-lulz [this] (println "the lulz have arrived!")))
779
780 755
781 (defn world-setup [joint] 756 (defn world-setup [joint]
782 (let [joint-position (Vector3f. 0 0 0) 757 (let [joint-position (Vector3f. 0 0 0)
783 joint-rotation 758 joint-rotation
784 (.toRotationMatrix 759 (.toRotationMatrix