anchor.diff:                          align-x align-y toward-x toward-y
                           transform-glyphs))))
   
  -(defmethod medium-copy-area :around ((from-drawable basic-medium)
  +(defmethod medium-copy-area :around ((from-drawable transform-coordinates-mixin)
                                        from-x from-y width height
                                        to-drawable to-x to-y)
     (with-transformed-position ((medium-transformation from-drawable)
  
positive.code: 
  ;;; Fall-through Methods For Multiple Objects Drawing Functions
  
  (defmethod medium-draw-points* ((medium basic-medium) coord-seq)
    (let ((tr (invert-transformation (medium-transformation medium))))
      (with-transformed-positions (tr coord-seq)
        (do-sequence ((x y) coord-seq)
  	(medium-draw-point* medium x y)))))
  
  (defmethod medium-draw-lines* ((medium basic-medium) position-seq)
    (let ((tr (invert-transformation (medium-transformation medium))))
      (with-transformed-positions (tr position-seq)
        (do-sequence ((x1 y1 x2 y2) position-seq)
  	(medium-draw-line* medium x1 y1 x2 y2)))))
  
  (defmethod medium-draw-rectangles* ((medium basic-medium) coord-seq filled)
    (let ((tr (invert-transformation (medium-transformation medium))))
      (with-transformed-positions (tr coord-seq)
        (do-sequence ((x1 y1 x2 y2) coord-seq)
  
negative.code:                       to-drawable to-x to-y)))
  
  (defmethod medium-copy-area :around (from-drawable from-x from-y width height
                                       (to-drawable  transform-coordinates-mixin)
                                       to-x to-y)
    (with-transformed-position ((medium-transformation to-drawable)
                                to-x to-y)
  