Changeset 3618

Show
Ignore:
Timestamp:
07/24/08 15:44:53 (4 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3616 r3618  
    191191                   (when small-contracts 
    192192                     (with-element "Folder" 
    193                        (kml-region rect `(:min ,(* 6 (getf lod :min)) :max -1)) 
     193                       (kml-region rect `(:min ,(* 3 (getf lod :min)) :max -1)) 
    194194                       (dolist (c small-contracts) 
    195195                         (write-contract-placemark-kml c lang))))