anchor.diff:                       &optional (scale 0.9) (flip-uvs-vertically t))
     (if (eq (sampler-type sampler) :sampler-cube)
         (%draw-cube-face sampler (v! -0 0) 1.5707 scale)
  -      (%draw-sampler sampler (v! 0 0) 0 scale flip-uvs-vertically)))
  +      (%draw-sampler sampler (v! 0 0) 0s0 scale flip-uvs-vertically)))
   
   ;;------------------------------------------------------------
   
  
positive.code: (defmethod draw-tex-bl ((sampler sampler) &optional (flip-uvs-vertically t))
    (if (eq (sampler-type sampler) :sampler-cube)
        (%draw-cube-face sampler (v! -0.5 -0.5) 1.5707 0.5)
        (%draw-sampler sampler (v! -0.5 -0.5) 0 0.5 flip-uvs-vertically)))
  
  ;;------------------------------------------------------------
  
  
negative.code: (defmethod draw-tex-br ((sampler sampler) &optional (flip-uvs-vertically t))
    (if (eq (sampler-type sampler) :sampler-cube)
        (%draw-cube-face sampler (v! 0.5 -0.5) 1.5707 0.5)
        (%draw-sampler sampler (v! 0.5 -0.5) 0s0 0.5 flip-uvs-vertically)))
  
  ;;------------------------------------------------------------
  