cortex: org/hearing.org comparison

added hearing debug view.

comparison

equal deleted inserted replaced

-:22548d48cc85
+:facc2ef3fe5c
 instantiates them in the world as actual ears."
 {:author "Robert McIntyre"}
 (:use (cortex world util sense))
 (:use clojure.contrib.def)
 (:import java.nio.ByteBuffer)
+(:import java.awt.image.BufferedImage)
 (:import org.tritonus.share.sampled.FloatSampleTools)
 (:import (com.aurellem.capture.audio
 SoundProcessor AudioSendRenderer))
 (:import javax.sound.sampled.AudioFormat)
 (:import (com.jme3.scene Spatial Node))
 which when called will return the auditory data from that ear."
 [#^Node creature]
 (for [ear (ears creature)]
 (hearing-fn creature ear)))
-#+end_src
+(defn view-hearing
+"Creates a function which accepts a list of auditory data and
+display each element of the list to the screen as an image."
+[]
+(view-sense
+(fn [[coords sensor-data]]
+(let [height 50
+image (BufferedImage. (count coords) height
+BufferedImage/TYPE_INT_RGB)]
+(dorun
+(for [x (range (count coords))]
+(dorun
+(for [y (range height)]
+(let [raw-sensor (sensor-data x)]
+(.setRGB image x y (gray raw-sensor)))))))
+image))))
+#+end_src
+#+results: ears
+: #'cortex.hearing/hearing!
 * Example
 #+name: test-hearing
 #+begin_src clojure :results silent

Mercurial > cortex