Mercurial > cortex

diff org/test-creature.org @ 164:c33a8e5fe7bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))