anchor.diff:  
       (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)
  +
  +    ;; The start point...    
  +    (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")
   
  +	 ;; Create the pipeline (this sample has only one)
   	 (setf pipeline (clinch::make-pipeline  
   			 :init ((gl:load-identity)
   				(gl:clear-color 0.0 1.0 1.0 0.0)
  
positive.code: 						1.0 0.0)))
  
  	 ;; Create entity (the actual thing that gets drawn on screen)
  	 (setf box (make-instance 'clinch:entity
  				  :parent *node2*
  				  :indexes indexes
  
negative.code: 				(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))
  