anchor.diff:      (if new-process
           (clim-sys:make-process #'run :name "Spectacle")
           (run))))
  -
  -(defun rgb-image-to-climi-rgb-pattern (image)
  -  (declare (optimize (speed 3))
  -           (type 8-bit-rgb-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
  -        (multiple-value-bind (r g b)
  -            (pixel image i j)
  -          (+ (ash r 0) (ash g 8) (ash b 16))))
  -      (make-instance 'clim-internals::rgb-pattern
  -                     :image (make-instance 'clim-internals::rgb-image
  -                                           :height y
  -                                           :width x
  -                                           :data cimg)))))
   
   (define-spectacle-command (com-quit :name t :menu t :keystroke (#\q :meta)) ()
     (frame-exit *application-frame*))
  
positive.code:                               theta)))))
                (1/5 interactor)))))
  
  (defmethod handle-repaint ((pane spectacle-pane) region)
    (declare (ignore region))
    (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region pane)
  
negative.code:         (setf transformed-image (if transform
                                      (transform-image image transform)
                                      image))
          (setf pattern (opticl-image-to-climi-rgb-pattern transformed-image)))
        (with-image-bounds (image-height image-width) transformed-image
          (change-space-requirements pane :height image-height :width image-width)
          (let ((bounding-rectangle-height (bounding-rectangle-height pane))
  