anchor.diff:  	  (glm:vec4->vec3 (glm:mat*vec (glutil:top-ms model-matrix)
   				       world-light-pos)))
   
  -    (case *light-model*
  -      (:lm-pure-diffuse
  -       (setf p-white-prog *white-no-phong*)
  -       (setf p-color-prog *color-no-phong*))
  -      (:lm-diffuse-and-specular
  -       (setf p-white-prog *white-phong*)
  -       (setf p-color-prog *color-phong*))      
  -      (:lm-specular-only
  -       (setf p-white-prog *white-phong-only*)
  -       (setf p-color-prog *color-phong-only*)))
       
   
       (gl:use-program (the-program p-white-prog))
  
positive.code: 	     (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-h)
  	       ;; cycle through lighting-models
  	       (case *light-model*
  		 (:lm-pure-diffuse (setf *light-model* :lm-diffuse-and-specular))
  		 (:lm-diffuse-and-specular (setf *light-model* :lm-specular-only))
  		 (:lm-specular-only (setf *light-model* :lm-pure-diffuse)))
  	       (format t "Lighting Model used: ~a~%" *light-model*))	     
  
  	     (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-space)
  
negative.code: 	*world-light-pos-save*)))
  
  
  (defparameter *light-model* :lm-blinn-specular)
  
  (defparameter *light-attenuation* 1.2)
  (defparameter *shininess-factor* 4.0)
  