anchor.diff:                                               (list application-frame-backend))))
                    (app-frame (make-application-frame 'drawing-app-frame
                                                       :calling-frame *application-frame*
  -                                                    :frame-manager (when server-path (find-frame-manager :port server-path))
  +                                                    :frame-manager (when server-path
  +                                                                     (find-frame-manager :port server-path))
                                                       :current-selection current-selection
                                                       :backend application-frame-backend
  -                                                    :recording-p application-frame-recording-p)))
  +                                                    :drawing-tests-frame *application-frame*)))
               (setf (gethash current-selection frames) app-frame)
               (run-frame-top-level app-frame)
               (remhash current-selection frames)))))))
  
positive.code:                                                        :filled nil))))
  
  (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."
    (declare (ignore frame))
    (let* ((cx (/ *width* 2))
           (cy (/ *height* 2))
  
negative.code:                                 :line-thickness (random 100)))))))
  
  (define-drawing-test "Clipping Region" "Clipping Region" (frame stream)
      "Various clipping regions. We should see seven blue bounding rectangles. Each of them host a clipping area: square, rotated rectangle, circle, polygon, region intersection, region union and region difference (last three are based on rectangles). Randomly drawn points should be clipped to these clipping areas. No point should be drawn outside the blue rectangles."
    (declare (ignore frame))
    (dolist (cr (list
                 (make-rectangle* 20 20 120 120)
  