Mercurial > cortex

comparison org/eyes.org @ 69:39e4e1542e4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated test-suite
author Robert McIntyre <rlm@mit.edu>
date Fri, 09 Dec 2011 23:11:28 -0600
parents 6cd5a034d855
children b7a3ba5e879b
comparison
equal deleted inserted replaced
68:6cd5a034d855 69:39e4e1542e4a
124 (fn [#^BufferedImage i] 124 (fn [#^BufferedImage i]
125 (reset! image i) 125 (reset! image i)
126 (.repaint panel)))) 126 (.repaint panel))))
127 127
128 (defn test-two-eyes 128 (defn test-two-eyes
129 "Tests the vision system by creating two views of the same rotating 129 "Testing vision:
130 object from different angles and displaying both of those views in 130 Tests the vision system by creating two views of the same rotating
131 JFrames." 131 object from different angles and displaying both of those views in
132 JFrames.
133
134 You should see a rotating cube, and two windows,
135 each displaying a different view of the cube."
132 [] 136 []
133 (let [candy 137 (let [candy
134 (box 1 1 1 :physical? false :color ColorRGBA/Blue)] 138 (box 1 1 1 :physical? false :color ColorRGBA/Blue)]
135 (world (doto (Node.) 139 (world (doto (Node.)
136 (.attachChild candy)) 140 (.attachChild candy))