anchor.diff:    (: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)
  
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: (defparameter *vertex-shader-source* "
  #version 330
  
  in vec4 in_Position;
  in vec3 in_Normal;
  // in vec3 in_Color;
  
  