changeset 366:871882350c83

cosmetic improvement.
author Robert McIntyre <rlm@mit.edu>
date Thu, 07 Mar 2013 07:50:28 +0000
parents 1727b68634ea
children 078600644d94
files org/gabor.org
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/org/gabor.org	Thu Mar 07 07:49:55 2013 +0000
     1.2 +++ b/org/gabor.org	Thu Mar 07 07:50:28 2013 +0000
     1.3 @@ -200,7 +200,8 @@
     1.4  (defn floor*
     1.5    "make a sturdy, unmovable physical floor"
     1.6    []
     1.7 -  (box 10 0.1 5 :name "floor" :mass 0 :color ColorRGBA/Gray :position (Vector3f. 0 0 0)))
     1.8 +  (box 10 0.1 5 :name "floor" :mass 0 
     1.9 +       :color ColorRGBA/Gray :position (Vector3f. 0 0 0)))
    1.10  
    1.11  (defn floor* []
    1.12    (doto (box 10 0.1 5 :name "floor" ;10 0.1 5 ; 240 0.1 240
    1.13 @@ -256,9 +257,11 @@
    1.14                      (if (not value) (add-element game (brick-wall*))))
    1.15            "key-space" (fire-cannon-ball )}
    1.16           (fn [world]
    1.17 -           (position-camera world
    1.18 -                            (Vector3f. 1.382548, 4.0383573, 5.994235)
    1.19 -                            (Quaternion. 0.0013082094, 0.98581666, -0.1676442, 0.0076932586))
    1.20 +           (position-camera
    1.21 +            world
    1.22 +            (Vector3f. 1.382548, 4.0383573, 5.994235)
    1.23 +            (Quaternion. 0.0013082094, 0.98581666,
    1.24 +                         -0.1676442, 0.0076932586))
    1.25  
    1.26             ;;(speed-up world)
    1.27