Mercurial > cortex

comparison org/gabor.org @ 366:871882350c83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cosmetic improvement.
author Robert McIntyre <rlm@mit.edu>
date Thu, 07 Mar 2013 07:50:28 +0000
parents 1727b68634ea
children 078600644d94
comparison
equal deleted inserted replaced
365:1727b68634ea 366:871882350c83
198 198
199 199
200 (defn floor* 200 (defn floor*
201 "make a sturdy, unmovable physical floor" 201 "make a sturdy, unmovable physical floor"
202 [] 202 []
203 (box 10 0.1 5 :name "floor" :mass 0 :color ColorRGBA/Gray :position (Vector3f. 0 0 0))) 203 (box 10 0.1 5 :name "floor" :mass 0
204 :color ColorRGBA/Gray :position (Vector3f. 0 0 0)))
204 205
205 (defn floor* [] 206 (defn floor* []
206 (doto (box 10 0.1 5 :name "floor" ;10 0.1 5 ; 240 0.1 240 207 (doto (box 10 0.1 5 :name "floor" ;10 0.1 5 ; 240 0.1 240
207 :material "Common/MatDefs/Misc/Unshaded.j3md" 208 :material "Common/MatDefs/Misc/Unshaded.j3md"
208 :texture "Textures/BronzeCopper030.jpg" 209 :texture "Textures/BronzeCopper030.jpg"
254 ) 255 )
255 {"key-f" (fn [game value] 256 {"key-f" (fn [game value]
256 (if (not value) (add-element game (brick-wall*)))) 257 (if (not value) (add-element game (brick-wall*))))
257 "key-space" (fire-cannon-ball )} 258 "key-space" (fire-cannon-ball )}
258 (fn [world] 259 (fn [world]
259 (position-camera world 260 (position-camera
260 (Vector3f. 1.382548, 4.0383573, 5.994235) 261 world
261 (Quaternion. 0.0013082094, 0.98581666, -0.1676442, 0.0076932586)) 262 (Vector3f. 1.382548, 4.0383573, 5.994235)
263 (Quaternion. 0.0013082094, 0.98581666,
264 -0.1676442, 0.0076932586))
262 265
263 ;;(speed-up world) 266 ;;(speed-up world)
264 267
265 (if record? 268 (if record?
266 (Capture/captureVideo 269 (Capture/captureVideo