anchor.diff:  ;;------------------------------------------------------------
   
   (defmethod draw-tex ((tex texture)
  -                     &optional (scale 0.9) (flip-uvs-vertically t))
  +                     &key (scale 0.9) (flip-uvs-vertically nil))
     (with-sampling (s tex)
  -    (draw-tex s scale flip-uvs-vertically)))
  +    (draw-tex s :scale scale :flip-uvs-vertically flip-uvs-vertically)))
   
   (defmethod draw-tex ((sampler sampler)
  -                     &optional (scale 0.9) (flip-uvs-vertically t))
  +                     &key (scale 0.9) (flip-uvs-vertically nil))
     (cepl-utils:with-setf (depth-test-function *cepl-context*) nil
       (if (eq (sampler-type sampler) :sampler-cube)
           (%draw-cube-face sampler (v! -0 0) 1.5707 scale)
  
positive.code: 
  ;;------------------------------------------------------------
  
  (defgeneric draw-tex (tex &optional scale flip-uvs-vertically))
  (defgeneric draw-tex-tl (sampler &optional flip-uvs-vertically))
  (defgeneric draw-tex-bl (sampler &optional flip-uvs-vertically))
  (defgeneric draw-tex-tr (sampler &optional flip-uvs-vertically))
  (defgeneric draw-tex-br (sampler &optional flip-uvs-vertically))
  (defgeneric draw-tex-at (sampler &optional pos centered flip-uvs-vertically))
  
  ;;------------------------------------------------------------
  
  
negative.code:     (map-g #'draw-texture-pipeline (get-gpu-quad)
             :tex sampler
             :transform transform
             :uv-y-mult (if flip-uvs-vertically -1s0 1s0)))) ;; this is a bug as it samples outside of texture
  
  (defun rotated-rect-size (size-v2 φ)
    ;; returns width & height
  