anchor.diff:  (defmethod medium-copy-area ((from-drawable clx-medium) from-x from-y width height
                                (to-drawable clx-medium) to-x to-y)
     (let* ((from-sheet (medium-sheet from-drawable))
  -	 (from-transformation (sheet-native-transformation from-sheet))
  -	 (to-sheet (medium-sheet to-drawable))
  -	 (to-transformation (sheet-native-transformation to-sheet)))
  +         (from-transformation (sheet-native-transformation from-sheet))
  +         (to-sheet (medium-sheet to-drawable))
  +         (to-transformation (sheet-native-transformation to-sheet)))
       (with-transformed-position (from-transformation from-x from-y)
         (with-transformed-position (to-transformation to-x to-y)
  -	(multiple-value-bind (width height)
  -	    (transform-distance (medium-transformation from-drawable)
  -				width height)
  -	  (xlib:copy-area (sheet-xmirror (medium-sheet from-drawable))
  -			  ;; why using the context of from-drawable?
  -			  (medium-gcontext from-drawable +background-ink+)
  -			  (round-coordinate from-x) (round-coordinate from-y)
  -			  (round width) (round height)
  -			  (or (medium-buffer to-drawable)
  -			      (sheet-xmirror (medium-sheet to-drawable)))
  -			  (round-coordinate to-x) (round-coordinate to-y)))))))
  +        (multiple-value-bind (width height)
  +            (transform-distance (medium-transformation from-drawable)
  +                                width height)
  +          (xlib:copy-area (sheet-xmirror (medium-sheet from-drawable))
  +                          ;; why using the context of from-drawable?
  +                          (medium-gcontext from-drawable +background-ink+)
  +                          (round-coordinate from-x) (round-coordinate from-y)
  +                          (round width) (round height)
  +                          (or (medium-buffer to-drawable)
  +                              (sheet-xmirror (medium-sheet to-drawable)))
  +                          (round-coordinate to-x) (round-coordinate to-y)))))))
   
   (defmethod medium-copy-area ((from-drawable clx-medium) from-x from-y width height
                                (to-drawable pixmap) to-x to-y)
     (let* ((from-sheet (medium-sheet from-drawable))
  -	 (from-transformation (sheet-native-transformation from-sheet)))
  +         (from-transformation (sheet-native-transformation from-sheet)))
       (with-transformed-position (from-transformation from-x from-y)
         (climi::with-pixmap-medium (to-medium to-drawable)
  -	(xlib:copy-area (sheet-xmirror (medium-sheet from-drawable))
  -			;; we can not use from-drawable
  -			(medium-gcontext to-medium +background-ink+)
  -			(round-coordinate from-x) (round-coordinate from-y)
  -			(round width) (round height)
  -			(pixmap-xmirror to-drawable)
  -			(round-coordinate to-x) (round-coordinate to-y))))))
  +        (xlib:copy-area (sheet-xmirror (medium-sheet from-drawable))
  +                        ;; we can not use from-drawable
  +                        (medium-gcontext to-medium +background-ink+)
  +                        (round-coordinate from-x) (round-coordinate from-y)
  +                        (round width) (round height)
  +                        (pixmap-xmirror to-drawable)
  +                        (round-coordinate to-x) (round-coordinate to-y))))))
   
   (defmethod medium-copy-area ((from-drawable pixmap) from-x from-y width height
                                (to-drawable clx-medium) to-x to-y)
  
positive.code:   (with-slots (gc) medium
      (when gc
        (let ((old-text-style (medium-text-style medium)))
  	(unless (eq text-style old-text-style)
            (let ((fn (text-style-to-X-font (port medium) (medium-text-style medium))))
              (when (typep fn 'xlib:font)
                (setf (xlib:gcontext-font gc)
  
negative.code:                  (xlib:draw-point mirror gc x y))))
              (t
               (let* ((radius (/ (line-style-thickness line-style) 2))
                      (min-x (round-coordinate (- x radius)))
                      (min-y (round-coordinate (- y radius)))
                      (max-x (round-coordinate (+ x radius)))
                      (max-y (round-coordinate (+ y radius))))
                 (when (and (typep min-x '(signed-byte 16))
                            (typep min-y '(signed-byte 16)))
                     (xlib:draw-arc mirror gc min-x min-y
                                    (- max-x min-x) (- max-y min-y)
                                    0 (* 2 pi) t))))))))
  
  
  (defmethod medium-draw-points* ((medium clx-medium) coord-seq)
  