[cells-cvs] CVS cells-ode

[phildebrandt]

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