diff org/games.org @ 50:b1b90c4ab0bf

trying to resolve problem with skeleton debugging
author Robert McIntyre <rlm@mit.edu>
date Mon, 14 Nov 2011 18:46:34 -0700
parents 183744c179e6
children 1381a6ebd08b
line wrap: on
line diff
     1.1 --- a/org/games.org	Sat Nov 12 16:52:38 2011 -0700
     1.2 +++ b/org/games.org	Mon Nov 14 18:46:34 2011 -0700
     1.3 @@ -155,28 +155,6 @@
     1.4        (set-gravity game new-value)
     1.5        (set-gravity game gravity))))
     1.6  
     1.7 -(defn fire-cannon-ball 
     1.8 -  ([node]
     1.9 -     (fn [game value]
    1.10 -       (if (not value)
    1.11 -         (let [camera (.getCamera game)
    1.12 -               cannon-ball
    1.13 -               (sphere  0.7 
    1.14 -                        :material "Common/MatDefs/Misc/Unshaded.j3md"
    1.15 -                        :texture "Textures/PokeCopper.jpg"
    1.16 -                        :position
    1.17 -                        (.add (.getLocation camera)
    1.18 -                              (.mult (.getDirection camera) (float 1)))
    1.19 -                        :mass 3)] ;200 0.05
    1.20 -           (.setShadowMode cannon-ball RenderQueue$ShadowMode/CastAndReceive)
    1.21 -           (.setLinearVelocity
    1.22 -            (.getControl cannon-ball RigidBodyControl)
    1.23 -            (.mult (.getDirection camera) (float 50))) ;50
    1.24 -           (add-element game cannon-ball (if node node (.getRootNode game)))))))
    1.25 -  ([]
    1.26 -    (fire-cannon-ball false)))
    1.27 -  
    1.28 -
    1.29  (defn floor* []
    1.30    (doto (box 10 0.1 5 :name "floor" ;10 0.1 5 ; 240 0.1 240
    1.31  	     :material "Common/MatDefs/Misc/Unshaded.j3md"