Update of /project/mcclim/cvsroot/mcclim/Examples In directory clnet:/tmp/cvs-serv27270/Examples

Modified Files: clim-fig.lisp Log Message: Try to make CLIM-FIG not draw null beziers.

--- /project/mcclim/cvsroot/mcclim/Examples/clim-fig.lisp 2007/03/20 01:46:14 1.32 +++ /project/mcclim/cvsroot/mcclim/Examples/clim-fig.lisp 2008/01/23 22:18:03 1.33 @@ -84,9 +84,11 @@ (design (climi::make-bezier-thing* 'climi::bezier-area (list x y cp-x1 cp-y1 cp-x2 cp-y2 x1 y1)))) - (climi::draw-bezier-design* pane design) - (draw-line* pane x y cp-x1 cp-y1 :ink +red+) - (draw-line* pane x1 y1 cp-x2 cp-y2 :ink +blue+))))))) + (unless (or (= x cp-x1 x1 cp-x2) + (= y cp-y1 y1 cp-y2)) ; Don't draw null beziers. + (climi::draw-bezier-design* pane design) + (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)