anchor.diff:  
   
   (defun clean-up ()
  -  (clinch:unload triangle-point-buffer)
  -  (clinch:unload triangle-indices-buffer)
  +  (clinch:unload cube-indices-buffer)
  +  (clinch:unload cube-point-buffer)
  +  (clinch:unload cube-normal-buffer)
  +  (clinch:unload cube-color-buffer)  
     (clinch:unload shader))
   
   (defun window-size-callback (width height)
     (clinch::quick-set viewport 0 0 width height)
     (clinch::render viewport)
     
  -  (setf projection-matrix (clinch::make-perspective-transform (clinch:degrees->radians 65) (/ width height) .1 100))
  +  (setf projection-matrix (clinch::make-perspective-transform (/ clinch::+pi+ 4) (/ width height) .1 100))
     (print projection-matrix)
   
     (gl:matrix-mode :projection)
  
positive.code:         }")
  
  
  (defvar viewport)
  (defvar projection-matrix)
  
  (defvar triangle)
  (defvar triangle-point-buffer)
  (defvar triangle-indices-buffer)
  (defvar triangle-color-buffer)
  
  (defvar node)
  
  (defun init ()
  
    (setf frame-count 0)
  
negative.code: 			       -0.5  0.5 -0.5 
  			       -0.5  0.5  0.5)))
  
    (setf cube-normal-buffer 
  	(make-instance 'clinch:buffer 
  		       :Stride 3
  		       :data '(0.0 0.0 1.0
  