#+title: Simulated Sense of Sight

 #+author: Robert McIntyre

 #+email: rlm@mit.edu

 #+description: Simulated sight for AI research using JMonkeyEngine3

 #+keywords: computer vision, jMonkeyEngine3, clojure

 #+SETUPFILE: ../../aurellem/org/setup.org

 #+INCLUDE: ../../aurellem/org/level-0.org

 #+babel: :mkdirp yes :noweb yes :exports both

 

 * Vision

 

 I want to make creatures with eyes. Each eye can be independely moved

 and should see its own version of the world depending on where it is.

 #+srcname: eyes

 #+begin_src clojure 

 (ns cortex.vision

   "Simulate the sense of vision in jMonkeyEngine3. Enables multiple

   eyes from different positions to observe the same world, and pass

   the observed data to any arbitray function."

   {:author "Robert McIntyre"}

   (:use cortex.world)

   (:import com.jme3.post.SceneProcessor)

   (:import (com.jme3.util Screenshots BufferUtils))

   (:import java.nio.ByteBuffer)

   (:import java.awt.image.BufferedImage)

   (:import com.jme3.renderer.ViewPort)

   (:import com.jme3.math.ColorRGBA))

 

 (defn scene-processor

   "Create a SceneProcessor object which wraps a vision processing

   continuation function. The SceneProcessor will take care of

   converting the rendered frame to a BufferedImage and passing that

   BufferedImage to the continuation.  The continuation should be a

   function that takes a BufferedImage."

   [continuation]

   (let [byte-buffer (atom nil)

 	renderer (atom nil)

 	image (atom nil)]

   (proxy [SceneProcessor] []

     (initialize

      [renderManager viewPort]

      (let [cam (.getCamera viewPort)

 	   width (.getWidth cam)

 	   height (.getHeight cam)]

        (reset! renderer (.getRenderer renderManager))

        (reset! byte-buffer

 	     (BufferUtils/createByteBuffer

 	      (* width height 4)))

        (reset! image (BufferedImage.

                       width height

                       BufferedImage/TYPE_4BYTE_ABGR))))

     (isInitialized [] (not (nil? @byte-buffer)))

     (reshape [_ _ _])

     (preFrame [_])

     (postQueue [_])

     (postFrame

      [#^FrameBuffer fb]

      (.clear @byte-buffer)

      (.readFrameBuffer @renderer fb @byte-buffer)

      (Screenshots/convertScreenShot @byte-buffer @image)

      (continuation @image))

     (cleanup []))))

     

 (defn add-eye

   "Add an eye to the world, calling continuation on every frame

   produced." 

   [world camera continuation]

   (let [width (.getWidth camera)

 	height (.getHeight camera)

 	render-manager (.getRenderManager world)

 	viewport (.createMainView render-manager "eye-view" camera)]

     (doto viewport

       (.setClearFlags true true true)

       (.setBackgroundColor ColorRGBA/Gray)

       (.addProcessor (scene-processor continuation))

       (.attachScene (.getRootNode world)))))

 

 #+end_src

 

 Note the use of continuation passing style for connecting the eye to a

 function to process the output. You can create any number of eyes, and

 each of them will see the world from their own =Camera=. Once every

 frame, the rendered image is copied to a =BufferedImage=, and that

 data is sent off to the continuation function. Moving the =Camera=

 which was used to create the eye will change what the eye sees.

 

 * Example

 

 #+srcname: test-vision

 #+begin_src clojure

 (ns test.vision

   (:use (cortex world util vision))

   (:import java.awt.image.BufferedImage)

   (:import javax.swing.JPanel)

   (:import javax.swing.SwingUtilities)

   (:import java.awt.Dimension)

   (:import javax.swing.JFrame)

   (:import com.jme3.math.ColorRGBA)

   (:import com.jme3.scene.Node))

 

 (defn view-image

   "Initailizes a JPanel on which you may draw a BufferedImage of the

   given width and height.  Returns a function that accepts a

   BufferedImage and draws it to the JPanel."

   [width height]

   (let [image

         (atom

          (BufferedImage. width height BufferedImage/TYPE_4BYTE_ABGR))

         panel 

         (proxy [JPanel] []

           (paint

             [graphics]

             (proxy-super paintComponent graphics)

             (.drawImage graphics @image 0 0 nil)

             ))]

     

     (SwingUtilities/invokeLater

      (fn []

        (.setPreferredSize panel (Dimension. width height))

        (doto (JFrame. "Eye Camera!")

          (-> (.getContentPane) (.add panel))

          (.pack)

          (.setLocationRelativeTo nil)

          (.setResizable false)

          (.setVisible true))))

     (fn [#^BufferedImage i]

       (reset! image i)

       (.repaint panel))))

 

 (defn test-vision 

   "Tests the vision system by creating two views of the same rotating

   object from different angles and displaying both of those views in

   JFrames."  []

   (.start

    (let [candy

          (box 1 1 1 :physical? false :color ColorRGBA/Blue)]

      (world (doto (Node.)

               (.attachChild candy))

             {}

             (fn [world]

               (let [cam (.clone (.getCamera world))

                     width (.getWidth cam)

                     height (.getHeight cam)]

                 (add-eye world

                          (doto (.clone cam)

                            (.setLocation (Vector3f. -10 0 0))

                            (.lookAt Vector3f/ZERO Vector3f/UNIT_Y))

                          (view-image width height))

                 (add-eye world cam

                          (view-image width height))

                 ;; this is here to restore the main view

                 ;; after the other views have completed processing

                 (add-eye world (.getCamera world) no-op)

                 ))

             (fn [world tpf]

               (.rotate candy (* tpf 0.2) 0 0))))))

 #+end_src

 

 The example code will create two videos of the same rotating object

 from different angles. It can be used both for stereoscopic vision

 simulation or for simulating multiple creatures, each with their own

 sense of vision.

 

 

 * COMMENT code generation

 #+begin_src clojure :tangle ../src/cortex/vision.clj

 <<eyes>>

 #+end_src

 

 #+begin_src clojure :tangle ../src/test/vision.clj

 <<test-vision>>

 #+end_src