Mercurial > cortex

comparison org/worm_learn.clj @ 398:36d492f4deab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
finished for the night.
author Robert McIntyre <rlm@mit.edu>
date Tue, 04 Mar 2014 00:01:38 -0500
parents 72ee485d9179
children 85393ec986dc
comparison
equal deleted inserted replaced
397:72ee485d9179 398:36d492f4deab
17 17
18 (defn worm-segment [] 18 (defn worm-segment []
19 (load-blender-model "Models/worm-segment/worm-segment.blend")) 19 (load-blender-model "Models/worm-segment/worm-segment.blend"))
20 20
21 21
22 (defn worm-segment [] 22 (defn worm []
23 (load-blender-model "Models/test-touch/touch-cube.blend")) 23 (load-blender-model "Models/worm-segment/worm.blend"))
24 24
25 25
26 (defn gen-worm 26 (defn gen-worm
27 "create a creature acceptable for testing as a replacement for the 27 "create a creature acceptable for testing as a replacement for the
28 worm." 28 worm."
57 57
58 Keys: 58 Keys:
59 <space> : fire ball" 59 <space> : fire ball"
60 ([] (test-basic-touch false)) 60 ([] (test-basic-touch false))
61 ([record?] 61 ([record?]
62 (let [head (doto (worm-segment) (body!)) 62 (let [head (doto (worm) (body!))
63 touch (touch! head) 63 touch (touch! head)
64 touch-display (view-touch)] 64 touch-display (view-touch)]
65 (world 65 (world
66 (nodify [head 66 (nodify [head
67 (box 10 1 10 :position (Vector3f. 0 -10 0) 67 (box 10 1 10 :position (Vector3f. 0 -10 0)