anchor.diff:  ;;; Ink
   ;;;
   
  -(define-drawing-test "13) Ink Transparent" (stream)
  +(define-drawing-test "Ink" "Transparent" (frame stream)
       ""
     (let ((table '((1 1 1 0 1)
                    (1 1 1 0 1)
  
positive.code:                                (clim:draw-rectangle* stream 0 0 *width* *height*
                                                       :filled t
                                                       :ink clim:+grey90+)
                                 (funcall (drawing-test-drawer item) stream))))
                  (draw-pattern* output pattern 0 0)
                  (medium-finish-output (sheet-medium output))))
              (handler-case
  
negative.code:           (draw-text* stream (format nil "~A ~A" lu lt) 20 y)
            (let ((x-positions '(150 170 190 210 230 250 270 290)))
              (let ((position-seq
                      (mapcan #'(lambda (x) (list x y))
                              x-positions)))
                (draw-points* stream position-seq))
              (dolist (x-pos x-positions)
                (draw-point* stream x-pos (+ 10 y)))
  