anchor.diff:  
     (setf triangle-color-buffer 
   	(make-instance 'clinch:buffer 
  -		       :Stride 4
  -		       :data '(1.0 0.0 0.0 1.0
  -			       0.0 1.0 0.0 1.0
  -			       0.0 0.0 1.0 1.0)))
  +		       :Stride 3
  +		       :data '(1.0 0.0 0.0 
  +			       0.0 1.0 0.0 
  +			       0.0 0.0 1.0)))
   			       
   
     (setf triangle 
  
positive.code: 		       :shader  shader
  		       :indexes triangle-indices-buffer 
  		       :values `((:vertices ,triangle-point-buffer)
  				 (:attribute "vertexColor" ,triangle-color-buffer)))))
  
    
  (defun main-loop ()
    (gl:clear-color 0.0 0.0 0.0 0.0)
    (gl:clear :color-buffer-bit :depth-buffer-bit)
    (clinch:render triangle))
  
negative.code: (defvar triangle-color-buffer)
  
  (defun init ()
  
    (setf alpha .5)
  
    (setf viewport (make-instance 'clinch:viewport))
    (glfw:set-window-size-callback #'window-size-callback)
  
  