Author: hhubner Date: Wed Jan 23 16:09:55 2008 New Revision: 2401 Modified: branches/bos/projects/bos/web/allocation-area-handlers.lisp Log: Correct scaling for coordinates of imported polygon. Y values decrease from the NW corner, X values increase. Modified: branches/bos/projects/bos/web/allocation-area-handlers.lisp ============================================================================== --- branches/bos/projects/bos/web/allocation-area-handlers.lisp (original) +++ branches/bos/projects/bos/web/allocation-area-handlers.lisp Wed Jan 23 16:09:55 2008 @@ -230,7 +230,7 @@ (defun parse-point (line) (destructuring-bind (x y) (read-from-string (format nil "(~A)" line)) (cons (scale-coordinate 'x +nw-utm-x+ x) - (scale-coordinate 'y +nw-utm-y+ (- y +width+))))) + (scale-coordinate 'y (- +nw-utm-y+ +width+) y)))) (defun polygon-from-text-file (filename) (coerce (with-open-file (input-file filename)