anchor.diff:        (gl:pixel-store :unpack-alignment 1)
         (gl:tex-image-2d target 0 internal-format width height 0 external-format
                          :unsigned-byte (foreign-pointer-of data) :raw t)
  -      (gl:tex-parameter target :texture-mag-filter :linear)
  +      (gl:tex-parameter target :texture-mag-filter magnification-filter)
         (gl:tex-parameter target :texture-base-level 0)
         (if generate-mipmaps-p
             (progn
  
positive.code: (defmethod initialize-instance :after ((this texture-2d)
                                         &key image external-format
                                           internal-format width height
                                           generate-mipmaps-p)
    (with-slots (dimensions) this
      (setf dimensions (list width height)))
    (with-bound-texture ((%target-of this) (%texture-id-of this))
  
negative.code:             (gl:generate-mipmap target)
              (gl:tex-parameter target :texture-min-filter :nearest-mipmap-linear))
            (progn
              (gl:tex-parameter target :texture-min-filter minification-filter)
              (gl:tex-parameter target :texture-max-level (setf (%texture-max-level-of this) 0)))))))
  
  
  (defun %make-2d-texture (class image texture-format &key (generate-mipmaps-p t)
                                                        (magnification-filter :linear)
                                                        (minification-filter :linear))
    (let ((ex-format (%pixel-format->external-format (ge.rsc:image-pixel-format image)))
          (in-format (%texture-format->internal-format texture-format))
          (width (ge.rsc:image-width image))
  