anchor.diff:                                               :line-thickness 16
                                                :ink +pink+))))))
   
  -(define-drawing-test "16) Bezier Difference" (stream)
  +(define-drawing-test "Bezier" "Difference" (frame stream)
       "Draws a single bezier difference"
     (let* ((r1 (mcclim-bezier:make-bezier-area*
                 '(100 100 200 200 300 200 400 100 300 50 200 50 100 100)))
  
positive.code:                               :filled nil)))
            (setf y (+ 115 y)))))))
  
  (define-drawing-test "04) Rectangle Dashes" (stream)
      ""
    (let ((y 20))
      (dolist (lj '(:round :bevel :miter))
  
negative.code:                                                :line-thickness 16
                                                 :ink +orange+)))))))
  
  (define-drawing-test "Bezier" "Test 5" (frame stream)
      "Some more complicated bezier design drawings."
    (formatting-table (stream :x-spacing 20 :y-spacing 20)
      (formatting-row (stream)
  