anchor.diff:  				(%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::rotate *node1* rot 0 1 0 t)
  +				;(clinch::rotate *node2* rot 0 1 0 t)
   				(clinch::render *root*))))
   
   	 ;; Create the root node
  
positive.code: 
  	 ;; 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)
  
negative.code:       ;; End Program
        
        (print "closed")))
  
  
  (defun start-threaded ()
    (bordeaux-threads:make-thread (lambda ()
  				  (start))))
  