anchor.diff:  	 )
         (clinch::run-loop pipeline (clinch::width viewport) (clinch::height viewport))
         )
  -    
  -    
       ;; End Program
  -    
  -    
  +        
       (print "closed")))
   
   
  
positive.code:       "
  #version 120
  
  //uniform vec4 color;
  //attribute vec4 color;
  //varying vec4 vcolor;
  uniform sampler2D t1;
  attribute vec2 tc1;
  varying vec2 v_tc1;
  
negative.code: 						1.0 1.0
  						0.0 0.0
  						1.0 0.0)))
  
  	 ;; Create entity (the actual thing that gets drawn on screen)
  	 (setf box (make-instance 'clinch:entity
  				  :parent *node2*
  				  :indexes indexes
  