anchor.diff:  
       (setf camera (clinch::make-perspective-transform (/ (* 65 pi) 360) (/ width height) .5 100))
       (clinch::use-projection-transform camera)
  -    (gl:load-identity))
  -
  -
  +    
     (defun start ()
       (declare (optimize (speed 3)))
       (glfw:do-window (:redbits 8
  
positive.code: 				     :uniforms '(("t1" :int))
  				     :attributes '(("tc1" :float))))
  	 
  	 (clinch:use-shader shader)	 
  
  	 ;; create buffers....
  	 (setf vertexes (make-instance 'clinch:buffer 
  				       :Stride 3
  
negative.code: (setf frag-source
        "
  #version 120
  uniform sampler2D t1;
  varying vec2 v_tc1;
          void main() {
              gl_FragColor = texture2D(t1, v_tc1);
          }")
  
  (let ((viewport (make-instance 'clinch::viewport))
  