anchor.diff:                                                         :line-thickness 4
                                                          :filled nil))))
   
  -(define-drawing-test "05) Ellipse slope line intersection" (stream)
  +(define-drawing-test "Ellipse" "Slope line intersection" (frame stream)
       "Ellipse with rotation and limited angle is surrounded by its bounding
   rectangle. Slope lines go through the sheet and the intersections of lines with
   the ellipse are drawn in different color and thickness."
  
positive.code:   (window-clear (get-frame-pane *application-frame* 'description))
    (redisplay-frame-pane *application-frame*
                          (get-frame-pane *application-frame* 'backend-output) :force-p t)
    (redisplay-frame-pane *application-frame*
                          (get-frame-pane *application-frame* 'render-output) :force-p t))
  
  (defun display-backend-output (frame pane)
    (declare (ignore pane))
    (let ((output (get-frame-pane frame 'backend-output))
          (item (slot-value frame 'current-selection)))
      (let ((description (get-frame-pane *application-frame* 'description)))
        (when item
          (with-text-style (description (make-text-style :sans-serif :roman :normal))
            (write-string (drawing-test-description item) description))
          (if (slot-value *application-frame* 'signal-condition-p)
              (clim:with-drawing-options (output :clipping-region
                                                 (clim:make-rectangle* 0 0 *width* *height*))
                (clim:draw-rectangle* output 0 0 *width* *height* :filled t
                                      :ink clim:+grey90+)
                (funcall (drawing-test-drawer item) output))
              (handler-case
                  (clim:with-drawing-options (output :clipping-region
                                                     (clim:make-rectangle* 0 0 *width* *height*))
                    (clim:draw-rectangle* output 0 0 *width* *height* :filled t
                                          :ink clim:+grey90+)
                    (funcall (drawing-test-drawer item) output))
                (simple-error (condition)
                  (clim:with-drawing-options (description :ink +red+)
                    (format description "Backend:~a~%" condition)))))))))
  
  (defun display-render-output (frame pane)
    (declare (ignore pane))
  
negative.code:   (clim:draw-polygon* stream '(20 20 50 80 40 20) :filled nil :ink +blue+)
    (clim:draw-polygon* stream '(30 90 40 110 20 110) :ink +blue+))
  
  (define-drawing-test "Picture" "Picture - 1" (frame stream)
      ""
      (picture01 stream)
      (clim:with-translation (stream 400 200)
  