anchor.diff:                            radius-2-dx radius-2-dy
                             start-angle end-angle filled)))))
   
  -(defmethod medium-draw-circle* :around ((medium basic-medium) center-x center-y
  +(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
  
positive.code: 
  ;;; Medium-specific Drawing Functions
  
  (defmethod medium-draw-point* :around ((medium basic-medium) x y)
    (let ((tr (medium-transformation medium)))
      (with-transformed-position (tr x y)
        (call-next-method medium x y))))
  
  (defmethod medium-draw-points* :around ((medium basic-medium) coord-seq)
    (let ((tr (medium-transformation medium)))
      (with-transformed-positions (tr coord-seq)
        (call-next-method medium coord-seq))))
  
  (defmethod medium-draw-line* :around ((medium basic-medium) x1 y1 x2 y2)
    (let ((tr (medium-transformation medium)))
      (with-transformed-position (tr x1 y1)
        (with-transformed-position (tr x2 y2)
          (call-next-method medium x1 y1 x2 y2)))))
  
  (defmethod medium-draw-lines* :around ((medium basic-medium) coord-seq)
    (let ((tr (medium-transformation medium)))
      (with-transformed-positions (tr coord-seq)
        (call-next-method medium coord-seq))))
  
  (defmethod medium-draw-polygon* :around ((medium basic-medium) coord-seq closed filled)
    (let ((tr (medium-transformation medium)))
      (with-transformed-positions (tr coord-seq)
        (call-next-method medium coord-seq closed filled))))
  
  (defmethod medium-draw-rectangle* :around ((medium basic-medium) left top right bottom filled)
    (let ((tr (medium-transformation medium)))
      (if (rectilinear-transformation-p tr)
          (multiple-value-bind (left top right bottom)
              (transform-rectangle* tr left top right bottom)
            (call-next-method medium left top right bottom filled))
        (medium-draw-polygon* medium (list left top
                                           left bottom
                                           right bottom
                                           right top)
                              t filled))))
  
  (defmethod medium-draw-rectangles* :around ((medium basic-medium) position-seq filled)
    (let ((tr (medium-transformation medium)))
      (if (rectilinear-transformation-p tr)
          (loop for (left top right bottom) on position-seq by #'cddddr
  
negative.code:                         align-x align-y
                          toward-x toward-y transform-glyphs))))
  
  (defmethod medium-draw-glyph :around ((medium transform-coordinates-mixin) element x y
                                        align-x align-y toward-x toward-y
                                        transform-glyphs)
    (let ((tr (medium-transformation medium)))
  