anchor.diff:  	   (,v (v! ,x ,y, z)))
          (if ,in-place
   	   (setf (scaling ,tthis) ,v)
  -	   (scale ,tthis ,v)))))
  +	   (scale ,tthis ,v))
  +       ,tthis)))
   
   
   (defmethod n* ((this node) (that node) &key new-node)
  
positive.code: 	   (,v (q:from-axis-angle (v! ,x ,y ,z) (d->r ,w))))
         (if ,in-place
  	   (setf (rotation ,tthis) ,v)
  	   (rotate ,tthis ,v)))))
  
  (defmethod translate ((this node) trans &key (modify t))
    "Translate the node. Takes a vector3."
  
negative.code: 	   (,v (v! ,x ,y, z)))
         (if ,in-place
  	   (setf (translation ,tthis) ,v)
  	   (translate ,tthis ,v))
         ,tthis)))
  
  (defmethod scale ((this node) size &key (modify t))
    "Scales a node. Takes a vector3."
  