Mercurial > cortex
diff org/test-creature.org @ 164:c33a8e5fe7bc
removed hearing-init-fns requirement, changed names
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sat, 04 Feb 2012 03:29:59 -0700 |
parents | 985c73659923 |
children | 9e6a30b8c99a |
line wrap: on
line diff
1.1 --- a/org/test-creature.org Sat Feb 04 02:15:32 2012 -0700 1.2 +++ b/org/test-creature.org Sat Feb 04 03:29:59 2012 -0700 1.3 @@ -184,7 +184,7 @@ 1.4 [init-vision-fns vision-data] (vision creature) 1.5 vision-debug (map (fn [_] (debug-vision-window)) vision-data) 1.6 me (sphere 0.5 :color ColorRGBA/Blue :physical? false) 1.7 - [init-hearing-fns hearing-senses] (hearing! creature) 1.8 + hearing-senses (hearing! creature) 1.9 hearing-windows (map (fn [_] (debug-hearing-window 50)) 1.10 hearing-senses) 1.11 bell (AudioNode. (asset-manager) 1.12 @@ -231,7 +231,7 @@ 1.13 (light-up-everything world) 1.14 (enable-debug world) 1.15 (dorun (map #(% world) init-vision-fns)) 1.16 - (dorun (map #(% world) init-hearing-fns)) 1.17 + ;;(dorun (map #(% world) init-hearing-fns)) 1.18 1.19 (add-eye world 1.20 (attach-eye creature (test-eye)) 1.21 @@ -259,7 +259,7 @@ 1.22 (map #(%1 (%2)) 1.23 vision-debug vision-data)) 1.24 (dorun 1.25 - (map #(%1 (%2)) hearing-windows hearing-senses)) 1.26 + (map #(%1 (%2 world)) hearing-windows hearing-senses)) 1.27 1.28 1.29 ;;(println-repl (vision-data))