anchor.diff:  			       20 21 22 
   			       22 21 23)))
   
  +  (setf triangle-normal-buffer 
  +	(make-instance 'clinch:buffer 
  +		       :Stride 3
  +		       :data '(0.0 0.0 1.0
  +			       0.0 0.0 1.0
  +			       0.0 0.0 1.0
  +			       0.0 0.0 1.0
  +			       0.0 -1.0 0.0
  +			       0.0 -1.0 0.0
  +			       0.0 -1.0 0.0
  +			       0.0 -1.0 0.0
  +			       0.0 0.0 -1.0
  +			       0.0 0.0 -1.0
  +			       0.0 0.0 -1.0
  +			       0.0 0.0 -1.0
  +			       0.0 1.0 0.0
  +			       0.0 1.0 0.0
  +			       0.0 1.0 0.0
  +			       0.0 1.0 0.0
  +			       1.0 0.0 0.0
  +			       1.0 0.0 0.0
  +			       1.0 0.0 0.0
  +			       1.0 0.0 0.0
  +			       -1.0 0.0 0.0
  +			       -1.0 0.0 0.0
  +			       -1.0 0.0 0.0
  +			       -1.0 0.0 0.0)))
  +
     (setf triangle-color-buffer 
   	(make-instance 'clinch:buffer 
   		       :Stride 3
  
positive.code:   "
  #version 120
  
  uniform  float alpha;
  attribute vec3 vertexColor;
  varying   vec4 fragmentColor;
  
  void main() {
              gl_Position = ftransform();
              fragmentColor = vec4(vertexColor, alpha);
          }")
  
  
  (defvar fragment-shader-source
  
negative.code: 		       :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 ()
  