anchor.diff:  	(call-next-method))))
   
   ;;; an area defined as a closed path of Bezier curve segments
  -(defclass bezier-area (area bezier-design segments-mixin bounding-rectangle-mixin) 
  -  ((%trans :initarg :transformation
  -	   :reader transformation
  -	   :initform +identity-transformation+)))
  +(defclass bezier-area (area bezier-design segments-mixin bounding-rectangle-mixin) ())
   
   (defgeneric close-path (path))
   
  
positive.code: 	       (climi::coordinate= (cadr coord-seq) (car (last coord-seq)))))
    (make-bezier-thing* 'bezier-area coord-seq))
  
  (defgeneric segments (area))
  
  (defmethod segments ((area bezier-area))
    (let ((tr (transformation area)))
      (mapcar (lambda (s) (transform-segment tr s)) (%segments area))))
  
  (defmethod transform-region (transformation (area bezier-area))
    (let* ((tr (transformation area))
           (result (if (translation-transformation-p transformation)
                       (make-instance 'bezier-area
  		       :segments (%segments area)
  		       :transformation 
  		       (compose-transformations transformation tr))
                       (make-instance 'bezier-area 
  		       :segments (mapcar (lambda (s)
  					   (transform-segment transformation s))
  				  (segments area))))))
      (when (translation-transformation-p transformation)
        (setf (original-region result) (or (original-region area) area)))
      result))
  
  (defmethod compute-bounding-rectangle* ((area bezier-area))
    (multiple-value-bind (lx ly ux uy) (call-next-method)
      (let ((tr (transformation area)))
        (transform-rectangle* tr lx ly ux uy))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: 	    max-y computed-max-y))))
  
  ;;; A path defined as a sequence of Bezier curve segments.
  (defclass bezier-curve (path bezier-design segments-mixin bounding-rectangle-mixin) ())
  
  (defun make-bezier-thing (class point-seq)
    (assert (= (mod (length point-seq) 3) 1))
  