anchor.diff:  
   (define-drawing-test "Bezier" "Test 5" (frame stream)
       "Some more complicated bezier design drawings."
  +  (declare (ignore frame))
     (formatting-table (stream :x-spacing 20 :y-spacing 20)
       (formatting-row (stream)
         (formatting-cell (stream :min-height 80)))
  
positive.code: (define-drawing-test "Rectangle" "Clipping" (frame stream)
      #.(format nil "Rectangles should be drawn only inside the green frame. Anything ~
  outside the clipping area should be grey.")
      (test-simple-clipping-region stream
                                   #'(lambda (stream)
                                       (let ((x (random *width*))
                                             (y (random *height*)))
                                     (clim:draw-rectangle* stream
                                                           x y
                                                           (+ (random 100) x) (+ (random 100) y)
                                                           :ink (make-random-col)
                                                           :line-thickness (random 10)
                                                           :filled t)))))
  
  (define-drawing-test "Rectangle" "Scale" (frame stream)
      ""
    (test-simple-scale-region stream
                              #'(lambda (stream cx cy)
                                  (clim:draw-rectangle* stream
  
negative.code:     "Draws a single bezier-area. Currently this is quite slow and
  needs to be optimized. Also, the shape of the drawn bezier area is not
  particularly attractive."
    (declare (ignore frame))
    (let* ((r1 (mcclim-bezier:make-bezier-area*
                '(120 160 35 200 220 280 220 40 180 160 160 180 120 160))))
      (mcclim-bezier:draw-bezier-design* stream r1 :ink +cyan2+)))
  