[gamelib-cvs] shapes.lisp

[Ingvar Mattsson]

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)