anchor.diff:  
   	 ;; create a node under the root node. 
   	 (setf *node1* (make-instance 'clinch::node :parent *root*))
  -	 (clinch::translate *node1* -1 0 -2 t)
  +	 (clinch::translate *root* 0 0 -10 t)
   	 
   	 ;; create another node another level down.
   	 (setf *node2* (make-instance 'clinch::node :parent *node1*))
  +	 (clinch::translate *node2* 3 0 0 t)
   
   	 ;; set the window event handlers 
   	 (glfw:set-window-size-callback 'window-size-callback)
  
positive.code: 				(%gl:blend-func :src-alpha :one-minus-src-alpha))
  
  			 :loop ((gl:clear :color-buffer-bit :depth-buffer-bit)
  				(clinch::rotate *node2* rot 0 1 0 t)
  				(clinch::render *root*))))
  
  	 ;; Create the root node
  
negative.code:     (clinch::render viewport)
  
      (setf camera (clinch::make-perspective-transform (/ (* 65 pi) 360) (/ width height) .5 100))
  
      (clinch:translate camera 0 0 0 t)
      (clinch::use-projection-transform camera))
  
      ;; The start point...    
  