[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

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