anchor.diff:  		       :shader  shader
   		       :indexes triangle-indices-buffer 
   		       :values `((:vertices ,triangle-point-buffer)
  -				 (:attribute "vertexColor" ,triangle-color-buffer)))))
  +				 (:attribute "vertexColor" ,triangle-color-buffer)
  +				 (:uniform "alpha" alpha)))))
   
     
   (defun main-loop ()
  +  (setf alpha (mod (+ alpha 1/60) 1.1))
  +  
  +  
     (gl:clear-color 0.0 0.0 0.0 0.0)
     (gl:clear :color-buffer-bit :depth-buffer-bit)
     (clinch:render triangle))
  
positive.code: (ql:quickload :clinch)
  
  (defvar shader)
  (defvar vertex-shader-source
        "
  #version 120
  
  attribute vec4 vertexColor;
  varying   vec4 fragmentColor;
  
  void main() {
              gl_Position = ftransform();
              fragmentColor = vertexColor;
          }")
  
  
  
negative.code: 
    (setf triangle-color-buffer 
  	(make-instance 'clinch:buffer 
  		       :Stride 3
  		       :data '(1.0 0.0 0.0 
  			       0.0 1.0 0.0 
  			       0.0 0.0 1.0)))
  			       
  
    (setf triangle 
  