Mercurial > cortex

comparison org/vision.org @ 348:5405f369f4a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added summary of each sense for the joint.
author Robert McIntyre <rlm@mit.edu>
date Mon, 23 Jul 2012 03:51:13 -0500
parents 2e7d786241d3
children 3401053124b0
comparison
equal deleted inserted replaced
347:ef958c44563d 348:5405f369f4a0
409 into one list of functions. 409 into one list of functions.
410 410
411 #+name: main 411 #+name: main
412 #+begin_src clojure 412 #+begin_src clojure
413 (defn vision! 413 (defn vision!
414 "Returns a function which returns visual sensory data when called 414 "Returns a list of functions, each of which returns visual sensory
415 inside a running simulation." 415 data when called inside a running simulation."
416 [#^Node creature & {skip :skip :or {skip 0}}] 416 [#^Node creature & {skip :skip :or {skip 0}}]
417 (reduce 417 (reduce
418 concat 418 concat
419 (for [eye (eyes creature)] 419 (for [eye (eyes creature)]
420 (vision-kernel creature eye)))) 420 (vision-kernel creature eye))))