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:     (apply #'gl:color (color visible-line)))
  
  (defdrawmethod glow
    (let ((factor (+ 0.2 (* 0.8 (alpha glow)))))
      (gl:scale factor factor 1))) ;make glow smaller when its alpha value is low
  
  (defdrawmethod text :no-texture
    (gl:with-pushed-matrix
  
negative.code:     (gl:push-matrix)
      (gl:color 1 1 1 (* (alpha text) (base-alpha text)))
      (loop for char across (text text)
         for index from 0 to (length (text text))
         do (let ((texture (aref *char-textures* (char-code char))))
              (if (char= char #\newline)
                  (progn
                    (gl:pop-matrix) ;get old state (beginning of line)
                    (gl:translate 0 -1 0) ;move one line down
                    (gl:push-matrix))  ;start again
                  (if (not (= texture 0))
                      (progn
                        (gl:bind-texture :texture-2d texture)
                        (draw-quad)
                        (when (= index (cursor-pos text))
                          (gl:bind-texture :texture-2d 0)
                          (gl:color 0.5 0.5 1 (+ 0.4 (* (sin (/ *gl-ticks* 10)) 0.1)))
                          (draw-quad)
                          (gl:color 1 1 1 1))
                        (gl:translate 1 0 0))))))
      (gl:pop-matrix)))
  
  (defdrawmethod cursor
  