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:                                               (max d-x1 (/ (- d-x2 b-width) 2))
                                                (max d-y1 (/ (- d-y2 b-height) 2))))))))
                  (change-space-requirements pane :height b-height :width b-width))
                #+debug
                (loop for i below b-height by 100
                   do (clim:draw-line* pane 0 i b-width i :ink +yellow+))
                #+debug
                (loop for j below b-width by 100
                   do (clim:draw-line* pane j 0 j b-height :ink +red+)))))))))
  
  
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))
  