anchor.diff:                      (clim:draw-rectangle* (sheet-medium pane)
                                             d-x1 d-y1 d-x2 d-y2
                                             :ink +background-ink+)
  -
  +                    
                       ;; 5. Now we should be able to transform the image into
                       ;; the appropriately requested destination image and display that
                           
  
positive.code:                                   :x-shift (- b-x1))))
                          
                        (let ((transformed-image
                               (if transform
                                   (transform-image image 
                                                    (opticl::matrix-multiply
                                                     shift transform)
                                                    :y (cons d-y1 d-y2)
                                                    :x (cons d-x1 d-x2))
                                   #+nil
                                   (transform-image image transform
                                                    :y (cons e-y1 e-y2)
                                                    :x (cons e-x1 e-x2))
                                   image)))
                          #+debug (print (array-dimensions transformed-image) *trace-output*)
                          (let ((pattern
                                 (opticl-image-to-climi-rgb-pattern
                                  transformed-image (floor e-height) (floor e-width))))
  
negative.code:                       (e-x2 (min (+ d-x2 b-x1) (+ d-x1 b-x2))))
                    (let ((e-height (- e-y2 e-y1))
                          (e-width (- e-x2 e-x1)))
                      #+(or) (print (list 'e e-y1 e-x1 e-y2 e-x2 e-height e-width) *trace-output*)
                      (resize-sheet pane
                                    (max d-x2 b-width)
                                    (max d-y2 b-height))
  