Update of /project/cells/cvsroot/cells-ode In directory clnet:/tmp/cvs-serv4493
Modified Files: test-c-ode.lisp world.lisp Log Message: fixed joint demo and gave environment a name
--- /project/cells/cvsroot/cells-ode/test-c-ode.lisp 2008/02/08 18:09:31 1.1 +++ /project/cells/cvsroot/cells-ode/test-c-ode.lisp 2008/02/08 18:25:59 1.2 @@ -42,8 +42,6 @@ (make-instance 'geom-box :md-name :geom2 :size #(.1 .1 .1) :body (obj :body2))
(make-instance 'hinge-joint :md-name :joint :axis #(0 1 0) :anchor #(10 1.2 .5)) - (make-instance 'a-motor-joint :md-name :motor :num-axes 1) - (Attach (obj :motor) (obj :body1) (obj :body2)) (attach (obj :joint) (obj :body1) (obj :body2)))
--- /project/cells/cvsroot/cells-ode/world.lisp 2008/02/08 18:09:31 1.1 +++ /project/cells/cvsroot/cells-ode/world.lisp 2008/02/08 18:25:59 1.2 @@ -12,7 +12,7 @@ (:default-initargs :ode-id (null-pointer)))
-(defparameter *environment* (make-instance 'environment) "static environment") +(defparameter *environment* (make-instance 'environment :md-name :environment) "static environment")
;;; ;;; world