anchor.diff:             (declare (type 32-bit-gray-image cimg))
              (set-pixels (i j) cimg
                (let ((k (pixel image i j)))
  +               (+ (ash k 0) (ash k 8) (ash k 16))))
  +           (make-instance 'clim-internals::rgb-pattern
  +                          :image (make-instance 'clim-internals::rgb-image
  +                                                :height y
  +                                                :width x
  +                                                :data cimg))))))
  +    (1-bit-gray-image
  +     (locally (declare (optimize (speed 3))
  +                       (type 1-bit-gray-image image))
  +       (with-image-bounds (y x) image
  +         (let ((cimg (make-32-bit-gray-image y x)))
  +           (declare (type 32-bit-gray-image cimg))
  +           (set-pixels (i j) cimg
  +             (let ((k (* 255 (pixel image i j))))
                  (+ (ash k 0) (ash k 8) (ash k 16))))
              (make-instance 'clim-internals::rgb-pattern
                             :image (make-instance 'clim-internals::rgb-image
  
positive.code:                               theta)))))
                (1/5 interactor)))))
  
  (defun opticl-image-to-climi-rgb-pattern (image)
    (typecase image
      (8-bit-rgb-image
       (locally (declare (optimize (speed 3))
                         (type 8-bit-rgb-image image))
  
negative.code: 
  (define-spectacle-command (com-load-image :name t :menu t)
      ((image-pathname 'pathname
                       :default (merge-pathnames "projects/opticl-test/images/"
                                 (user-homedir-pathname))
                       :insert-default t))
    (let ((viewer (find-pane-named *application-frame* 'viewer))
          (img (read-image-file image-pathname)))
      (with-accessors ((image gadget-value)
                         (transform transform)
                         (pattern image-pattern))
          viewer
        (reset-sliders)
        (setf transform nil
              pattern nil
              image img))))
  