anchor.diff:                                                         :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."
  +    "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))
  
positive.code:                        :ink +dark-green+ :line-thickness 5))))))
  
  (define-drawing-test "Ellipse" "Angle transformations" (frame stream)
      "Uses internal interfaces. We should see 6 ellipses with limited
  angle. First four should be filled and should have angle radius drawn. Last two
  should not be filled (and no angle radius is drawn). Each ellipse is bound by
  its bounding rectangle and surrounded by four points marking where min-x, max-x,
  min-y and max-y are (extremum points) are."
    (declare (ignore frame))
    (let* ((sa (/ pi 2))
           (ea (+ pi (* 3 (/ pi 4))))
  
negative.code:    (signal-condition-p :initform nil)
     (current-selection :initform nil)
     (application-frame-backend :initform :clx-ttf)
     (frames :initform (make-hash-table)))
    (:panes
     (category-test-pane
      (horizontally (:equalize-height t)
  