Update of /project/gamelib/cvsroot/source In directory clnet:/tmp/cvs-serv18473

Modified Files: shapes.lisp Log Message: Minor bugfixes.

Index: shapes.lisp =================================================================== RCS file: /project/gamelib/cvsroot/source/shapes.lisp,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** shapes.lisp 10 Oct 2006 06:19:33 -0000 1.7 --- shapes.lisp 10 Oct 2006 06:24:06 -0000 1.8 *************** *** 84,88 **** (yb2 (base-transform xbase invert ybase)) (zb2 (base-transform xbase invert zbase))) ! (setf (transform cam (build-transform (list xbase ybase zbase))))))))

(defmethod get-centre ((shape sphere) &optional camera) --- 84,88 ---- (yb2 (base-transform xbase invert ybase)) (zb2 (base-transform xbase invert zbase))) ! (setf (transform cam) (build-transform (list xb2 yb2 zb2)))))))

(defmethod get-centre ((shape sphere) &optional camera)