anchor.diff:                     radius-y (* (signum-1 radius-y) radius-max)
                      x1 (+ x radius-x)
                      y1 (+ y radius-y))))))
  -      (case (clim-fig-drawing-mode *application-frame*)
  +      (case mode
           (:point
            (draw-point* pane x y :ink current-color
                         :line-style line-style))
  
positive.code:                         :filled fill-mode
                          :ink current-color :line-style line-style))
          (:bezier
  	  (when fastp
  	    (draw-text* pane
  			"[Use the middle and right mouse button to set control points]"
  			0
  			20))
            (if fill-mode
                (let* ((cp-x1 (or cp-x1 x))
                       (cp-y1 (or cp-y1 y1))
                       (cp-x2 (or cp-x2 x1))
                       (cp-y2 (or cp-y2 y)))
                  (unless (or (= x cp-x1 x1 cp-x2)
                              (= y cp-y1 y1 cp-y2)) ; Don't draw null beziers.
                    (let ((design (mcclim-bezier::make-bezier-area*
                                   (list x y cp-x1 cp-y1 cp-x2 cp-y2 x1 y1 x1 y1 x y x y))))
                      (mcclim-bezier:draw-bezier-design* pane design
                                                         :ink current-color
                                                         :line-style line-style))
                    (draw-line* pane x y cp-x1 cp-y1 :ink +red+)
                    (draw-line* pane x1 y1 cp-x2 cp-y2 :ink +blue+)))
                (let* ((cp-x1 (or cp-x1 x))
                       (cp-y1 (or cp-y1 y1))
                       (cp-x2 (or cp-x2 x1))
                       (cp-y2 (or cp-y2 y))
                       (design (mcclim-bezier::make-bezier-curve*
                                (list x y cp-x1 cp-y1 cp-x2 cp-y2 x1 y1))))
                  (unless (or (= x cp-x1 x1 cp-x2)
                              (= y cp-y1 y1 cp-y2)) ; Don't draw null beziers.
                    (mcclim-bezier:draw-bezier-design* pane design
                                                       :ink current-color
                                                       :line-style line-style)
                    (draw-line* pane x y cp-x1 cp-y1 :ink +red+)
                    (draw-line* pane x1 y1 cp-x2 cp-y2 :ink +blue+)))))))))
  
  (defun signum-1 (value)
    (if (zerop value)
  
negative.code:   (setf (clime:label-pane-label (find-pane-named *application-frame* 'status))
  	string))
  
  (defun draw-figure (pane mode x y x1 y1 &key cp-x1 cp-y1 cp-x2 cp-y2)
    (with-slots (line-style current-color fill-mode constrict-mode)
        *application-frame*
      (let* ((radius-x (- x1 x))
             (radius-y (- y1 y)))
        (when constrict-mode
          (case mode
            ((:line :arrow)
             (if (> (abs radius-x) (abs radius-y))
                 (setf y1 y)
  