anchor.diff:  			       1.0 0.0 1.0
   			       1.0 0.0 1.0
   			       1.0 0.0 1.0)))
  +
     
     (setf node (make-instance 'clinch:node))
     
  
positive.code: 			       20 21 22 
  			       22 21 23)))
  
    (setf triangle-color-buffer 
  	(make-instance 'clinch:buffer 
  		       :Stride 3
  
negative.code: 
  (defun init ()
  
    (setf frame-count 0)
  
    (setf viewport (make-instance 'clinch:viewport))
    (glfw:set-window-size-callback #'window-size-callback)
  
    (gl:enable :blend :depth-test :line-smooth :point-smooth :polygon-smooth :texture-2d :cull-face)
    (%gl:blend-func :src-alpha :one-minus-src-alpha)
  
  
  