anchor.diff:                        (not (owned thing))
                         (symbolp (owner thing)))
                        (gethash identifier *textures*) ;does not belong to a real player
  -                   (gethash identifier (textures (owner thing))))))
  +                     (gethash identifier (textures (owner thing))))))
       (when texture
         (gl:active-texture :texture0)
         (gl:bind-texture :texture-2d texture)
  
positive.code:     (gl:scale (size-x rectangle) (size-y rectangle) 1)
      (destructuring-bind (r g b a) (color rectangle)
        (gl:color r g b (* a (alpha rectangle) (base-alpha rectangle)))
      (draw-quad))))
  
  (defmacro make-defdrawmethods (drawable-things)
      (let ((definitions (loop for item in drawable-things
                               collecting `(defdrawmethod ,item))))
        `(eval-when (:compile-toplevel :load-toplevel)
           ,@definitions)))
  
  (make-defdrawmethods (weapon air-unit ground-unit explosion bullet laser-beam rocket cupes-polygon selection-indicator factory))
  
  
negative.code: (defun draw-all-entities ()
    (gl:load-identity)
    (dolist (entity *independent-entities*)
      (draw entity)))
  
  (defun draw-gui ()
    (gl:load-identity)
    (gl:use-program 0)
  
                                          ;(gl:blend-func :src-alpha :one-minus-src-alpha)
    (dolist (thing *gui-things*)
      (draw thing))
  
                                          ;(gl:blend-func :src-alpha :one)
    (when *selection-rectangle*
      (draw  *selection-rectangle*)))
  
  