diff org/sense-util.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 e8df6e76c3e5
children 9e6a30b8c99a
line wrap: on
line diff
     1.1 --- a/org/sense-util.org	Sat Feb 04 02:15:32 2012 -0700
     1.2 +++ b/org/sense-util.org	Sat Feb 04 03:29:59 2012 -0700
     1.3 @@ -174,6 +174,14 @@
     1.4     [#^Spatial object local-coordinate]
     1.5     (.localToWorld object local-coordinate nil))
     1.6  
     1.7 +
     1.8 +(defn sense-nodes [parent-name]
     1.9 +  (fn [#^Node creature]
    1.10 +    (if-let [sense-node (.getChild creature parent-name)]
    1.11 +      (seq (.getChildren sense-node))
    1.12 +      (do (println-repl "could not find" parent-name "node") []))))
    1.13 +
    1.14 +
    1.15  #+end_src
    1.16  
    1.17  #+results: sense-util