Revision: 3618 Author: ksprotte URL: http://bknr.net/trac/changeset/3618

tuned min lod for small-contracts, so that placemarks should be visible again on close-up

U trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-24 13:12:57 UTC (rev 3617) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-24 13:44:53 UTC (rev 3618) @@ -190,7 +190,7 @@ :key #'contract-area))) (when small-contracts (with-element "Folder" - (kml-region rect `(:min ,(* 6 (getf lod :min)) :max -1)) + (kml-region rect `(:min ,(* 3 (getf lod :min)) :max -1)) (dolist (c small-contracts) (write-contract-placemark-kml c lang)))) (when big-contracts