anchor.diff:          (setf transformed-image (if transform
                                       (transform-image image transform)
                                       image))
  -        (setf pattern (rgb-image-to-climi-rgb-pattern transformed-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))
  
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:     (if new-process
          (clim-sys:make-process #'run :name "Spectacle")
          (run))))
  
  (define-spectacle-command (com-quit :name t :menu t :keystroke (#\q :meta)) ()
    (frame-exit *application-frame*))
  