anchor.diff:      (setf design transformed-design)
       (bounding-rectangle* design)))
   
  -(climi::defmethod* (setf climi::output-record-position) :around
  +(clim-sys:defmethod* (setf output-record-position) :around
               (nx ny (record draw-bezier-design-output-record))
     (let ((tr (make-instance 'climi::standard-translation :dx nx :dy ny)))
       (multiple-value-prog1
  
positive.code:   (let ((stream (postscript-medium-file-stream medium))
          (*transformation* (sheet-native-transformation (medium-sheet medium))))
      (postscript-actualize-graphics-state stream medium :color :line-style)
      (let ((tr (climi::transformation design)))
        (dolist (area (mcclim-bezier::areas design))
          (%draw-bezier-area stream (transform-region tr area))))))
  
  
negative.code:   (- (* (realpart z) (point-y v))
       (* (imagpart z) (point-x v))))
  
  (defclass bezier-design (design)
    ((%or :accessor original-region :initform nil)
     (%trans :initarg :transformation
  	   :reader transformation
  