anchor.diff:      (draw  *selection-rectangle*)))
   
   (defun bind-texture (thing identifier use-shader)
  -  
  +
     (let ((texture (if (or
                         (not (owned thing))
                         (symbolp (owner thing)))
                        (gethash identifier *textures*) ;does not belong to a real player
                      (gethash identifier (textures (owner thing))))))
       (when texture
  -      (gl:active-texture 0)
  +      (gl:active-texture :texture0)
         (gl:bind-texture :texture-2d texture)
         (when use-shader
           (gl:uniformi (gl:get-uniform-location *current-shader* "base-texture") 0)))
  -      
  +
       texture))
     ;|#())
   
  
positive.code:   (setf *quad-dl*
          (gl:gen-lists 1))
    (gl:with-new-list (*quad-dl* :compile-and-execute)
      (gl:with-primitives :quads 
        (gl:tex-coord 0  0)
        (gl:Vertex    -0.5 0.5 0)
      
        (gl:tex-coord 1  0)
        (gl:Vertex   0.5 0.5 0)
        
        (gl:tex-coord 1  1)
        (gl:Vertex   0.5 -0.5 0)
        
        (gl:tex-coord 0  1)
        (gl:Vertex   -0.5 -0.5 0))))
  
  
negative.code: 
  (defun init-shaders ()
    (dolist (shader-spec *shader-files*)
  
      (bind:bind ((vertex-shader (gl:create-shader :vertex-shader))
             (fragment-shader (gl:create-shader :fragment-shader))
             (program (gl:create-program))
             ((name vertex-path fragment-path) shader-spec))
  
  
        (gl:shader-source vertex-shader (read-file vertex-path))
        (gl:shader-source fragment-shader (read-file fragment-path))
  
  