anchor.diff:        "
   #version 120
   
  -//uniform vec4 color;
  -//attribute vec4 color;
  -//varying vec4 vcolor;
   uniform sampler2D t1;
   attribute vec2 tc1;
   varying vec2 v_tc1;
  
positive.code: 	 )
        (clinch::run-loop pipeline (clinch::width viewport) (clinch::height viewport))
        )
      
      
      ;; End Program
      
      
      (print "closed")))
  
  
  
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
  