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))