anchor.diff:  
   (define-drawing-test "Line" "Basic" (frame stream)
       ""
  +  (declare (ignore frame))
     (let ((y 20))
       (dolist (lc '(:round :butt :square :no-end-point))
         (dolist (lt '(1 3 5 7))
  
positive.code:     "Non-rectangular clipping region. We should see grey rotated ellipse with
  limited angle drawn inside green border. This ellipse is a clipping region. Then
  we randomly drawn points on the screen which should be clipped to the grey area."
    (let ((cr (clim:make-ellipse* (/ *width* 2) (/ *height* 2)
                                  (- (/ *width* 2) 50) 100
                                  0 (- (/ *height* 2) 50)
  
negative.code: (define-drawing-test "Text" "Clipping" (frame stream)
      #.(format nil "Text should be drawn only inside the green frame. Anything ~
  outside the clipping area should be grey.")
    (declare (ignore frame))
    (test-simple-clipping-region stream
                                 #'(lambda (stream)
                                     (draw-text* stream (format nil "~A" (random 10))
                                                 (random *width*) (random *height*)
                                                 :text-size (random 100)
                                                 :ink (make-random-col)))))
  
  (define-drawing-test "Text" "Scale" (frame stream)
      ""
    (declare (ignore frame))
    (test-simple-scale-region stream
                              #'(lambda (stream cx cy)
                                  (clim:draw-text* stream
  