anchor.diff:  ;;;;
   
   (defmethod draw-design (medium (design point)
  -			&rest options &key &allow-other-keys)
  +                        &rest options &key &allow-other-keys)
     (apply #'draw-point* medium (point-x design) (point-y design) options))
   
   (defmethod draw-design (medium (design polyline)
  -			&rest options &key &allow-other-keys)
  +                        &rest options &key &allow-other-keys)
     (apply #'draw-polygon medium (polygon-points design)
            :closed (polyline-closed design)
            :filled nil
            options))
   
   (defmethod draw-design (medium (design polygon)
  -			&rest options &key &allow-other-keys)
  +                        &rest options &key &allow-other-keys)
     (apply #'draw-polygon medium (polygon-points design)
            :filled t
            options))
   
   (defmethod draw-design (medium (design line)
  -			&rest options &key &allow-other-keys)
  +                        &rest options &key &allow-other-keys)
     (multiple-value-bind (x1 y1) (line-start-point* design)
       (multiple-value-bind (x2 y2) (line-end-point* design)
         (apply #'draw-line* medium x1 y1 x2 y2 options))))
   
   (defmethod draw-design (medium (design rectangle)
  -			&rest options &key &allow-other-keys)
  +                        &rest options &key &allow-other-keys)
     (multiple-value-bind (x1 y1 x2 y2) (rectangle-edges* design)
       (apply #'draw-rectangle* medium x1 y1 x2 y2 options)))
   
   (defmethod draw-design (medium (design ellipse)
  -			&rest options &key &allow-other-keys)
  +                        &rest options &key &allow-other-keys)
     (multiple-value-bind (cx cy) (ellipse-center-point* design)
       (multiple-value-bind (r1x r1y r2x r2y) (ellipse-radii design)
         (apply #'draw-ellipse* medium
  
positive.code:         #1#)))
  
  (defmethod draw-design (medium (pattern transformed-pattern)
  			&key clipping-region transformation &allow-other-keys)
    (if (or clipping-region transformation)
        (with-drawing-options (medium :clipping-region clipping-region :transformation transformation)
          #1=(let* ((effective-pattern (effective-transformed-design pattern))
  
negative.code:              options))))
  
  (defmethod draw-design (medium (design elliptical-arc)
                          &rest options &key &allow-other-keys)
    (multiple-value-bind (cx cy) (ellipse-center-point* design)
      (multiple-value-bind (r1x r1y r2x r2y) (ellipse-radii design)
        (apply #'draw-ellipse* medium
  