anchor.diff:                        to-drawable to-x to-y)))
   
   (defmethod medium-copy-area :around (from-drawable from-x from-y width height
  -                                     (to-drawable  basic-medium)
  +                                     (to-drawable  transform-coordinates-mixin)
                                        to-x to-y)
     (with-transformed-position ((medium-transformation to-drawable)
                                 to-x to-y)
  
positive.code:     (multiple-value-bind (center-x center-y) (ellipse-center-point* transformed-ellipse)
        (call-next-method medium center-x center-y radius start-angle end-angle filled))))
  
  (defmethod medium-draw-text* :around ((medium basic-medium) string x y
                                        start end
                                        align-x align-y
                                        toward-x toward-y transform-glyphs)
  
negative.code:                           radius-2-dx radius-2-dy
                            start-angle end-angle filled)))))
  
  (defmethod medium-draw-circle* :around ((medium transform-coordinates-mixin) center-x center-y
                                           radius start-angle end-angle filled)
    (let* ((ellipse (make-elliptical-arc* center-x center-y
                                          radius 0
  