/[mcclim]/mcclim/recording.lisp
ViewVC logotype

Diff of /mcclim/recording.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.142 by ahefner, Tue Aug 19 15:56:50 2008 UTC revision 1.143 by ahefner, Tue Jun 16 05:15:35 2009 UTC
# Line 1508  were added." Line 1508  were added."
1508                                   (if (eql i final-index)                                   (if (eql i final-index)
1509                                       (values final-xn final-yn)                                       (values final-xn final-yn)
1510                                       (values (svref coord-seq (+ i 2))                                       (values (svref coord-seq (+ i 2))
1511                                               (svref coord-seq (+ i                                               (svref coord-seq (+ i 3)))))
                                                                  3)))))  
1512                             (multiple-value-bind (ex1 ey1)                             (multiple-value-bind (ex1 ey1)
1513                                 (normalize-coords (- x xp) (- y yp))                                 (normalize-coords (- x xp) (- y yp))
1514                               (multiple-value-bind (ex2 ey2)                               (multiple-value-bind (ex2 ey2)
# Line 1559  were added." Line 1558  were added."
1558                                   (maxf max-y (+ y ny))))))))                                   (maxf max-y (+ y ny))))))))
1559                 (unless closed                 (unless closed
1560                   (multiple-value-bind (x y)                   (multiple-value-bind (x y)
1561                       (values (svref coord-seq final-index)                       (values (svref coord-seq (- len 2))
1562                               (svref coord-seq (1+ final-index)))                               (svref coord-seq (- len 1)))
1563                     (minf min-x (- x border))                     (minf min-x (- x border))
1564                     (minf min-y (- y border))                     (minf min-y (- y border))
1565                     (maxf max-x (+ x border))                     (maxf max-x (+ x border))

Legend:
Removed from v.1.142  
changed lines
  Added in v.1.143

  ViewVC Help
Powered by ViewVC 1.1.5