anchor.diff:  	    (setf norm-matrix
   		  (sb-cga:transpose-matrix (sb-cga:inverse-matrix norm-matrix))))
   	  (gl:uniform-matrix
  -	   (normal-model-to-camera-matrix-unif *vertex-diffuse-color*) 3
  +	   (normal-model-to-camera-matrix-unif vertex-diffuse) 3
   	   (vector (glm:mat4->mat3 norm-matrix)) NIL))
   
   	(gl:uniformfv
  -	 (light-intensity-unif *vertex-diffuse-color*) (glm:vec4 1.0 1.0 1.0 1.0))
  +	 (light-intensity-unif vertex-diffuse) (glm:vec4 1.0 1.0 1.0 1.0))
   	(framework:render-mode *cylinder-mesh* "lit-color")
   	
   	(gl:use-program 0)))))
  
positive.code: 	  (gl:uniformfv (light-intensity-unif vertex-diffuse) (glm:vec4 0.8 0.8 0.8 1.0))
  	  (gl:uniformfv (ambient-intensity-unif vertex-diffuse) (glm:vec4 0.2 0.2 0.2 1.0)))
  	;; else:
  	)
      
  
      
      (gl:use-program (the-program white-diffuse))
      (gl:uniformfv (dir-to-light-unif white-diffuse) light-dir-camera-space)
  
negative.code:       (glutil:apply-matrix model-matrix (glutil:calc-matrix *objt-pole*))
        ;; Render the Cylinder
        (glutil:with-transform (model-matrix)
  	(gl:use-program (the-program vertex-diffuse))
  
  	(gl:uniform-matrix (model-to-camera-matrix-unif vertex-diffuse) 4
  			   (vector (glutil:top-ms model-matrix)) NIL)
  
  	(let ((norm-matrix (glutil:top-ms model-matrix)))
  