Changeset 3259

Timestamp:

06/04/08 14:50:34 (7 months ago)

Author:

ksprotte

Message:

adapted contract-tree to play well with sat-images with respect to lod and draw-order

Files:

• branches/bos-trunk-sat/projects/bos/web/contract-tree.lisp (modified) (4 diffs)

branches/bos-trunk-sat/projects/bos/web/contract-tree.lisp

@@ -98 +98 @@
-
-;;; kml handler
-(defmethod network-link-lod-min ((node contract-node))
-  (if (zerop (depth node))
-      16
-      512))
-
-(defmethod network-link-lod-max ((node contract-node))
-  -1)
-
-(defclass contract-tree-kml-handler (page-handler)
-  ()
@@ -138 +130 @@
-        (setf (hunchentoot:header-out :last-modified)
-              (hunchentoot:rfc-1123-date (timestamp node)))
-`(:min ,(network-link-lod-min node) :max ,(network-link-lod-max node)
+(node-lod node
-               (box (geo-box node))
-               (rect (geo-box-rectangle box))
@@ -155 +147 @@
-            (kml-overlay (format nil "http://~a/contract-tree-image?path=~{~d~}" (website-host) path)
-                         rect
-+ 1000 (depth node
+compute-draw-order node (1- +max-num-of-local-draw-order-levels+
-                         ;; :absolute 0
-                         ;; GroundOverlay specific LOD
-
-
-
-
+
-            ;; placemark-contracts
-            (let ((placemark-contracts
@@ -202 +191 @@
-                       (format nil "http://~A/contract-tree-kml?path=~{~D~}~D" (website-host) path i))
-                   :rect (geo-box-rectangle (geo-box child))
-`(:min ,(network-link-lod-min child) :max ,(network-link-lod-max child)
+(node-lod child
-
-