anchor.diff:  			       -0.5  0.5 -0.5 
   			       -0.5  0.5  0.5)))
   
  -  (setf triangle-indices-buffer 
  -	(make-instance 'clinch:buffer :qtype :unsigned-int
  -		       :target :element-array-buffer
  -		       :Stride 1
  -		       :data '(0  1  2 
  -			       2  1  3
  -			       4  5  6
  -			       6  5  7
  -			       8  9 10 
  -			       10  9 11
  -			       12 13 14 
  -			       14 13 15
  -			       16 17 18 
  -			       18 17 19
  -			       20 21 22 
  -			       22 21 23)))
  -
  -  (setf triangle-normal-buffer 
  +  (setf cube-normal-buffer 
   	(make-instance 'clinch:buffer 
   		       :Stride 3
   		       :data '(0.0 0.0 1.0
  
positive.code: 			       1.0 0.0 1.0
  			       1.0 0.0 1.0
  			       1.0 0.0 1.0)))
  
    
    (setf node (make-instance 'clinch:node))
    
      (setf triangle 
  	(make-instance 'clinch:entity
  		       :parent node
  		       :shader  shader
  		       :indexes triangle-indices-buffer 
  		       :values `((:vertices ,triangle-point-buffer)
  				 (:attribute "vertexColor" ,triangle-color-buffer)
  				 (:normals ,triangle-normal-buffer)
  				 (:uniform "ambientLight" ambientLight)
  				 (:uniform "lightIntensity" lightIntensity)
  				 (:uniform "lightDirection" lightDirection)
  				 ))))
  
  
  (defun main-loop ()
  
    (incf frame-count) 
  
    (clinch:set-identity-transform node)
    (clinch:rotate node (clinch:degrees->radians (mod frame-count 360) ) 0 0.8942871 0.44714355)
  
negative.code: 
  
  (defun clean-up ()
    (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::+pi+ 4) (/ width height) .1 100))
    (print projection-matrix)
  
    (gl:matrix-mode :projection)
  