anchor.diff:                        (e-x2 (min (+ d-x2 b-x1) (+ d-x1 b-x2))))
                     (let ((e-height (- e-y2 e-y1))
                           (e-width (- e-x2 e-x1)))
  -                    #+debug (print (list 'e e-y1 e-x1 e-y2 e-x2 e-height e-width) *trace-output*)
  +                    #+(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))
  
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:                                               (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))
                #+(or)
                (loop for i below b-height by 100
                   do (clim:draw-line* pane 0 i b-width i :ink +yellow+))
                #+(or)
                (loop for j below b-width by 100
                   do (clim:draw-line* pane j 0 j b-height :ink +red+)))))))))
  
  