Changeset 2598

Show
Ignore:
Timestamp:
02/22/08 16:53:28 (9 months ago)
Author:
hans
Message:

Fix coordinate translation for import of areas.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/bos/projects/bos/web/allocation-area-handlers.lisp

    r2401 r2598  
    231231  (destructuring-bind (x y) (read-from-string (format nil "(~A)" line)) 
    232232    (cons (scale-coordinate 'x +nw-utm-x+ x) 
    233           (scale-coordinate 'y (- +nw-utm-y+ +width+) y)))) 
     233          (- +width+ (scale-coordinate 'y (- +nw-utm-y+ +width+) y))))) 
    234234 
    235235(defun polygon-from-text-file (filename)