[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv7646

Modified Files:
	recording.lisp 
Log Message:
Fix bounding rectangle computation for open polygons. 



--- /project/mcclim/cvsroot/mcclim/recording.lisp	2008/08/19 15:56:50	1.142
+++ /project/mcclim/cvsroot/mcclim/recording.lisp	2009/06/16 05:15:35	1.143
@@ -1508,8 +1508,7 @@
 				 (if (eql i final-index)
 				     (values final-xn final-yn)
 				     (values (svref coord-seq (+ i 2))
-					     (svref coord-seq (+ i
-								 3)))))
+					     (svref coord-seq (+ i 3)))))
 			   (multiple-value-bind (ex1 ey1)
 			       (normalize-coords (- x xp) (- y yp))
 			     (multiple-value-bind (ex2 ey2)
@@ -1559,8 +1558,8 @@
 				 (maxf max-y (+ y ny))))))))
 	       (unless closed
 		 (multiple-value-bind (x y)
-		     (values (svref coord-seq final-index)
-			     (svref coord-seq (1+ final-index)))
+		     (values (svref coord-seq (- len 2))
+			     (svref coord-seq (- len 1)))
 		   (minf min-x (- x border))
 		   (minf min-y (- y border))
 		   (maxf max-x (+ x border))