anchor.diff:  (defparameter *vertex-shader-source* "
   #version 330
   
  -in vec3 in_Position;
  +in vec4 in_Position;
   in vec3 in_Normal;
   // in vec3 in_Color;
   
  
positive.code:                            :shaders (list (make-instance 'lpsg:shader
                                                           :shader-type :vertex-shader
                                                           :source *vertex-shader-source*
                                                           :usets '(projection))
                                            (make-instance 'lpsg:shader
                                                           :shader-type :fragment-shader
                                                           :source *fragment-shader-source*
  
negative.code:   (:default-initargs :exposed nil :projection-type 'orthographic))
  
  (defvar *proj-uset* (make-instance 'projection))
  (defvar *model-uset* (make-instance 'model))
  
  (defun draw-window (win)
    (when (exposed win)
  