cortex: org/vision.org comparison

comparison org/vision.org @ 283:23aadf376e9d

upgraded to latest jMonkeyEngine, streamlined tests

author	Robert McIntyre <rlm@mit.edu>
date	Wed, 15 Feb 2012 16:56:01 -0700
parents	dbecd276b51a
children	7e7f8d6d9ec5

comparison

equal deleted inserted replaced

-:2ad29b68ff22
+:23aadf376e9d
 object from different angles and displaying both of those views in
 JFrames.
 You should see a rotating cube, and two windows,
 each displaying a different view of the cube."
-[]
+([] (test-pipeline false))
-(let [candy
+([record?]
-(box 1 1 1 :physical? false :color ColorRGBA/Blue)]
+(let [candy
-(world
+(box 1 1 1 :physical? false :color ColorRGBA/Blue)]
-(doto (Node.)
+(world
-(.attachChild candy))
+(doto (Node.)
-{}
+(.attachChild candy))
-(fn [world]
+{}
-(let [cam (.clone (.getCamera world))
+(fn [world]
-width (.getWidth cam)
+(let [cam (.clone (.getCamera world))
-height (.getHeight cam)]
+width (.getWidth cam)
-(add-camera! world cam
+height (.getHeight cam)]
-(comp
+(add-camera! world cam
-(view-image
+(comp
-(File. "/home/r/proj/cortex/render/vision/1"))
+(view-image
-BufferedImage!))
+(if record?
-(add-camera! world
+(File. "/home/r/proj/cortex/render/vision/1")))
-(doto (.clone cam)
+BufferedImage!))
-(.setLocation (Vector3f. -10 0 0))
+(add-camera! world
-(.lookAt Vector3f/ZERO Vector3f/UNIT_Y))
+(doto (.clone cam)
-(comp
+(.setLocation (Vector3f. -10 0 0))
-(view-image
+(.lookAt Vector3f/ZERO Vector3f/UNIT_Y))
-(File. "/home/r/proj/cortex/render/vision/2"))
+(comp
-BufferedImage!))
+(view-image
-;; This is here to restore the main view
+(if record?
+(File. "/home/r/proj/cortex/render/vision/2")))
+BufferedImage!))
+;; This is here to restore the main view
 ;; after the other views have completed processing
 (add-camera! world (.getCamera world) no-op)))
 (fn [world tpf]
-(.rotate candy (* tpf 0.2) 0 0)))))
+(.rotate candy (* tpf 0.2) 0 0))))))
 #+end_src
 #+begin_html
 <div class="figure">
 <video controls="controls" width="755">
 (defn colored-cannon-ball [color]
 (comp #(change-color % color)
 (fire-cannon-ball)))
-(defn test-worm-vision [record]
+(defn test-worm-vision
-(let [the-worm (doto (worm)(body!))
+([] (test-worm-vision false))
-vision (vision! the-worm)
+([record?]
-vision-display (view-vision)
+(let [the-worm (doto (worm)(body!))
-fix-display (gen-fix-display)
+vision (vision! the-worm)
-me (sphere 0.5 :color ColorRGBA/Blue :physical? false)
+vision-display (view-vision)
-x-axis
+fix-display (gen-fix-display)
-(box 1 0.01 0.01 :physical? false :color ColorRGBA/Red
+me (sphere 0.5 :color ColorRGBA/Blue :physical? false)
-:position (Vector3f. 0 -5 0))
+x-axis
-y-axis
+(box 1 0.01 0.01 :physical? false :color ColorRGBA/Red
-(box 0.01 1 0.01 :physical? false :color ColorRGBA/Green
+:position (Vector3f. 0 -5 0))
-:position (Vector3f. 0 -5 0))
+y-axis
-z-axis
+(box 0.01 1 0.01 :physical? false :color ColorRGBA/Green
-(box 0.01 0.01 1 :physical? false :color ColorRGBA/Blue
+:position (Vector3f. 0 -5 0))
-:position (Vector3f. 0 -5 0))
+z-axis
-timer (RatchetTimer. 60)]
+(box 0.01 0.01 1 :physical? false :color ColorRGBA/Blue
+:position (Vector3f. 0 -5 0))
-(world (nodify [(floor) the-worm x-axis y-axis z-axis me])
+timer (RatchetTimer. 60)]
-(assoc standard-debug-controls
-"key-r" (colored-cannon-ball ColorRGBA/Red)
+(world (nodify [(floor) the-worm x-axis y-axis z-axis me])
-"key-b" (colored-cannon-ball ColorRGBA/Blue)
+(assoc standard-debug-controls
-"key-g" (colored-cannon-ball ColorRGBA/Green))
+"key-r" (colored-cannon-ball ColorRGBA/Red)
-(fn [world]
+"key-b" (colored-cannon-ball ColorRGBA/Blue)
-(light-up-everything world)
+"key-g" (colored-cannon-ball ColorRGBA/Green))
-(speed-up world)
+(fn [world]
-(.setTimer world timer)
+(light-up-everything world)
-(display-dialated-time world timer)
+(speed-up world)
-;; add a view from the worm's perspective
+(.setTimer world timer)
-(if record
+(display-dialated-time world timer)
-(Capture/captureVideo
+;; add a view from the worm's perspective
-world
+(if record?
-(File.
+(Capture/captureVideo
-"/home/r/proj/cortex/render/worm-vision/main-view")))
+world
+(File.
-(add-camera!
+"/home/r/proj/cortex/render/worm-vision/main-view")))
-world
-(add-eye! the-worm
+(add-camera!
-(.getChild
+world
-(.getChild the-worm "eyes") "eye"))
+(add-eye! the-worm
-(comp
+(.getChild
-(view-image
+(.getChild the-worm "eyes") "eye"))
-(if record
+(comp
-(File.
+(view-image
-"/home/r/proj/cortex/render/worm-vision/worm-view")))
+(if record?
-BufferedImage!))
+(File.
+"/home/r/proj/cortex/render/worm-vision/worm-view")))
-(set-gravity world Vector3f/ZERO))
+BufferedImage!))
-(fn [world _ ]
+(set-gravity world Vector3f/ZERO))
-(.setLocalTranslation me (.getLocation (.getCamera world)))
-(vision-display
+(fn [world _ ]
-(map #(% world) vision)
+(.setLocalTranslation me (.getLocation (.getCamera world)))
-(if record (File. "/home/r/proj/cortex/render/worm-vision")))
+(vision-display
-(fix-display world)))))
+(map #(% world) vision)
+(if record? (File. "/home/r/proj/cortex/render/worm-vision")))
+(fix-display world))))))
 #+end_src
 The world consists of the worm and a flat gray floor. I can shoot red,
 green, blue and white cannonballs at the worm. The worm is initially
 looking down at the floor, and there is no gravity. My perspective

Mercurial > cortex

comparison org/vision.org @ 283:23aadf376e9d