[bknr-cvs] r2401 - branches/bos/projects/bos/web

[hhubner at common-lisp.net]

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)