anchor.diff:  
   (defmethod render ((this node) &key parent)
     "Render child objects. You don't need to build your application with nodes/render. This is just here to help."
  +  (when (enabled this)
  +    (when (once this)
  +      (funcall (once this) this)
  +      (setf (once this) nil))
   
  -  (when (once this)
  -    (funcall (once this) this)
  -    (setf (once this) nil))
  +    (when (before-render this)
  +      (let ((*parent* this))
  +	(funcall (before-render this) this)))
   
  -  (when (before-render this)
  -    (let ((*parent* this))
  -      (funcall (before-render this) this)))
  +    (when (changed? this)
  +      (update this :parent parent))
  +    
  +    (gl:matrix-mode :modelview)
  +    
  +    (load-matrix this)
  +    
  +    (loop for i in (children this)
  +       do (render i :parent this))
   
  -  (when (changed? this)
  -    (update this :parent parent))
  -  
  -  (gl:matrix-mode :modelview)
  -  
  -  (load-matrix this)
  -  
  -  (loop for i in (children this)
  -     do (render i :parent this))
  -
  -  (when (after-render this)
  -        (let ((*parent* this))
  -	  (funcall (after-render this) this))))
  +    (when (after-render this)
  +      (let ((*parent* this))
  +	(funcall (after-render this) this)))))
   
   (defmethod render ((this list) &key parent matrix)
     "Render a list of rendables."
  -
  -  (load-matrix this)
  -  
  -  (loop for i in this
  -     do (render i :parent parent :matrix matrix)))
  +  (when (enabled this)
  +    (load-matrix this)
  +    
  +    (loop for i in this
  +       do (render i :parent parent :matrix matrix))))
   
   
   (defmethod (setf transform)  ((other-node array) (this node))
     "Inherited function for setting changed?"
  -   (setf (slot-value this 'transform)
  -	 other-node)
  -   (setf (changed? this) t)
  -   (transform this))
  -  
  +  (setf (slot-value this 'transform)
  +	other-node)
  +  (setf (changed? this) t)
  +  (transform this))
  +
   (defmethod set-identity-transform ((this node) &key)
     "Inherited function for setting changed?"
     (setf (transform this) (sb-cga:identity-matrix)))
  
positive.code:     :initarg  :transform)
     (current-transform
      :accessor current-transform
      :initform nil))
     (:documentation "A node class for creating hierarchies of objects. It caches calculations for speed. Not enough in itself, and not required."))
  
  (defmethod initialize-instance :after ((this node) &key parent)
    )
  
negative.code: 								(float z))
  					     (transform this)))
        (sb-cga:matrix* (sb-cga:translate* (float x)
  					 (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
        (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))))
  
  
  (defmethod load-matrix ((this node) &key)
  