cortex: org/ear.org comparison

comparison org/ear.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	362bc30a3d41

comparison

equal deleted inserted replaced

-:985c73659923
+:c33a8e5fe7bc
 simple.  Just as there were =SceneProcessors= for vision, there are
 now =SoundProcessors= for hearing.
 #+include "../../jmeCapture/src/com/aurellem/capture/audio/SoundProcessor.java" src java
+Ears work the same way as vision.
+(hearing creature) will return [init-functions sensor-functions]. The
+init functions each take the world and register a SoundProcessor that
+does foureier transforms on the incommong sound data, making it
+available to each sensor function.
 #+name: ears
 #+begin_src clojure
 (ns cortex.hearing
 "Simulate the sense of hearing in jMonkeyEngine3. Enables multiple
-listeners at different positions in the same world. Passes vectors
+listeners at different positions in the same world. Automatically
-of floats in the range [-1.0 -- 1.0] in PCM format to any arbitrary
+reads ear-nodes from specially prepared blender files and
-function."
+instantiates them in the world as actual ears."
 {:author "Robert McIntyre"}
 (:use (cortex world util sense))
 (:import java.nio.ByteBuffer)
 (:import org.tritonus.share.sampled.FloatSampleTools)
 (:import com.aurellem.capture.audio.SoundProcessor)
 (:import javax.sound.sampled.AudioFormat))
 (cortex.import/mega-import-jme3)
+(use 'clojure.contrib.def)
 (defn sound-processor
 "Deals with converting ByteBuffers into Vectors of floats so that
 the continuation functions can be defined in terms of immutable
 stuff."
 (FloatSampleTools/byte2floatInterleaved
 bytes 0 floats 0 num-floats audioFormat)
 (continuation
 (vec floats))))))
-(defn ears
+(defvar
-"Return the children of the creature's \"ears\" node."
+^{:arglists '([creature])}
-[#^Node creature]
+ears
-(if-let [ear-node (.getChild creature "ears")]
+(sense-nodes "ears")
-(seq (.getChildren ear-node))
+"Return the children of the creature's \"ears\" node.")
-(do (println-repl "could not find ears node") [])))
 (defn update-listener-velocity!
 "Update the listener's velocity every update loop."
 [#^Spatial obj #^Listener lis]
 (let [old-position (atom (.getLocation lis))]
 (reset! old-position new-position)))
 (controlRender [_ _])))))
 (import com.aurellem.capture.audio.AudioSendRenderer)
 (defn create-listener!
+"Create a Listener centered on the current position of 'ear
+which follows the closest physical node in 'creature and
+sends sound data to 'continuation."
 [#^Application world #^Node creature #^Spatial ear continuation]
 (let [target (closest-node creature ear)
 lis (Listener.)
 audio-renderer (.getAudioRenderer world)
 sp (sound-processor continuation)]
 (update-listener-velocity! target lis)
 (.addListener audio-renderer lis)
 (.registerSoundProcessor audio-renderer lis sp)))
 (defn hearing-fn
+"Returns a functon which returns auditory sensory data when called
+inside a running simulation."
 [#^Node creature #^Spatial ear]
-(let [hearing-data (atom [])]
+(let [hearing-data (atom [])
-[(fn [world]
+register-listener!
-(create-listener! world creature ear
+(runonce
-(fn [data]
+(fn [#^Application world]
-(reset! hearing-data (vec data)))))
+(create-listener!
-[(fn []
+world creature ear
-(let [data @hearing-data
+(fn [data]
-topology
+(reset! hearing-data (vec data))))))]
-(vec (map #(vector % 0) (range 0 (count data))))
+(fn [#^Application world]
-scaled-data
+(register-listener! world)
-(vec
+(let [data @hearing-data
-(map
+topology
-#(rem (int (* 255 (/ (+ 1 %) 2)))  256)
+(vec (map #(vector % 0) (range 0 (count data))))
-data))]
+scaled-data
-[topology scaled-data]))
+(vec
-]]))
+(map
+#(rem (int (* 255 (/ (+ 1 %) 2)))  256)
+data))]
+[topology scaled-data]))))
 (defn hearing!
+"Endow the creature in a particular world with the sense of
+hearing. Will return a sequence of functions, one for each ear,
+which when called will return the auditory data from that ear."
 [#^Node creature]
-(reduce
+(for [ear (ears creature)]
-(fn [[init-a senses-a]
+(hearing-fn creature ear)))
-[init-b senses-b]]
-[(conj init-a init-b)
-(into senses-a senses-b)])
-[[][]]
-(for [ear (ears creature)]
-(hearing-fn creature ear))))
 #+end_src
 * Example

Mercurial > cortex

comparison org/ear.org @ 164:c33a8e5fe7bc