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:                           radius-2-dx radius-2-dy
                            start-angle end-angle filled)))))
  
  (defmethod medium-draw-circle* :around ((medium basic-medium) center-x center-y
                                           radius start-angle end-angle filled)
    (let* ((ellipse (make-elliptical-arc* center-x center-y
                                          radius 0
  
negative.code: 
  ;;; MEDIUM class
  
  (defclass transform-coordinates-mixin ()
    ;; This class is reponsible for transforming coordinates in an
    ;; :around method on medium-draw-xyz. It is currently mixed in into
    ;; basic-medium and clim-stream-pane. This probably is not the right
    ;; thing todo. Either clim-stream-pane becomes a basic-medium too or
    ;; the medium of a stream becomes not the stream itself. So consider
    ;; this as a hotfix.
    ;; --GB 2003-05-25
    ())
  
  (defclass basic-medium (transform-coordinates-mixin medium)
    ((foreground :initarg :foreground
                 :initform +black+
                 :accessor medium-foreground)
  