anchor.diff:    (pull-g (texref object)))
   
   ;; [TODO] implement gl-fill and fill arguments
  -;; [TODO] Does not respect GL_PIXEL_PACK/UNPACK_BUFFER
  +;; [TODO] Does not respect UNPACK_BUFFER
   (defmethod pull1-g ((object gpu-array-t))
     (with-gpu-array-t object
       (let* ((p-format (image-format->pixel-format
  
positive.code:       (destructuring-bind (format type)
            (cepl.pixel-formats::compile-pixel-format p-format)
          (%with-scratch-texture-bound texture
            (%gl:get-tex-image (foreign-enum-value '%gl:enum texture-type)
                               (coerce level-num 'real)
                               format
  
negative.code: ;; texture views
  ;; generate-mipmaps
  ;; texsubimage*d - pushing data
  