anchor.diff:  	    (v:+ trans (translation this)))
         (v:+ trans (translation this))))
   
  -(defmacro !t (this x y z)
  -  `(translate ,this ,x ,y, z))  
  +(defmacro !t (this x y z &optional in-place)
  +  (let ((tthis (gensym))
  +	(v (gensym)))
  +	
  +    `(let ((,tthis ,this)
  +	   (,v (v! ,x ,y, z)))
  +       (if ,in-place
  +	   (setf (translation ,tthis) ,v)
  +	   (translate ,tthis ,v)))))
   
   (defmethod scale ((this node) size &key (modify t))
     "Scales a node. Takes a vector3."
  
positive.code: 
  (defmethod !reset-scaling ((this node))
    (setf (slot-value this 's-matrix) nil
  	(translation this) vi))
  
  
  (defmethod print-object ((this node) s)
  
negative.code: 	    (v:* size (scaling this)))
        (v:* size (scaling this))))
  
  (defmacro !s (this x y z &optional in-place)
    (let ((tthis (gensym))
  	(v (gensym)))
  	
      `(let ((,tthis ,this)
  	   (,v (v! ,x ,y, z)))
         (if ,in-place
  	   (setf (scaling ,tthis) ,v)
  	   (scale ,tthis ,v)))))
  
  
  (defmethod n* ((this node) (that node) &key new-node)
    "Multiplies a node? I'm not sure if this works." ;;!!!!
  