anchor.diff:  		   &rest args
   		   &key (start 0) (end nil)
   			(align-x :left) (align-y :baseline)
  -			towards-x towards-y transform-glyphs
  +			towards-point transform-glyphs
   			ink clipping-region transformation
   			text-style text-family text-face text-size)
     (declare (ignore ink clipping-region transformation
   		   text-style text-family text-face text-size))
     (with-medium-options (sheet args)
       (multiple-value-bind (x y) (point-position point)
  -      (medium-draw-text* medium string x y
  -			 start end
  -			 align-x align-y
  -			 towards-x towards-y transform-glyphs))))
  +      (multiple-value-bind (towards-x towards-y) (point-position towards-point)
  +        (medium-draw-text* medium string x y
  +                           start end
  +                           align-x align-y
  +                           towards-x towards-y transform-glyphs)))))
   
   (defun draw-text* (sheet string x y
   		   &rest args
  
positive.code: 		     &rest args
  		     &key (filled t) (closed t)
  			  ink clipping-region transformation line-style line-thickness
  			  line-unit line-dashes line-cap-shape)
    (declare (ignore ink clipping-region transformation line-style line-thickness
  		   line-unit line-dashes line-cap-shape))
    (with-medium-options (sheet args)
      (loop for point in point-seq
  	  nconcing (multiple-value-bind (x y) (point-position point)
  
negative.code: 			&rest args
  			&key (filled t)
  			     ink clipping-region transformation line-style line-thickness
  			     line-unit line-dashes line-joint-shape)
    (declare (ignore ink clipping-region transformation line-style line-thickness
  		   line-unit line-dashes line-joint-shape))
    (with-medium-options (sheet args)
      (medium-draw-rectangle* medium x1 y1 x2 y2 filled)))
  
  