[mcclim-cvs] CVS mcclim/Examples

[thenriksen]

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)