anchor.diff:  				(clinch::rotate *node2* rot 0 1 0 t)
   				(clinch::render *root*))))
   
  +	 ;; Create the root node
   	 (setf *root* (make-instance 'clinch::node))
   
  +	 ;; create a node under the root node. 
   	 (setf *node1* (make-instance 'clinch::node :parent *root*))
   	 (clinch::translate *node1* -1 0 -2 t)
   	 
  +	 ;; create another node another level down.
   	 (setf *node2* (make-instance 'clinch::node :parent *node1*))
   
  -
  +	 ;; set the window event handlers 
   	 (glfw:set-window-size-callback 'window-size-callback)
   	 (glfw:set-key-callback  'window-key-press)
   
  +	 ;; Load the initial test image into a texture buffer.
   	 (cairo:with-png-surface ("test_pattern.png" surf)
   	   (let ((bits (cairo:image-surface-get-data surf :pointer-only t))
   		 (w (cairo:image-surface-get-width surf))
  
positive.code: 
      (setf camera (clinch::make-perspective-transform (/ (* 65 pi) 360) (/ width height) .5 100))
      (clinch::use-projection-transform camera)
      
    (defun start ()
      (declare (optimize (speed 3)))
      (glfw:do-window (:redbits 8
  			      :greenbits 8
  			      :bluebits 8
  			      :alphabits 8
  			      :depthbits 16
  			      :opengl-version-major 3
  			      :opengl-version-minor 1)
  	
  	((print "init")
  
  	 (setf pipeline (clinch::make-pipeline  
  			 :init ((gl:load-identity)
  				(gl:clear-color 0.0 1.0 1.0 0.0)
  
negative.code: (ql:quickload :clinch)
  
  ;; GLFL for windowing and I/O
  (ql:quickload :cl-glfw)
  
  ;; String for the Vertex Shader
  ;;   t1    is the texture sampler
  ;;   tc1   are the texture coordinates
  ;;   v_tc1 is the texture coordinates passed to fragment shader
  (setf vert-source
        "
  #version 120
  