anchor.diff:  								(float z))
   					     (transform this)))
         (sb-cga:matrix* (sb-cga:translate* (float x)
  -				     (float y)
  -				     (float z))
  +					 (float y)
  +					 (float z))
   		      (transform this))))
   
   (defmethod rotate ((this node) rad x y z &optional (in-place t))
     "Inherited function for setting changed?"
  -    (if in-place
  +  (if in-place
         (setf (transform this)
   	    (sb-cga:matrix* (sb-cga:rotate-around
   			     (make-vector (float x)
   					  (float y)
   					  (float z)) (float rad))
   			    (transform this)))
  -	    (sb-cga:matrix* (sb-cga:rotate-around
  -			     (make-vector (float x)
  -					  (float y)
  -					  (float z)) (float rad))
  -			    (transform this))))
  +      (sb-cga:matrix* (sb-cga:rotate-around
  +		       (make-vector (float x)
  +				    (float y)
  +				    (float z)) (float rad))
  +		      (transform this))))
   
   
   (defmethod load-matrix ((this node) &key)
  
positive.code:        ,@children
         *parent*)))
  
  			
  
negative.code: (defmethod m* ((this node) (that node) &optional (in-place t))
    "Inherited function for setting changed?"
    (if in-place
        (setf (transform this) (sb-cga:matrix* (transform that) (transform this)))
        (sb-cga:matrix* (transform that) (transform this))))
  
  (defmethod transpose ((this node) &optional (in-place t))
    "Inherited function for setting changed?"
    (if in-place
        (setf (transform this) (sb-cga:transpose-matrix (transform this)))
        (sb-cga:transpose-matrix (transform this))))
  
  
  (defmethod invert ((this node) &optional (in-place t))
    "Inherited function for setting changed?"
    (if in-place
        (setf (transform this) (sb-cga:inverse-matrix (transform this)))
        (sb-cga:inverse-matrix (transform this))))
  
  
  (defmethod scale ((this node) x y z &optional (in-place t))
    "Inherited function for setting changed?"
    (if in-place
        (setf (transform this)
  	    (sb-cga:matrix*
  	     (sb-cga:scale* (float x)
  			    (float y)
  			    (float z))
  	     (transform this)))
        (sb-cga:matrix* (sb-cga:scale* (float x)
  				     (float y)
  				     (float z))
  		      (transform this))))
  
  (defmethod translate ((this node) x y z &optional (in-place t))
    "Inherited function for setting changed?"
  