anchor.diff:              (gl:generate-mipmap target)
               (gl:tex-parameter target :texture-min-filter :nearest-mipmap-linear))
             (progn
  -            (gl:tex-parameter target :texture-min-filter :linear)
  +            (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))
  +(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))
  
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:                    :internal-format in-format
                     :generate-mipmaps-p generate-mipmaps-p
                     :width width
                     :height height
                     :magnification-filter magnification-filter
                     :minification-filter minification-filter)))
  
  
  (define-system-function make-2d-texture graphics-system
      (image texture-format &key
             (generate-mipmaps-p t)
             (magnification-filter :linear)
             (minification-filter :linear))
    (%make-2d-texture 'texture-2d image texture-format
                      :generate-mipmaps-p generate-mipmaps-p
                      :magnification-filter magnification-filter
                      :minification-filter minification-filter))
  
  
  (defun %assign-texture-mipmap-level (image texture level-target level)
  