anchor.diff:  	    max-y computed-max-y))))
   
   ;;; A path defined as a sequence of Bezier curve segments.
  -(defclass bezier-curve (path segments-mixin bounding-rectangle-mixin) ())
  +(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))
  
positive.code:      (* (imagpart z) (point-x v))))
  
  (defclass bezier-design (climi::design)
    ((%or :accessor original-region :initform nil)))
  
  (defgeneric medium-draw-bezier-design* (stream design))
  
  
negative.code: 	(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) ())
  
  (defgeneric close-path (path))
  
  